Mercurial > hg > Members > kono > nitros9-code

changeset 216:b410fadf8c9b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added inkey
author boisy
date Mon, 15 Jul 2002 22:39:35 +0000
parents b17658d6f0e7
children 3572dd193d9b
files level1/cmds/inkey.asm level1/cmds/makefile
diffstat 2 files changed, 73 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/level1/cmds/inkey.asm	Mon Jul 15 22:39:35 2002 +0000
@@ -0,0 +1,70 @@
+********************************************************************
+* 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
+
--- a/level1/cmds/makefile	Mon Jul 15 22:38:10 2002 +0000
+++ b/level1/cmds/makefile	Mon Jul 15 22:39:35 2002 +0000
@@ -3,13 +3,14 @@
 DEPENDS		= ./Makefile
 
 CMDS		= asm attr backup binex build cobbler cobbler_d64 copy date \
-		dcheck debug del deldir dir display dsave dump \
+		dcheck debug deiniz del deldir dir display dsave dump \
 		echo edit exbin format format_d64 free grfo ident iniz link list \
 		load login makdir mdir merge mfree os9gen os9gen_d64 \
 		park printerr procs pwd pxd \
 		rename save setime shell sleep tee tmode tsmon \
 		tuneport unlink verify xmode
-ALLOBJS		= $(CMDS)
+SUBRTNS		= inkey
+ALLOBJS		= $(CMDS) $(SUBRTNS)
 
 all:	$(ALLOBJS)
 	$(CHMOD) a+rx $(ALLOBJS)