title	Module from library BASE_2 : ASCBYT
	name	('ASCBYT')
	maclib	baselib.lib

; Get ASCII characters from hex byte

; Copyright (C)	Werner Cirsovius
;		Hohe Weide 44
;		D-20253 Hamburg
;		Tel.: +49-40-4223247

;		Version 1.0 February 1987

; ENTRY	Reg pair <DE> points to ASCII buffer
;	Reg pair <HL> points to hex buffer

; EXIT	ASCII buffer filled with two characters
;	Buffers updated

	entry	ascbyt

	extrn	ascnib

ascbyt:
	ld	a,(hl)		; Get hex byte
	rrca			; .. upper bits
	rrca
	rrca
	rrca
	call	ascnib		; Convert to character
	ld	a,(hl)		; .. then lo nibble
	call	ascnib		; .. convert
	inc	hl
	ret

	end