Rev 538 | Rev 585 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
425 | victor | 1 | $Revision: 543 $ |
431 | serge | 2 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3 | ;; ;; |
||
4 | ;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;; |
||
5 | ;; Distributed under terms of the GNU General Public License ;; |
||
6 | ;; ;; |
||
7 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
||
8 | |||
87 | mario79 | 9 | ;********************************************************** |
10 | ; Непосредственная работа с устройством СD (ATAPI) |
||
11 | ;********************************************************** |
||
12 | ; Автор исходного текста Кулаков Владимир Геннадьевич. |
||
13 | ; Адаптация и доработка Mario79 |
||
14 | |||
15 | ; Процедура для полного считывания всех |
||
16 | ; данных из сектора компакт-диска |
||
17 | ; Автор текста программы Кулаков Владимир Геннадьевич. |
||
18 | |||
19 | |||
20 | ; Максимальное количество повторений операции чтения |
||
543 | spraid | 21 | MaxRetr equ 10 |
87 | mario79 | 22 | ; Предельное время ожидания готовности к приему команды |
23 | ; (в тиках) |
||
24 | BSYWaitTime equ 1000 ;2 |
||
538 | spraid | 25 | NoTickWaitTime equ 0xfffff |
87 | mario79 | 26 | ;************************************************* |
27 | ;* ПОЛНОЕ ЧТЕНИЕ СЕКТОРА КОМПАКТ-ДИСКА * |
||
28 | ;* Считываются данные пользователя, информация * |
||
29 | ;* субканала и контрольная информация * |
||
30 | ;* Входные параметры передаются через глобальные * |
||
31 | ;* перменные: * |
||
32 | ;* ChannelNumber - номер канала; * |
||
33 | ;* DiskNumber - номер диска на канале; * |
||
34 | ;* CDSectorAddress - адрес считываемого сектора. * |
||
35 | ;* Данные считывается в массив CDDataBuf. * |
||
36 | ;************************************************* |
||
37 | ReadCD: |
||
38 | pusha |
||
39 | ; Задать размер сектора |
||
40 | mov [CDBlockSize],2048 ;2352 |
||
41 | ; Очистить буфер пакетной команды |
||
42 | call clear_packet_buffer |
||
43 | ; Сформировать пакетную команду для считывания |
||
44 | ; сектора данных |
||
45 | ; Задать код команды Read CD |
||
46 | mov [PacketCommand],byte 0x28 ;0xBE |
||
47 | ; Задать адрес сектора |
||
48 | mov AX,word [CDSectorAddress+2] |
||
49 | xchg AL,AH |
||
50 | mov word [PacketCommand+2],AX |
||
51 | mov AX,word [CDSectorAddress] |
||
52 | xchg AL,AH |
||
53 | mov word [PacketCommand+4],AX |
||
54 | ; mov eax,[CDSectorAddress] |
||
55 | ; mov [PacketCommand+2],eax |
||
56 | ; Задать количество считываемых секторов |
||
57 | mov [PacketCommand+8],byte 1 |
||
58 | ; Задать считывание данных в полном объеме |
||
59 | ; mov [PacketCommand+9],byte 0xF8 |
||
60 | ; Подать команду |
||
61 | call SendPacketDatCommand |
||
62 | ; call test_mario79 |
||
63 | popa |
||
64 | ret |
||
65 | |||
66 | ;******************************************** |
||
67 | ;* ЧТЕНИЕ СЕКТОРА С ПОВТОРАМИ * |
||
68 | ;* Многократное повторение чтения при сбоях * |
||
69 | ;******************************************** |
||
70 | ReadCDWRetr: |
||
538 | spraid | 71 | pushad |
543 | spraid | 72 | |
87 | mario79 | 73 | ; Цикл, пока команда не выполнена успешно или не |
74 | ; исчерпано количество попыток |
||
75 | mov ECX,MaxRetr |
||
76 | @@NextRetr: |
||
77 | ; Подать команду |
||
78 | call ReadCD |
||
79 | cmp [DevErrorCode],0 |
||
80 | je @@End_4 |
||
543 | spraid | 81 | |
82 | or ecx,ecx ;{SPraid.simba} (for cd load) |
||
83 | jz @@End_4 |
||
84 | dec ecx |
||
85 | |||
538 | spraid | 86 | cmp [timer_ticks_enable],0 |
87 | jne @f |
||
88 | mov eax,NoTickWaitTime |
||
89 | .wait: |
||
90 | dec eax |
||
91 | cmp eax,0 |
||
92 | je @@NextRetr |
||
93 | jmp .wait |
||
94 | @@: |
||
87 | mario79 | 95 | ; Задержка на 2,5 секунды |
96 | mov EAX,[timer_ticks] |
||
97 | add EAX,250 ;50 |
||
98 | @@Wait: |
||
99 | call change_task |
||
100 | cmp EAX,[timer_ticks] |
||
101 | ja @@Wait |
||
102 | loop @@NextRetr |
||
103 | @@End_4: |
||
538 | spraid | 104 | popad |
87 | mario79 | 105 | ret |
106 | |||
107 | |||
108 | ; Универсальные процедуры, обеспечивающие выполнение |
||
109 | ; пакетных команд в режиме PIO |
||
110 | ; |
||
111 | ; Автор текста программы Кулаков Владимир Геннадьевич. |
||
112 | |||
113 | ; Максимально допустимое время ожидания реакции |
||
114 | ; устройства на пакетную команду (в тиках) |
||
115 | MaxCDWaitTime equ 1000 ;200 ;10 секунд |
||
116 | |||
117 | ; Область памяти для формирования пакетной команды |
||
118 | PacketCommand: rb 12 ;DB 12 DUP (?) |
||
119 | ; Область памяти для приема данных от дисковода |
||
120 | ;CDDataBuf DB 4096 DUP (0) |
||
121 | ; Размер принимаемого блока данных в байтах |
||
122 | CDBlockSize DW ? |
||
123 | ; Адрес считываемого сектора данных |
||
124 | CDSectorAddress: DD ? |
||
125 | ; Время начала очередной операции с диском |
||
126 | TickCounter_1 DD 0 |
||
127 | ; Время начала ожидания готовности устройства |
||
128 | WURStartTime DD 0 |
||
129 | ; указатель буфера для считывания |
||
130 | CDDataBuf_pointer dd 0 |
||
131 | |||
132 | ;**************************************************** |
||
133 | ;* ПОСЛАТЬ УСТРОЙСТВУ ATAPI ПАКЕТНУЮ КОМАНДУ, * |
||
134 | ;* ПРЕДУСМАТРИВАЮЩУЮ ПЕРЕДАЧУ ОДНОГО СЕКТОРА ДАННЫХ * |
||
135 | ;* РАЗМЕРОМ 2048 БАЙТ ОТ УСТРОЙСТВА К ХОСТУ * |
||
136 | ;* Входные параметры передаются через глобальные * |
||
137 | ;* перменные: * |
||
138 | ;* ChannelNumber - номер канала; * |
||
139 | ;* DiskNumber - номер диска на канале; * |
||
140 | ;* PacketCommand - 12-байтный командный пакет; * |
||
141 | ;* CDBlockSize - размер принимаемого блока данных. * |
||
142 | ;**************************************************** |
||
143 | SendPacketDatCommand: |
||
144 | pushad |
||
145 | ; Задать режим CHS |
||
146 | mov [ATAAddressMode],0 |
||
147 | ; Послать ATA-команду передачи пакетной команды |
||
148 | mov [ATAFeatures],0 |
||
149 | mov [ATASectorCount],0 |
||
150 | mov [ATASectorNumber],0 |
||
151 | ; Загрузить размер передаваемого блока |
||
152 | mov AX,[CDBlockSize] |
||
153 | mov [ATACylinder],AX |
||
154 | mov [ATAHead],0 |
||
155 | mov [ATACommand],0A0h |
||
156 | call SendCommandToHDD_1 |
||
157 | cmp [DevErrorCode],0 ;проверить код ошибки |
||
158 | jne @@End_8 ;закончить, сохранив код ошибки |
||
159 | |||
160 | ; Ожидание готовности дисковода к приему |
||
161 | ; пакетной команды |
||
162 | mov DX,[ATABasePortAddr] |
||
163 | add DX,7 ;порт 1х7h |
||
538 | spraid | 164 | mov ecx,NoTickWaitTime |
87 | mario79 | 165 | @@WaitDevice0: |
538 | spraid | 166 | cmp [timer_ticks_enable],0 |
167 | jne @f |
||
168 | dec ecx |
||
169 | cmp ecx,0 |
||
170 | je @@Err1_1 |
||
171 | jmp .test |
||
172 | @@: |
||
87 | mario79 | 173 | call change_task |
174 | ; Проверить время выполнения команды |
||
175 | mov EAX,[timer_ticks] |
||
176 | sub EAX,[TickCounter_1] |
||
177 | cmp EAX,BSYWaitTime |
||
178 | ja @@Err1_1 ;ошибка тайм-аута |
||
179 | ; Проверить готовность |
||
538 | spraid | 180 | .test: |
87 | mario79 | 181 | in AL,DX |
182 | test AL,80h ;состояние сигнала BSY |
||
183 | jnz @@WaitDevice0 |
||
538 | spraid | 184 | test AL,08h ;состояние сигнала DRQ |
185 | jz @@WaitDevice0 |
||
87 | mario79 | 186 | test AL,1 ;состояние сигнала ERR |
187 | jnz @@Err6 |
||
188 | ; Послать пакетную команду |
||
189 | cli |
||
190 | mov DX,[ATABasePortAddr] |
||
191 | mov AX,[PacketCommand] |
||
192 | out DX,AX |
||
193 | mov AX,[PacketCommand+2] |
||
194 | out DX,AX |
||
195 | mov AX,[PacketCommand+4] |
||
196 | out DX,AX |
||
197 | mov AX,[PacketCommand+6] |
||
198 | out DX,AX |
||
199 | mov AX,[PacketCommand+8] |
||
200 | out DX,AX |
||
201 | mov AX,[PacketCommand+10] |
||
202 | out DX,AX |
||
203 | sti |
||
204 | ; Ожидание готовности данных |
||
205 | mov DX,[ATABasePortAddr] |
||
206 | add DX,7 ;порт 1х7h |
||
538 | spraid | 207 | mov ecx,NoTickWaitTime |
87 | mario79 | 208 | @@WaitDevice1: |
538 | spraid | 209 | cmp [timer_ticks_enable],0 |
210 | jne @f |
||
211 | dec ecx |
||
212 | cmp ecx,0 |
||
213 | je @@Err1_1 |
||
214 | jmp .test_1 |
||
215 | @@: |
||
87 | mario79 | 216 | call change_task |
217 | ; Проверить время выполнения команды |
||
218 | mov EAX,[timer_ticks] |
||
219 | sub EAX,[TickCounter_1] |
||
220 | cmp EAX,MaxCDWaitTime |
||
221 | ja @@Err1_1 ;ошибка тайм-аута |
||
222 | ; Проверить готовность |
||
538 | spraid | 223 | .test_1: |
87 | mario79 | 224 | in AL,DX |
225 | test AL,80h ;состояние сигнала BSY |
||
226 | jnz @@WaitDevice1 |
||
538 | spraid | 227 | test AL,08h ;состояние сигнала DRQ |
228 | jz @@WaitDevice1 |
||
87 | mario79 | 229 | test AL,1 ;состояние сигнала ERR |
230 | jnz @@Err6_temp |
||
231 | ; Принять блок данных от контроллера |
||
232 | mov EDI,[CDDataBuf_pointer] ;0x7000 ;CDDataBuf |
||
233 | ; Загрузить адрес регистра данных контроллера |
||
234 | mov DX,[ATABasePortAddr] ;порт 1x0h |
||
235 | ; Загрузить в счетчик размер блока в байтах |
||
538 | spraid | 236 | xor ecx,ecx |
87 | mario79 | 237 | mov CX,[CDBlockSize] |
238 | ; Вычислить размер блока в 16-разрядных словах |
||
239 | shr CX,1 ;разделить размер блока на 2 |
||
240 | ; Принять блок данных |
||
538 | spraid | 241 | cli |
87 | mario79 | 242 | cld |
243 | rep insw |
||
244 | sti |
||
245 | ; Успешное завершение приема данных |
||
246 | jmp @@End_8 |
||
247 | |||
248 | ; Записать код ошибки |
||
249 | @@Err1_1: |
||
250 | mov [DevErrorCode],1 |
||
251 | jmp @@End_8 |
||
252 | @@Err6_temp: |
||
253 | mov [DevErrorCode],7 |
||
254 | jmp @@End_8 |
||
255 | @@Err6: |
||
256 | mov [DevErrorCode],6 |
||
257 | |||
258 | @@End_8: |
||
259 | popad |
||
260 | ret |
||
261 | |||
262 | |||
263 | |||
264 | ;*********************************************** |
||
265 | ;* ПОСЛАТЬ УСТРОЙСТВУ ATAPI ПАКЕТНУЮ КОМАНДУ, * |
||
266 | ;* НЕ ПРЕДУСМАТРИВАЮЩУЮ ПЕРЕДАЧИ ДАННЫХ * |
||
267 | ;* Входные параметры передаются через * |
||
268 | ;* глобальные перменные: * |
||
269 | ;* ChannelNumber - номер канала; * |
||
270 | ;* DiskNumber - номер диска на канале; * |
||
271 | ;* PacketCommand - 12-байтный командный пакет. * |
||
272 | ;*********************************************** |
||
273 | SendPacketNoDatCommand: |
||
274 | pushad |
||
275 | ; Задать режим CHS |
||
276 | mov [ATAAddressMode],0 |
||
277 | ; Послать ATA-команду передачи пакетной команды |
||
278 | mov [ATAFeatures],0 |
||
279 | mov [ATASectorCount],0 |
||
280 | mov [ATASectorNumber],0 |
||
281 | mov [ATACylinder],0 |
||
282 | mov [ATAHead],0 |
||
283 | mov [ATACommand],0A0h |
||
284 | call SendCommandToHDD_1 |
||
285 | cmp [DevErrorCode],0 ;проверить код ошибки |
||
286 | jne @@End_9 ;закончить, сохранив код ошибки |
||
287 | ; Ожидание готовности дисковода к приему |
||
288 | ; пакетной команды |
||
289 | mov DX,[ATABasePortAddr] |
||
290 | add DX,7 ;порт 1х7h |
||
291 | @@WaitDevice0_1: |
||
292 | call change_task |
||
293 | ; Проверить время ожидания |
||
294 | mov EAX,[timer_ticks] |
||
295 | sub EAX,[TickCounter_1] |
||
296 | cmp EAX,BSYWaitTime |
||
297 | ja @@Err1_3 ;ошибка тайм-аута |
||
298 | ; Проверить готовность |
||
299 | in AL,DX |
||
300 | test AL,80h ;состояние сигнала BSY |
||
301 | jnz @@WaitDevice0_1 |
||
302 | test AL,1 ;состояние сигнала ERR |
||
303 | jnz @@Err6_1 |
||
304 | test AL,08h ;состояние сигнала DRQ |
||
305 | jz @@WaitDevice0_1 |
||
306 | ; Послать пакетную команду |
||
307 | ; cli |
||
308 | mov DX,[ATABasePortAddr] |
||
309 | mov AX,word [PacketCommand] |
||
310 | out DX,AX |
||
311 | mov AX,word [PacketCommand+2] |
||
312 | out DX,AX |
||
313 | mov AX,word [PacketCommand+4] |
||
314 | out DX,AX |
||
315 | mov AX,word [PacketCommand+6] |
||
316 | out DX,AX |
||
317 | mov AX,word [PacketCommand+8] |
||
318 | out DX,AX |
||
319 | mov AX,word [PacketCommand+10] |
||
320 | out DX,AX |
||
321 | ; sti |
||
322 | ; Ожидание подтверждения приема команды |
||
323 | mov DX,[ATABasePortAddr] |
||
324 | add DX,7 ;порт 1х7h |
||
325 | @@WaitDevice1_1: |
||
326 | call change_task |
||
327 | ; Проверить время выполнения команды |
||
328 | mov EAX,[timer_ticks] |
||
329 | sub EAX,[TickCounter_1] |
||
330 | cmp EAX,MaxCDWaitTime |
||
331 | ja @@Err1_3 ;ошибка тайм-аута |
||
332 | ; Ожидать освобождения устройства |
||
333 | in AL,DX |
||
334 | test AL,80h ;состояние сигнала BSY |
||
335 | jnz @@WaitDevice1_1 |
||
336 | test AL,1 ;состояние сигнала ERR |
||
337 | jnz @@Err6_1 |
||
338 | test AL,40h ;состояние сигнала DRDY |
||
339 | jz @@WaitDevice1_1 |
||
340 | jmp @@End_9 |
||
341 | |||
342 | ; Записать код ошибки |
||
343 | @@Err1_3: |
||
344 | mov [DevErrorCode],1 |
||
345 | jmp @@End_9 |
||
346 | @@Err6_1: |
||
347 | mov [DevErrorCode],6 |
||
348 | @@End_9: |
||
349 | popad |
||
350 | ret |
||
351 | |||
352 | ;**************************************************** |
||
353 | ;* ПОСЛАТЬ КОМАНДУ ЗАДАННОМУ ДИСКУ * |
||
354 | ;* Входные параметры передаются через глобальные * |
||
355 | ;* переменные: * |
||
356 | ;* ChannelNumber - номер канала (1 или 2); * |
||
357 | ;* DiskNumber - номер диска (0 или 1); * |
||
358 | ;* ATAFeatures - "особенности"; * |
||
359 | ;* ATASectorCount - количество секторов; * |
||
360 | ;* ATASectorNumber - номер начального сектора; * |
||
361 | ;* ATACylinder - номер начального цилиндра; * |
||
362 | ;* ATAHead - номер начальной головки; * |
||
363 | ;* ATAAddressMode - режим адресации (0-CHS, 1-LBA); * |
||
364 | ;* ATACommand - код команды. * |
||
365 | ;* После успешного выполнения функции: * |
||
366 | ;* в ATABasePortAddr - базовый адрес HDD; * |
||
367 | ;* в DevErrorCode - ноль. * |
||
368 | ;* При возникновении ошибки в DevErrorCode будет * |
||
369 | ;* возвращен код ошибки. * |
||
370 | ;**************************************************** |
||
371 | SendCommandToHDD_1: |
||
372 | pushad |
||
373 | ; Проверить значение кода режима |
||
374 | cmp [ATAAddressMode],1 |
||
375 | ja @@Err2_4 |
||
376 | ; Проверить корректность номера канала |
||
377 | mov BX,[ChannelNumber] |
||
378 | cmp BX,1 |
||
379 | jb @@Err3_4 |
||
380 | cmp BX,2 |
||
381 | ja @@Err3_4 |
||
382 | ; Установить базовый адрес |
||
383 | dec BX |
||
384 | shl BX,1 |
||
385 | movzx ebx,bx |
||
386 | mov AX,[ebx+StandardATABases] |
||
387 | mov [ATABasePortAddr],AX |
||
388 | ; Ожидание готовности HDD к приему команды |
||
389 | ; Выбрать нужный диск |
||
390 | mov DX,[ATABasePortAddr] |
||
391 | add DX,6 ;адрес регистра головок |
||
392 | mov AL,[DiskNumber] |
||
393 | cmp AL,1 ;проверить номера диска |
||
394 | ja @@Err4_4 |
||
395 | shl AL,4 |
||
396 | or AL,10100000b |
||
397 | out DX,AL |
||
398 | ; Ожидать, пока диск не будет готов |
||
399 | inc DX |
||
400 | mov eax,[timer_ticks] |
||
401 | mov [TickCounter_1],eax |
||
538 | spraid | 402 | mov ecx,NoTickWaitTime |
87 | mario79 | 403 | @@WaitHDReady_2: |
538 | spraid | 404 | cmp [timer_ticks_enable],0 |
405 | jne @f |
||
406 | dec ecx |
||
407 | cmp ecx,0 |
||
408 | je @@Err1_4 |
||
409 | jmp .test |
||
410 | @@: |
||
87 | mario79 | 411 | call change_task |
412 | ; Проверить время ожидания |
||
413 | mov eax,[timer_ticks] |
||
414 | sub eax,[TickCounter_1] |
||
415 | cmp eax,BSYWaitTime ;300 ;ожидать 3 сек. |
||
416 | ja @@Err1_4 ;ошибка тайм-аута |
||
417 | ; Прочитать регистр состояния |
||
538 | spraid | 418 | .test: |
87 | mario79 | 419 | in AL,DX |
420 | ; Проверить состояние сигнала BSY |
||
421 | test AL,80h |
||
422 | jnz @@WaitHDReady_2 |
||
423 | ; Проверить состояние сигнала DRQ |
||
424 | test AL,08h |
||
425 | jnz @@WaitHDReady_2 |
||
538 | spraid | 426 | |
87 | mario79 | 427 | ; Загрузить команду в регистры контроллера |
428 | cli |
||
429 | mov DX,[ATABasePortAddr] |
||
430 | inc DX ;регистр "особенностей" |
||
431 | mov AL,[ATAFeatures] |
||
432 | out DX,AL |
||
433 | inc DX ;счетчик секторов |
||
434 | mov AL,[ATASectorCount] |
||
435 | out DX,AL |
||
436 | inc DX ;регистр номера сектора |
||
437 | mov AL,[ATASectorNumber] |
||
438 | out DX,AL |
||
439 | inc DX ;номер цилиндра (младший байт) |
||
440 | mov AX,[ATACylinder] |
||
441 | out DX,AL |
||
442 | inc DX ;номер цилиндра (старший байт) |
||
443 | mov AL,AH |
||
444 | out DX,AL |
||
445 | inc DX ;номер головки/номер диска |
||
446 | mov AL,[DiskNumber] |
||
447 | shl AL,4 |
||
448 | cmp [ATAHead],0Fh ;проверить номер головки |
||
449 | ja @@Err5_4 |
||
450 | or AL,[ATAHead] |
||
451 | or AL,10100000b |
||
452 | mov AH,[ATAAddressMode] |
||
453 | shl AH,6 |
||
454 | or AL,AH |
||
455 | out DX,AL |
||
456 | ; Послать команду |
||
457 | mov AL,[ATACommand] |
||
458 | inc DX ;регистр команд |
||
459 | out DX,AL |
||
460 | sti |
||
461 | ; Сбросить признак ошибки |
||
462 | mov [DevErrorCode],0 |
||
463 | jmp @@End_10 |
||
464 | ; Записать код ошибки |
||
465 | @@Err1_4: |
||
466 | mov [DevErrorCode],1 |
||
467 | jmp @@End_10 |
||
468 | @@Err2_4: |
||
469 | mov [DevErrorCode],2 |
||
470 | jmp @@End_10 |
||
471 | @@Err3_4: |
||
472 | mov [DevErrorCode],3 |
||
473 | jmp @@End_10 |
||
474 | @@Err4_4: |
||
475 | mov [DevErrorCode],4 |
||
476 | jmp @@End_10 |
||
477 | @@Err5_4: |
||
478 | mov [DevErrorCode],5 |
||
479 | ; Завершение работы программы |
||
480 | @@End_10: |
||
538 | spraid | 481 | ; sti |
87 | mario79 | 482 | popad |
483 | ret |
||
484 | |||
485 | ;************************************************* |
||
486 | ;* ОЖИДАНИЕ ГОТОВНОСТИ УСТРОЙСТВА К РАБОТЕ * |
||
487 | ;* Входные параметры передаются через глобальные * |
||
488 | ;* перменные: * |
||
489 | ;* ChannelNumber - номер канала; * |
||
490 | ;* DiskNumber - номер диска на канале. * |
||
491 | ;************************************************* |
||
492 | WaitUnitReady: |
||
493 | pusha |
||
494 | ; Запомнить время начала операции |
||
495 | mov EAX,[timer_ticks] |
||
496 | mov [WURStartTime],EAX |
||
497 | ; Очистить буфер пакетной команды |
||
498 | call clear_packet_buffer |
||
499 | ; Сформировать команду TEST UNIT READY |
||
500 | mov [PacketCommand],word 00h |
||
501 | ; ЦИКЛ ОЖИДАНИЯ ГОТОВНОСТИ УСТРОЙСТВА |
||
502 | @@SendCommand: |
||
503 | ; Подать команду проверки готовности |
||
504 | call SendPacketNoDatCommand |
||
505 | call change_task |
||
506 | ; Проверить код ошибки |
||
507 | cmp [DevErrorCode],0 |
||
508 | je @@End_11 |
||
509 | ; Проверить время ожидания готовности |
||
510 | mov EAX,[timer_ticks] |
||
511 | sub EAX,[WURStartTime] |
||
512 | cmp EAX,MaxCDWaitTime |
||
513 | jb @@SendCommand |
||
514 | ; Ошибка тайм-аута |
||
515 | mov [DevErrorCode],1 |
||
516 | @@End_11: |
||
517 | popa |
||
518 | ret |
||
519 | |||
520 | |||
521 | ;************************************************* |
||
522 | ;* ЗАГРУЗИТЬ НОСИТЕЛЬ В ДИСКОВОД * |
||
523 | ;* Входные параметры передаются через глобальные * |
||
524 | ;* перменные: * |
||
525 | ;* ChannelNumber - номер канала; * |
||
526 | ;* DiskNumber - номер диска на канале. * |
||
527 | ;************************************************* |
||
528 | LoadMedium: |
||
529 | pusha |
||
530 | ; Очистить буфер пакетной команды |
||
531 | call clear_packet_buffer |
||
532 | ; Сформировать команду START/STOP UNIT |
||
533 | ; Задать код команды |
||
534 | mov [PacketCommand],word 1Bh |
||
535 | ; Задать операцию загрузки носителя |
||
536 | mov [PacketCommand+4],word 00000011b |
||
537 | ; Подать команду |
||
538 | call SendPacketNoDatCommand |
||
539 | popa |
||
540 | ret |
||
541 | |||
542 | ;************************************************* |
||
543 | ;* ИЗВЛЕЧЬ НОСИТЕЛЬ ИЗ ДИСКОВОДА * |
||
544 | ;* Входные параметры передаются через глобальные * |
||
545 | ;* перменные: * |
||
546 | ;* ChannelNumber - номер канала; * |
||
547 | ;* DiskNumber - номер диска на канале. * |
||
548 | ;************************************************* |
||
549 | UnloadMedium: |
||
550 | pusha |
||
551 | ; Очистить буфер пакетной команды |
||
552 | call clear_packet_buffer |
||
553 | ; Сформировать команду START/STOP UNIT |
||
554 | ; Задать код команды |
||
555 | mov [PacketCommand],word 1Bh |
||
556 | ; Задать операцию извлечения носителя |
||
557 | mov [PacketCommand+4],word 00000010b |
||
558 | ; Подать команду |
||
559 | call SendPacketNoDatCommand |
||
560 | popa |
||
561 | ret |
||
562 | |||
563 | ;************************************************* |
||
564 | ;* ОПРЕДЕЛИТЬ ОБЩЕЕ КОЛИЧЕСТВО СЕКТОРОВ НА ДИСКЕ * |
||
565 | ;* Входные параметры передаются через глобальные * |
||
566 | ;* переменные: * |
||
567 | ;* ChannelNumber - номер канала; * |
||
568 | ;* DiskNumber - номер диска на канале. * |
||
569 | ;************************************************* |
||
570 | ReadCapacity: |
||
571 | pusha |
||
572 | ; Очистить буфер пакетной команды |
||
573 | call clear_packet_buffer |
||
574 | ; Задать размер буфера в байтах |
||
575 | mov [CDBlockSize],8 |
||
576 | ; Сформировать команду READ CAPACITY |
||
577 | mov [PacketCommand],word 25h |
||
578 | ; Подать команду |
||
579 | call SendPacketDatCommand |
||
580 | popa |
||
581 | ret |
||
582 | |||
583 | clear_packet_buffer: |
||
584 | ; Очистить буфер пакетной команды |
||
585 | mov [PacketCommand],dword 0 |
||
586 | mov [PacketCommand+4],dword 0 |
||
587 | mov [PacketCommand+8],dword 0 |
||
588 | ret |
||
589 |