?? 4.3.6多字節(jié)十六進(jìn)制小數(shù)轉(zhuǎn)換成雙字節(jié)bcd碼小數(shù).txt
字號:
FTOBCD:
INC R0
MOV A,@R0
INC R0
ORL A,@R0
DEC R0
DEC R0
JNZ FTB0
MOV @R0,#41H
RET
FTBCD0:
MOV A,@R0
MOV C,ACC.7
MOV 1DH,C
CLR ACC.7
MOV @R0,A
LCALL MVR0
MOV DPTR,#BFL0
MOV B,#0
MOV A,R2
JNB ACC.7,FTB1
MOV DPTR,#BTFL
MOV B,#0EDH
ADD A,#16
JNC FTBCD1
MOV DPTR,#BFLN
MOV B,#0FAH
FTBCD1:
CLR A
MOVC A,@A+DPTR
MOV C,ACC.6
MOV ACC.7,C
MOV R5,A
MOV A,#1
MOVC A,@A+DPTR
MOV R6,A
MOV A,#2
MOVC A,@A+DPTR
MOV R7,A
MOV A,R5
CLR C
SUBB A,R2
JB ACC.7,FTB2
JNZ FTBCD3
MOV A,R6
CLR C
SUBB A,R3
JC FTBCD2
JNZ FTBCD3
MOV A,R7
CLR C
SUBB A,R4
JC FTBCD2
JNZ FTBCD3
MOV R5,B
INC R5
MOV R6,#10H
MOV R7,#0
SJMP FTBCD6
FTBCD2:
INC DPTR
INC DPTR
INC DPTR
INC B
SJMP FTBCD1 ；
FTBCD3:
PUSH B
LCALL DIV3
FTB4:
MOV A,R2
JZ FTBCD5
CLR C
LCALL RR1
SJMP FTBCD4
FTB5:
POP ACC
MOV R5,A
LCALL HBCD2
MOV R6,A
LCALL HBCD2
MOV R7,A
MOV A,R3
RLC A
CLR A
ADDC A,R7
DA A
MOV R7,A
CLR A
ADDC A,R6
DA A
MOV R6,A
JNC FTBCD6
MOV R6,#10H
INC R5
FTBCD6:
INC R0
INC R0
MOV A,R7
MOV @R0,A
DEC R0
MOV A,R6
MOV @R0,A
DEC R0
MOV A,R5
MOV C,1DH
MOV ACC.7,C
MOV @R0,A
RET
HBCD2:
MOV A,R4
MOV B,#100
MUL AB
MOV R4,A
MOV A,B
XCH A,R3
MOV B,#100
MUL AB
ADD A,R3
MOV R3,A
JNC HBCD21
INC B
HBCD21:
MOV A,B
MOV B,#10
DIV AB
SWAP A
ORL A,B
RET
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -