stone.lst

8位微程序控制计算机设计实验 汇编控制CPU简单乘法

1		0000		        		ORG 0
2		0000		        		STRT:
3		0000		5F0000		JKB STRT
4		0003		478001		LDA 8001H
5		0006		0F			MOV R7,A
6		0007		        		L1:
7		0007		5F0007		JKB L1
8		000A		478001		LDA 8001H
9		000D		0E			MOV R6,A
10		000E		3704			MOV A,#4
11		0010		4F8002		STA 8002H
12		0013		        		L2:
13		0013		670013		JPB L2
14		0016		370A			MOV A,#0AH
15		0018		4F8002		STA 8002H
16		001B		        		L3:
17		001B		67001B		JPB L3
18		001E		3710			MOV A,#10H
19		0020		27			ADD A,R7
20		0021		4F8002		STA 8002H
21		0024		        		L4:
22		0024		670024		JPB L4
23		0027		3709			MOV A,#9
24		0029		4F8002		STA 8002H
25		002C		        		L5:
26		002C		67002C		JPB L5
27		002F		370A			MOV A,#0AH
28		0031		4F8002		STA 8002H
29		0034		        		L6:
30		0034		670034		JPB L6
31		0037		3710			MOV A,#10H
32		0039		26			ADD A,R6
33		003A		4F8002		STA 8002H
34		003D		        		L7:
35		003D		67003D		JPB L7
36		0040		3703			MOV A,#3
37		0042		4F8002		STA 8002H
38		0045		        		L8:
39		0045		670045		JPB L8
40		0048		370A			MOV A,#0AH
41		004A		4F8002		STA 8002H
42		004D		        		L9:
43		004D		67004D		JPB L9
44		0050		3801			MOV R0,#1
45		0052		06			MOV A,R6
46		0053		09			MOV R1,A
47		0054		3A00			MOV R2,#0
48		0056		3B0A			MOV R3,#10
49		0058		07			MOV A,R7
50		0059		0C			MOV R4,A
51		005A		        		JUDGE:
52		005A		01			MOV A,R1
53		005B		28			SUB A,R0
54		005C		BF0071		JC MINUS
55		005F		04			MOV A,R4
56		0060		27			ADD A, R7
57		0061		2B			SUB A,R3
58		0062		BF006C		JC OVER
59		0065		0C			MOV R4,A
60		0066		02			MOV A,R2
61		0067		20			ADD A,R0
62		0068		0A			MOV R2,A
63		0069		57005A		JMP JUDGE
64		006C		        		OVER:
65		006C		23			ADD A,R3
66		006D		0C			MOV R4,A
67		006E		57005A		JMP JUDGE
68		0071		        		MINUS:
69		0071		04			MOV A,R4
70		0072		4F8002		STA 8002H
71		0075		        		L10:
72		0075		670075		JPB L10
73		0078		02			MOV A,R2
74		0079		4F8002		STA 8002H