本科生课程设计（论文）
MOV INC INC DJNZ RET
@R0, R0 R1 R2,
A
ADD2 #0
;双字节除法子程序
DV32: MOV 36H, MOV R4, #10H ;(32H,33H,34H,35H)÷(37H,38H)
DV1: CALL CLR MOV A, SUBB MOV MOV SUBB MOV MOV SUBB JC INC MOV MOV MOV DV2: DJNZ
CLR MOV RLC MOV MOV RLC MOV JC MOV SUBB
MOV
RLC7
C 34H
A, 37H R2, A A, 35H A, 38H R3, A A, 36H A, #0
DV2 30H 36H, A
35H,
R3 34H, R2 R4, DV1 C A, 34H A 34H, A A, 35H A 35H, A DY1 A, 34H A, 37H A,
35H
;→(30H,31H)
22
本科生课程设计（论文）
SUBB JC
A, DYL
38H
DY1: INC 30H MOV A, JNZ DYL INC 31H 30H
DYL: RET RLC7: CLR C MOV MOV RL70: MOV
RLC MOV INC DJNZ
RET
BCD: MOV MOV MOV
MOV
MOV MOV ORL MOV JNB MOV CPL
ADD MOV MOV CPL ADDC MOV BC0: MOV
R0, #7 R1, #30H A, @R1 A @R1, A R1 R0,
RL70 32H, #0 ;二进制→BCD码转换子程序
33H, #0 ;(30H,31H)→显示码(21H,22H,23H,24H) 34H, #0 R3, #16
A, 31H C, ACC.7 C, TRB TRB, C ACC.7, BC0
A, 30H
A
A, #1 30H, A
A,
31H
A
A,
#0
31H, A
R0,
#30H
23
MOV BC1: MOV
RLC MOV INC DJNZ MOV MOV BC2:MOV ADDC DA MOV INC DJNZ DJNZ MOV MOV MOV BT1: MOV
ANL MOV INC MOV SWAP ANL MOV INC INC DJNZ CLR MOV ORL JNZ
SETB
R2, #2 A, @R0 A @R0, A R0 R2, BC1 R2, #3 R1, #32H
A,
@R1 A,
@R1 A @R1, A R1 R2, BC2 R3, BC0 R0, #32H R1, #35H R2, #2 A, @R0 A, #0FH @R1, A R1 A, @R0 A A, #0FH @R1, A
R1 R0 R2, BT1 D00B A, 35H A, 36H
BD0 D00B 本科生课程设计（论文）
24
本科生课程设计（论文）
BD0: MOV
MOV MOV
R0, R1, R2, #38H #29H #4 CLR F0 BD1: MOV CJNE SETB BD2: MOV
JZ SETB JNZ BD3: JB
CJNE
BD4: CALL BD5: MOV DEC DEC DJNZ MOV CJNE RET
BD6: MOV
MOV ORL
MOV
MOV MOV CLR MOV Z:
MOV JNZ JB CLR AJMP
A, R1 A, 39H, F0 A, @R0
BD3 F0 BD4 F0, BD4 R1, #26H, DTAB @R1, A
R0 R1 R2, BD1 A, 39H A, #7FH, R1, 39H A, @R1 A, #80H @R1
A
R0, #38H R1, #29H F0 R2, #4 A, @R0 X
F0, X A Y
BD2
BD5 BD6 25
本科生课程设计（论文）
X: Y:
SETB F0 MOV @R1, A
R0 R1
ACALL DTAB INC INC
DJNZ R2, Z SETB 27H.7 RET DTAB: INC A MOVC A, RET DB DB DB
77H, 6BH, 43H,
41H, 4DH, 7FH,
3BH 6EH, 6FH
;标度变换子程序
7EH
@A+PC
BDBH: ACALL RDN0 ACALL XRDY1 MOV 40H,
10H
MOV 41H, 11H MOV 42H, 16H MOV 43H, 17H MOV
MOV MOV
@R0,
#2
#42H
@R1, R2,
#40H
ACALL SUB1 ACALL RDY0
ACALL XRDY1 MOV 42H, 16H MOV 43H, 17H MOV 44H, 14H MOV 45H, 15H MOV
MOV MOV
R0,
#2
#42H
R1, R2,
#44H
ACALL SUB1
26