for_arr_pp.cod

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

=== COMPILE PL0 ===
  0 PROGRAM MAIN; 
  0 VAR 
  1 I:ARRAY[1..10] OF INTEGER; 
  1 K,J:INTEGER; 
  1 BEGIN 
  2  K:=1; 
  4  FOR J:=1 TO 5 DO 
 10  BEGIN 
 10   I[J]:=J; 
 13   K++; 
 17   WRITE(K); 
 19   WRITE(I[J]); 
 22  END; 
 26  
 26  FOR J:=1 TO 5 DO 
 32  WRITE(I[J]); 
 39        
 39 END. 
  0  JMP   0   1
  1  INI   0  16
  2  LIT   0   1
  3  STO   0  14
  4  LIT   0   1
  5  STO   0  15
  6  LOD   0  15
  7  LIT   0   5
  8  OPR   0  13
  9  JPC   0  26
 10  LOD   0  15
 11  LOD   0  15
 12STOARR   0   3
 13  LOD   0  14
 14  LIT   0   1
 15  OPR   0   2
 16  STO   0  14
 17  LOD   0  14
 18  OPR   0  14
 19  LOD   0  15
 20LODARR   0   3
 21  OPR   0  14
 22  LOD   0  15
 23  LIT   0   1
 24  OPR   0   2
 25  JMP   0   5
 26  LIT   0   1
 27  STO   0  15
 28  LOD   0  15
 29  LIT   0   5
 30  OPR   0  13
 31  JPC   0  39
 32  LOD   0  15
 33LODARR   0   3
 34  OPR   0  14
 35  LOD   0  15
 36  LIT   0   1
 37  OPR   0   2
 38  JMP   0  27
 39  OPR   0   0
~~~ RUN PL0 ~~~
2.000000
1.000000
3.000000
2.000000
4.000000
3.000000
5.000000
4.000000
6.000000
5.000000
1.000000
2.000000
3.000000
4.000000
5.000000
~~~ END PL0 ~~~