CrazyClear:
    xor a
CrazyFill:
    ld  d,a
    ld  e,a
    call    SaveStuff
    push    af
    ld  (saveSP),sp
    ld  sp,LCDBuffer+768
    ld  b,32
CrazyFillLoop:
    push    de
    push    de
    push    de
    push    de
    push    de
    push    de
    push    de
    push    de
    push    de
    push    de
    push    de
    push    de
    djnz    CrazyFillLoop
    ld  sp,(saveSP)
    pop af
    ret c
    ei
    ret