t1.cod

扩展PL0语言 对其扩展++,--,+=,-=运算等

=== COMPILE PL0 ===
  0 PROGRAM P1; 
  0 CONST I=5, B=20; C=1, D=2; 
  1 VAR I; X,Y; 
***      ^4
***           ^4
  1 PROCEDURE J; 
  1 BEGIN 
  3   X:=B 
***   ^11
***      ^32
  3 END; 
  1  JMP   0   2
  2  INI   0   3
  3  OPR   0   0
  4 PROCEDURE K; 
  4 BEGIN 
  6   Y:=C 
***   ^11
***      ^32
  6 END; 
  4  JMP   0   5
  5  INI   0   3
  6  OPR   0   0
  7 BEGIN 
  8   I:=10; 
***   ^12
***       ^32
  8   WHILE I>0 DO 
 12     BEGIN 
 12       BEGIN 
 12       END; 
 12       WRITE(I); 
 14       I:=I-1 
***       ^12
***          ^32
***           ^19
 14     END 
 14 END. 
  0  JMP   0   7
  1  JMP   0   2
  2  INI   0   3
  3  OPR   0   0
  4  JMP   0   5
  5  INI   0   3
  6  OPR   0   0
  7  INI   0   3
  8  LIT   0   5
  9  LIT   0   0
 10  OPR   0  12
 11  JPC   0  15
 12  LIT   0   5
 13  OPR   0  14
 14  JMP   0   8
 15  OPR   0   0
ERROR IN PL/0 PROGRAM