char_real.cod

我在三做的课程

=== COMPILE PL0 ===
  0 PROGRAM XYZ; 
  0 CHAR C,D; 
  1 REAL E,F; 
  1 BEGIN 
  2 C:='U'; 
  4 E:=10.5; 
  6 WRITE(C,E); 
 10 READ(D,F); 
 14 WRITE(D,F); 
 18 END. 
  0  JMP   0   0
  1  INI   0   0
  2  LIT   0   0
  3  STO   0   0
  4  LIT   0   0
  5  STO   0   0
  6  LOD   0   0
  7  OPR   0   0
  8  LOD   0   0
  9  OPR   0   0
 10  OPR   0   0
 11  STO   0   0
 12  OPR   0   0
 13  STO   0   0
 14  LOD   0   0
 15  OPR   0   0
 16  LOD   0   0
 17  OPR   0   0
 18  OPR   0   0
~~~ RUN PL0 ~~~
U
10.500000
? t
? 487.000000
t
487.000000
~~~ END PL0 ~~~