repeat.cod

编译原理课程设计

=== COMPILE PL0 ===
  0 PROGRAM EX01; 
  0 VAR A,B; 
  1 BEGIN 
  2   READ(A); 
  4   READ(B); 
  6  IF A<B  
  8   THEN 
  9   REPEAT  
 10    B+=A 
 12  DOWHILE 
 14    B<50 
 16   ELSE 
 20   REPEAT  
 20    B-=A 
 22  DOWHILE 
 24    B>0  ; 
 29   WRITE(B); 
 32   WRITE(A) 
 34 END. 
  0  JMP   0   1
  1  INI   0   5
  2  OPR   0  16
  3  STO   0   3
  4  OPR   0  16
  5  STO   0   4
  6  LOD   0   3
  7  LOD   0   4
  8  OPR   0  10
  9  JPC   0  20
 10  LOD   0   4
 11  LOD   0   3
 12  OPR   0   2
 13  STO   0   4
 14  LOD   0   4
 15  LIT   0  50
 16  OPR   0  10
 17  JPC   0  19
 18  JMP   0  10
 19  JMP   0  29
 20  LOD   0   4
 21  LOD   0   3
 22  OPR   0   3
 23  STO   0   4
 24  LOD   0   4
 25  LIT   0   0
 26  OPR   0  12
 27  JPC   0  29
 28  JMP   0  20
 29  LOD   0   4
 30  OPR   0  14
 31  OPR   0  15
 32  LOD   0   3
 33  OPR   0  14
 34  OPR   0  15
 35  OPR   0   0
~~~ RUN PL0 ~~~
? 4
? 3
-1
4
~~~ END PL0 ~~~