MCS51單片機數制轉換程序
;BCD小數轉換為二進制小數(2位)
;入口 :R0(低位首址),R7
;占用資源:ACC,B,R5
;堆棧需求:2字節
;出口 :R3,R4
PDTB :CLR A
MOV R3,A
MOV R4,A
PDB1 :MOV A,R3
MOV B,#9AH
MUL AB
MOV R5,B
XCH A,R4
MOV B,#19H
MUL AB
ADD A,R4
MOV A,R5
ADDC A,B
MOV R5,A
MOV A,@R0
MOV B,#9AH
MUL AB
ADD A,R5
MOV R4,A
CLR A
ADDC A,B
XCH A,R3
MOV B,#19H
MUL AB
ADD A,R4
MOV R4,A
MOV A,B
ADDC A,R3
MOV R3,A
MOV A,@R0
MOV B,#19H
MUL AB
ADD A,R3
MOV R3,A
DEC R0
DJNZ R7,PDB1
RET
;BCD小數轉換為二進制小數(N位)
;入口 :R1(低位首址),M,N
;占用資源:ACC,B,R2,R3,R7
;堆棧需求:2字節
;出口 :R0
PDTBMN :MOV A,R0
MOV R2,A
MOV A,R1
MOV R3,A
MOV B,N
CLR A
PDBMN1 :MOV @R0,A
INC R0
DJNZ B,PDBMN1
MOV A,N
SWAP A
RR A
MOV R7,A
PDBMN2 :MOV A,R2
MOV R0,A
MOV A,R3
MOV R1,A
MOV B,M
CLR C
PDBMN3 :MOV A,@R1
ADDC A,@R1
DA A
JNB ACC.4,PDBMN4
SETB C
CLR ACC.4
PDBMN4 :MOV @R1,A
INC R1
DJNZ B,PDBMN3
MOV B,N
PDBMN5 :MOV A,@R0
RLC A
MOV @R0,A
INC R0
DJNZ B,PDBMN5
DJNZ R7,PDBMN2
MOV A,R2
MOV R0,A
RET
;BCD整數轉換為二進制整數(1位)
;入口 :R0(高位地址),R7
;占用資源:ACC,B
;堆棧需求:2字節
;出口 :R4
IDTB1 :CLR A
MOV R4,A
IDB11 :MOV A,R4
MOV B,#0AH
MUL AB
ADD A,@R0
INC R0
MOV R4,A
DJNZ R7,IDB11
RET
;BCD整數轉換為二進制整數(2位)
;入口 :R0(高位地址),R7
;占用資源:ACC,B
;堆棧需求:2字節
;出口 :R3,R4
IDTB2 :CLR A
MOV R3,A
MOV R4,A
IDB21 :MOV A,R4
MOV B,#0AH
MUL AB
MOV R4,A
MOV A,B
XCH A,R3
MOV B,#0AH
MUL AB
ADD A,R3
MOV R3,A
MOV A,R4
ADD A,@R0
INC R0
MOV R4,A
CLR A
ADDC A,R3
MOV R3,A
DJNZ R7,IDB21
RET
;BCD整數轉換為二進制整數(3位)
;入口 :R0(高位地址),R7
;占用資源:ACC,B
;堆棧需求:2字節
;出口 :R2,R3,R4
IDTB3 :CLR A
MOV R2,A
MOV R3,A
MOV R4,A
IDB31 :MOV A,R4
MOV B,#0AH
MUL AB
MOV R4,A
MOV A,B
XCH A,R3
MOV B,#0AH
MUL AB
ADD A,R3
MOV R3,A
CLR A
ADDC A,B
XCH A,R2
MOV B,#0AH
MUL AB
ADD A,R2
MOV R2,A
MOV A,R4
ADD A,@R0
INC R0
MOV R4,A
CLR A
ADDC A,R3
MOV R3,A
CLR A
ADDC A,R2
MOV R2,A
DJNZ R7,IDB31
RET
;BCD整數轉換為二進制整數(N位)
;入口 :R1(高位地址),M,N
;占用資源:ACC,B,R2,R7,NCNT,F0
;堆棧需求:2字節
;出口 :R0
IDTBMN :MOV A,R0
MOV R2,A
MOV B,N
CLR A
IDBMN1 :MOV @R0,A
INC R0
DJNZ B,IDBMN1
MOV A,R2
MOV R0,A
MOV A,M
MOV NCNT,A
IDBMN2 :MOV R7,N
CLR A
CLR F0
IDBMN3 :XCH A,@R0
MOV B,#0AH
MUL AB
MOV C,F0
ADDC A,@R0
MOV F0,C
MOV @R0,A
INC R0
MOV A,B
DJNZ R7,IDBMN3
MOV A,R2
MOV R0,A
MOV A,@R1
INC R1
ADD A,@R0
MOV @R0,A
DJNZ NCNT,IDBMN2
RET
;二進制小數(2位)轉換為十進制小數(分離BCD碼)
;入口 :R3,R4,R7
;占用資源:ACC,B
;堆棧需求:3字節
;出口 :R0
PBTD :MOV A,R7
PUSH A
PBD1 :MOV A,R4
MOV B,#0AH
MUL AB
MOV R4,A
MOV A,B
XCH A,R3
MOV B,#0AH
MUL AB
ADD A,R3
MOV R3,A
CLR A
ADDC A,B
MOV @R0,A
INC R0
DJNZ R7,PBD1
POP A
MOV R7,A
MOV A,R0
CLR C
SUBB A,R7
MOV R0,A
RET
;二進制小數(M位)轉換為十進制小數(分離BCD碼)
;入口 :R1,M,N
;占用資源:ACC,B,R2,R3,R7,NCNT
;堆棧需求:2字節
;出口 :R0
PBTDMN :MOV A,R0
MOV R2,A
MOV A,R1
MOV R3,A
MOV A,N
MOV NCNT,A
PBDMN1 :MOV R7,M
CLR A
CLR F0
PBDMN2 :XCH A,@R1
MOV B,#0AH
MUL AB
MOV C,F0
ADDC A,@R1
MOV F0,C
MOV @R1,A
INC R1
MOV A,B
DJNZ R7,PBDMN2
ADDC A,#00H
MOV @R0,A
INC R0
MOV A,R3
MOV R1,A
DJNZ NCNT,PBDMN1
MOV A,R2
MOV R0,A
RET
;二進制整數(2位)轉換為十進制整數(分離BCD碼)
;入口 :R3,R4
;占用資源:ACC,R2,NDIV31
;堆棧需求:5字節
;出口 :R0,NCNT
IBTD21 :MOV NCNT,#00H
MOV R2,#00H
IBD211 :MOV R7,#0AH
LCALL NDIV31
MOV A,R7
MOV @R0,A
INC R0
INC NCNT
MOV A,R3
ORL A,R4
JNZ IBD211
MOV A,R0
CLR C
SUBB A,NCNT
MOV R0,A
RET
;二進制整數(2位)轉換為十進制整數(組合BCD碼)
;入口 :R3,R4
;占用資源:ACC,B,R7
;堆棧需求:3字節
;出口 :R0
IBTD22 :MOV A,R0
PUSH A
MOV R7,#03H
CLR A
IBD221 :MOV @R0,A
INC R0
DJNZ R7,IBD221
POP A
MOV R0,A
MOV R7,#10H
IBD222 :PUSH A
CLR C
MOV A,R4
RLC A
MOV R4,A
MOV A,R3
RLC A
MOV R3,A
MOV B,#03H
IBD223 :MOV A,@R0
ADDC A,@R0
DA A
MOV @R0,A
INC R0
DJNZ B,IBD223
POP A
MOV R0,A
DJNZ R7,IBD222
RET
;二進制整數(3位)轉換為十進制整數(分離BCD碼)
;入口 :R2,R3,R4
;占用資源:ACC,R2,NDIV31
;堆棧需求:5字節
;出口 :R0,NCNT
IBTD31 :CLR A
MOV NCNT,A
IBD311 :MOV R7,#0AH
LCALL NDIV31
MOV A,R7
MOV @R0,A
INC R0
INC NCNT
MOV A,R2
ORL A,R3
ORL A,R4
JNZ IBD311
MOV A,R0
CLR C
SUBB A,NCNT
MOV R0,A
RET
;二進制整數(3位)轉換為十進制整數(組合BCD碼)
;入口 :R2,R3,R4
;占用資源:ACC,B,R7
;堆棧需求:3字節
;出口 :R0
IBTD32 :MOV A,R0
PUSH A
MOV R7,#04H
CLR A
IBD321 :MOV @R0,A
INC R0
DJNZ R7,IBD321
POP A
MOV R0,A
MOV R7,#18H
IBD322 :PUSH A
CLR C
MOV A,R4
RLC A
MOV R4,A
MOV A,R3
RLC A
MOV R3,A
MOV A,R2
RLC A
MOV R2,A
MOV B,#04H
IBD323 :MOV A,@R0
ADDC A,@R0
DA A
MOV @R0,A
INC R0
DJNZ B,IBD323
POP A
MOV R0,A
DJNZ R7,IBD322
RET
;二進制整數(M位)轉換為十進制整數(組合BCD碼)
;入口 :R1,M,N
;占用資源:ACC,B,R2,R3,R7
;堆棧需求:2字節
;出口 :R0
IBTDMN :MOV A,R0
MOV R2,A
MOV A,R1
MOV R3,A
MOV B,N
CLR A
IBDMN1 :MOV @R0,A
INC R0
DJNZ B,IBDMN1
MOV A,M
SWAP A
RR A
CLR C
MOV R7,A
IBDMN2 :MOV A,R2
MOV R0,A
MOV A,R3
MOV R1,A
MOV B,M
IBDMN3 :MOV A,@R1
RLC A
MOV @R1,A
INC R1
DJNZ B,IBDMN3
MOV B,N
IBDMN4 :MOV A,@R0
ADDC A,@R0
DA A
JNB ACC.4,IBDMN5
SETB C
CLR ACC.4
IBDMN5 :MOV @R0,A
INC R0
DJNZ B,IBDMN4
DJNZ R7,IBDMN2
MOV A,R2
MOV R0,A
RET