.nolist
#include	"ti83plus.inc"
.list

;Start of program
.org $9D93
.db t2ByteTok, tAsmCmp

;Main Code

StartProg:
	b_call(_ClrLCDFull)
	ld	h,0
	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
	jr	MainLoop

Up:
	pop	af
	cp	255
	jr	z,MainLoop
	inc	a
	push	af
	b_call(_ClrLCDFull)
	pop	af
	ld	l,a
	push	af
	b_call(_DispHL)
	pop	af
	jr	MainLoop

Down:
	pop	af
	cp	0
	jr	z,MainLoop
	dec	a
	push	af
	b_call(_ClrLCDFull)
	pop	af
	ld	l,a
	push	af
	b_call(_DispHL)
	pop	af
	jr	MainLoop
	
CheckSet:
	pop	af
	push	af
	bit	1,a
	cp	1
	jr	z,IsSet
	jr	IsNotSet
	
IsSet:
	ld	a,1
	ld	(CurCol),a
	ld	(CurRow),a
	b_call(_ClrLCDFull)
	ld	hl,txtIsSet
	b_call(_PutS)
	pop	af
	jr	MainLoop
	
IsNotSet:
	ld	a,1
	ld	(CurCol),a
	ld	(CurRow),a
	b_call(_ClrLCDFull)
	ld	hl,txtIsNotSet
	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