[A83] Re: ARGH! Problems with my getcsc prog


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

[A83] Re: ARGH! Problems with my getcsc prog




Keys can't be named the same as labels.   Period.


>From: "Steve Watson" <fif_freak00@hotmail.com>
>Reply-To: assembly-83@lists.ticalc.org
>To: Assembly-83@lists.ticalc.org
>Subject: [A83] ARGH!  Problems with my getcsc prog
>Date: Thu, 15 Mar 2001 17:02:33 -0700
>
>
>Well, TASM keeps reporting that there is "unused data in MS byte of
>argument" in lines 19 and 21, which is where I jr to either k2nd or kAlpha
>(labels, not things in the include file).  I had to make them those labels
>because if they weren't those labels, TASM would say that there were no
>labels of those names.  Anyways, if anyone finds any problems (someone else
>on this list gave me this code), tell me.
>
>	.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 ; Call our 'waitkey' subroutine
>	cp	k2nd
>	jr	z,k2nd 	; Handle the 2nd key
>	cp	kAlpha
>	jr	z,kAlpha ; Handle the Alpha key
>back:
>	call 	waitkey ; Call our 'waitkey' subroutine
>	ret   	 	; Last 'ret' in program -> return to shell
>;---
>; Subroutine
>waitkey:
>	ei
>WKA_loop:
>	HALT
>	bcall(_getcsc)
>	or	a
>	jr	z, WKA_loop
>	ret 	 	; return were we came from
>;---
>; Subroutine (not a real one)
>k2nd:
>	ld 	hl,txt
>	bcall(_puts)
>	jr back 	; Jump to the end of our program
>;---
>; Subroutine (not a real one)
>kAlpha:
>	ld 	hl,txt2
>	bcall(_puts)
>	jr back 	; Jump to the end of our program
>;---
>; Data
>txt:
>	.db "You hit 2nd",0
>txt2:
>	.db "You hit Alpha",
>.end
>end
>_________________________________________________________________
>Get your FREE download of MSN Explorer at http://explorer.msn.com
>
>
>

_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com