#include "ti83pce.inc"

    .assume ADL=1
    .db tExtTok, tAsm84CeCmp
    .org userMem

    call _ClrLCDFull

    ld a, $27
    ld ($E30018), a

    ld hl, 000h
    ld (mpLCDPalette), hl
    ld hl, 0ffh
    ld (mpLCDPalette+2), hl

    ld hl, Sprite
    ld de, vRam+1280
    ld a, 8

aff_sprite:
    ld bc, 8
    ldir
    ld bc, 312
    ex de, hl
    add hl, bc
    ex de, hl
    dec a
    jr nz, aff_sprite

    call _GetKey

    ld a, $2D
    ld ($E30018), a

    call _ClrScrnFull
    call _ClrScrnFull

    ret

Sprite:
    .db    0FFh,0FFh,0F0h,0F0h,0F0h,0F0h,0F0h,0F0h
    .db    0F0h,0F0h,0FFh,0FFh,0F0h,0F0h,0F0h,0F0h
    .db    0F0h,0F0h,0F0h,0F0h,0FFh,0FFh,0F0h,0F0h
    .db    0F0h,0F0h,0F0h,0F0h,0F0h,0F0h,0FFh,0FFh
    .db    0F0h,0F0h,0F0h,0F0h,0F0h,0F0h,0FFh,0FFh
    .db    0F0h,0F0h,0F0h,0F0h,0FFh,0FFh,0F0h,0F0h
    .db    0F0h,0F0h,0FFh,0FFh,0F0h,0F0h,0F0h,0F0h
    .db    0FFh,0FFh,0F0h,0F0h,0F0h,0F0h,0F0h,0F0h,0