;FastClear routine by Matt Molzahn
;This routine clears the screen up to 1000 times faster than
;call _clrLCD by writing white pixels to the screen.
;I specifically wrote this routine for those trying to
;use regular sprite routines that don't have the masked
;sprite feature.
;aim: molzahn683
;icq: 59683250
;molzahn683@usa.net

FastClear:
    ld hl,$fc00      ;load video into hl
	ld de,1          ;load 1 into de
	ld c,64          ;number of vertical lines
    ld a,%00000000   ;load the blank line into a					  
    ld (hl),a        ;draw the clear line
clear:
	ld b,16          ;number of horizontal lines
    ld a,%00000000   ;load next blank line
clearing:
    add hl,de        ;adds de to hl
    ld (hl),a        ;load a into hl
    djnz clearing    ;decrement and jump to clearing if not zero
	dec c            ;decrease c
	ld a,c           ;load c into a
	jr nz,clear      ;jump relevant to clear if not zero
	ret              ;exit the routine

;email me your questions and comments about my routine