funpara.cod

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

=== COMPILE PL0 ===
  0 PROGRAM SDF; 
  0 VAR 
  1 X,Y:INTEGER; 
  1 FUNCTION MC(A,B:INTEGER):INTEGER; 
  1 VAR M,C:INTEGER; 
  2 BEGIN 
  3  M:=A; 
  5  C:=B; 
  7  WRITE(A,B); 
 11  MC:=M+C; 
 16   
 16 END; 
  1  JMP   0   2
  2  INI   0   7
  3  LOD   0   3
  4  STO   0   5
  5  LOD   0   4
  6  STO   0   6
  7  LOD   0   3
  8  OPR   0  14
  9  LOD   0   4
 10  OPR   0  14
 11  LOD   0   5
 12  LOD   0   6
 13  OPR   0   2
 14  STO   1   5
 15  OPR   0   0
 16  OPR   0   0
 17 FUNCTION KFC(C,D:INTEGER):INTEGER; 
 17 VAR K,F:INTEGER; 
 18 BEGIN 
 19   K:=C; 
 21   F:=D; 
 23   WRITE(C,D); 
 27   KFC:=K+F; 
 32 END; 
 17  JMP   0  18
 18  INI   0   7
 19  LOD   0   3
 20  STO   0   5
 21  LOD   0   4
 22  STO   0   6
 23  LOD   0   3
 24  OPR   0  14
 25  LOD   0   4
 26  OPR   0  14
 27  LOD   0   5
 28  LOD   0   6
 29  OPR   0   2
 30  STO   1   6
 31  OPR   0   0
 32  OPR   0   0
 33 BEGIN 
 34  X:=MC(1,2); 
 41  Y:=KFC(5,6); 
 48 WRITE(X*Y); 
 52 END. 
  0  JMP   0  33
  1  JMP   0   2
  2  INI   0   7
  3  LOD   0   3
  4  STO   0   5
  5  LOD   0   4
  6  STO   0   6
  7  LOD   0   3
  8  OPR   0  14
  9  LOD   0   4
 10  OPR   0  14
 11  LOD   0   5
 12  LOD   0   6
 13  OPR   0   2
 14  STO   1   5
 15  OPR   0   0
 16  OPR   0   0
 17  JMP   0  18
 18  INI   0   7
 19  LOD   0   3
 20  STO   0   5
 21  LOD   0   4
 22  STO   0   6
 23  LOD   0   3
 24  OPR   0  14
 25  LOD   0   4
 26  OPR   0  14
 27  LOD   0   5
 28  LOD   0   6
 29  OPR   0   2
 30  STO   1   6
 31  OPR   0   0
 32  OPR   0   0
 33  INI   0   7
 34  LIT   0   1
 35STOPAR   0   3
 36  LIT   0   2
 37STOPAR   0   4
 38  CAL   0   1
 39  LOD   0   5
 40  STO   0   3
 41  LIT   0   5
 42STOPAR   0   3
 43  LIT   0   6
 44STOPAR   0   4
 45  CAL   0  17
 46  LOD   0   6
 47  STO   0   4
 48  LOD   0   3
 49  LOD   0   4
 50  OPR   0   4
 51  OPR   0  14
 52  OPR   0   0
~~~ RUN PL0 ~~~
1.000000
2.000000
5.000000
6.000000
33.000000
~~~ END PL0 ~~~