A89: Curser


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

A89: Curser




Hi,
     I am working on a game that uses a curser and I was able to make
a prototype of it and it works fine, but when you hit the escape
button it won't let you out of the program unless you press it many
times.  It happens more often when you have moved around alot.  I was
wondering if any of you could help.  Here is the program.  Thank you.

	include	"tios.h"
	include	"util.h"
	
	xdef	_main
	xdef	_comment
	xdef	_ti89
	
WrtStr	macro
	move.w	\3,-(a7)
	pea	\4(pc)
	move.w	\2,-(a7)
	move.w	\1,-(a7)
	jsr	tios::DrawStrXY
	lea	10(a7),a7
	endm

_main:
	jsr	util::zap_screen
	move.w	#40,d5
	move.w	#40,d6

Write:
	WrtStr	d5,d6,#1,letterx
	jsr	util::idle_loop
	cmp	#340,d0
	beq	Down
	cmp	#264,d0
	beq	Exit
	bsr	Write

Down:
	addi.w	#1,d6
	bsr	Write

Exit:
	rts

letterx:
	dc.b	"X",0

_comment:
	dc.b	"Curser",0

	end



_________________________________________________________
DO YOU YAHOO!?
Get your free @yahoo.com address at http://mail.yahoo.com



Follow-Ups: