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

; Store BCD byte into two ASCII characters

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

;		Version 1.0 December 1992

; ENTRY	Reg HL points to string to be filled
;	Accu holds BCD byte

; EXIT	Reg HL advanced

	entry	putbcd

putbcd:
	push	af
	rra			; Get HI
	rra
	rra
	rra
	call	putnib		; .. save
	pop	af
	call	putnib
	ret
putnib:
	and	LoMask		; Strip off HI
	or	'0'		; .. make ASCII
	ld	(hl),a		; .. and store
	inc	hl
	ret

	end