e01.cod

这是编译原理上机实验同报告.编译原理是一门很难学的课程.这个源码对大家十分有用.

=== COMPILE PL0 ===
  0 PROGRAM EX01; 
  0 VAR A,B,C,D; 
  1 BEGIN 
  2  A:=2; 
  4  B:=6; 
  6  C:=11; 
  8  D:=15; 
 10  C++; 
 14  D--; 
 18  A:=A+3; 
 22  B:=B-10; 
 26  WRITE(A); 
 29  WRITE(B); 
 32  WRITE(C); 
 35  WRITE(D); 
 38  IF A=0 THEN 
 41    A:=57; 
 44  ELSE 
 45    A+=1; 
 49 WRITE(A); 
 52 B:=10; 
 54 FOR B:=6 DOWNTO 1 DO 
 60 BEGIN 
 60 　WRITE(B); 
 63 END 
 63 END. 
  0  JMP   0   1
  1  INI   0   7
  2  LIT   0   2
  3  STO   0   3
  4  LIT   0   6
  5  STO   0   4
  6  LIT   0  11
  7  STO   0   5
  8  LIT   0  15
  9  STO   0   6
 10  LOD   0   5
 11  LIT   0   1
 12  OPR   0   2
 13  STO   0   5
 14  LOD   0   6
 15  LIT   0   1
 16  OPR   0   3
 17  STO   0   6
 18  LOD   0   3
 19  LIT   0   3
 20  OPR   0   2
 21  STO   0   3
 22  LOD   0   4
 23  LIT   0  10
 24  OPR   0   3
 25  STO   0   4
 26  LOD   0   3
 27  OPR   0  14
 28  OPR   0  15
 29  LOD   0   4
 30  OPR   0  14
 31  OPR   0  15
 32  LOD   0   5
 33  OPR   0  14
 34  OPR   0  15
 35  LOD   0   6
 36  OPR   0  14
 37  OPR   0  15
 38  LOD   0   3
 39  LIT   0   0
 40  OPR   0   8
 41  JPC   0  45
 42  LIT   0  57
 43  STO   0   3
 44  JMP   0  49
 45  LOD   0   3
 46  LIT   0   1
 47  OPR   0   2
 48  STO   0   3
 49  LOD   0   3
 50  OPR   0  14
 51  OPR   0  15
 52  LIT   0  10
 53  STO   0   4
 54  LIT   0   6
 55  STO   0   4
 56  LIT   0   1
 57  LOD   0   4
 58  OPR   0  13
 59  JPC   0  68
 60  LOD   0   4
 61  OPR   0  14
 62  OPR   0  15
 63  LOD   0   4
 64  LIT   0   1
 65  OPR   0   3
 66  STO   0   4
 67  JMP   0  56
 68  OPR   0   0
~~~ RUN PL0 ~~~
5
-4
12
14
6
6
5
4
3
2
1
~~~ END PL0 ~~~