Mercurial > hg > Members > kono > nitros9-code

annotate level1/modules/ccdisk.asm @ 1071:853a796a1bcd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Removed logbook
author boisy
date Mon, 31 Mar 2003 14:10:56 +0000
parents c93ecc262253
children b4beed49ef37
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 * CCDisk - WD1773 disk driver for Tandy/Radio Shack controller
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 * 4 From Tandy OS-9 Level One VR 02.00.00
208
d3107f6c407b ccdisk.asm now has code from Rainbow October 1988 page 157 for double
boisy
parents: 201
diff changeset
9 * 5 Patched to handle 6ms step rate and ds drives BGP 02/07/14
d3107f6c407b ccdisk.asm now has code from Rainbow October 1988 page 157 for double
boisy
parents: 201
diff changeset
10 * from Kissable OS-9, Rainbow, October 1988
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
11
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
12 nam CCDisk
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
13 ttl WD1773 disk driver for Tandy/Radio Shack controller
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
14
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
15 * Disassembled 98/08/23 17:21:46 by Disasm v1.6 (C) 1988 by RML
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
16
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
17 ifp1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
18 use defsfile
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
19 use rbfdefs
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
20 endc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
21
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
22 tylg set Drivr+Objct
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
23 atrv set ReEnt+rev
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
24 rev set $01
201
668388823050 Fixed headers to be consistent
boisy
parents: 0
diff changeset
25 edition set 5
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
26
243
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
27 MaxDrv set 4
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
28
208
d3107f6c407b ccdisk.asm now has code from Rainbow October 1988 page 157 for double
boisy
parents: 201
diff changeset
29 L0000 mod eom,name,tylg,atrv,start,size
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
30
257
c93ecc262253 More source enhancements
boisy
parents: 256
diff changeset
31 rmb DRVBEG
208
d3107f6c407b ccdisk.asm now has code from Rainbow October 1988 page 157 for double
boisy
parents: 201
diff changeset
32 u000F rmb 38
d3107f6c407b ccdisk.asm now has code from Rainbow October 1988 page 157 for double
boisy
parents: 201
diff changeset
33 u0035 rmb 8
d3107f6c407b ccdisk.asm now has code from Rainbow October 1988 page 157 for double
boisy
parents: 201
diff changeset
34 u003D rmb 18
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
35 u004F rmb 27
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
36 u006A rmb 5
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
37 u006F rmb 56
243
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
38 CurDMem rmb 2
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
39 DrivSel rmb 1
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
40 u00AA rmb 1
233
51bf3a85f457 Slight source changes
boisy
parents: 209
diff changeset
41 VfyBuf rmb 2
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
42 u00AD rmb 4
243
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
43 DevStRg rmb 1
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
44 size equ .
233
51bf3a85f457 Slight source changes
boisy
parents: 209
diff changeset
45
256
9e9648e17298 Additional source improvements
boisy
parents: 248
diff changeset
46 fcb DIR.+SHARE.+PREAD.+PWRIT.+PEXEC.+READ.+WRITE.+EXEC.
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
47
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
48 name fcs /CCDisk/
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
49 fcb edition
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
50
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
51 start lbra Init
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
52 lbra Read
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
53 lbra Write
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
54 lbra GetStat
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
55 lbra SetStat
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
56 lbra Term
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
57
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
58 IRQPkt fcb $00,$01,$0a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
59
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
60 * Init
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
61 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
62 * Entry:
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
63 * Y = address of device descriptor
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
64 * U = address of device memory area
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
65 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
66 * Exit:
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
67 * CC = carry set on error
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
68 * B = error code
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
69 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
70 Init clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
71 sta <D.DskTmr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
72 ldx #DPort
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
73 leax $08,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
74 lda #$D0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
75 sta ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
76 lbsr L0294
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
77 lda ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
78 lda #$FF
243
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
79 L003D ldb #MaxDrv
233
51bf3a85f457 Slight source changes
boisy
parents: 209
diff changeset
80 leax DRVBEG,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
81 L0041 sta ,x
243
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
82 sta <V.TRAK,x
233
51bf3a85f457 Slight source changes
boisy
parents: 209
diff changeset
83 leax <DRVMEM,x
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
84 decb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
85 bne L0041
233
51bf3a85f457 Slight source changes
boisy
parents: 209
diff changeset
86 leax >NMIRtn,pcr
248
07a986b7a4fe Better commenting
boisy
parents: 243
diff changeset
87 stx >D.XNMI
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
88 lda #$7E
248
07a986b7a4fe Better commenting
boisy
parents: 243
diff changeset
89 sta >D.XSWI+1
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
90 pshs y
243
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
91 leay >DevStRg,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
92 tfr y,d
233
51bf3a85f457 Slight source changes
boisy
parents: 209
diff changeset
93 leay >IRQRtn,pcr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
94 leax >IRQPkt,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
95 os9 F$IRQ
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
96 puls y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
97 bcs L0082
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
98 ldd #256
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
99 pshs u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
100 os9 F$SRqMem
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
101 tfr u,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
102 puls u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
103 bcs L0082
233
51bf3a85f457 Slight source changes
boisy
parents: 209
diff changeset
104 stx >VfyBuf,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
105
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
106 * GetStat
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
107 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
108 * Entry:
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
109 * A = function code
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
110 * Y = address of path descriptor
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
111 * U = address of device memory area
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
112 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
113 * Exit:
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
114 * CC = carry set on error
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
115 * B = error code
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
116 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
117 GetStat
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
118
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
119 * Term
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
120 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
121 * Entry:
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
122 * U = address of device memory area
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
123 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
124 * Exit:
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
125 * CC = carry set on error
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
126 * B = error code
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
127 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
128 Term clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
129 L0082 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
130
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
131 * Read
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
132 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
133 * Entry:
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
134 * B = MSB of the disk's LSN
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
135 * X = LSB of the disk's LSN
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
136 * Y = address of path descriptor
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
137 * U = address of device memory area
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
138 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
139 * Exit:
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
140 * CC = carry set on error
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
141 * B = error code
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
142 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
143 Read lda #$91
248
07a986b7a4fe Better commenting
boisy
parents: 243
diff changeset
144 cmpx #$0000 LSN0?
07a986b7a4fe Better commenting
boisy
parents: 243
diff changeset
145 bne L00AD branch if not
07a986b7a4fe Better commenting
boisy
parents: 243
diff changeset
146 bsr L00AD else branch subroutine
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
147 bcs L00A3
248
07a986b7a4fe Better commenting
boisy
parents: 243
diff changeset
148 ldx PD.BUF,y get pointer to buffer
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
149 pshs y,x
243
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
150 ldy >CurDMem,u
248
07a986b7a4fe Better commenting
boisy
parents: 243
diff changeset
151 ldb #DD.SIZ-1 copy bytes from buffer to LSN0 buffer
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
152 L0099 lda b,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
153 sta b,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
154 decb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
155 bpl L0099
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
156 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
157 puls pc,y,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
158 L00A3 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
159 L00A4 bcc L00AD
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
160 pshs x,b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
161 lbsr L02D0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
162 puls x,b,a
248
07a986b7a4fe Better commenting
boisy
parents: 243
diff changeset
163
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
164 L00AD pshs x,b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
165 bsr L00B8
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
166 puls x,b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
167 bcc L00A3
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
168 lsra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
169 bne L00A4
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
170 L00B8 lbsr L019E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
171 bcs L00A3
248
07a986b7a4fe Better commenting
boisy
parents: 243
diff changeset
172 ldx PD.BUF,y
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
173 pshs y,cc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
174 ldb #$80
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
175 bsr L00E6
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
176 L00C5 bita >DPort+8
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
177 bne L00DC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
178 leay -$01,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
179 bne L00C5
243
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
180 lda >DrivSel,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
181 ora #$08
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
182 sta >DPort
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
183 puls y,cc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
184 lbra L026F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
185 L00DC lda >DPort+$0B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
186 sta ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
187 stb >DPort
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
188 bra L00DC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
189 L00E6 orcc #IntMasks
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
190 stb >DPort+8
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
191 ldy #$FFFF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
192 ldb #$28
243
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
193 orb >DrivSel,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
194 stb >DPort
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
195 ldb #$A8
243
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
196 orb >DrivSel,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
197 lbsr L0294
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
198 lda #$02
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
199 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
200
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
201 * Write
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
202 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
203 * Entry:
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
204 * B = MSB of the disk's LSN
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
205 * X = LSB of the disk's LSN
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
206 * Y = address of path descriptor
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
207 * U = address of device memory area
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
208 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
209 * Exit:
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
210 * CC = carry set on error
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
211 * B = error code
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
212 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
213 Write lda #$91
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
214 L0106 pshs x,b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
215 bsr L0129
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
216 puls x,b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
217 bcs L0119
248
07a986b7a4fe Better commenting
boisy
parents: 243
diff changeset
218 tst <PD.VFY,y
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
219 bne L0117
233
51bf3a85f457 Slight source changes
boisy
parents: 209
diff changeset
220 bsr Verify
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
221 bcs L0119
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
222 L0117 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
223 L0118 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
224 L0119 lsra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
225 lbeq L023E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
226 bcc L0106
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
227 pshs x,b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
228 lbsr L02D0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
229 puls x,b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
230 bra L0106
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
231 L0129 bsr L019E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
232 bcs L0118
248
07a986b7a4fe Better commenting
boisy
parents: 243
diff changeset
233 ldx PD.BUF,y
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
234 ldb #$A0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
235 L0131 pshs y,cc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
236 bsr L00E6
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
237 L0135 bita >DPort+8
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
238 bne L014C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
239 leay -$01,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
240 bne L0135
243
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
241 lda >DrivSel,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
242 ora #$08
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
243 sta >DPort
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
244 puls y,cc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
245 lbra L023E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
246 L014C lda ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
247 sta >DPort+$0B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
248 stb >DPort
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
249 bra L014C
233
51bf3a85f457 Slight source changes
boisy
parents: 209
diff changeset
250
51bf3a85f457 Slight source changes
boisy
parents: 209
diff changeset
251 NMIRtn leas $0C,s
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
252 puls y,cc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
253 ldb >DPort+8
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
254 bitb #$04
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
255 lbne L026F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
256 lbra L0241
233
51bf3a85f457 Slight source changes
boisy
parents: 209
diff changeset
257
51bf3a85f457 Slight source changes
boisy
parents: 209
diff changeset
258 Verify pshs x,b,a
51bf3a85f457 Slight source changes
boisy
parents: 209
diff changeset
259 ldx PD.BUF,y
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
260 pshs x
233
51bf3a85f457 Slight source changes
boisy
parents: 209
diff changeset
261 ldx >VfyBuf,u
51bf3a85f457 Slight source changes
boisy
parents: 209
diff changeset
262 stx PD.BUF,y
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
263 ldx $04,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
264 lbsr L00B8
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
265 puls x
233
51bf3a85f457 Slight source changes
boisy
parents: 209
diff changeset
266 stx PD.BUF,y
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
267 bcs L019C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
268 lda #$20
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
269 pshs u,y,a
233
51bf3a85f457 Slight source changes
boisy
parents: 209
diff changeset
270 ldy >VfyBuf,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
271 tfr x,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
272 L0188 ldx ,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
273 cmpx ,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
274 bne L0198
257
c93ecc262253 More source enhancements
boisy
parents: 256
diff changeset
275 leau $08,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
276 leay $08,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
277 dec ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
278 bne L0188
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
279 bra L019A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
280 L0198 orcc #Carry
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
281 L019A puls u,y,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
282 L019C puls pc,x,b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
283 L019E clr >u00AA,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
284 bsr L020D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
285 tstb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
286 bne L01B8
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
287 tfr x,d
243
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
288 ldx >CurDMem,u
209
9c3aa54f08a0 Fixed problem in disassembly
boisy
parents: 208
diff changeset
289 cmpd #$0000
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
290 beq L01DD
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
291 cmpd $01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
292 bcs L01BC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
293 L01B8 comb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
294 ldb #E$Sect
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
295 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
296 L01BC clr ,-s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
297 bra L01C2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
298 L01C0 inc ,s
243
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
299 L01C2 subd #18
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
300 bcc L01C0
243
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
301 addb #18
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
302 lbra L0350
208
d3107f6c407b ccdisk.asm now has code from Rainbow October 1988 page 157 for double
boisy
parents: 201
diff changeset
303 fcb $15
d3107f6c407b ccdisk.asm now has code from Rainbow October 1988 page 157 for double
boisy
parents: 201
diff changeset
304 L01CD bls L01DD
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
305 pshs a
243
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
306 lda >DrivSel,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
307 ora #$10
243
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
308 sta >DrivSel,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
309 puls a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
310 L01DD incb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
311 stb >DPort+$0A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
312 L01E1 ldb <$15,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
313 stb >DPort+9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
314 tst >u00AA,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
315 bne L01F2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
316 cmpa <$15,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
317 beq L0207
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
318 L01F2 sta <$15,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
319 sta >DPort+$0B
208
d3107f6c407b ccdisk.asm now has code from Rainbow October 1988 page 157 for double
boisy
parents: 201
diff changeset
320 clrb
d3107f6c407b ccdisk.asm now has code from Rainbow October 1988 page 157 for double
boisy
parents: 201
diff changeset
321 lbsr L0372
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
322 pshs x
248
07a986b7a4fe Better commenting
boisy
parents: 243
diff changeset
323 * ldx #$222E
07a986b7a4fe Better commenting
boisy
parents: 243
diff changeset
324 ldx #$082E
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
325 L0201 leax -$01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
326 bne L0201
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
327 puls x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
328 L0207 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
329 rts
233
51bf3a85f457 Slight source changes
boisy
parents: 209
diff changeset
330
51bf3a85f457 Slight source changes
boisy
parents: 209
diff changeset
331 DrvSel fcb $01,$02,$04,$40
51bf3a85f457 Slight source changes
boisy
parents: 209
diff changeset
332
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
333 L020D lbsr L02EB
233
51bf3a85f457 Slight source changes
boisy
parents: 209
diff changeset
334 lda <PD.DRV,y $21,y
243
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
335 cmpa #MaxDrv
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
336 bcs L021B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
337 comb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
338 ldb #E$Unit
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
339 rts
233
51bf3a85f457 Slight source changes
boisy
parents: 209
diff changeset
340
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
341 L021B pshs x,b,a
233
51bf3a85f457 Slight source changes
boisy
parents: 209
diff changeset
342 leax >DrvSel,pcr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
343 ldb a,x
243
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
344 stb >DrivSel,u
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
345 leax DRVBEG,u
233
51bf3a85f457 Slight source changes
boisy
parents: 209
diff changeset
346 ldb #DRVMEM
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
347 mul
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
348 leax d,x
243
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
349 cmpx >CurDMem,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
350 beq L023C
243
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
351 stx >CurDMem,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
352 com >u00AA,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
353 L023C puls pc,x,b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
354 L023E ldb >DPort+8
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
355 L0241 bitb #$F8
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
356 beq L0259
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
357 bitb #$80
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
358 bne L025B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
359 bitb #$40
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
360 bne L025F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
361 bitb #$20
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
362 bne L0263
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
363 bitb #$10
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
364 bne L0267
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
365 bitb #$08
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
366 bne L026B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
367 L0259 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
368 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
369 L025B comb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
370 ldb #E$NotRdy
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
371 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
372 L025F comb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
373 ldb #E$WP
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
374 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
375 L0263 comb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
376 ldb #E$Write
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
377 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
378 L0267 comb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
379 ldb #E$Seek
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
380 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
381 L026B comb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
382 ldb #E$CRC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
383 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
384 L026F comb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
385 ldb #E$Read
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
386 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
387 L0273 bsr L0292
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
388 L0275 ldb >DPort+8
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
389 bitb #$01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
390 beq L029A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
391 ldd #$00F0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
392 std >u00AD,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
393 bra L0275
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
394 L0285 lda #$08
243
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
395 ora >DrivSel,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
396 sta >DPort
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
397 stb >DPort+8
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
398 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
399 L0292 bsr L0285
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
400 L0294 lbsr L0297
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
401 L0297 lbsr L029A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
402 L029A rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
403
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
404 * SetStat
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
405 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
406 * Entry:
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
407 * A = function code
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
408 * Y = address of path descriptor
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
409 * U = address of device memory area
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
410 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
411 * Exit:
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
412 * CC = carry set on error
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
413 * B = error code
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
414 *
233
51bf3a85f457 Slight source changes
boisy
parents: 209
diff changeset
415 SetStat ldx PD.RGS,y
51bf3a85f457 Slight source changes
boisy
parents: 209
diff changeset
416 ldb R$B,x
51bf3a85f457 Slight source changes
boisy
parents: 209
diff changeset
417 cmpb #SS.Reset
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
418 beq L02D0
233
51bf3a85f457 Slight source changes
boisy
parents: 209
diff changeset
419 cmpb #SS.WTrk
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
420 beq L02AB
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
421 comb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
422 ldb #E$UnkSvc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
423 L02AA rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
424 L02AB lbsr L020D
243
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
425 ldb >DrivSel,u
208
d3107f6c407b ccdisk.asm now has code from Rainbow October 1988 page 157 for double
boisy
parents: 201
diff changeset
426 lbra L0341
d3107f6c407b ccdisk.asm now has code from Rainbow October 1988 page 157 for double
boisy
parents: 201
diff changeset
427 nop
d3107f6c407b ccdisk.asm now has code from Rainbow October 1988 page 157 for double
boisy
parents: 201
diff changeset
428 L02B6 bls L02BA
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
429 orb #$10
243
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
430 L02BA stb >DrivSel,u
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
431 ldx >CurDMem,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
432 lbsr L01E1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
433 bcs L02AA
233
51bf3a85f457 Slight source changes
boisy
parents: 209
diff changeset
434 ldx PD.RGS,y
51bf3a85f457 Slight source changes
boisy
parents: 209
diff changeset
435 ldx R$X,x
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
436 ldb #$F0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
437 lbra L0131
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
438 L02D0 lbsr L020D
243
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
439 ldx >CurDMem,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
440 clr <$15,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
441 lda #$05
208
d3107f6c407b ccdisk.asm now has code from Rainbow October 1988 page 157 for double
boisy
parents: 201
diff changeset
442 L02DC ldb #$40
d3107f6c407b ccdisk.asm now has code from Rainbow October 1988 page 157 for double
boisy
parents: 201
diff changeset
443 nop
d3107f6c407b ccdisk.asm now has code from Rainbow October 1988 page 157 for double
boisy
parents: 201
diff changeset
444 nop
d3107f6c407b ccdisk.asm now has code from Rainbow October 1988 page 157 for double
boisy
parents: 201
diff changeset
445 nop
d3107f6c407b ccdisk.asm now has code from Rainbow October 1988 page 157 for double
boisy
parents: 201
diff changeset
446 lbsr L0374
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
447 deca
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
448 bne L02DC
208
d3107f6c407b ccdisk.asm now has code from Rainbow October 1988 page 157 for double
boisy
parents: 201
diff changeset
449 clrb
d3107f6c407b ccdisk.asm now has code from Rainbow October 1988 page 157 for double
boisy
parents: 201
diff changeset
450 lbra L036C
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
451 L02EB pshs y,x,b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
452 lda <D.DskTmr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
453 bmi L0301
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
454 bne L0309
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
455 lda #$08
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
456 sta >DPort
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
457 ldx #$A000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
458 L02FB nop
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
459 nop
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
460 leax -$01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
461 bne L02FB
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
462 L0301 bsr L0312
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
463 bcc L0309
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
464 ldb #$80
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
465 stb <D.DskTmr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
466 L0309 ldd #$00F0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
467 std >u00AD,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
468 puls pc,y,x,b,a
233
51bf3a85f457 Slight source changes
boisy
parents: 209
diff changeset
469
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
470 L0312 lda #$01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
471 sta <D.DskTmr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
472 ldx #$0001
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
473 leay >u00AD,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
474 clr $04,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
475 ldd #$00F0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
476 os9 F$VIRQ
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
477 rts
233
51bf3a85f457 Slight source changes
boisy
parents: 209
diff changeset
478
51bf3a85f457 Slight source changes
boisy
parents: 209
diff changeset
479 IRQRtn pshs a
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
480 tst <D.DMAReq
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
481 beq L0330
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
482 bsr L0312
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
483 bra L033F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
484 L0330 clr >DPort
243
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
485 lda >DevStRg,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
486 anda #$FE
243
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
487 sta >DevStRg,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
488 clr <D.DskTmr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
489 L033F puls pc,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
490
243
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
491 L0341 lda R$Y+1,x get density byte
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
492 bita #DNS.MFM
208
d3107f6c407b ccdisk.asm now has code from Rainbow October 1988 page 157 for double
boisy
parents: 201
diff changeset
493 bne L0349
d3107f6c407b ccdisk.asm now has code from Rainbow October 1988 page 157 for double
boisy
parents: 201
diff changeset
494 orb #$40
243
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
495 L0349 lda R$U+1,x get track lo-byte
208
d3107f6c407b ccdisk.asm now has code from Rainbow October 1988 page 157 for double
boisy
parents: 201
diff changeset
496 cmpa #$15
d3107f6c407b ccdisk.asm now has code from Rainbow October 1988 page 157 for double
boisy
parents: 201
diff changeset
497 lbra L02B6
233
51bf3a85f457 Slight source changes
boisy
parents: 209
diff changeset
498
243
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
499 L0350 lda <DD.FMT,x
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
500 bita #DNS.MFM
208
d3107f6c407b ccdisk.asm now has code from Rainbow October 1988 page 157 for double
boisy
parents: 201
diff changeset
501 beq L0365
d3107f6c407b ccdisk.asm now has code from Rainbow October 1988 page 157 for double
boisy
parents: 201
diff changeset
502 lsr ,s
d3107f6c407b ccdisk.asm now has code from Rainbow October 1988 page 157 for double
boisy
parents: 201
diff changeset
503 bcc L0365
243
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
504 lda >DrivSel,u
208
d3107f6c407b ccdisk.asm now has code from Rainbow October 1988 page 157 for double
boisy
parents: 201
diff changeset
505 ora #$40
243
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
506 sta >DrivSel,u
208
d3107f6c407b ccdisk.asm now has code from Rainbow October 1988 page 157 for double
boisy
parents: 201
diff changeset
507 L0365 puls a
d3107f6c407b ccdisk.asm now has code from Rainbow October 1988 page 157 for double
boisy
parents: 201
diff changeset
508 cmpa #$15
d3107f6c407b ccdisk.asm now has code from Rainbow October 1988 page 157 for double
boisy
parents: 201
diff changeset
509 lbra L01CD
243
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
510
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
511 L036C orb <PD.STP,y
208
d3107f6c407b ccdisk.asm now has code from Rainbow October 1988 page 157 for double
boisy
parents: 201
diff changeset
512 lbra L0273
d3107f6c407b ccdisk.asm now has code from Rainbow October 1988 page 157 for double
boisy
parents: 201
diff changeset
513 L0372 addb #$10
243
5f9f04108128 Additional comments
boisy
parents: 233
diff changeset
514 L0374 orb <PD.STP,y
208
d3107f6c407b ccdisk.asm now has code from Rainbow October 1988 page 157 for double
boisy
parents: 201
diff changeset
515 pshs a
d3107f6c407b ccdisk.asm now has code from Rainbow October 1988 page 157 for double
boisy
parents: 201
diff changeset
516 lbsr L0273
d3107f6c407b ccdisk.asm now has code from Rainbow October 1988 page 157 for double
boisy
parents: 201
diff changeset
517 puls a
d3107f6c407b ccdisk.asm now has code from Rainbow October 1988 page 157 for double
boisy
parents: 201
diff changeset
518 rts
d3107f6c407b ccdisk.asm now has code from Rainbow October 1988 page 157 for double
boisy
parents: 201
diff changeset
519
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
520 emod
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
521 eom equ *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
522 end
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
523