Mercurial > hg > Members > kono > nitros9-code

annotate level1/modules/sc6551dragon.asm @ 1882:c96f594fe098

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added fragmented boot support... needs additional testing.
author boisy
date Tue, 11 Oct 2005 11:10:25 +0000
parents 10957d54bf16
children 4de571b41659
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
240
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
1 ********************************************************************
507
360005465b59 Added appropriate header
boisy
parents: 240
diff changeset
2 * ACIA51 - Serial port device driver
240
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
3 *
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
4 * $Id$
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
5 *
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 507
diff changeset
6 * Edt/Rev YYYY/MM/DD Modified by
10957d54bf16 Made all modules rev 0
boisy
parents: 507
diff changeset
7 * Comment
240
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
8 * ------------------------------------------------------------------
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 507
diff changeset
9 * 4 1985/??/??
10957d54bf16 Made all modules rev 0
boisy
parents: 507
diff changeset
10 * From Dragon OS-9 Level One VR 02.00.00
240
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
11
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
12 nam ACIA51
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
13 ttl Serial port device driver
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
14
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
15 * Disassembled 02/04/21 22:37:41 by Disasm v1.6 (C) 1988 by RML
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
16
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 507
diff changeset
17 IFP1
240
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
18 use defsfile
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 507
diff changeset
19 ENDC
10957d54bf16 Made all modules rev 0
boisy
parents: 507
diff changeset
20
240
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
21 tylg set Drivr+Objct
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
22 atrv set ReEnt+rev
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 507
diff changeset
23 rev set $00
10957d54bf16 Made all modules rev 0
boisy
parents: 507
diff changeset
24 edition set $04
10957d54bf16 Made all modules rev 0
boisy
parents: 507
diff changeset
25
240
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
26 mod eom,name,tylg,atrv,start,size
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 507
diff changeset
27
240
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
28 u0000 rmb 1
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
29 u0001 rmb 2
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
30 u0003 rmb 1
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
31 u0004 rmb 1
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
32 u0005 rmb 1
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
33 u0006 rmb 3
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
34 u0009 rmb 2
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
35 u000B rmb 1
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
36 u000C rmb 1
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
37 u000D rmb 1
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
38 u000E rmb 1
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
39 u000F rmb 1
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
40 u0010 rmb 13
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
41 u001D rmb 1
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
42 u001E rmb 1
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
43 u001F rmb 1
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
44 u0020 rmb 1
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
45 u0021 rmb 1
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
46 u0022 rmb 1
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
47 u0023 rmb 1
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
48 u0024 rmb 2
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
49 u0026 rmb 1
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
50 u0027 rmb 36
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
51 u004B rmb 44
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
52 u0077 rmb 9
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
53 u0080 rmb 46
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
54 u00AE rmb 85
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
55 size equ .
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 507
diff changeset
56
10957d54bf16 Made all modules rev 0
boisy
parents: 507
diff changeset
57 fcb UPDAT.
10957d54bf16 Made all modules rev 0
boisy
parents: 507
diff changeset
58
10957d54bf16 Made all modules rev 0
boisy
parents: 507
diff changeset
59 name fcs /ACIA51/
10957d54bf16 Made all modules rev 0
boisy
parents: 507
diff changeset
60 fcb edition
10957d54bf16 Made all modules rev 0
boisy
parents: 507
diff changeset
61
240
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
62 start equ *
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
63 lbra L002A
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
64 lbra L0086
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
65 lbra L00FE
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
66 lbra L012F
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
67 lbra L0146
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
68 lbra L0173
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
69 L0027 neg <u0080
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
70 dec <u00AE
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
71 fcb $41 A
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
72 stb $01,x
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
73 ldb #$02
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
74 stb <u0022,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
75 ldd <$26,y
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
76 andb #$0F
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
77 leax <L007C,pcr
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
78 ldb b,x
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
79 anda #$F0
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
80 sta u0006,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
81 ldx u0001,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
82 std $02,x
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
83 lda ,x
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
84 lda ,x
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
85 tst $01,x
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
86 lbmi L00D2
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
87 clra
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
88 clrb
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
89 std <u001D,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
90 std <u0020,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
91 sta <u0023,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
92 sta <u001F,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
93 std <u0024,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
94 ldd u0001,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
95 addd #$0001
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
96 leax >L0027,pcr
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
97 leay >L0194,pcr
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
98 os9 F$IRQ
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
99 bcs L007B
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
100 ldx u0001,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
101 ldb u0006,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
102 orb #$01
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
103 stb $02,x
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
104 clrb
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
105 L007B rts
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
106 L007C sync
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
107 lbra L1798
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
108 orcc #$1C
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
109 exg x,f
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
110 L0084 bsr L00D6
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
111 L0086 lda <u0023,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
112 ble L00A1
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
113 ldb <u001F,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
114 cmpb #$0A
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
115 bhi L00A1
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
116 ldb u000F,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
117 orb #$80
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
118 stb <u0023,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
119 ldb u0006,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
120 orb #$05
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
121 ldx u0001,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
122 stb $02,x
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
123 L00A1 tst <u0024,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
124 bne L00D2
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
125 ldb <u001E,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
126 leax <u0027,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
127 orcc #$50
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
128 cmpb <u001D,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
129 beq L0084
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
130 abx
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
131 lda ,x
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
132 dec <u001F,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
133 incb
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
134 cmpb #$4F
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
135 bls L00BF
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
136 clrb
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
137 L00BF stb <u001E,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
138 clrb
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
139 ldb u000E,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
140 beq L00CF
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
141 stb <$3A,y
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
142 clr u000E,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
143 comb
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
144 ldb #$F4
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
145 L00CF andcc #$AF
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
146 rts
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
147 L00D2 comb
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
148 ldb #$F6
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
149 rts
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
150 L00D6 pshs x,b,a
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
151 lda u0004,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
152 sta u0005,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
153 andcc #$AF
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
154 ldx #$0000
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
155 os9 F$Sleep
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
156 ldx <u004B
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
157 ldb <$36,x
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
158 beq L00EF
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
159 cmpb #$03
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
160 bls L00F8
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
161 L00EF clra
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
162 lda $0D,x
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
163 bita #$02
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
164 bne L00F8
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
165 puls pc,x,b,a
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
166 L00F8 leas $06,s
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
167 coma
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
168 rts
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
169 L00FC bsr L00D6
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
170 L00FE leax <u0077,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
171 ldb <u0020,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
172 abx
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
173 sta ,x
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
174 incb
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
175 cmpb #$8B
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
176 bls L010D
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
177 clrb
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
178 L010D orcc #$50
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
179 cmpb <u0021,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
180 beq L00FC
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
181 stb <u0020,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
182 lda <u0022,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
183 beq L012B
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
184 anda #$FD
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
185 sta <u0022,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
186 bne L012B
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
187 lda u0006,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
188 ora #$05
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
189 ldx u0001,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
190 sta $02,x
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
191 L012B andcc #$AF
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
192 L012D clrb
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
193 rts
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
194 L012F cmpa #$01
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
195 bne L013E
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
196 ldb <u001F,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
197 beq L00D2
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
198 ldx $06,y
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
199 stb $02,x
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
200 L013C clrb
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
201 rts
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
202 L013E cmpa #$06
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
203 beq L012D
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
204 L0142 comb
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
205 ldb #$D0
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
206 rts
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
207 L0146 cmpa #$1A
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
208 bne L0161
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
209 lda $05,y
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
210 ldx $06,y
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
211 ldb $05,x
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
212 orcc #$50
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
213 tst <u001F,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
214 bne L015C
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
215 std <u0024,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
216 bra L012B
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
217 L015C andcc #$AF
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
218 lbra L01F8
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
219 L0161 cmpa #$1B
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
220 bne L0142
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
221 lda $05,y
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
222 cmpa <u0024,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
223 bne L013C
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
224 clr <u0024,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
225 rts
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
226 L0170 lbsr L00D6
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
227 L0173 ldx <u004B
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
228 lda ,x
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
229 sta u0004,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
230 sta u0003,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
231 ldb <u0020,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
232 orcc #$50
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
233 cmpb <u0021,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
234 bne L0170
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
235 lda u0006,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
236 ldx u0001,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
237 sta $02,x
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
238 andcc #$AF
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
239 ldx #$0000
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
240 os9 F$IRQ
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
241 rts
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
242 L0194 ldx u0001,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
243 tfr a,b
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
244 andb #$60
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
245 cmpb <u0026,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
246 beq L01AB
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
247 stb <u0026,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
248 bitb #$60
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
249 lbne L02AE
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
250 lbra L029C
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
251 L01AB bita #$08
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
252 bne L01FD
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
253 lda <u0023,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
254 bpl L01C4
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
255 anda #$7F
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
256 sta ,x
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
257 eora u000F,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
258 sta <u0023,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
259 lda <u0022,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
260 bne L01EA
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
261 clrb
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
262 rts
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
263 L01C4 leay <u0077,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
264 ldb <u0021,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
265 cmpb <u0020,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
266 beq L01E2
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
267 clra
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
268 lda d,y
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
269 incb
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
270 cmpb #$8B
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
271 bls L01D8
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
272 clrb
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
273 L01D8 stb <u0021,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
274 sta ,x
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
275 cmpb <u0020,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
276 bne L01F0
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
277 L01E2 lda <u0022,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
278 ora #$02
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
279 sta <u0022,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
280 L01EA ldb u0006,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
281 orb #$01
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
282 stb $02,x
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
283 L01F0 ldb #$01
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
284 lda u0005,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
285 L01F4 beq L01FB
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
286 clr u0005,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
287 L01F8 os9 F$Send
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
288 L01FB clrb
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
289 rts
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
290 L01FD bita #$07
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
291 beq L0213
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
292 tfr a,b
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
293 tst ,x
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
294 anda #$07
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
295 ora u000E,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
296 sta u000E,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
297 lda $02,x
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
298 sta $01,x
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
299 sta $02,x
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
300 bra L01FB
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
301 L0213 lda ,x
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
302 beq L022E
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
303 cmpa u000B,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
304 beq L028B
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
305 cmpa u000C,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
306 beq L028F
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
307 cmpa u000D,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
308 beq L0283
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
309 cmpa u000F,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
310 beq L029C
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
311 cmpa <u0010,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
312 lbeq L02AE
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
313 L022E leax <u0027,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
314 ldb <u001D,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
315 abx
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
316 sta ,x
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
317 incb
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
318 cmpb #$4F
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
319 bls L023D
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
320 clrb
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
321 L023D cmpb <u001E,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
322 bne L024A
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
323 ldb #$04
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
324 orb u000E,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
325 stb u000E,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
326 bra L01F0
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
327 L024A stb <u001D,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
328 inc <u001F,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
329 tst <u0024,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
330 beq L025D
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
331 ldd <u0024,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
332 clr <u0024,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
333 bra L01F8
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
334 L025D lda <u0010,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
335 beq L01F0
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
336 ldb <u001F,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
337 cmpb #$46
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
338 bcs L01F0
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
339 ldb <u0023,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
340 bne L01F0
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
341 anda #$7F
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
342 sta <u0010,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
343 ora #$80
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
344 sta <u0023,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
345 ldb u0006,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
346 orb #$05
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
347 ldx u0001,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
348 stb $02,x
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
349 lbra L01F0
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
350 L0283 ldx u0009,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
351 beq L022E
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
352 sta $08,x
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
353 bra L022E
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
354 L028B ldb #$03
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
355 bra L0291
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
356 L028F ldb #$02
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
357 L0291 pshs a
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
358 lda u0003,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
359 lbsr L01F4
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
360 puls a
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
361 bra L022E
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
362 L029C lda <u0022,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
363 anda #$FE
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
364 sta <u0022,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
365 bne L02AC
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
366 lda u0006,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
367 ora #$05
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
368 sta $02,x
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
369 L02AC clrb
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
370 rts
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
371 L02AE lda <u0022,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
372 bne L02B9
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
373 ldb u0006,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
374 orb #$01
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
375 stb $02,x
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
376 L02B9 ora #$01
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
377 sta <u0022,u
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
378 clrb
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
379 rts
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 507
diff changeset
380
240
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
381 emod
7c673ea162ca That's the lot. Devicedrivers and device descriptors from Dragon
roug
parents:
diff changeset
382 eom equ *
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 507
diff changeset
383 end
10957d54bf16 Made all modules rev 0
boisy
parents: 507
diff changeset
384