[A83] A small thing I found With the Getcsc code you gave me Weiss


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

[A83] A small thing I found With the Getcsc code you gave me Weiss




Well, I've found that I've had to hit two keys to get out of my program.  
I've included the source code so you can tell if anything is wrong.  I just 
don't like the fact that you have to hit two keys, y'know?
Here's the source:

	.nolist
	#include "ion.inc"
	.list

#ifdef TI83P
	.org progstart-2
	.db $BB,$6D
#else
	.org progstart
#endif
	ret
	jr nc,start
	.db "Testing 1,2,3...",0
start:
	bcall(_clrlcdf)
	bcall(_homeup)
	ld hl,txt
	bcall(_puts)
	call waitkey
waitkey:
	ei
WKA_loop:
	HALT
	bcall(_getcsc)
	or a
	jr z, WKA_loop
	bcall(_clrlcdf)
	ret
txt:
	.db "Test complete",0
.end
END
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com