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

; Output a string to console via BIOS

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

;		Version 1.1 June 1988

; ENTRY	Reg pair <DE> holds string address
;	Accu holds character the string closed by

; EXIT	None

	entry	@stbio

	extrn	condir

@stbio:
	push	bc
	push	de
	ld	b,a		; Get end character
	call	str?		; .. do the job
	pop	de
	pop	bc
	ret
str?:
	ld	a,(de)		; Get character
	inc	de
	cp	b		; Test end
	ret	z		; .. yeap
	call	condir		; Print normal
	jr	str?

	end