www.pudn.com > kechengsheji.rar > FOR.COD

=== COMPILE PL0 === 
  0 PROGRAM XYZ;  
  0 VAR  
  1 I:INTEGER;  
  1 BEGIN  
  2 FOR I:=10+3 DOWNTO -1-(-2) DO  
 14 WRITE(I);  
 20 END.  
  0  JMP   0   1 
  1  INI   0   4 
  2  LIT   0  10 
  3  LIT   0   3 
  4  OPR   0   2 
  5  STO   0   3 
  6  LOD   0   3 
  7  LIT   0   1 
  8  OPR   0   1 
  9  LIT   0   2 
 10  OPR   0   1 
 11  OPR   0   3 
 12  OPR   0  11 
 13  JPC   0  20 
 14  LOD   0   3 
 15  OPR   0  14 
 16  LOD   0   3 
 17  LIT   0   1 
 18  OPR   0   3 
 19  JMP   0   5 
 20  OPR   0   0 
~~~ RUN PL0 ~~~ 
13.000000 
12.000000 
11.000000 
10.000000 
9.000000 
8.000000 
7.000000 
6.000000 
5.000000 
4.000000 
3.000000 
2.000000 
1.000000 
~~~ END PL0 ~~~