repeat1.cod

plo词法分析程序

=== COMPILE PL0 ===
  0 PROGRAM E01; 
  0 VAR SUM,N; 
  1 BEGIN 
  2   SUM:=0; 
  4   READ(N); 
  6   REPEAT SUM++; 
 10          N++; 
 14   WRITE(SUM); 
 17   UNTIL  N>=0; 
 21   WRITE(SUM); 
 24   WRITE(N); 
 27 END. 
  0  JMP   0   1
  1  INI   0   5
  2  LIT   0   0
  3  STO   0   3
  4  OPR   0  16
  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   2
 13  STO   0   4
 14  LOD   0   3
 15  OPR   0  14
 16  OPR   0  15
 17  LOD   0   4
 18  LIT   0   0
 19  OPR   0  11
 20  JPC   0   6
 21  LOD   0   3
 22  OPR   0  14
 23  OPR   0  15
 24  LOD   0   4
 25  OPR   0  14
 26  OPR   0  15
 27  OPR   0   0
~~~ RUN PL0 ~~~
? 22
1
1
23
~~~ END PL0 ~~~