becomes.cod

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

=== COMPILE PL0 ===
  0 PROGRAM BECOMES; 
  0 CONST A=10; 
  1 VAR B,C; 
  1 PROCEDURE P; 
  1 BEGIN 
  3   C+=B*A;  
  9   WRITE(C); 
 12 END; 
  1  JMP   0   2
  2  INI   0   3
  3  LOD   1   4
  4  LOD   1   3
  5  LIT   0  10
  6  OPR   0   4
  7  OPR   0   2
  8  STO   1   4
  9  LOD   1   4
 10  OPR   0  14
 11  OPR   0  15
 12  OPR   0   0
 13 PROCEDURE Q; 
 13 BEGIN 
 15   C-=B*A;  
 21 WRITE(C); 
 24 END; 
 13  JMP   0  14
 14  INI   0   3
 15  LOD   1   4
 16  LOD   1   3
 17  LIT   0  10
 18  OPR   0   4
 19  OPR   0   3
 20  STO   1   4
 21  LOD   1   4
 22  OPR   0  14
 23  OPR   0  15
 24  OPR   0   0
 25 BEGIN 
 26 READ(C); 
 28 READ(B); 
 30   WHILE B<>0 DO 
 34   BEGIN     
 34     CALL P;     
 35     CALL Q; 
 36     B-=1;     
 40   END 
 40 END. 
  0  JMP   0  25
  1  JMP   0   2
  2  INI   0   3
  3  LOD   1   4
  4  LOD   1   3
  5  LIT   0  10
  6  OPR   0   4
  7  OPR   0   2
  8  STO   1   4
  9  LOD   1   4
 10  OPR   0  14
 11  OPR   0  15
 12  OPR   0   0
 13  JMP   0  14
 14  INI   0   3
 15  LOD   1   4
 16  LOD   1   3
 17  LIT   0  10
 18  OPR   0   4
 19  OPR   0   3
 20  STO   1   4
 21  LOD   1   4
 22  OPR   0  14
 23  OPR   0  15
 24  OPR   0   0
 25  INI   0   5
 26  OPR   0  16
 27  STO   0   4
 28  OPR   0  16
 29  STO   0   3
 30  LOD   0   3
 31  LIT   0   0
 32  OPR   0   9
 33  JPC   0  41
 34  CAL   0   2
 35  CAL   0  14
 36  LOD   0   3
 37  LIT   0   1
 38  OPR   0   3
 39  STO   0   3
 40  JMP   0  30
 41  OPR   0   0
~~~ RUN PL0 ~~~
? 0
? 0
~~~ END PL0 ~~~