e01.cod

来自「《PL/0的编译器》：PL/0语言是Pascal语言的一个子集」· COD 代码 · 共 29 行

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