t2.cod

PL/0语言是Pascal语言的一个子集

=== COMPILE PL0 ===
  0 program T2; 
  0 CONST I=5, B=20; C=1, D=2; 
  1 VAR J, K,X,Y; 
  1 PROCEDURE P; 
  1 BEGIN 
  3   J:=I 
  4 END; 
  1  JMP   0   2
  2  INI   0   3
  3  LIT   0   5
  4  STO   1   3
  5  OPR   0   0
  6 PROCEDURE Q; 
  6 BEGIN 
  8   J:=I 
  9 END; 
  6  JMP   0   7
  7  INI   0   3
  8  LIT   0   5
  9  STO   1   3
 10  OPR   0   0
 11 BEGIN 
 12   WRITE(I); 
 15   K:=1; 
 17   WHILE K<10 DO 
 21     BEGIN 
 21       BEGIN 
 21       END; 
 21       WRITE(K); 
 24       K:=K+1 
 26     END 
 28 END. 
  0  JMP   0  11
  1  JMP   0   2
  2  INI   0   3
  3  LIT   0   5
  4  STO   1   3
  5  OPR   0   0
  6  JMP   0   7
  7  INI   0   3
  8  LIT   0   5
  9  STO   1   3
 10  OPR   0   0
 11  INI   0   7
 12  LIT   0   5
 13  OPR   0  14
 14  OPR   0  15
 15  LIT   0   1
 16  STO   0   4
 17  LOD   0   4
 18  LIT   0  10
 19  OPR   0  10
 20  JPC   0  29
 21  LOD   0   4
 22  OPR   0  14
 23  OPR   0  15
 24  LOD   0   4
 25  LIT   0   1
 26  OPR   0   2
 27  STO   0   4
 28  JMP   0  17
 29  OPR   0   0
~~~ RUN PL0 ~~~
5
1
2
3
4
5
6
7
8
9
~~~ END PL0 ~~~