title	Module from library HILIB_1 : @STRNG
	name	('@STRNG')
	maclib	baselib.lib

; Language : BASIC

; Generate constant string

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

;		Version 1.0, August 1987

; ENTRY	Reg pair DE points to new string
;	Reg B holds constant
;	Reg C holds number of constants in string

; EXIT	String filled with constant

	entry	@strng

@strng:
	push	de
	pop	hl		; Copy pointer
	ld	(hl),b
	inc	de
	dec	c		; Test more than 1
	jr	z,endstr	; .. nope
	ld	b,0		; .. clear hi counter
	ldir			; Fill
endstr:
	xor	a
	ld	(de),a		; Close string
	ret

	end