p9104.cod

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

=== COMPILE PL0 ===
  0 PROGRAM MAIN1; 
  0 CONST A=10; 
  1 VAR B,C; 
  1 PROCEDURE P; 
  1 VAR D; 
  2  PROCEDURE Q; 
  2  CONST E=5; VAR F; 
  3   PROCEDURE R; 
  3   VAR G; 
  4   BEGIN G:=A+E; F:=G; 
 11     WRITE(G) 
 13   END; 
  3  JMP   0   4
  4  INI   0   4
  5  LIT   0  10
  6  LIT   0   5
  7  OPR   0   2
  8  STO   0   3
  9  LOD   0   3
 10  STO   1   3
 11  LOD   0   3
 12  OPR   0  14
 13  OPR   0  15
 14  OPR   0   0
 15  BEGIN CALL R; WRITE(F); 
 20    F:=A+E*F; WRITE(F,D) 
 30  END; 
  2  JMP   0  15
  3  JMP   0   4
  4  INI   0   4
  5  LIT   0  10
  6  LIT   0   5
  7  OPR   0   2
  8  STO   0   3
  9  LOD   0   3
 10  STO   1   3
 11  LOD   0   3
 12  OPR   0  14
 13  OPR   0  15
 14  OPR   0   0
 15  INI   0   4
 16  CAL   0   4
 17  LOD   0   3
 18  OPR   0  14
 19  OPR   0  15
 20  LIT   0  10
 21  LIT   0   5
 22  LOD   0   3
 23  OPR   0   4
 24  OPR   0   2
 25  STO   0   3
 26  LOD   0   3
 27  OPR   0  14
 28  LOD   1   3
 29  OPR   0  14
 30  OPR   0  15
 31  OPR   0   0
 32 BEGIN D:=A+B; WRITE(D); CALL Q END; 
  1  JMP   0  32
  2  JMP   0  15
  3  JMP   0   4
  4  INI   0   4
  5  LIT   0  10
  6  LIT   0   5
  7  OPR   0   2
  8  STO   0   3
  9  LOD   0   3
 10  STO   1   3
 11  LOD   0   3
 12  OPR   0  14
 13  OPR   0  15
 14  OPR   0   0
 15  INI   0   4
 16  CAL   0   4
 17  LOD   0   3
 18  OPR   0  14
 19  OPR   0  15
 20  LIT   0  10
 21  LIT   0   5
 22  LOD   0   3
 23  OPR   0   4
 24  OPR   0   2
 25  STO   0   3
 26  LOD   0   3
 27  OPR   0  14
 28  LOD   1   3
 29  OPR   0  14
 30  OPR   0  15
 31  OPR   0   0
 32  INI   0   4
 33  LIT   0  10
 34  LOD   1   3
 35  OPR   0   2
 36  STO   0   3
 37  LOD   0   3
 38  OPR   0  14
 39  OPR   0  15
 40  CAL   0  15
 41  OPR   0   0
 42 PROCEDURE S; 
 42 BEGIN CALL P; B:=-10; WRITE(B) END; 
 42  JMP   0  43
 43  INI   0   3
 44  CAL   1  32
 45  LIT   0  10
 46  OPR   0   1
 47  STO   1   3
 48  LOD   1   3
 49  OPR   0  14
 50  OPR   0  15
 51  OPR   0   0
 52 BEGIN 
 53   B:=8; 
 55   READ(C); 
 57   WHILE C>0 DO 
 61     BEGIN 
 61       WRITE(B); CALL S; 
 65       B:=B+C; WRITE(B); 
 72       READ(C) 
 74     END; 
 75   CALL P 
 76 END. 
  0  JMP   0  52
  1  JMP   0  32
  2  JMP   0  15
  3  JMP   0   4
  4  INI   0   4
  5  LIT   0  10
  6  LIT   0   5
  7  OPR   0   2
  8  STO   0   3
  9  LOD   0   3
 10  STO   1   3
 11  LOD   0   3
 12  OPR   0  14
 13  OPR   0  15
 14  OPR   0   0
 15  INI   0   4
 16  CAL   0   4
 17  LOD   0   3
 18  OPR   0  14
 19  OPR   0  15
 20  LIT   0  10
 21  LIT   0   5
 22  LOD   0   3
 23  OPR   0   4
 24  OPR   0   2
 25  STO   0   3
 26  LOD   0   3
 27  OPR   0  14
 28  LOD   1   3
 29  OPR   0  14
 30  OPR   0  15
 31  OPR   0   0
 32  INI   0   4
 33  LIT   0  10
 34  LOD   1   3
 35  OPR   0   2
 36  STO   0   3
 37  LOD   0   3
 38  OPR   0  14
 39  OPR   0  15
 40  CAL   0  15
 41  OPR   0   0
 42  JMP   0  43
 43  INI   0   3
 44  CAL   1  32
 45  LIT   0  10
 46  OPR   0   1
 47  STO   1   3
 48  LOD   1   3
 49  OPR   0  14
 50  OPR   0  15
 51  OPR   0   0
 52  INI   0   5
 53  LIT   0   8
 54  STO   0   3
 55  OPR   0  16
 56  STO   0   4
 57  LOD   0   4
 58  LIT   0   0
 59  OPR   0  12
 60  JPC   0  75
 61  LOD   0   3
 62  OPR   0  14
 63  OPR   0  15
 64  CAL   0  43
 65  LOD   0   3
 66  LOD   0   4
 67  OPR   0   2
 68  STO   0   3
 69  LOD   0   3
 70  OPR   0  14
 71  OPR   0  15
 72  OPR   0  16
 73  STO   0   4
 74  JMP   0  57
 75  CAL   0  32
 76  OPR   0   0
~~~ RUN PL0 ~~~
? 0
18
15
15
85
18
~~~ END PL0 ~~~