e0101.cod

PL0功能的扩充编译原理课程设计：扩充赋值运算：+= 和-=

=== COMPILE PL0 ===
  0 PROGRAM EX01; 
  0 VAR E:ARRAY[1..2] OF INT; 
  1     A:INT; 
  1 BEGIN 
  2   E[2]:=1; 
  4   A:=E[2]+88; 
  8   WRITE(A); 
 11 END. 
  0  JMP   0   1
  1  INI   0   6
  2  LIT   0   1
  3  STO   0   4
  4  LOD   0   4
  5  LIT   0  88
  6  OPR   0   2
  7  STO   0   5
  8  LOD   0   5
  9  OPR   0  14
 10  OPR   0  15
 11  OPR   0   0
~~~ RUN PL0 ~~~
89
~~~ END PL0 ~~~