;********************************************************************
; FUNCTION: BIN2BCD8
; PURPOSE: CONVERTS 8-BIT NUMBER TO TWO BCD DIGITS
; INPUT: A HAS 8-BIT NUMBER TO BE CONVERTED TO BCD
; OUTPUT: BCD1 = HIGH NIBBLE
; BCD0 = LOW NIBBLE
;********************************************************************
BIN2BCD8:
MOV R0,A
ANL A,#0FH
ADD A,#0F6H
JNC BB2
ADD A,#07H
BB2:ADD A,#3AH
XCH A,R0
SWAP A
ANL A,#0FH
ADD A,#0F6H
JNC BB3
ADD A,#07H
BB3:ADD A,#3AH
MOV BCD1, A
MOV BCD0, R0
RET