.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