neq.cod

为PL0编译器

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