[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