e02.cod

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

=== COMPILE PL0 ===
  0 program EX011; 
  0 var a,b,c; 
  1 begin 
  2   a:=88; 
  4   read(b); 
  6   c:=a+b*(3+b); 
 14   if b=0 
 16   then 
 17   write(c) 
 20 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  LIT   0   3
  9  LOD   0   4
 10  OPR   0   2
 11  OPR   0   4
 12  OPR   0   2
 13  STO   0   5
 14  LOD   0   4
 15  LIT   0   0
 16  OPR   0   8
 17  JPC   0  21
 18  LOD   0   5
 19  OPR   0  14
 20  OPR   0  15
 21  OPR   0   0
~~~ RUN PL0 ~~~
? 0
88
~~~ END PL0 ~~~