forto.cod

来自「PL/0语言是Pascal语言的一个子集」· COD 代码 · 共 61 行

=== COMPILE PL0 ===
  0 PROGRAM FORTO; 
  0 VAR A,B,C; 
  1 BEGIN 
  2   A:=88; 
  4  FOR B:=1 TO 10 DO 
 10   BEGIN 
 13   C:=A-B; 
 17   write(B); 
 20   WRITE(C); 
 23   END 
 23 END. 
  0  JMP   0   1
  1  INI   0   6
  2  LIT   0  88
  3  STO   0   3
  4  LIT   0   1
  5  STO   0   4
  6  LOD   0   4
  7  LIT   0  10
  8  OPR   0  13
  9  JPC   0  24
 10  LIT   0   1
 11  LOD   0   4
 12  OPR   0   2
 13  LOD   0   3
 14  LOD   0   4
 15  OPR   0   3
 16  STO   0   5
 17  LOD   0   4
 18  OPR   0  14
 19  OPR   0  15
 20  LOD   0   5
 21  OPR   0  14
 22  OPR   0  15
 23  JMP   0   5
 24  OPR   0   0
~~~ RUN PL0 ~~~
1
87
2
86
3
85
4
84
5
83
6
82
7
81
8
80
9
79
10
78
~~~ END PL0 ~~~