all.cod

此源码是编译器原理代码

=== COMPILE PL0 ===
  0 PROGRAM ALLPRO; 
  0 VAR A,B,C,D,E,F,G; 
  1 BEGIN 
  2   A:=88; 
  4   READ(B); 
  6   IF B>0 THEN 
  9    C:=A+B 
 12   ELSE 
 14    C:=1; 
 17   A-=1; 
 21   B+=5*5; 
 27   WRITE(A,B,C); 
 34   FOR D:=1 TO 6 DO 
 40   WRITE(D); 
 48   FOR E:=5 DOWNTO 0 DO 
 54   WRITE(E); 
 62   F:=A++ + B--; 
 74   G:=++C + ++D; 
 86   WRITE(F,G); 
 91 END. 
  0  JMP   0   1
  1  INI   0  10
  2  LIT   0  88
  3  STO   0   3
  4  OPR   0  16
  5  STO   0   4
  6  LOD   0   4
  7  LIT   0   0
  8  OPR   0  12
  9  JPC   0  15
 10  LOD   0   3
 11  LOD   0   4
 12  OPR   0   2
 13  STO   0   5
 14  JMP   0  17
 15  LIT   0   1
 16  STO   0   5
 17  LOD   0   3
 18  LIT   0   1
 19  OPR   0   3
 20  STO   0   3
 21  LOD   0   4
 22  LIT   0   5
 23  LIT   0   5
 24  OPR   0   4
 25  OPR   0   2
 26  STO   0   4
 27  LOD   0   3
 28  OPR   0  14
 29  LOD   0   4
 30  OPR   0  14
 31  LOD   0   5
 32  OPR   0  14
 33  OPR   0  15
 34  LIT   0   1
 35  STO   0   6
 36  LOD   0   6
 37  LIT   0   6
 38  OPR   0  13
 39  JPC   0  48
 40  LOD   0   6
 41  OPR   0  14
 42  OPR   0  15
 43  LOD   0   6
 44  LIT   0   1
 45  OPR   0   2
 46  STO   0   6
 47  JMP   0  36
 48  LIT   0   5
 49  STO   0   7
 50  LOD   0   7
 51  LIT   0   0
 52  OPR   0  11
 53  JPC   0  62
 54  LOD   0   7
 55  OPR   0  14
 56  OPR   0  15
 57  LOD   0   7
 58  LIT   0   1
 59  OPR   0   3
 60  STO   0   7
 61  JMP   0  50
 62  LOD   0   3
 63  LOD   0   3
 64  LIT   0   1
 65  OPR   0   2
 66  STO   0   3
 67  LOD   0   4
 68  LOD   0   4
 69  LIT   0   1
 70  OPR   0   3
 71  STO   0   4
 72  OPR   0   2
 73  STO   0   8
 74  LOD   0   5
 75  LIT   0   1
 76  OPR   0   2
 77  STO   0   5
 78  LOD   0   5
 79  LOD   0   6
 80  LIT   0   1
 81  OPR   0   2
 82  STO   0   6
 83  LOD   0   6
 84  OPR   0   2
 85  STO   0   9
 86  LOD   0   8
 87  OPR   0  14
 88  LOD   0   9
 89  OPR   0  14
 90  OPR   0  15
 91  OPR   0   0
~~~ RUN PL0 ~~~
? 2
87
27
90
1
2
3
4
5
6
5
4
3
2
1
0
114
99
~~~ END PL0 ~~~