pl0.lst

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

0	ENTP	1 , 9		;进入过程
1	JMP	0 , 83		;无条件跳转
2	ENTP	2 , 978		;进入过程
3	JMP	0 , 4		;无条件跳转
4	LIT	0 , 2		;装入常量
5	LIT	0 , 2		;装入常量
6	SUB
7	LIT	0 , 19		;装入常量
8	MULT
9	LIT	0 , 3		;装入常量
10	ADD
11	LODA	2 , 9		;装入变量地址
12	ADD
13	LOD	2 , 0		;装入变量值
14	LIT	0 , 2		;装入常量
15	SUB
16	LIT	0 , 19		;装入常量
17	MULT
18	LOD	2 , 0		;装入变量值
19	LIT	0 , 2		;装入常量
20	SUB
21	LIT	0 , 19		;装入常量
22	MULT
23	ILOD	2 , 4		;间接装入
24	ADD
25	LODA	2 , 9		;装入变量地址
26	ADD
27	LODT			;装入栈顶值为地址的内容
28	ADD
29	LODA	2 , 9		;装入变量地址
30	ADD
31	LODT			;装入栈顶值为地址的内容
32	ILOD	2 , 4		;间接装入
33	ADD
34	STO			;将栈顶值存入栈顶次值所指单元
35	LODA	2 , 8		;装入变量地址
36	LIT	0 , 2		;装入常量
37	ILOD	2 , 4		;间接装入
38	LIT	0 , 122		;装入常量
39	LIT	0 , 1		;装入常量
40	ADD
41	MULT
42	ADD
43	STO			;将栈顶值存入栈顶次值所指单元
44	LOD	2 , 0		;装入变量值
45	LIT	0 , 1		;装入常量
46	LEQ			;<=
47	JPC	0 , 55		;栈顶值为0时跳转
48	LIT	0 , 1		;装入常量
49	JPC	0 , 54		;栈顶值为0时跳转
50	LODA	2 , 0		;装入变量地址
51	LIT	0 , 3		;装入常量
52	STO			;将栈顶值存入栈顶次值所指单元
53	JMP	0 , 48		;无条件跳转
54	JMP	0 , 69		;无条件跳转
55	ILOD	2 , 4		;间接装入
56	LIT	0 , 1		;装入常量
57	GTR			;>
58	JPC	0 , 69		;栈顶值为0时跳转
59	LOD	2 , 4		;装入变量值
60	LOD	2 , 0		;装入变量值
61	ILOD	2 , 4		;间接装入
62	MULT
63	STO			;将栈顶值存入栈顶次值所指单元
64	LODA	2 , 0		;装入变量地址
65	ILOD	2 , 4		;间接装入
66	LOD	2 , 0		;装入变量值
67	IDIV
68	STO			;将栈顶值存入栈顶次值所指单元
69	OPAC			;打开活动记录
70	LOD	2 , 0		;装入变量值
71	LIT	0 , 2		;装入常量
72	LIT	0 , 2		;装入常量
73	SUB
74	LIT	0 , 19		;装入常量
75	MULT
76	LIT	0 , 5		;装入常量
77	ADD
78	LODA	2 , 9		;装入变量地址
79	ADD
80	CALL	1 , 2		;转子
81	UDIS	1 , 2		;调整Display
82	RETP			;过程返回
83	LODA	1 , 0		;装入变量地址
84	READ	0 , 0		;读指令
85	OPAC			;打开活动记录
86	LOD	1 , 0		;装入变量值
87	LODA	1 , 4		;装入变量地址
88	CALL	1 , 2		;转子
89	LODA	1 , 4		;装入变量地址
90	WRITE	0 , 0		;写指令
91	ENDP			;程序结束