e01.cod

PL/0语言是Pascal语言的一个子集

=== COMPILE PL0 ===
  0 PROGRAM EX01; 
  0 CONST A=10; 
  1 VAR B,C,D; 
  1 ARRAY E[1:10]; 
  1 BEGIN 
  2 READ(B,C); 
  6 IF B<>C THEN 
  9 BEGIN 
 10 B+=C; 
 14 C++; 
 18 WRITE(C) 
 20 END 
 21 ELSE 
 21 BEGIN 
 22 FOR D:=1 TO 10 DO 
 28 BEGIN 
 31 E[3]:=C; 
 33 C--; 
 37 WRITE(E[3],C); 
 42 END 
 42 END; 
 43 E[3]:=A; 
 45 FOR D:=10 DOWNTO 1 DO 
 51 BEGIN 
 54 C-=E[3]; 
 58 WRITE(C) 
 60 END 
 61 END. 
  0  JMP   0   1
  1  INI   0  16
  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   9
  9  JPC   0  22
 10  LOD   0   3
 11  LOD   0   4
 12  OPR   0   2
 13  STO   0   3
 14  LIT   0   1
 15  LOD   0   4
 16  OPR   0   2
 17  STO   0   4
 18  LOD   0   4
 19  OPR   0  14
 20  OPR   0  15
 21  JMP   0  43
 22  LIT   0   1
 23  STO   0   5
 24  LOD   0   5
 25  LIT   0  10
 26  OPR   0  13
 27  JPC   0  43
 28  LIT   0   1
 29  LOD   0   5
 30  OPR   0   2
 31  LOD   0   4
 32  STO   0   8
 33  LOD   0   4
 34  LIT   0   1
 35  OPR   0   3
 36  STO   0   4
 37  LOD   0   8
 38  OPR   0  14
 39  LOD   0   4
 40  OPR   0  14
 41  OPR   0  15
 42  JMP   0  23
 43  LIT   0  10
 44  STO   0   8
 45  LIT   0  10
 46  STO   0   5
 47  LOD   0   5
 48  LIT   0   1
 49  OPR   0  11
 50  JPC   0  62
 51  LOD   0   5
 52  LIT   0   1
 53  OPR   0   3
 54  LOD   0   4
 55  LOD   0   8
 56  OPR   0   3
 57  STO   0   4
 58  LOD   0   4
 59  OPR   0  14
 60  OPR   0  15
 61  JMP   0  46
 62  OPR   0   0
~~~ RUN PL0 ~~~
? 0
? 0
0
-1
-1
-2
-2
-3
-3
-4
-4
-5
-5
-6
-6
-7
-7
-8
-8
-9
-9
-10
-20
-30
-40
-50
-60
-70
-80
-90
-100
-110
~~~ END PL0 ~~~