Mercurial > hg > Members > kono > nitros9-code

view 3rdparty/packages/basic09/inkey.asm @ 482:e4b03c2a7bec

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Removing D64 files to consolidate Adding gfx, inkey and syscall source
author boisy
date Wed, 09 Oct 2002 12:54:07 +0000
parents
children 57f23da9790a
line wrap: on
line source

********************************************************************
* Inkey - Key detect subroutine
*
* $Id$
*
* Ed.    Comments                                       Who YY/MM/DD
* ------------------------------------------------------------------
* ?      Original Tandy/Microware version
* 1      Put a proper edition number after the name     BGP 98/10/26

         nam   Inkey
         ttl   Key detect subroutine

* Disassembled 98/09/11 11:55:29 by Disasm v1.6 (C) 1988 by RML

         ifp1
         use   defsfile
         endc

tylg     set   Sbrtn+Objct   
atrv     set   ReEnt+rev
rev      set   $01
edition  set   1

         mod   eom,name,tylg,atrv,start,size

u0000    rmb   0
size     equ   .

name     fcs   /Inkey/
         fcb   edition

start    leax  $04,s
         ldd   $02,s
         cmpd  #$0001
         beq   L0033
         cmpd  #$0002
         bne   L0057
         ldd   [<$04,s]
         ldx   $06,s
         leax  -$01,x
         beq   L0031
         leax  -$01,x
         bne   L0057
         tfr   b,a
L0031    leax  $08,s
L0033    ldu   $02,x
         ldx   ,x
         ldb   #$FF
         stb   ,x
         cmpu  #$0002
         bcs   L0043
         stb   $01,x
L0043    ldb   #SS.Ready
         os9   I$GetStt 
         bcs   L0052
         ldy   #0001
         os9   I$Read   
         rts   
L0052    cmpb  #E$NotRdy
         bne   L0059
         rts   
L0057    ldb   #E$ParmEr
L0059    coma  
         rts   

         emod
eom      equ   *
         end