[A83] Re: Thanks D Weiss, I just have another question for anyone who kn

[Prev][Next][Index][Thread]

[A83] Re: Thanks D Weiss, I just have another question for anyone who knows


Oh, sorry.  forgot the source:

	.nolist
	#include "ion.inc"
	.list

#ifdef	TI83P
	.org progstart-2
	.db $BB,$6D
#else
	.org progstart
#endif
	ret
	jr nc,begin
	.db "Getcsc.inc Test!",0
begin:
	bcall(_clrlcdf)
	bcall(_homeup)
	call 	waitkey
	cp	k2nd
	jp	z,sec
	cp	kAlpha
	jp	z,alpha
	call 	waitkey
	ret
waitkey:
	ei
WKA_loop:
	HALT
	bcall(_getcsc)
	or	a
	jr	z, WKA_loop
	bcall(_clrlcdf)
	ret
sec:
	ld 	hl,txt
	bcall(_puts)
Alpha:
	ld 	hl,txt2
	bcall(_puts)
txt:
	.db "You hit 2nd",0
txt2:
	.db "You hit Alpha",0
.end
end
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com
Follow-Ups: