?? 1.asm
字號:
ORG 0000H
LJMP MULN
;------------------------------------------------------------------------------------------------
MULN: LCALL NZN
RLC A
RLC A
MOV R3,A
MULN1: MOV A,R5
MOV R0,A
CLR C
LCALL RLCN
JNC MULN2
LCALL ADDN
MULN2: DJNZ R3,MULN1
N1N: MOV A,R1
ADD A,R7
MOV RO,A
MOV A,R7
CLR C
RRC A
MOV R7,A
MOV R2,A
ADD A,R1
MOV R1,A
MULN3: DEC R0
DEC R1
MOV A,@RO
MOV @R1,A
DJNZ R2,MULN3
MOV A,R5
MOV RO,A
RET
; ----------------------------------------------
DIVN: LCALL DIV0
JC DIVN1
SETB OV
RET
DIVN1: MOV A,RO
MOV R4,A
ADD A,R7
MOV R5,A
MOV A,R7
MOV B,#08H
MUL AB
MOV R3,A
DIVN4: LCALL DIVN8
JC DIVN5
LCALL ADDN
CLR C
DIVN5: MOV A,R5
MOV RO,A
LCALL RLCN
DJNZ R3,DIVN4
LCALL DIVN8
JNC DIVN6
MOV A,R5
MOV RO,A
LCALL INCN
DIVN6: MOV A,R1
PUSH ACC
MOV A,R7
MOV R2,A
ADD A,R4
MOV RO,A
ADD A,R7
MOV R1,A
DIVN7: DEC RO
DEC R
MOV A,@R1
MOV @RO,A
DJNZ R2,DIVN7
POP ACC
MOV R1,A
CLR OV
REL
DIVN8: MOV A,R4
MOV R0,A
CLR C
LCALL RLCN
MOV 2FH.4,C
LCALL SUBN
ANL C,/2FH.4
CPL C
RET
;--------------------------------------------------------------------------------------
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -