max.cod

PL/0语言是Pascal语言的一个子集

=== COMPILE PL0 ===
  0 PROGRAM MAIN; 
  0 VAR A,B,C,MAX; 
  1 BEGIN 
  2   READ(A,B,C); 
  8   IF A>B THEN 
 11     MAX:=A 
 13   ELSE MAX:=B; 
 17   IF C>MAX THEN 
 20     MAX:=C; 
 23   WRITE(MAX) 
 25 END. 
  0  JMP   0   1
  1  INI   0   7
  2  OPR   0  16
  3  STO   0   3
  4  OPR   0  16
  5  STO   0   4
  6  OPR   0  16
  7  STO   0   5
  8  LOD   0   3
  9  LOD   0   4
 10  OPR   0  12
 11  JPC   0  15
 12  LOD   0   3
 13  STO   0   6
 14  JMP   0  17
 15  LOD   0   4
 16  STO   0   6
 17  LOD   0   5
 18  LOD   0   6
 19  OPR   0  12
 20  JPC   0  23
 21  LOD   0   5
 22  STO   0   6
 23  LOD   0   6
 24  OPR   0  14
 25  OPR   0  15
 26  OPR   0   0
~~~ RUN PL0 ~~~
? 0
? 0
? 0
0
~~~ END PL0 ~~~