e01.cod

我在三做的课程

=== COMPILE PL0 ===
  0 PROGRAM EX01; 
  0 VAR A,B,H,R,C[1~9]; 
  1 CHAR CH; 
  1 REAL F,R; 
  1 BEGIN 
  2   CH:='A'; 
  4   WRITE(CH); 
  6   F:=100.123456; 
  8   WRITE(F); 
 10   A:=1;  
 12   B:=0;  
 14   FOR A:=0+1 TO 5+4 DO 
 21   BEGIN 
 25   B++; 
 29   WRITE(B++); 
 35   A++; 
 39   WRITE(A) 
 41   END; 
 46 END. 
  0  JMP   0   0
  1  INI   0   0
  2  LIT   0   0
  3  STO   0   0
  4  LOD   0   0
  5  OPR   0   0
  6  LIT   0-1610612736
  7  STO   0   0
  8  LOD   0   0
  9  OPR   0   0
 10  LIT   0   0
 11  STO   0   0
 12  LIT   0   0
 13  STO   0   0
 14  LIT   0   0
 15  LIT   0   0
 16  OPR   0   0
 17  STO  -1   0
 18  LIT   0   0
 19  LIT   0   0
 20  OPR   0   0
 21  OPR   0   0
 22  LOD  -1   0
 23  OPR   0   0
 24  JPC   0   0
 25  LOD   0   0
 26  LIT   0   0
 27  OPR   0   0
 28  STO   0   0
 29  LOD  -4   0
 30  LOD  -4   0
 31  LIT   0   0
 32  OPR   0   0
 33  STO  -4   0
 34  OPR   0   0
 35  LOD  -1   0
 36  LIT   0   0
 37  OPR   0   0
 38  STO  -1   0
 39  LOD  -4   0
 40  OPR   0   0
 41  LOD  -4   0
 42  LIT   0   0
 43  OPR   0   0
 44  STO  -4   0
 45  JMP   0   0
 46  OPR   0   0
~~~ RUN PL0 ~~~
A
100.123451
1.000000
2.000000
3.000000
4.000000
5.000000
6.000000
7.000000
8.000000
9.000000
10.000000
~~~ END PL0 ~~~