ppara.cod

来自「扩展PL0语言 对其扩展++,--,+=,-=运算等」· COD 代码 · 共 63 行

=== COMPILE PL0 ===
  0 PROGRAM SDF; 
  0 FUNCTION MC(A,B:REAL;C:INTEGER):REAL; 
  1 BEGIN 
  3  WRITE(A,B,C); 
  9  MC:=A+B+C; 
 16 END; 
  1  JMP   0   2
  2  INI   0   6
  3  LOD   0   3
  4  OPR   0  14
  5  LOD   0   4
  6  OPR   0  14
  7  LOD   0   5
  8  OPR   0  14
  9  LOD   0   3
 10  LOD   0   4
 11  OPR   0   2
 12  LOD   0   5
 13  OPR   0   2
 14  STO   1   3
 15  OPR   0   0
 16  OPR   0   0
 17  
 17 BEGIN 
 18   WRITE(MC(3.3,4.4,5)); 
 27 END. 
  0  JMP   0  17
  1  JMP   0   2
  2  INI   0   6
  3  LOD   0   3
  4  OPR   0  14
  5  LOD   0   4
  6  OPR   0  14
  7  LOD   0   5
  8  OPR   0  14
  9  LOD   0   3
 10  LOD   0   4
 11  OPR   0   2
 12  LOD   0   5
 13  OPR   0   2
 14  STO   1   3
 15  OPR   0   0
 16  OPR   0   0
 17  INI   0   4
 18  LIT   03.3000
 19STOPAR   0   3
 20  LIT   04.4000
 21STOPAR   0   4
 22  LIT   0   5
 23STOPAR   0   5
 24  CAL   0   1
 25  LOD   0   3
 26  OPR   0  14
 27  OPR   0   0
~~~ RUN PL0 ~~~
3.300000
4.400000
5.000000
12.700000
~~~ END PL0 ~~~