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.