else.cod

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

=== COMPILE PL0 ===
  0 PROGRAM EL; 
  0 VAR A,B,C; 
  1 BEGIN 
  2   A:=88; 
  4   READ(B); 
  6   IF B=0 THEN 
  9   C:=A+B 
 12   ELSE 
 14   C:=A*B; 
 19   WRITE(C) 
 21 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   4
  7  LIT   0   0
  8  OPR   0   8
  9  JPC   0  15
 10  LOD   0   3
 11  LOD   0   4
 12  OPR   0   2
 13  STO   0   5
 14  JMP   0  19
 15  LOD   0   3
 16  LOD   0   4
 17  OPR   0   4
 18  STO   0   5
 19  LOD   0   5
 20  OPR   0  14
 21  OPR   0  15
 22  OPR   0   0
~~~ RUN PL0 ~~~
? 0
88
~~~ END PL0 ~~~