title	Module from library BASE_1 : ASCNIB
	name	('ASCNIB')
	maclib	baselib.lib

; Get ASCII character from hex nibble

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

;		Version 1.0 February 1987

; ENTRY	Lower part of accu holds hex
;	Reg pair <DE> points to ASCII buffer

; EXIT	ASCII character stored into buffer
;	Buffer updated

	entry	ascnib

ascnib:
	and	LoMask		; Mask lower bits
	add	a,addoff.	; Do the trick
	daa
	adc	a,addasc
	daa
	ld	(de),a		; .. save it
	inc	de
	ret

	end