Re: A83: Problem with directinput routine
[Prev][Next][Index][Thread]
Re: A83: Problem with directinput routine
try adding a "call _getcsc" to clear the key buffer, or run the program with
interrupts disabled. If _getcsc is not defined, get a better ti83asm.inc
>From: Hyperbyte <central@hyperfield.com>
>Reply-To: assembly-83@lists.ticalc.org
>To: "'assembly-83@lists.ticalc.org'" <assembly-83@lists.ticalc.org>
>Subject: A83: Problem with directinput routine
>Date: Fri, 29 Sep 2000 15:59:41 +0200
>
>I am using the direct input routine:
>
>
>#define kbtrigger(xxxx) ld a,keyreset \ out (1),a \ ld a,xxxx \ out (1),a \
>in a, (1)
>...Keydefines and stuff...
>getkeyloop1:
>
> kbtrigger(keygroup3)
> cp key3
> jp z,log1
> kbtrigger(keygroup4)
> cp key2
> jp z,rijen1
> cp keyStat
> jp z,help
> kbtrigger(keygroup5)
> cp key1
> jp z,gonio1
> cp key4
> jp z,algebra1
> kbtrigger(keygroup7)
> cp keyMode
> jp z,exit
> jp getkeyloop1
>
>...more program code...
>
>exit:
>
>
> bcall(_clrlcdfull)
> bcall(_grbufclr)
> bcall(_homeup)
> ld hl,0000h
> ld (CURCOL),hl
> ld hl,exittext
> bcall(_puts)
> ld hl,0409h
> ld (CURCOL),hl
> ld hl,done
> bcall(_puts)
>
> ret
>...rest of program...
>
>but when I press mode to quit, the program does quit, but directly
>afterwards the TIOS
>Mode-screen is being displayed.
>
>I tried resetting the keyboard with ld a, 0FFh \ out (1),a
>but that didn't work.
>
>Anyone any ideas???
>
>
>Peter Martijn
>
><< WINMAIL.DAT >>
_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com.
Share information about yourself, create your own public profile at
http://profiles.msn.com.