.nolist
#include "ti83plus.inc"
.list
;Start of program
.org $9D93
.db t2ByteTok, tAsmCmp
;Main Code
StartProg:
b_call(_ClrLCDFull)
ld h,0
ld l,0
ld (CurRow),hl
ld a,127
ld l,a
push af
b_call(_DispHL)
pop af
MainLoop:
push af
b_call(_GetCSC)
cp skUp
jr z,Up
cp skDown
jr z,Down
cp skEnter
jr z,CheckSet
cp skClear
jr z,ExitProg
pop af
jr MainLoop
Up:
b_call(_ClrLCDFull)
pop af
cp 255
jr z,Display
inc a
jr Display
Down:
b_call(_ClrLCDFull)
pop af
cp 0
jr z,Display
dec a
jr Display
CheckSet:
pop af
push af
bit 0,a
cp 1
jr z,IsSet
jr IsNotSet
IsSet:
ld hl,txtIsSet
jr Display2
IsNotSet:
ld hl,txtIsNotSet
jr Display2
Display:
ld hl,0
ld (CurRow),hl
ld l,a
push af
b_call(_DispHL)
pop af
jr MainLoop
Display2:
ld a,0
ld (CurRow),a
push hl
b_call(_ClrLCDFull)
pop hl
b_call(_PutS)
pop af
jr MainLoop
ExitProg:
pop af
b_call(_ClrLCDFull)
ret
txtIsSet:
.db "It is set",0
txtIsNotSet:
.db "It is not set",0
.end
END