FillRect

FillRect:
; a=color, bc=width, de=x, h=height, l=y
	ld (FillRect_Color),a
	ld a,h
	ld h,160
	mlt hl
	add hl,hl
	add hl,de
	ld de,vRam
	add hl,de
	dec bc
FillRect_Loop:
FillRect_Color = $+1
	ld (hl),0
	push hl
	pop de
	inc de
	push bc
	ldir
	pop bc
	ld de,lcdWidth
	add hl,de
	sbc hl,bc
	dec a
	jr nz,FillRect_Loop
	ret