if_t1.cod

编译实验的源程序代码 比较简单

  0 PROGRAM P1; 
  0 CONST I=5, B=20; C=1, D=2; 
  1 VAR I; X,Y; 
  1 PROCEDURE J; 
  1 BEGIN 
  3   X:=B 
  4 END; 
  1  JMP   0   2
  2  INI   0   3
  3  LIT   0  20
  4  STO   1   4
  5  OPR   0   0
  6 PROCEDURE K; 
  6 BEGIN 
  8   Y:=C 
  9 END; 
  6  JMP   0   7
  7  INI   0   3
  8  LIT   0   1
  9  STO   1   5
 10  OPR   0   0
 11 BEGIN 
 12   I:=5; 
 14   IF I=10 THEN IF I=10 THEN I:=2 ELSE I:=3 ENDIF   
***                                                ^23
***                                                ^11
 26     ELSE I:=1 ENDIF; 
***                   ^23
***                   ^11
 30   WHILE I>0 DO 
 34     BEGIN 
 34       BEGIN 
 34       END; 
 34       WRITE(I); 
 37       I:=I-1 
 39     END 
 41 END. 
  0  JMP   0  11
  1  JMP   0   2
  2  INI   0   3
  3  LIT   0  20
  4  STO   1   4
  5  OPR   0   0
  6  JMP   0   7
  7  INI   0   3
  8  LIT   0   1
  9  STO   1   5
 10  OPR   0   0
 11  INI   0   6
 12  LIT   0   5
 13  STO   0   3
 14  LOD   0   3
 15  LIT   0  10
 16  OPR   0   8
 17  JPC   0  28
 18  LOD   0   3
 19  LIT   0  10
 20  OPR   0   8
 21  JPC   0  25
 22  LIT   0   2
 23  STO   0   3
 24  JMP   0  27
 25  LIT   0   3
 26  STO   0   3
 27  JMP   0  30
 28  LIT   0   1
 29  STO   0   3
 30  LOD   0   3
 31  LIT   0   0
 32  OPR   0  12
 33  JPC   0  42
 34  LOD   0   3
 35  OPR   0  14
 36  OPR   0  15
 37  LOD   0   3
 38  LIT   0   1
 39  OPR   0   3
 40  STO   0   3
 41  JMP   0  30
 42  OPR   0   0
ERROR IN PL/0 PROGRAM