para.cod

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

=== COMPILE PL0 ===
  0 PROGRAM SDF; 
  0 VAR 
  1 X,Y:INTEGER; 
  1 FUNCTION FF:INTEGER; 
  1 VAR  
  2 H,D:INTEGER; 
  2 BEGIN 
  3  H:=45;D:=23; 
  7  FF:=45; 
 10 END; 
  1  JMP   0   2
  2  INI   0   6
  3  LIT   0  45
  4  STO   0   4
  5  LIT   0  23
  6  STO   0   5
  7  LIT   0  45
  8  STO   1   6
  9  OPR   0   0
 10  OPR   0   0
 11 FUNCTION AA:INTEGER; 
 11 BEGIN 
 13 Y:=44; 
 15 AA:=Y; 
 18 END; 
 11  JMP   0  12
 12  INI   0   4
 13  LIT   0  44
 14  STO   1   5
 15  LOD   1   5
 16  STO   1   7
 17  OPR   0   0
 18  OPR   0   0
 19 BEGIN 
 20 X:=1; 
 22  X:=FF(); 
 27 WRITE(FF()); 
 32 X:=2; 
 34  Y:=AA(); 
 39 WRITE(X,Y); 
 43  
 43 END. 
  0  JMP   0  19
  1  JMP   0   2
  2  INI   0   6
  3  LIT   0  45
  4  STO   0   4
  5  LIT   0  23
  6  STO   0   5
  7  LIT   0  45
  8  STO   1   6
  9  OPR   0   0
 10  OPR   0   0
 11  JMP   0  12
 12  INI   0   4
 13  LIT   0  44
 14  STO   1   5
 15  LOD   1   5
 16  STO   1   7
 17  OPR   0   0
 18  OPR   0   0
 19  INI   0   8
 20  LIT   0   1
 21  STO   0   4
 22  LIT   0   0
 23STOPAR   0   3
 24  CAL   0   1
 25  LOD   0   6
 26  STO   0   4
 27  LIT   0   0
 28STOPAR   0   3
 29  CAL   0   1
 30  LOD   0   6
 31  OPR   0  14
 32  LIT   0   2
 33  STO   0   4
 34  LIT   0   0
 35STOPAR   0   3
 36  CAL   0  11
 37  LOD   0   7
 38  STO   0   5
 39  LOD   0   4
 40  OPR   0  14
 41  LOD   0   5
 42  OPR   0  14
 43  OPR   0   0
~~~ RUN PL0 ~~~
45.000000
2.000000
44.000000
~~~ END PL0 ~~~