test.cod

为PL0编译器

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