array.cod

来自「PL/0语言是Pascal语言的一个子集」· COD 代码 · 共 35 行

=== COMPILE PL0 ===
  0 PROGRAM ARR; 
  0 VAR A,B,C; 
  1 ARRAY D[1:10]; 
  1 BEGIN 
  2   A:=88;   
  4   C:=33; 
  6   D[9]:=C; 
  8   C:=D[9]; 
 10 WRITE(C); 
 13 WRITE(D[9]); 
 16 END. 
  0  JMP   0   1
  1  INI   0  16
  2  LIT   0  88
  3  STO   0   3
  4  LIT   0  33
  5  STO   0   5
  6  LOD   0   5
  7  STO   0  14
  8  LOD   0  14
  9  STO   0   5
 10  LOD   0   5
 11  OPR   0  14
 12  OPR   0  15
 13  LOD   0  14
 14  OPR   0  14
 15  OPR   0  15
 16  OPR   0   0
~~~ RUN PL0 ~~~
33
33
~~~ END PL0 ~~~