else.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 
  9   ELSE 
 12   B:=1; 
 14   WRITE(A); 
 17   WRITE(B) 
 19 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  14
 12  LIT   0   1
 13  STO   0   4
 14  LOD   0   3
 15  OPR   0  14
 16  OPR   0  15
 17  LOD   0   4
 18  OPR   0  14
 19  OPR   0  15
 20  OPR   0   0
~~~ RUN PL0 ~~~
? -5
-5
-1
~~~ END PL0 ~~~