else2.cod

为PL0编译器

=== COMPILE PL0 ===
  0 PROGRAM EX01; 
  0 VAR A,B; 
  1 BEGIN 
  2    READ(A); 
  4   IF A<0 
  6   THEN 
  7   B:=-1; 
 12   ELSE 
***      ^19
 12   B:=1; 
 12   WRITE(A); 
 15   WRITE(B) 
 17 END. 
  0  JMP   0   1
  1  INI   0   5
  2  OPR   0  16
  3  STO   0   3
  4  LOD   0   3
  5  LIT   0   0
  6  OPR   0  10
  7  JPC   0  12
  8  LIT   0   1
  9  OPR   0   1
 10  STO   0   4
 11  JMP   0  12
 12  LOD   0   3
 13  OPR   0  14
 14  OPR   0  15
 15  LOD   0   4
 16  OPR   0  14
 17  OPR   0  15
 18  OPR   0   0
ERROR IN PL/0 PROGRAM