1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 .equ write_data, 0x0000
18 .equ write_mark, 0x0200
19 .equ write_CRC, 0x0400
20 .equ write_parameter,0x0600
21 .equ write_phase, 0x0800
22 .equ write_setup, 0x0a00
23 .equ write_mode0, 0x0c00
24 .equ write_mode1, 0x0e00
25 .equ read_data, 0x1000
26 .equ read_mark, 0x1200
27 .equ read_error, 0x1400
28 .equ read_parameter, 0x1600
29 .equ read_phase, 0x1800
30 .equ read_setup, 0x1a00
31 .equ read_status, 0x1c00
32 .equ read_handshake, 0x1e00
33
34 .equ o_side, 0
35 .equ o_track, 1
36 .equ o_sector, 2
37 .equ o_size, 3
38 .equ o_crc0, 4
39 .equ o_crc1, 5
40
41 .equ seek_time, 30000
42 .equ max_retry, 40
43 .equ sector_size, 512
44
45 .global swim_read_sector_header
46 swim_read_sector_header:
47 link %a6, #0
48 moveml %d1-%d5/%a0-%a4,%sp@-
49 movel %a6@(0x0c), %a4
50 bsr mfm_read_addrmark
51 moveml %sp@+, %d1-%d5/%a0-%a4
52 unlk %a6
53 rts
54
55 sector_address_mark:
56 .byte 0xa1, 0xa1, 0xa1, 0xfe
57 sector_data_mark:
58 .byte 0xa1, 0xa1, 0xa1, 0xfb
59
60 mfm_read_addrmark:
61 movel %a6@(0x08), %a3
62 lea %a3@(read_handshake), %a2
63 lea %a3@(read_mark), %a3
64 moveq #-1, %d0
65 movew #seek_time, %d2
66
67 wait_header_init:
68 tstb %a3@(read_error - read_mark)
69 moveb #0x18, %a3@(write_mode0 - read_mark)
70 moveb #0x01, %a3@(write_mode1 - read_mark)
71 moveb #0x01, %a3@(write_mode0 - read_mark)
72 tstb %a3@(read_error - read_mark)
73 moveb #0x08, %a3@(write_mode1 - read_mark)
74
75 lea sector_address_mark, %a0
76 moveq #3, %d1
77
78 wait_addr_mark_byte:
79
80 tstb %a2@
81 dbmi %d2, wait_addr_mark_byte
82 bpl header_exit
83
84 moveb %a3@, %d3
85 cmpb %a0@+, %d3
86 dbne %d1, wait_addr_mark_byte
87 bne wait_header_init
88
89 moveq #max_retry, %d2
90
91 amark0: tstb %a2@
92 dbmi %d2, amark0
93 bpl signal_nonyb
94
95 moveb %a3@, %a4@(o_track)
96
97 moveq #max_retry, %d2
98
99 amark1: tstb %a2@
100 dbmi %d2, amark1
101 bpl signal_nonyb
102
103 moveb %a3@, %a4@(o_side)
104
105 moveq #max_retry, %d2
106
107 amark2: tstb %a2@
108 dbmi %d2, amark2
109 bpl signal_nonyb
110
111 moveb %a3@, %a4@(o_sector)
112
113 moveq #max_retry, %d2
114
115 amark3: tstb %a2@
116 dbmi %d2, amark3
117 bpl signal_nonyb
118
119 moveb %a3@, %a4@(o_size)
120
121 moveq #max_retry, %d2
122
123 crc0: tstb %a2@
124 dbmi %d2, crc0
125 bpl signal_nonyb
126
127 moveb %a3@, %a4@(o_crc0)
128
129 moveq #max_retry, %d2
130
131 crc1: tstb %a2@
132 dbmi %d2, crc1
133 bpl signal_nonyb
134
135 moveb %a3@, %a4@(o_crc1)
136
137 tstb %a3@(read_error - read_mark)
138
139 header_exit:
140 moveq #0, %d0
141 moveb #0x18, %a3@(write_mode0 - read_mark)
142 rts
143 signal_nonyb:
144 moveq #-1, %d0
145 moveb #0x18, %a3@(write_mode0 - read_mark)
146 rts
147
148 .global swim_read_sector_data
149 swim_read_sector_data:
150 link %a6, #0
151 moveml %d1-%d5/%a0-%a5,%sp@-
152 movel %a6@(0x0c), %a4
153 bsr mfm_read_data
154 moveml %sp@+, %d1-%d5/%a0-%a5
155 unlk %a6
156 rts
157
158 mfm_read_data:
159 movel %a6@(0x08), %a3
160 lea %a3@(read_handshake), %a2
161 lea %a3@(read_data), %a5
162 lea %a3@(read_mark), %a3
163 movew #seek_time, %d2
164
165 wait_data_init:
166 tstb %a3@(read_error - read_mark)
167 moveb #0x18, %a3@(write_mode0 - read_mark)
168 moveb #0x01, %a3@(write_mode1 - read_mark)
169 moveb #0x01, %a3@(write_mode0 - read_mark)
170 tstb %a3@(read_error - read_mark)
171 moveb #0x08, %a3@(write_mode1 - read_mark)
172
173 lea sector_data_mark, %a0
174 moveq #3, %d1
175
176
177
178 wait_data_mark_byte:
179
180 tstb %a2@
181 dbmi %d2, wait_data_mark_byte
182 bpl data_exit
183
184 moveb %a3@, %d3
185 cmpb %a0@+, %d3
186 dbne %d1, wait_data_mark_byte
187 bne wait_data_init
188
189
190
191 tstb %a3@(read_error - read_mark)
192
193 movel #sector_size-1, %d4
194 read_new_data:
195 movew #max_retry, %d2
196 read_data_loop:
197 moveb %a2@, %d5
198 andb #0xc0, %d5
199 dbne %d2, read_data_loop
200 beq data_exit
201 moveb %a5@, %a4@+
202 andb #0x40, %d5
203 dbne %d4, read_new_data
204 beq exit_loop
205 moveb %a5@, %a4@+
206 dbra %d4, read_new_data
207 exit_loop:
208
209
210
211 movew #max_retry, %d2
212 data_crc0:
213
214 tstb %a2@
215 dbmi %d2, data_crc0
216 bpl data_exit
217
218 moveb %a3@, %d5
219
220 moveq #max_retry, %d2
221
222 data_crc1:
223
224 tstb %a2@
225 dbmi %d2, data_crc1
226 bpl data_exit
227
228 moveb %a3@, %d5
229
230 tstb %a3@(read_error - read_mark)
231
232 moveb #0x18, %a3@(write_mode0 - read_mark)
233
234
235
236 movel #sector_size, %d0
237 addw #1, %d4
238 subl %d4, %d0
239 rts
240 data_exit:
241 moveb #0x18, %a3@(write_mode0 - read_mark)
242 moveq #-1, %d0
243 rts