title	Module from library HIFLOAT_1 : LBCHOT
	name	('LBCHOT')
	maclib	baselib.lib

; Execute some common functions for the floating
; point converter package

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

;		Version 1.0 January 1989

	entry	?floini,?chrout

; Init the output pointers
; ENTRY	Reg BC holds ASCII buffer pointer
;	Accu holds last character to be stored
;
?floini:
	ld	(buffer),bc	; Save buffer
	ld	(bc),a		; .. and closure
	ret
;
; Put character into buffer
; ENTRY	Accu holds character
; EXIT	Buffer updated
;
?chrout:
	push	hl
	push	bc
	ld	hl,(buffer)
	ld	b,(hl)		; Get closure
	ld	(hl),a		; Put character
	inc	hl
	ld	(hl),b		; .. and old closure
	ld	(buffer),hl	; Save new pointer
	pop	bc
	pop	hl
	ret

	dseg

buffer:
	ds	2

	end