fordownto.cod

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

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