testelse.cod

来自「编译原理源码（包括语法分析」· COD 代码 · 共 58 行

=== COMPILE PL0 ===
  0 PROGRAM EX01; 
  0 	VAR A,B,C; 
  1 	BEGIN 
  2   		A:=88; 
  4   		READ(B); 
  6   		C:=A+B*(3+B);	 
 14   		C -= A ; 
 18   		WRITE(C); 
 21   		IF A<>B THEN 
 24   		BEGIN 
 25   			WRITE(A); 
 28   		END 
 28   		ELSE 
 29   		BEGIN 
 29   			WRITE(A);  
 32   		END; 
 32 	END. 
  0  JMP   0   1
  1  INI   0   6
  2  LIT   0  88
  3  STO   0   3
  4  OPR   0  16
  5  STO   0   4
  6  LOD   0   3
  7  LOD   0   4
  8  LIT   0   3
  9  LOD   0   4
 10  OPR   0   2
 11  OPR   0   4
 12  OPR   0   2
 13  STO   0   5
 14  LOD   0   5
 15  LOD   0   3
 16  OPR   0   3
 17  STO   0   5
 18  LOD   0   5
 19  OPR   0  14
 20  OPR   0  15
 21  LOD   0   3
 22  LOD   0   4
 23  OPR   0   9
 24  JPC   0  29
 25  LOD   0   3
 26  OPR   0  14
 27  OPR   0  15
 28  JMP   0  32
 29  LOD   0   3
 30  OPR   0  14
 31  OPR   0  15
 32  OPR   0   0
----------------------------- RUN PL0 ----------------------------- 
? 44
2068
88
------------------------- END PL0 -----------------------------