repeat2.cod

为PL0编译器

=== COMPILE PL0 ===
  0 PROGRAM EX01; 
  0 VAR A,B; 
  1 BEGIN 
  2   A:=1; 
  4   B:=10; 
  6   REPEAT  
  6   A:=A+1; 
 10   B:=B-1; 
 14   A<10; 
***    ^13
***    ^19
 14   WRITE(A); 
 17   WRITE(B); 
 20  REPEAT 
 20 A:=A-1; 
 24 B:=B+1; 
 28 UNTIL  A<0; 
 32   WRITE(A); 
 35   WRITE(B) 
 37 END. 
***   ^37
  0  JMP   0   1
  1  INI   0   5
  2  LIT   0   1
  3  STO   0   3
  4  LIT   0  10
  5  STO   0   4
  6  LOD   0   3
  7  LIT   0   1
  8  OPR   0   2
  9  STO   0   3
 10  LOD   0   4
 11  LIT   0   1
 12  OPR   0   3
 13  STO   0   4
 14  LOD   0   3
 15  OPR   0  14
 16  OPR   0  15
 17  LOD   0   4
 18  OPR   0  14
 19  OPR   0  15
 20  LOD   0   3
 21  LIT   0   1
 22  OPR   0   3
 23  STO   0   3
 24  LOD   0   4
 25  LIT   0   1
 26  OPR   0   2
 27  STO   0   4
 28  LOD   0   3
 29  LIT   0   0
 30  OPR   0  10
 31  JPC   0  20
 32  LOD   0   3
 33  OPR   0  14
 34  OPR   0  15
 35  LOD   0   4
 36  OPR   0  14
 37  OPR   0  15
 38  OPR   0   0
ERROR IN PL/0 PROGRAM