;*******************************************************************************
; Returns the ASCII codes from the nibbles of a byte stored in the Acc.
; After being called the high nibble is in the Acc and the low nibble
; is in the B register.
;
;
; ;usage:
;
; mov a, #byte
; CALL nibble
;
; ;returns
; ;A= high nibble
; ;B= low nibble
;*******************************************************************************

nibble:
	mov	b,a		; b=a ; stores Acc in B
	anl	a,#0f0h		; a=xxxx0000 ; A && #f0h (get the high nibble)
	swap	a		; a=0000xxxx ; swap nibbles
	orl	a,#30h		; a=0011xxxx ; add #30h, if nibble is
	push	acc		; 0-9 we have the ASCII value
	push	b		; stores A and B
	mov	b,#3ah		; stores #3ah in B
	div	ab		; divide A/#3ah
	jz, 	recupera1	; if zero, nibble < #0Ah
;
nibble1_ok:
	pop	b		; recover B
	pop	acc		; recover A
	add	a,#07h		; adds #07h to get ASCII of A-F
	xch	a,b
	jmp	nibble2
;
recupera1:
	pop	b		; stores B
	pop	acc		; stores A
	xch	a,b
;
nibble2:
	anl	a,#0fh		; a=0000xxxx ; A && #0fh (get low nibble)
	orl	a,#30h		; a=0011xxxx ; add #30h, if nibble is
	push	acc		; 0-9 we have the ASCII value
	push	b		; stores A and B
	mov	b,#3ah		; stores #3ah in B
	div	ab		; divide A/#3ah
	jz,	recupera2	; if zero, nibble < #0Ah
	pop	b		; recover B
	pop	acc		; recover A
	add	a,#07h		; adds #07h to get ASCII of A-F
	xch	a,b
	ret			; return to main routine
;
recupera2:
	pop	b		; recover B
	pop	acc		; recover A
	xch	a,b
	ret			; return to main routine