e.cod

编译实验的源程序代码 比较简单

  0 PROGRAM EX01; 
  0 VAR B; 
  1 BEGIN 
  2   READ(B); 
  4   IF B=0 THEN 
  7   BEGIN 
  8   WRITE(0); 
 11   END 
 11   ELSE  
 12   WRITE(1); 
 15 END. 
  0  JMP   0   1
  1  INI   0   4
  2  OPR   0  16
  3  STO   0   3
  4  LOD   0   3
  5  LIT   0   0
  6  OPR   0   8
  7  JPC   0  12
  8  LIT   0   0
  9  OPR   0  14
 10  OPR   0  15
 11  JMP   0  15
 12  LIT   0   1
 13  OPR   0  14
 14  OPR   0  15
 15  OPR   0   0
~~~ RUN PL0 ~~~
? 0
0
~~~ END PL0 ~~~