Mercurial > hg > Members > kono > nitros9-code

annotate level1/modules/rs232.asm @ 1287:10957d54bf16

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Made all modules rev 0
author boisy
date Sat, 30 Aug 2003 20:16:51 +0000
parents 4e235f213651
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1 ********************************************************************
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
2 * RS232 - CoCo bit-banger driver
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
3 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
4 * $Id$
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
5 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
6 * Ed. Comments Who YY/MM/DD
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
7 * ------------------------------------------------------------------
201
668388823050 Fixed headers to be consistent
boisy
parents: 0
diff changeset
8 * 7 From Tandy OS-9 Level One VR 02.00.00
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
10 nam RS232
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
11 ttl CoCo bit-banger driver
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
12
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
13 * Disassembled 98/08/23 17:32:49 by Disasm v1.6 (C) 1988 by RML
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
14
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
15 ifp1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
16 use defsfile
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
17 use scfdefs
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
18 endc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
19
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
20 tylg set Drivr+Objct
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
21 atrv set ReEnt+rev
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
22 rev set $00
201
668388823050 Fixed headers to be consistent
boisy
parents: 0
diff changeset
23 edition set 7
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
24
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
25 mod eom,name,tylg,atrv,start,size
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
26
257
c93ecc262253 More source enhancements
boisy
parents: 256
diff changeset
27 rmb V.SCF
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
28 u001D rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
29 u001E rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
30 u001F rmb 1
205
097a249c9665 Slight change to oscode
boisy
parents: 201
diff changeset
31 BaudCnt rmb 2 baud rate counter
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
32 u0022 rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
33 u0024 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
34 u0025 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
35 size equ .
256
9e9648e17298 Additional source improvements
boisy
parents: 205
diff changeset
36
9e9648e17298 Additional source improvements
boisy
parents: 205
diff changeset
37 fcb UPDAT.
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
38
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
39 name fcs /RS232/
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
40 fcb edition
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
41
205
097a249c9665 Slight change to oscode
boisy
parents: 201
diff changeset
42 BaudTbl fdb $0482 110 baud
097a249c9665 Slight change to oscode
boisy
parents: 201
diff changeset
43 fdb $01A2 300 baud
097a249c9665 Slight change to oscode
boisy
parents: 201
diff changeset
44 fdb $00CD 600 baud
097a249c9665 Slight change to oscode
boisy
parents: 201
diff changeset
45 fdb $0063 1200 baud
097a249c9665 Slight change to oscode
boisy
parents: 201
diff changeset
46 fdb $002D 2400 baud
097a249c9665 Slight change to oscode
boisy
parents: 201
diff changeset
47 fdb $0013 4800 baud
097a249c9665 Slight change to oscode
boisy
parents: 201
diff changeset
48 fdb $0005 9600 baud
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
49
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
50 start lbra Init
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
51 lbra Read
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
52 lbra Write
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
53 lbra GetStat
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
54 lbra SetStat
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
55 lbra Term
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
56
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
57 * Init
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
58 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
59 * Entry:
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
60 * Y = address of device descriptor
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
61 * U = address of device memory area
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
62 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
63 * Exit:
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
64 * CC = carry set on error
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
65 * B = error code
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
66 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
67 Init pshs cc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
68 orcc #IntMasks
1213
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents: 257
diff changeset
69 ldx #PIA1Base
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
70 clr $01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
71 ldd <IT.COL,y get col/row bytes
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
72 std <u0024,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
73 lda #$FE
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
74 sta ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
75 lda #$36
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
76 sta $01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
77 lda ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
78 ldd <IT.PAR,y get parity/baud
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
79 lbsr L014D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
80 puls cc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
81 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
82
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
83 * Term
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
84 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
85 * Entry:
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
86 * U = address of device memory area
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
87 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
88 * Exit:
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
89 * CC = carry set on error
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
90 * B = error code
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
91 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
92 Term rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
93
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
94 * Read
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
95 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
96 * Entry:
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
97 * Y = address of path descriptor
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
98 * U = address of device memory area
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
99 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
100 * Exit:
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
101 * A = character read
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
102 * CC = carry set on error
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
103 * B = error code
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
104 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
105 Read bsr L00B1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
106 bcs L00CD
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
107 ldb #$08
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
108 pshs b,cc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
109 tst <u001E,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
110 beq L0066
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
111 dec $01,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
112 L0066 bra L006E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
113 L0068 ldx #$0001
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
114 os9 F$Sleep
1213
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents: 257
diff changeset
115 L006E lda >PIA1Base+2
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
116 lsra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
117 pshs x,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
118 lda >$FF69
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
119 bpl L0091
1213
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents: 257
diff changeset
120 lda >PIA1Base+3
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
121 bita #$01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
122 beq L0091
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
123 bita #$80
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
124 beq L0091
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
125 orcc #Entire
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
126 leax <L0091,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
127 pshs x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
128 pshs u,y,x,dp,b,a,cc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
129 jmp [D.SvcIRQ]
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
130 L0091 puls x,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
131 bcs L0068
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
132 orcc #IntMasks
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
133 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
134 bsr L00DA
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
135 L009A bsr L00D3
1213
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents: 257
diff changeset
136 ldb >PIA1Base+2
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
137 lsrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
138 rora
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
139 dec $01,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
140 bne L009A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
141 bsr L00DA
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
142 tst <u001E,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
143 beq L00AD
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
144 lsra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
145 L00AD puls b,cc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
146 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
147 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
148 L00B1 pshs a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
149 lda <PD.BAU,y
205
097a249c9665 Slight change to oscode
boisy
parents: 201
diff changeset
150 anda #$0F mask out baud rate
097a249c9665 Slight change to oscode
boisy
parents: 201
diff changeset
151 cmpa #B19200
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
152 bcc L00C9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
153 lsla
205
097a249c9665 Slight change to oscode
boisy
parents: 201
diff changeset
154 leax >BaudTbl,pcr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
155 ldd a,x
205
097a249c9665 Slight change to oscode
boisy
parents: 201
diff changeset
156 std <BaudCnt,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
157 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
158 puls pc,a
205
097a249c9665 Slight change to oscode
boisy
parents: 201
diff changeset
159 L00C9 ldb #E$BMode
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
160 puls a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
161 L00CD orcc #Carry
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
162 rts
1213
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents: 257
diff changeset
163 L00D0 stb >PIA1Base
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
164 L00D3 pshs b,a
205
097a249c9665 Slight change to oscode
boisy
parents: 201
diff changeset
165 ldd <BaudCnt,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
166 bra L00E1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
167 L00DA pshs b,a
205
097a249c9665 Slight change to oscode
boisy
parents: 201
diff changeset
168 ldd <BaudCnt,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
169 lsra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
170 rorb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
171 L00E1 subd #$0001
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
172 bne L00E1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
173 puls pc,b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
174
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
175 * Write
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
176 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
177 * Entry:
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
178 * A = character to write
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
179 * Y = address of path descriptor
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
180 * U = address of device memory area
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
181 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
182 * Exit:
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
183 * CC = carry set on error
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
184 * B = error code
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
185 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
186 Write bsr L00B1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
187 bcs L00CD
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
188 ldb #$09
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
189 pshs b,cc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
190 orcc #IntMasks
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
191 tst <u001E,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
192 beq L00F9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
193 dec $01,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
194 L00F9 andcc #^Carry
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
195 L00FB ldb #$02
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
196 bcs L0100
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
197 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
198 L0100 bsr L00D0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
199 lsra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
200 dec $01,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
201 bne L00FB
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
202 ldb <u001D,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
203 beq L0110
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
204 andb #$FE
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
205 bsr L00D0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
206 L0110 ldb #$02
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
207 bsr L00D0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
208 tst <u001F,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
209 beq L011D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
210 ldb #$02
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
211 bsr L00D0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
212 L011D puls pc,b,cc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
213
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
214 * GetStat
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
215 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
216 * Entry:
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
217 * A = function code
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
218 * Y = address of path descriptor
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
219 * U = address of device memory area
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
220 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
221 * Exit:
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
222 * CC = carry set on error
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
223 * B = error code
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
224 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
225 GetStat cmpa #SS.EOF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
226 bne L0125
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
227 L0123 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
228 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
229 L0125 ldx PD.RGS,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
230 cmpa #SS.ScSiz
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
231 beq L0136
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
232 cmpa #SS.ComSt
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
233 bne L0183
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
234 ldd <u0022,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
235 std R$Y,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
236 bra L0123
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
237 L0136 ldx PD.RGS,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
238 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
239 ldb <u0024,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
240 std R$X,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
241 ldb <u0025,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
242 std R$Y,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
243 bra L0123
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
244
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
245 * SetStat
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
246 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
247 * Entry:
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
248 * A = function code
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
249 * Y = address of path descriptor
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
250 * U = address of device memory area
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
251 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
252 * Exit:
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
253 * CC = carry set on error
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
254 * B = error code
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
255 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
256 SetStat cmpa #SS.ComSt
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
257 bne L0183
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
258 ldx PD.RGS,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
259 ldd R$Y,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
260 L014D std <u0022,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
261 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
262 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
263 std <u001D,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
264 sta <u001F,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
265 ldd <u0022,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
266 tstb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
267 bpl L0161
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
268 inc <u001F,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
269 L0161 bitb #$40
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
270 bne L017F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
271 bitb #$20
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
272 beq L016C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
273 inc <u001E,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
274 L016C bita #$20
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
275 beq L017E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
276 bita #$80
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
277 beq L017F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
278 inc <u001D,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
279 bita #$40
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
280 bne L017E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
281 inc <u001D,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
282 L017E rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
283 L017F comb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
284 ldb <E$BMode
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
285 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
286 L0183 comb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
287 ldb #E$UnkSvc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
288 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
289
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
290 emod
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
291 eom equ *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
292 end
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
293