for.cod

为PL0编译器

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