funparav.cod

扩展PL0语言 对其扩展++,--,+=,-=运算等

=== COMPILE PL0 ===
  0 PROGRAM SDF; 
  0 VAR 
  1 X,Y,Z,H:INTEGER; 
  1 FUNCTION MC(VAR A,L:INTEGER):INTEGER; 
  1 VAR M,C:INTEGER; 
  2 BEGIN 
  3  M:=1; 
  5  C:=2; 
  7  A:=M+C;  
 12  L:=A*3+L; 
 21 END; 
  1  JMP   0   2
  2  INI   0   7
  3  LIT   0   1
  4  STO   0   5
  5  LIT   0   2
  6  STO   0   6
  7  LOD   0   3
  8  LOD   0   5
  9  LOD   0   6
 10  OPR   0   2
 11STOVAR   1   3
 12  LOD   0   4
 13  LOD   0   3
 14LODVAR   1   3
 15  LIT   0   3
 16  OPR   0   4
 17  LOD   0   4
 18LODVAR   1   4
 19  OPR   0   2
 20STOVAR   1   4
 21  OPR   0   0
 22 FUNCTION KFC(VAR B,G:INTEGER):INTEGER; 
 22 VAR K,F,C:INTEGER; 
 23 BEGIN 
 24   K:=5; 
 26   F:=6; 
 28   C:=4; 
 30   B:=K+F+C; 
 37   G:=G+B*3; 
 46 END; 
 22  JMP   0  23
 23  INI   0   8
 24  LIT   0   5
 25  STO   0   5
 26  LIT   0   6
 27  STO   0   6
 28  LIT   0   4
 29  STO   0   7
 30  LOD   0   3
 31  LOD   0   5
 32  LOD   0   6
 33  OPR   0   2
 34  LOD   0   7
 35  OPR   0   2
 36STOVAR   1   3
 37  LOD   0   4
 38  LOD   0   4
 39LODVAR   1   4
 40  LOD   0   3
 41LODVAR   1   3
 42  LIT   0   3
 43  OPR   0   4
 44  OPR   0   2
 45STOVAR   1   4
 46  OPR   0   0
 47 BEGIN 
 48  Z:=4; 
 50  H:=8; 
 52  MC(X,Z); 
 57  KFC(Y,H); 
 62  WRITE(X*Y,Z+H); 
 70 END. 
  0  JMP   0  47
  1  JMP   0   2
  2  INI   0   7
  3  LIT   0   1
  4  STO   0   5
  5  LIT   0   2
  6  STO   0   6
  7  LOD   0   3
  8  LOD   0   5
  9  LOD   0   6
 10  OPR   0   2
 11STOVAR   1   3
 12  LOD   0   4
 13  LOD   0   3
 14LODVAR   1   3
 15  LIT   0   3
 16  OPR   0   4
 17  LOD   0   4
 18LODVAR   1   4
 19  OPR   0   2
 20STOVAR   1   4
 21  OPR   0   0
 22  JMP   0  23
 23  INI   0   8
 24  LIT   0   5
 25  STO   0   5
 26  LIT   0   6
 27  STO   0   6
 28  LIT   0   4
 29  STO   0   7
 30  LOD   0   3
 31  LOD   0   5
 32  LOD   0   6
 33  OPR   0   2
 34  LOD   0   7
 35  OPR   0   2
 36STOVAR   1   3
 37  LOD   0   4
 38  LOD   0   4
 39LODVAR   1   4
 40  LOD   0   3
 41LODVAR   1   3
 42  LIT   0   3
 43  OPR   0   4
 44  OPR   0   2
 45STOVAR   1   4
 46  OPR   0   0
 47  INI   0   9
 48  LIT   0   4
 49  STO   0   5
 50  LIT   0   8
 51  STO   0   6
 52  LIT   0   3
 53STOPAR   0   3
 54  LIT   0   5
 55STOPAR   0   4
 56  CAL   0   1
 57  LIT   0   4
 58STOPAR   0   3
 59  LIT   0   6
 60STOPAR   0   4
 61  CAL   0  22
 62  LOD   0   3
 63  LOD   0   4
 64  OPR   0   4
 65  OPR   0  14
 66  LOD   0   5
 67  LOD   0   6
 68  OPR   0   2
 69  OPR   0  14
 70  OPR   0   0
~~~ RUN PL0 ~~~
45.000000
66.000000
~~~ END PL0 ~~~