=== COMPILE PL0 ===
  0 PROGRAM E01; 
  0 VAR A,B,I; 
  1 BEGIN 
  2  A:=10; 
  4  READ(B); 
  6  IF B>A THEN  
  9  FOR I:=B 
 11  DOWNTO A 
 14  DO  
 16  WRITE(I) 
 18  ELSE IF B<A THEN  
 28  FOR I:=B 
 30  TO A 
 33  DO  
 35  WRITE(I) 
 37  ELSE BEGIN 
 44  B++; 
 48  WRITE(B); 
 51  A+=B; 
 55  WRITE(A); 
 58  B--; 
 62  WRITE(B); 
 65  A-=B; 
 69  WRITE(A); 
 72 END; 
 72 END.   
  0  JMP   0   1
  1  INI   0   6
  2  LIT   0  10
  3  STO   0   3
  4  OPR   0  16
  5  STO   0   4
  6  LOD   0   4
  7  LOD   0   3
  8  OPR   0  12
  9  JPC   0  25
 10  LOD   0   4
 11  STO   0   5
 12  LOD   0   5
 13  LOD   0   3
 14  OPR   0  11
 15  JPC   0  24
 16  LOD   0   5
 17  OPR   0  14
 18  OPR   0  15
 19  LOD   0   5
 20  LIT   0   1
 21  OPR   0   3
 22  STO   0   5
 23  JMP   0  12
 24  JMP   0  72
 25  LOD   0   4
 26  LOD   0   3
 27  OPR   0  10
 28  JPC   0  44
 29  LOD   0   4
 30  STO   0   5
 31  LOD   0   5
 32  LOD   0   3
 33  OPR   0  13
 34  JPC   0  43
 35  LOD   0   5
 36  OPR   0  14
 37  OPR   0  15
 38  LOD   0   5
 39  LIT   0   1
 40  OPR   0   2
 41  STO   0   5
 42  JMP   0  31
 43  JMP   0  72
 44  LOD   0   4
 45  LIT   0   1
 46  OPR   0   2
 47  STO   0   4
 48  LOD   0   4
 49  OPR   0  14
 50  OPR   0  15
 51  LOD   0   3
 52  LOD   0   4
 53  OPR   0   2
 54  STO   0   3
 55  LOD   0   3
 56  OPR   0  14
 57  OPR   0  15
 58  LOD   0   4
 59  LIT   0  -1
 60  OPR   0   2
 61  STO   0   4
 62  LOD   0   4
 63  OPR   0  14
 64  OPR   0  15
 65  LOD   0   3
 66  LOD   0   4
 67  OPR   0   3
 68  STO   0   3
 69  LOD   0   3
 70  OPR   0  14
 71  OPR   0  15
 72  OPR   0   0
~~~ RUN PL0 ~~~
? 0
0
1
2
3
4
5
6
7
8
9
10
~~~ END PL0 ~~~