PUBLIC	@B2HH,@B2HL

; @B2HH - Convert high nybble of byte in A to a hexidecimal digit, 
;	   return it in A.
; Uses:	<AF>
;
@B2HH:

	rrca                                          
	rrca                                          
	rrca                                          
	rrca                                          
;	fall	thru	

; @B2HL - Convert low nybble of byte in A to a hexidecimal digit, 
;	  return it in A.
; Uses:	<AF>
;

@B2HL:	and     0Fh                                   
	add     a,90h                                 
	daa                                           
	adc     a,'@'                                 
	daa                                           
	ret                                           

	end