^^vv<><>BA

.nolist
#include "ti83plus.inc"
#include "dcs7.inc"
.list
.org $9D93
.db t2ByteTok,tAsmCmp
_PowerOff   .equ    $5008
Start:
    ld hl,Correct1
    ld b,skUp
KeyLoop:
    push hl
    cp $FF
    ret z
    bcall(_GetCSC)
    pop hl
    cp skClear
    jr z,Quit
    cp b
    call z,Correct
    jr KeyLoop
Quit:
    bcall(_PowerOff)
    ret
Correct1:
    ld hl,Correct2
    ret
Correct2:
    ld b,skDown
    ld hl,Correct3
    ret
Correct3:
    ld hl,Correct4
    ret
Correct4:
    ld b,skLeft
    ld hl,Correct5
    ret
Correct5:
    ld b,skRight
    ld hl,Correct6
    ret
Correct6:
    ld b,skLeft
    ld hl,Correct7
    ret
Correct7:
    ld b,skRight
    ld hl,Correct8
    ret
Correct8:
    ld b, skAlpha
    ld hl,Correct9
    ret
Correct9:
    ld b,sk2nd
    ld hl,AllCorrect
    ret
AllCorrect:
    xor a
    bcall(_ClrLCDFull)
    bcall(_HomeUp)
    ld (curCol),a
    ld (curRow),a
    ld hl,CorrectMsg
    bcall(_PutS)
    bcall(_NewLine)
    ld a,$FF
    ret
Correct:
    jp (hl)
CorrectMsg:
    .db "Access Granted!",0