2.out

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

   0  const a=45,b=27;
   1  var x,y,g,m;
   1  procedure swap;
   1  var temp;
   2  begin
   3     temp:=x;
   5     x:=y;
   7     y:=temp
   8  end;
   2   INT	0	4
   3   LOD	1	3
   4   STO	0	3
   5   LOD	1	4
   6   STO	1	3
   7   LOD	0	3
   8   STO	1	4
   9   OPR	0	0
  10  procedure mod;
  10     x:=x-x/y*y;
  11   INT	0	3
  12   LOD	1	3
  13   LOD	1	3
  14   LOD	1	4
  15   OPR	0	5
  16   LOD	1	4
  17   OPR	0	4
  18   OPR	0	3
  19   STO	1	3
  20   OPR	0	0
  21  
  21  begin
  22     x:=a;   y:=b;
  26     call mod;
  27     while x<>0 do
  31     begin
  31        call swap;
  32        call mod
  33     end;
  34     g:=y;    m:=a*b/g;
  42     write(g,m)
  46  end.