Mercurial > hg > Members > kono > nitros9-code

comparison level2/cmds/inkey.asm @ 0:6641a883d6b0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial revision
author boisy
date Thu, 04 Apr 2002 16:34:12 +0000
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:6641a883d6b0
1 ********************************************************************
2 * Inkey - Key detect subroutine
3 *
4 * $Id$
5 *
6 * Ed. Comments Who YY/MM/DD
7 * ------------------------------------------------------------------
8 * ? Original Tandy/Microware version
9 * 1 Put a proper edition number after the name BGP 98/10/26
10
11 nam Inkey
12 ttl Key detect subroutine
13
14 * Disassembled 98/09/11 11:55:29 by Disasm v1.6 (C) 1988 by RML
15
16 ifp1
17 use defsfile
18 endc
19
20 tylg set Sbrtn+Objct
21 atrv set ReEnt+rev
22 rev set $01
23 edition set 1
24
25 mod eom,name,tylg,atrv,start,size
26
27 u0000 rmb 0
28 size equ .
29
30 name fcs /Inkey/
31 fcb edition
32 start leax $04,s
33 ldd $02,s
34 cmpd #$0001
35 beq L0033
36 cmpd #$0002
37 bne L0057
38 ldd [<$04,s]
39 ldx $06,s
40 leax -$01,x
41 beq L0031
42 leax -$01,x
43 bne L0057
44 tfr b,a
45 L0031 leax $08,s
46 L0033 ldu $02,x
47 ldx ,x
48 ldb #$FF
49 stb ,x
50 cmpu #$0002
51 bcs L0043
52 stb $01,x
53 L0043 ldb #$01
54 os9 I$GetStt
55 bcs L0052
56 ldy #0001
57 os9 I$Read
58 rts
59 L0052 cmpb #E$NotRdy
60 bne L0059
61 rts
62 L0057 ldb #$38
63 L0059 coma
64 rts
65
66 emod
67 eom equ *
68 end
69