bcd_4.txt

This are the Laboratory programs for the 89c51

;4 DIGIT BCD TO HEX
ORG 0000H
MOV 72H,#0E8H
MOV 73H,#03H
MOV 31H,#36H
MOV 30H,#94H
MOV A ,31H
ANL A,#0FH
MOV 55H,A
MOV A,31H
SWAP A
ANL A,#0FH
MOV B,#0AH
MUL AB
MOV 54H,A
MOV A,30H
ANL A,#0FH
MOV B,#64H
MUL AB
MOV 52H,A
MOV 53H,B
MOV A,30H
SWAP A
ANL A,#0FH
MOV 70H,A
MOV A,70H
MOV B,72H
MUL AB
MOV 43H,A
MOV R0,B
MOV A,71H
MOV B,72H
MUL AB
MOV R1,A
MOV R2,B
MOV A,73H
MOV B,70H
MUL AB
MOV R3,A
MOV R4,B
MOV A,R0
ADD A,R1
JNC XXX
INC R7
XXX:
ADD A,R3
JNC YYY
INC R7
YYY:
MOV 42H,A
MOV A,71H
MOV B,73H
MUL AB
MOV R5,A
MOV R6,B
MOV A,R7
ADD A,R5
JNC ZZZ
SETB RS0
INC R1
CLR RS0
ZZZ:
ADD A,R4
JNC AAA
SETB RS0
INC R1
CLR RS0
AAA:
ADD A,R2
JNC BBB
SETB RS0
INC R1
CLR RS0
BBB:
MOV 41H,A
SETB RS0
MOV A,R1
CLR RS0
ADD A,R6
MOV 40H,A
MOV A,55H
ADD A,54H
JNC PPP
SETB RS0
INC R7
CLR RS0
PPP:
ADD A,52H
JNC QQQ
SETB RS0
INC R7
CLR RS0
QQQ:
ADD A,43H
MOV 63H,A
JNC RRR
SETB RS0
INC R7
CLR RS0
RRR:
MOV A,53H
SETB RS0
ADD A, R7
CLR RS0
JNC SSS
SETB RS0
INC R6
CLR RS0
SSS:
ADD A,42H
MOV 62H,A
JNC TTT
SETB RS0
INC R6
CLR RS0
TTT:
MOV A,41H
SETB RS0
ADD A,R6
CLR RS0
MOV 61H,A
END