Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement