最大公约数和最小公倍数.txt

PL0的一个编译器

PL/0 编译器核心版本1.0k：
========================================
000 const a=45, b=27;
001 var x,y,g,m;
001 procedure swap;
001 var temp;
002 begin
003 	temp:=x;
005 	x:=y;
007 	y:=temp
008 end;
>> 002 INT  0  4
>> 003 LOD  1  3
>> 004 STO  0  3
>> 005 LOD  1  4
>> 006 STO  1  3
>> 007 LOD  0  3
>> 008 STO  1  4
>> 009 OPR  0  0

010 procedure mod;
010 x:=x-x/y*y;
>> 011 INT  0  3
>> 012 LOD  1  3
>> 013 LOD  1  3
>> 014 LOD  1  4
>> 015 OPR  0  5
>> 016 LOD  1  4
>> 017 OPR  0  4
>> 018 OPR  0  3
>> 019 STO  1  3
>> 020 OPR  0  0

021 begin
022 	x:=a; y:=b;
026 	call mod;
027 	while x<>0 do
031 	begin
031 		call swap;
032 		call mod
033 	end;
034 	g:=y;
036 	m:=a*b/g;
042 	write(g,m)
046 end.
>> 021 INT  0  7
>> 022 LIT  0  45
>> 023 STO  0  3
>> 024 LIT  0  27
>> 025 STO  0  4
>> 026 CAL  0  11
>> 027 LOD  0  3
>> 028 LIT  0  0
>> 029 OPR  0  9
>> 030 JPC  0  34
>> 031 CAL  0  2
>> 032 CAL  0  11
>> 033 JMP  0  27
>> 034 LOD  0  4
>> 035 STO  0  5
>> 036 LIT  0  45
>> 037 LIT  0  27
>> 038 OPR  0  4
>> 039 LOD  0  5
>> 040 OPR  0  5
>> 041 STO  0  6
>> 042 LOD  0  5
>> 043 WRT  0  0
>> 044 LOD  0  6
>> 045 WRT  0  0
>> 046 OPR  0  0

编译耗时：0.07 秒
========================================
开始执行 PL/0 程序：

输出：9
输出：135

PL/0 程序运行结束！