9.out

来自「pl0」· OUT 代码 · 共 69 行

   0  var i,j;             
   1  begin 
   2    i := 85; j := 51;
   6    repeat
   6      if i > j then i := i-j else j := j-i
  17    until i = j ;
  23    write(i)
  25  end.
   1   INT	0	5
   2   LIT	0	85
   3   STO	0	3
   4   LIT	0	51
   5   STO	0	4
   6   LOD	0	3
   7   LOD	0	4
   8   OPR	0	12
   9   JPC	0	15
  10   LOD	0	3
  11   LOD	0	4
  12   OPR	0	3
  13   STO	0	3
  14   JMP	0	19
  15   LOD	0	4
  16   LOD	0	3
  17   OPR	0	3
  18   STO	0	4
  19   LOD	0	3
  20   LOD	0	4
  21   OPR	0	8
  22   JPC	0	6
  23   LOD	0	3
  24   WRT	0	0
  25   OPR	0	0
   0   JMP	0	1
   1   INT	0	5
   2   LIT	0	85
   3   STO	0	3
   4   LIT	0	51
   5   STO	0	4
   6   LOD	0	3
   7   LOD	0	4
   8   OPR	0	12
   9   JPC	0	15
  10   LOD	0	3
  11   LOD	0	4
  12   OPR	0	3
  13   STO	0	3
  14   JMP	0	19
  15   LOD	0	4
  16   LOD	0	3
  17   OPR	0	3
  18   STO	0	4
  19   LOD	0	3
  20   LOD	0	4
  21   OPR	0	8
  22   JPC	0	6
  23   LOD	0	3
  24   WRT	0	0
  25   OPR	0	0

开始执行PL/0程序:
85
51
34
17
17
输出:17
PL/0程序运行结束!