repeat.cod

pl0语言拓展

=== COMPILE PL0 ===
  0 PROGRAM EX01; 
  0 VAR B,C; 
  1 BEGIN 
  2 C:=0; 
  4 READ(B); 
  6  REPEAT C+=10; 
 10  DOWHILE C<B; 
 15  WRITE(C); 
 18 END. 
  0  JMP   0   1
  1  INI   0   5
  2  LIT   0   0
  3  STO   0   4
  4  OPR   0  16
  5  STO   0   3
  6  LOD   0   4
  7  LIT   0  10
  8  OPR   0   2
  9  STO   0   4
 10  LOD   0   4
 11  LOD   0   3
 12  OPR   0  10
 13  JPC   0  15
 14  JMP   0   6
 15  LOD   0   4
 16  OPR   0  14
 17  OPR   0  15
 18  OPR   0   0
~~~ RUN PL0 ~~~
? 0
10
~~~ END PL0 ~~~