ric.cod

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

=== COMPILE PL0 ===
  0 PROGRAM RIC; 
  0 VAR 
  1 R:REAL; 
  1 I:INTEGER; 
  1 C:CHAR; 
  1 BEGIN 
  2 READ(R,I,C); 
  8 R:=R/13+12*1; 
 16 I:=I DIV 3+12 MOD 3; 
 24 WRITE(C); 
 26 C:='A'; 
 28 WRITE(R,I,C); 
 34 END. 
  0  JMP   0   1
  1  INI   0   7
  2  OPR   0  15
  3  STO   0   4
  4  OPR   0  16
  5  STO   0   5
  6  OPR   0  20
  7  STO   0   6
  8  LOD   0   4
  9  LIT   0  13
 10  OPR   0   5
 11  LIT   0  12
 12  LIT   0   1
 13  OPR   0   4
 14  OPR   0   2
 15  STO   0   4
 16  LOD   0   5
 17  LIT   0   3
 18  OPR   0  17
 19  LIT   0  12
 20  LIT   0   3
 21  OPR   0  18
 22  OPR   0   2
 23  STO   0   5
 24  LOD   0   6
 25  OPR   0  19
 26  LIT   0  65
 27  STO   0   6
 28  LOD   0   4
 29  OPR   0  14
 30  LOD   0   5
 31  OPR   0  14
 32  LOD   0   6
 33  OPR   0  19
 34  OPR   0   0
~~~ RUN PL0 ~~~
? 2.000000
? 3.000000
? A
A
12.153846
1.000000
A
~~~ END PL0 ~~~