Mercurial > hg > Members > kono > os9 > sbc09

view CoCoOS9/level2v3/CMDS/inkey.asm @ 31:bd2b07db8917 cocoos9lv2v3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
CoCoOS9 version
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sat, 14 Jul 2018 15:16:13 +0900
parents
children
line wrap: on
line source

********************************************************************
* Inkey - Key detect subroutine
*
* $Id: inkey.asm,v 1.1.1.1 2001/02/21 23:30:54 boisy Exp $
*
* 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   #$01
         os9   I$GetStt 
         bcs   L0052
         ldy   #0001
         os9   I$Read   
         rts   
L0052    cmpb  #E$NotRdy
         bne   L0059
         rts   
L0057    ldb   #$38
L0059    coma  
         rts   

         emod
eom      equ   *
         end