test.lst

PL语言到中间代码的编译程序

0	ENTP	1 , 8		;进入过程
1	JMP	0 , 25		;无条件跳转
2	ENTP	2 , 9		;进入过程
3	JMP	0 , 4		;无条件跳转
4	LOD	2 , 0		;装入变量值
5	LIT	0 , 1		;装入常量
6	LEQ			;<=
7	JPC	0 , 12		;栈顶值为0时跳转
8	LOD	2 , 4		;装入变量值
9	LIT	0 , 1		;装入常量
10	STO			;将栈顶值存入栈顶次值所指单元
11	JMP	0 , 24		;无条件跳转
12	OPAC			;打开活动记录
13	LOD	2 , 0		;装入变量值
14	LIT	0 , 1		;装入常量
15	SUB
16	LOD	2 , 4		;装入变量值
17	CALL	1 , 2		;转子
18	UDIS	1 , 2		;调整Display
19	LOD	2 , 4		;装入变量值
20	LOD	2 , 0		;装入变量值
21	ILOD	2 , 4		;间接装入
22	MULT
23	STO			;将栈顶值存入栈顶次值所指单元
24	RETP			;过程返回
25	LODA	1 , 0		;装入变量地址
26	READ	0 , 0		;读指令
27	OPAC			;打开活动记录
28	LOD	1 , 0		;装入变量值
29	LODA	1 , 4		;装入变量地址
30	CALL	1 , 2		;转子
31	LODA	1 , 4		;装入变量地址
32	WRITE	0 , 0		;写指令
33	ENDP			;程序结束