e1.cod

来自「PL/0语言是Pascal语言的一个子集」· COD 代码 · 共 66 行

=== COMPILE PL0 ===
  0 PROGRAM EX011; 
  0 VAR A,B,C; 
  1 BEGIN 
  2   A:=88; 
  4   READ(B); 
  6   C:=A-B; 
 10   C:=++A; 
 17  WRITE(C); 
 20 ++A; 
 24   IF B<>0 THEN 
 27   C-=A+B 
 31   ELSE 
 34   C:=A*B; 
 39   WRITE(A); 
 42 END. 
  0  JMP   0   1
  1  INI   0   6
  2  LIT   0  88
  3  STO   0   3
  4  OPR   0  16
  5  STO   0   4
  6  LOD   0   3
  7  LOD   0   4
  8  OPR   0   3
  9  STO   0   5
 10  LOD   0   3
 11  LIT   0   1
 12  LOD   0   3
 13  OPR   0   2
 14  STO   0   3
 15  LOD   0   3
 16  STO   0   5
 17  LOD   0   5
 18  OPR   0  14
 19  OPR   0  15
 20  LIT   0   1
 21  LOD   0   3
 22  OPR   0   2
 23  STO   0   3
 24  LOD   0   4
 25  LIT   0   0
 26  OPR   0   9
 27  JPC   0  35
 28  LOD   0   5
 29  LOD   0   3
 30  LOD   0   4
 31  OPR   0   2
 32  OPR   0   3
 33  STO   0   5
 34  JMP   0  39
 35  LOD   0   3
 36  LOD   0   4
 37  OPR   0   4
 38  STO   0   5
 39  LOD   0   3
 40  OPR   0  14
 41  OPR   0  15
 42  OPR   0   0
~~~ RUN PL0 ~~~
? 0
89
90
~~~ END PL0 ~~~