TITLE	BFILL
	ENTRY	BFILL
;
;	Speicherbereich mit identischen Bytes fuellen
;
;	Aufruf: CALL = BFILL(start,count,fill)
;
;	<start> = Startadresse (Variablenname)
;	<count> = Anzahl Bytes (2-Byte-Integer !)
;	<fill>  = Fuellbyte
;
BFILL:	LD (SADR),HL	; Startadresse sichern
	LD (CADR),DE	; Count-Adresse retten
	LD (FADR),BC	; Fill-Adresse sichern
;
	LD A,(DE)
	LD L,A
	INC DE
	LD A,(DE)
	LD H,A		; HL = <count>
	LD (COUNT),HL	; <count> sichern
	LD BC,0
	AND A
	SBC HL,BC	; <count> = 0 ?
	JR Z,ENDE	; Ja: fertig!
;
	LD HL,(COUNT)	; Nein: weiter
	LD BC,(FADR)
	LD A,(BC)	; A = <fill>
	LD BC,(SADR)	; BC = Pointer
	LD DE,1
;
LOOP:	LD (BC),A	; ein Byte speichern
	AND A		; Carry-Flag loeschen
	SBC HL,DE	; <count> = <count> - 1
	JR Z,ENDE	; fertig ?
	INC BC		; Nein: Pointer = Pointer + 1
	JR LOOP		; weiter mit dem naechsten
;
ENDE:	LD HL,1		; RETURN-STATUS
	RET
;
;	Arbeitsspeicher:
;
SADR:	DS 2		; Startadresse
CADR:	DS 2		; Count-Adresse
FADR:	DS 2		; Fill-Adresse
COUNT:	DS 2		; Count
;
	END