hexbcd: clr a
	mov r5,a
	mov r6,a
	mov r7,#08h
again:  clr c
	mov a,r4
	rlc a
	mov r4,a
	mov a,r6
	addc a,r6
	mov r6,a
	da a
	mov a,r5
	addc a,r5
	mov r5,a
	djnz r7,again