e01.cod

plo词法分析程序

=== COMPILE PL0 ===
  0 PROGRAM EX01; 
  0 VAR SUM,I,M; 
  1 BEGIN 
  2  I:=0; 
  4   SUM:=0; 
  6   READ(M); 
  8   IF M>0 
 10   THEN BEGIN 
 12        REPEAT ++I; 
 16               SUM+=I; 
 20               M--; 
 24        UNTIL  M=0; 
 28        END 
 28   ELSE SUM:=0; 
 31   WRITE(I); 
 34   WRITE(SUM) 
 36 END. 
  0  JMP   0   1
  1  INI   0   6
  2  LIT   0   0
  3  STO   0   4
  4  LIT   0   0
  5  STO   0   3
  6  OPR   0  16
  7  STO   0   5
  8  LOD   0   5
  9  LIT   0   0
 10  OPR   0  12
 11  JPC   0  29
 12  LOD   0   4
 13  LIT   0   1
 14  OPR   0   2
 15  STO   0   4
 16  LOD   0   3
 17  LOD   0   4
 18  OPR   0   2
 19  STO   0   3
 20  LOD   0   5
 21  LIT   0   1
 22  OPR   0   3
 23  STO   0   5
 24  LOD   0   5
 25  LIT   0   0
 26  OPR   0   8
 27  JPC   0  12
 28  JMP   0  31
 29  LIT   0   0
 30  STO   0   3
 31  LOD   0   4
 32  OPR   0  14
 33  OPR   0  15
 34  LOD   0   3
 35  OPR   0  14
 36  OPR   0  15
 37  OPR   0   0
~~~ RUN PL0 ~~~
? 6
6
21
~~~ END PL0 ~~~