repeat.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   DOWHILE  A<10; 
 19   WRITE(A); 
 22   WRITE(B); 
 25  REPEAT 
 25 A:=A-1; 
 29 B:=B+1; 
 33 UNTIL  A<0; 
 37   WRITE(A); 
 40   WRITE(B) 
 42 END. 
  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  LIT   0  10
 16  OPR   0  10
 17  JPC   0  19
 18  JMP   0   6
 19  LOD   0   3
 20  OPR   0  14
 21  OPR   0  15
 22  LOD   0   4
 23  OPR   0  14
 24  OPR   0  15
 25  LOD   0   3
 26  LIT   0   1
 27  OPR   0   3
 28  STO   0   3
 29  LOD   0   4
 30  LIT   0   1
 31  OPR   0   2
 32  STO   0   4
 33  LOD   0   3
 34  LIT   0   0
 35  OPR   0  10
 36  JPC   0  25
 37  LOD   0   3
 38  OPR   0  14
 39  OPR   0  15
 40  LOD   0   4
 41  OPR   0  14
 42  OPR   0  15
 43  OPR   0   0
~~~ RUN PL0 ~~~
10
1
-1
12
~~~ END PL0 ~~~