Subversion Repositories Kolibri OS

Rev

Rev 2455 | Rev 3539 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2288 clevermous 1 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2 
;;                                                              ;;
2455 mario79 3 
;; Copyright (C) KolibriOS team 2004-2011. All rights reserved. ;;
2288 clevermous 4 
;; Distributed under terms of the GNU General Public License    ;;
5 
;;                                                              ;;
6 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
7 
 
8 
$Revision: 3534 $
9 
 
10 
 
11 
;**********************************************************
12 
;  Непосредственная работа с устройством СD (ATAPI)
13 
;**********************************************************
14 
; Автор части исходного текста Кулаков Владимир Геннадьевич
15 
; Адаптация, доработка и разработка Mario79,
16 
 
17 
; Максимальное количество повторений операции чтения
18 
MaxRetr equ 10
19 
; Предельное время ожидания готовности к приему команды
20 
; (в тиках)
21 
BSYWaitTime equ 1000  ;2
22 
NoTickWaitTime equ 0xfffff
23 
CDBlockSize equ 2048
24 
;********************************************
25 
;*        ЧТЕНИЕ СЕКТОРА С ПОВТОРАМИ        *
26 
;* Многократное повторение чтения при сбоях *
27 
;********************************************
28 
ReadCDWRetr:
29 
;-----------------------------------------------------------
30 
; input  : eax = block to read
31 
;          ebx = destination
32 
;-----------------------------------------------------------
33 
        pushad
34 
        mov     eax, [CDSectorAddress]
35 
        mov     ebx, [CDDataBuf_pointer]
36 
        call    cd_calculate_cache
37 
        xor     edi, edi
38 
        add     esi, 8
39 
        inc     edi
40 
.hdreadcache:
41 
;    cmp   dword [esi+4],0       ; empty
42 
;    je    .nohdcache
43 
        cmp     [esi], eax      ; correct sector
44 
        je      .yeshdcache
45 
.nohdcache:
46 
        add     esi, 8
47 
        inc     edi
48 
        dec     ecx
49 
        jnz     .hdreadcache
50 
        call    find_empty_slot_CD_cache ; ret in edi
51 
 
52 
        push    edi
53 
        push    eax
54 
        call    cd_calculate_cache_2
55 
        shl     edi, 11
56 
        add     edi, eax
57 
        mov     [CDDataBuf_pointer], edi
58 
        pop     eax
59 
        pop     edi
60 
 
61 
        call    ReadCDWRetr_1
62 
        cmp     [DevErrorCode], 0
63 
        jne     .exit
64 
 
65 
        mov     [CDDataBuf_pointer], ebx
66 
        call    cd_calculate_cache_1
67 
        lea     esi, [edi*8+esi]
68 
        mov     [esi], eax      ; sector number
69 
;    mov   dword [esi+4],1       ; hd read - mark as same as in hd
70 
.yeshdcache:
71 
        mov     esi, edi
72 
        shl     esi, 11;9
73 
        push    eax
74 
        call    cd_calculate_cache_2
75 
        add     esi, eax
76 
        pop     eax
77 
        mov     edi, ebx;[CDDataBuf_pointer]
78 
        mov     ecx, 512;/4
79 
        cld
80 
        rep movsd               ; move data
81 
.exit:
82 
        popad
83 
        ret
84 
 
85 
ReadCDWRetr_1:
86 
        pushad
87 
 
88 
; Цикл, пока команда не выполнена успешно или не
89 
; исчерпано количество попыток
90 
        mov     ECX, MaxRetr
91 
@@NextRetr:
92 
; Подать команду
93 
;*************************************************
94 
;*      ПОЛНОЕ ЧТЕНИЕ СЕКТОРА КОМПАКТ-ДИСКА      *
95 
;* Считываются данные пользователя, информация   *
96 
;* субканала и контрольная информация            *
97 
;* Входные параметры передаются через глобальные *
98 
;* перменные:                                    *
99 
;* ChannelNumber - номер канала;                 *
100 
;* DiskNumber - номер диска на канале;           *
101 
;* CDSectorAddress - адрес считываемого сектора. *
102 
;* Данные считывается в массив CDDataBuf.        *
103 
;*************************************************
104 
;ReadCD:
105 
        push    ecx
106 
;        pusha
107 
; Задать размер сектора
108 
;        mov       [CDBlockSize],2048 ;2352
109 
; Очистить буфер пакетной команды
110 
        call    clear_packet_buffer
111 
; Сформировать пакетную команду для считывания
112 
; сектора данных
113 
; Задать код команды Read CD
114 
        mov     [PacketCommand], byte 0x28;0xBE
115 
; Задать адрес сектора
116 
        mov     AX, word [CDSectorAddress+2]
117 
        xchg    AL, AH
118 
        mov     word [PacketCommand+2], AX
119 
        mov     AX, word [CDSectorAddress]
120 
        xchg    AL, AH
121 
        mov     word [PacketCommand+4], AX
122 
;        mov   eax,[CDSectorAddress]
123 
;        mov   [PacketCommand+2],eax
124 
; Задать количество считываемых секторов
125 
        mov     [PacketCommand+8], byte 1
126 
; Задать считывание данных в полном объеме
127 
;        mov     [PacketCommand+9],byte 0xF8
128 
; Подать команду
129 
        call    SendPacketDatCommand
130 
        pop     ecx
131 
;        ret
132 
 
133 
;        cmp       [DevErrorCode],0
134 
        test    eax, eax
135 
        jz      @@End_4
136 
 
137 
        or      ecx, ecx        ;{SPraid.simba} (for cd load)
138 
        jz      @@End_4
139 
        dec     ecx
140 
 
141 
        cmp     [timer_ticks_enable], 0
142 
        jne     @f
143 
        mov     eax, NoTickWaitTime
144 
.wait:
145 
        dec     eax
146 
;        test  eax,eax
147 
        jz      @@NextRetr
148 
        jmp     .wait
149 
@@:
150 
; Задержка на 2,5 секунды
151 
;       mov     EAX,[timer_ticks]
152 
;       add     EAX,50  ;250
153 
;@@Wait:
154 
;       call    change_task
155 
;       cmp     EAX,[timer_ticks]
156 
;       ja      @@Wait
157 
        loop    @@NextRetr
158 
@@End_4:
159 
        mov     dword [DevErrorCode], eax
160 
        popad
161 
        ret
162 
 
163 
 
164 
; Универсальные процедуры, обеспечивающие выполнение
165 
;             пакетных команд в режиме PIO
166 
 
167 
; Максимально допустимое время ожидания реакции
168 
; устройства на пакетную команду (в тиках)
169 
 
170 
MaxCDWaitTime equ 1000 ;200 ;10 секунд
171 
uglobal
172 
; Область памяти для формирования пакетной команды
173 
PacketCommand:
174 
                 rb 12  ;DB 12 DUP (?)
175 
; Область памяти для приема данных от дисковода
176 
;CDDataBuf       DB 4096 DUP (0)
177 
; Размер принимаемого блока данных в байтах
178 
;CDBlockSize     DW ?
179 
; Адрес считываемого сектора данных
180 
CDSectorAddress:
181 
                 DD ?
182 
; Время начала очередной операции с диском
183 
TickCounter_1 DD 0
184 
; Время начала ожидания готовности устройства
185 
WURStartTime DD 0
186 
; указатель буфера для считывания
187 
CDDataBuf_pointer dd 0
188 
endg
189 
;****************************************************
190 
;*    ПОСЛАТЬ УСТРОЙСТВУ ATAPI ПАКЕТНУЮ КОМАНДУ,    *
191 
;* ПРЕДУСМАТРИВАЮЩУЮ ПЕРЕДАЧУ ОДНОГО СЕКТОРА ДАННЫХ *
192 
;*     РАЗМЕРОМ 2048 БАЙТ ОТ УСТРОЙСТВА К ХОСТУ     *
193 
;* Входные параметры передаются через глобальные    *
194 
;* перменные:                                       *
195 
;* ChannelNumber - номер канала;                    *
196 
;* DiskNumber - номер диска на канале;              *
197 
;* PacketCommand - 12-байтный командный пакет;      *
198 
;* CDBlockSize - размер принимаемого блока данных.  *
199 
; return eax DevErrorCode
200 
;****************************************************
201 
SendPacketDatCommand:
202 
        xor     eax, eax
203 
;        mov    byte [DevErrorCode],al
204 
; Задать режим CHS
205 
        mov     byte [ATAAddressMode], al
206 
; Послать ATA-команду передачи пакетной команды
207 
        mov     byte [ATAFeatures], al
208 
        mov     byte [ATASectorCount], al
209 
        mov     byte [ATASectorNumber], al
210 
        ; Загрузить размер передаваемого блока
211 
        mov     [ATAHead], al
212 
;        mov     AX,[CDBlockSize]
213 
        mov     [ATACylinder], CDBlockSize
214 
        mov     [ATACommand], 0A0h
215 
        call    SendCommandToHDD_1
216 
        test    eax, eax
217 
;        cmp     [DevErrorCode],0 ;проверить код ошибки
218 
        jnz     @@End_8    ;закончить, сохранив код ошибки
219 
 
220 
; Ожидание готовности дисковода к приему
221 
; пакетной команды
222 
        mov     DX, [ATABasePortAddr]
223 
        add     DX, 7    ;порт 1х7h
224 
        mov     ecx, NoTickWaitTime
225 
@@WaitDevice0:
226 
        cmp     [timer_ticks_enable], 0
227 
        jne     @f
228 
        dec     ecx
229 
;        test    ecx,ecx
230 
        jz      @@Err1_1
231 
        jmp     .test
232 
@@:
233 
        call    change_task
234 
        ; Проверить время выполнения команды
235 
        mov     EAX, [timer_ticks]
236 
        sub     EAX, [TickCounter_1]
237 
        cmp     EAX, BSYWaitTime
238 
        ja      @@Err1_1   ;ошибка тайм-аута
239 
        ; Проверить готовность
240 
.test:
241 
        in      AL, DX
242 
        test    AL, 80h  ;состояние сигнала BSY
243 
        jnz     @@WaitDevice0
244 
        test    AL, 1    ;состояние сигнала ERR
245 
        jnz     @@Err6
246 
        test    AL, 08h  ;состояние сигнала DRQ
247 
        jz      @@WaitDevice0
248 
; Послать пакетную команду
249 
        cli
250 
        mov     DX, [ATABasePortAddr]
251 
        mov     AX, [PacketCommand]
252 
        out     DX, AX
253 
        mov     AX, [PacketCommand+2]
254 
        out     DX, AX
255 
        mov     AX, [PacketCommand+4]
256 
        out     DX, AX
257 
        mov     AX, [PacketCommand+6]
258 
        out     DX, AX
259 
        mov     AX, [PacketCommand+8]
260 
        out     DX, AX
261 
        mov     AX, [PacketCommand+10]
262 
        out     DX, AX
263 
        sti
264 
; Ожидание готовности данных
265 
        mov     DX, [ATABasePortAddr]
266 
        add     DX, 7  ;порт 1х7h
267 
        mov     ecx, NoTickWaitTime
268 
@@WaitDevice1:
269 
        cmp     [timer_ticks_enable], 0
270 
        jne     @f
271 
        dec     ecx
272 
;        test    ecx,ecx
273 
        jz      @@Err1_1
274 
        jmp     .test_1
275 
@@:
276 
        call    change_task
277 
        ; Проверить время выполнения команды
278 
        mov     EAX, [timer_ticks]
279 
        sub     EAX, [TickCounter_1]
280 
        cmp     EAX, MaxCDWaitTime
281 
        ja      @@Err1_1   ;ошибка тайм-аута
282 
        ; Проверить готовность
283 
.test_1:
284 
        in      AL, DX
285 
        test    AL, 80h  ;состояние сигнала BSY
286 
        jnz     @@WaitDevice1
287 
        test    AL, 1    ;состояние сигнала ERR
288 
        jnz     @@Err6_temp
289 
        test    AL, 08h  ;состояние сигнала DRQ
290 
        jz      @@WaitDevice1
291 
; Принять блок данных от контроллера
292 
        mov     EDI, [CDDataBuf_pointer];0x7000  ;CDDataBuf
293 
        ; Загрузить адрес регистра данных контроллера
294 
        mov     DX, [ATABasePortAddr];порт 1x0h
295 
        ; Загрузить в счетчик размер блока в байтах
296 
        xor     ecx, ecx
297 
        mov     CX, CDBlockSize
298 
        ; Вычислить размер блока в 16-разрядных словах
299 
        shr     CX, 1;разделить размер блока на 2
300 
        ; Принять блок данных
301 
        cli
302 
        cld
303 
        rep insw
304 
        sti
305 
; Успешное завершение приема данных
306 
@@End_8:
307 
        xor     eax, eax
308 
        ret
309 
 
310 
; Записать код ошибки
311 
@@Err1_1:
312 
        xor     eax, eax
313 
        inc     eax
314 
        ret
315 
;        mov     [DevErrorCode],1
316 
;       ret
317 
@@Err6_temp:
318 
        mov     eax, 7
319 
        ret
320 
;        mov     [DevErrorCode],7
321 
;       ret
322 
@@Err6:
323 
        mov     eax, 6
324 
        ret
325 
;        mov     [DevErrorCode],6
326 
;@@End_8:
327 
;        ret
328 
 
329 
 
330 
 
331 
;***********************************************
332 
;*  ПОСЛАТЬ УСТРОЙСТВУ ATAPI ПАКЕТНУЮ КОМАНДУ, *
333 
;*     НЕ ПРЕДУСМАТРИВАЮЩУЮ ПЕРЕДАЧИ ДАННЫХ    *
334 
;* Входные параметры передаются через          *
335 
;* глобальные перменные:                       *
336 
;* ChannelNumber - номер канала;               *
337 
;* DiskNumber - номер диска на канале;         *
338 
;* PacketCommand - 12-байтный командный пакет. *
339 
;***********************************************
340 
SendPacketNoDatCommand:
341 
        pushad
342 
        xor     eax, eax
343 
;        mov     byte [DevErrorCode],al
344 
; Задать режим CHS
345 
        mov     byte [ATAAddressMode], al
346 
; Послать ATA-команду передачи пакетной команды
347 
        mov     byte [ATAFeatures], al
348 
        mov     byte [ATASectorCount], al
349 
        mov     byte [ATASectorNumber], al
350 
        mov     word [ATACylinder], ax
351 
        mov     byte [ATAHead], al
352 
        mov     [ATACommand], 0A0h
353 
        call    SendCommandToHDD_1
354 
;        cmp     [DevErrorCode],0 ;проверить код ошибки
355 
        test    eax, eax
356 
        jnz     @@End_9  ;закончить, сохранив код ошибки
357 
; Ожидание готовности дисковода к приему
358 
; пакетной команды
359 
        mov     DX, [ATABasePortAddr]
360 
        add     DX, 7  ;порт 1х7h
361 
@@WaitDevice0_1:
362 
        call    change_task
363 
        ; Проверить время ожидания
364 
        mov     EAX, [timer_ticks]
365 
        sub     EAX, [TickCounter_1]
366 
        cmp     EAX, BSYWaitTime
367 
        ja      @@Err1_3   ;ошибка тайм-аута
368 
        ; Проверить готовность
369 
        in      AL, DX
370 
        test    AL, 80h  ;состояние сигнала BSY
371 
        jnz     @@WaitDevice0_1
372 
        test    AL, 1    ;состояние сигнала ERR
373 
        jnz     @@Err6_1
374 
        test    AL, 08h  ;состояние сигнала DRQ
375 
        jz      @@WaitDevice0_1
376 
; Послать пакетную команду
377 
;        cli
378 
        mov     DX, [ATABasePortAddr]
379 
        mov     AX, word [PacketCommand]
380 
        out     DX, AX
381 
        mov     AX, word [PacketCommand+2]
382 
        out     DX, AX
383 
        mov     AX, word [PacketCommand+4]
384 
        out     DX, AX
385 
        mov     AX, word [PacketCommand+6]
386 
        out     DX, AX
387 
        mov     AX, word [PacketCommand+8]
388 
        out     DX, AX
389 
        mov     AX, word [PacketCommand+10]
390 
        out     DX, AX
391 
;        sti
392 
        cmp     [ignore_CD_eject_wait], 1
393 
        je      @@clear_DEC
394 
; Ожидание подтверждения приема команды
395 
        mov     DX, [ATABasePortAddr]
396 
        add     DX, 7  ;порт 1х7h
397 
@@WaitDevice1_1:
398 
        call    change_task
399 
        ; Проверить время выполнения команды
400 
        mov     EAX, [timer_ticks]
401 
        sub     EAX, [TickCounter_1]
402 
        cmp     EAX, MaxCDWaitTime
403 
        ja      @@Err1_3   ;ошибка тайм-аута
404 
        ; Ожидать освобождения устройства
405 
        in      AL, DX
406 
        test    AL, 80h  ;состояние сигнала BSY
407 
        jnz     @@WaitDevice1_1
408 
        test    AL, 1    ;состояние сигнала ERR
409 
        jnz     @@Err6_1
410 
        test    AL, 40h  ;состояние сигнала DRDY
411 
        jz      @@WaitDevice1_1
412 
@@clear_DEC:
413 
        and     [DevErrorCode], 0
414 
        popad
415 
        ret
416 
; Записать код ошибки
417 
@@Err1_3:
418 
        xor     eax, eax
419 
        inc     eax
420 
        jmp     @@End_9
421 
@@Err6_1:
422 
        mov     eax, 6
423 
@@End_9:
424 
        mov     [DevErrorCode], eax
425 
        popad
426 
        ret
427 
 
428 
;****************************************************
429 
;*          ПОСЛАТЬ КОМАНДУ ЗАДАННОМУ ДИСКУ         *
430 
;* Входные параметры передаются через глобальные    *
431 
;* переменные:                                      *
432 
;* ChannelNumber - номер канала (1 или 2);          *
433 
;* DiskNumber - номер диска (0 или 1);              *
434 
;* ATAFeatures - "особенности";                     *
435 
;* ATASectorCount - количество секторов;            *
436 
;* ATASectorNumber - номер начального сектора;      *
437 
;* ATACylinder - номер начального цилиндра;         *
438 
;* ATAHead - номер начальной головки;               *
439 
;* ATAAddressMode - режим адресации (0-CHS, 1-LBA); *
440 
;* ATACommand - код команды.                        *
441 
;* После успешного выполнения функции:              *
442 
;* в ATABasePortAddr - базовый адрес HDD;           *
443 
;* в DevErrorCode - ноль.                           *
444 
;* При возникновении ошибки в DevErrorCode будет    *
445 
;* возвращен код ошибки в eax                       *
446 
;****************************************************
447 
SendCommandToHDD_1:
448 
;        pushad
449 
;        mov    [DevErrorCode],0        not need
450 
; Проверить значение кода режима
451 
        cmp     [ATAAddressMode], 1
452 
        ja      @@Err2_4
453 
; Проверить корректность номера канала
454 
        mov     BX, [ChannelNumber]
455 
        cmp     BX, 1
456 
        jb      @@Err3_4
457 
        cmp     BX, 2
458 
        ja      @@Err3_4
459 
; Установить базовый адрес
460 
        dec     BX
461 
        shl     BX, 1
462 
        movzx   ebx, bx
463 
        mov     AX, [ebx+StandardATABases]
464 
        mov     [ATABasePortAddr], AX
465 
; Ожидание готовности HDD к приему команды
466 
        ; Выбрать нужный диск
467 
        mov     DX, [ATABasePortAddr]
468 
        add     DX, 6   ;адрес регистра головок
469 
        mov     AL, [DiskNumber]
470 
        cmp     AL, 1   ;проверить номера диска
471 
        ja      @@Err4_4
472 
        shl     AL, 4
473 
        or      AL, 10100000b
474 
        out     DX, AL
475 
        ; Ожидать, пока диск не будет готов
476 
        inc     DX
477 
        mov     eax, [timer_ticks]
478 
        mov     [TickCounter_1], eax
479 
        mov     ecx, NoTickWaitTime
480 
@@WaitHDReady_2:
481 
        cmp     [timer_ticks_enable], 0
482 
        jne     @f
483 
        dec     ecx
484 
;        test   ecx,ecx
485 
        jz      @@Err1_4
486 
        jmp     .test
487 
@@:
488 
        call    change_task
489 
        ; Проверить время ожидания
490 
        mov     eax, [timer_ticks]
491 
        sub     eax, [TickCounter_1]
492 
        cmp     eax, BSYWaitTime;300    ;ожидать 3 сек.
493 
        ja      @@Err1_4   ;ошибка тайм-аута
494 
        ; Прочитать регистр состояния
495 
.test:
496 
        in      AL, DX
497 
        ; Проверить состояние сигнала BSY
498 
        test    AL, 80h
499 
        jnz     @@WaitHDReady_2
500 
        ; Проверить состояние сигнала DRQ
501 
        test    AL, 08h
502 
        jnz     @@WaitHDReady_2
503 
 
504 
; Загрузить команду в регистры контроллера
505 
        cli
506 
        mov     DX, [ATABasePortAddr]
507 
        inc     DX      ;регистр "особенностей"
508 
        mov     AL, [ATAFeatures]
509 
        out     DX, AL
510 
        inc     DX      ;счетчик секторов
511 
        mov     AL, [ATASectorCount]
512 
        out     DX, AL
513 
        inc     DX      ;регистр номера сектора
514 
        mov     AL, [ATASectorNumber]
515 
        out     DX, AL
516 
        inc     DX      ;номер цилиндра (младший байт)
517 
        mov     AX, [ATACylinder]
518 
        out     DX, AL
519 
        inc     DX      ;номер цилиндра (старший байт)
520 
        mov     AL, AH
521 
        out     DX, AL
522 
        inc     DX      ;номер головки/номер диска
523 
        mov     AL, [DiskNumber]
524 
        shl     AL, 4
525 
        cmp     [ATAHead], 0Fh;проверить номер головки
526 
        ja      @@Err5_4
527 
        or      AL, [ATAHead]
528 
        or      AL, 10100000b
529 
        mov     AH, [ATAAddressMode]
530 
        shl     AH, 6
531 
        or      AL, AH
532 
        out     DX, AL
533 
; Послать команду
534 
        mov     AL, [ATACommand]
535 
        inc     DX      ;регистр команд
536 
        out     DX, AL
537 
        sti
538 
; Сбросить признак ошибки
539 
;        mov     [DevErrorCode],0
540 
@@End_10:
541 
        xor     eax, eax
542 
        ret
543 
; Записать код ошибки
544 
@@Err1_4:
545 
        xor     eax, eax
546 
        inc     eax
547 
;        mov     [DevErrorCode],1
548 
        ret
549 
@@Err2_4:
550 
        mov     eax, 2
551 
;        mov     [DevErrorCode],2
552 
        ret
553 
@@Err3_4:
554 
        mov     eax, 3
555 
;        mov     [DevErrorCode],3
556 
        ret
557 
@@Err4_4:
558 
        mov     eax, 4
559 
;        mov     [DevErrorCode],4
560 
        ret
561 
@@Err5_4:
562 
        mov     eax, 5
563 
;        mov     [DevErrorCode],5
564 
; Завершение работы программы
565 
        ret
566 
;        sti
567 
;        popad
568 
 
569 
;*************************************************
570 
;*    ОЖИДАНИЕ ГОТОВНОСТИ УСТРОЙСТВА К РАБОТЕ    *
571 
;* Входные параметры передаются через глобальные *
572 
;* перменные:                                    *
573 
;* ChannelNumber - номер канала;                 *
574 
;* DiskNumber - номер диска на канале.           *
575 
;*************************************************
576 
WaitUnitReady:
577 
        pusha
578 
; Запомнить время начала операции
579 
        mov     EAX, [timer_ticks]
580 
        mov     [WURStartTime], EAX
581 
; Очистить буфер пакетной команды
582 
        call    clear_packet_buffer
583 
; Сформировать команду TEST UNIT READY
584 
        mov     [PacketCommand], word 00h
585 
; ЦИКЛ ОЖИДАНИЯ ГОТОВНОСТИ УСТРОЙСТВА
586 
        mov     ecx, NoTickWaitTime
587 
@@SendCommand:
588 
        ; Подать команду проверки готовности
589 
        call    SendPacketNoDatCommand
590 
        cmp     [timer_ticks_enable], 0
591 
        jne     @f
592 
        cmp     [DevErrorCode], 0
593 
        je      @@End_11
594 
        dec     ecx
595 
;        cmp     ecx,0
596 
        jz      .Error
597 
        jmp     @@SendCommand
598 
@@:
599 
        call    change_task
600 
        ; Проверить код ошибки
601 
        cmp     [DevErrorCode], 0
602 
        je      @@End_11
603 
        ; Проверить время ожидания готовности
604 
        mov     EAX, [timer_ticks]
605 
        sub     EAX, [WURStartTime]
606 
        cmp     EAX, MaxCDWaitTime
607 
        jb      @@SendCommand
608 
.Error:
609 
        ; Ошибка тайм-аута
610 
        mov     [DevErrorCode], 1
611 
@@End_11:
612 
        popa
613 
        ret
614 
 
615 
;*************************************************
616 
;*            ЗАПРЕТИТЬ СМЕНУ ДИСКА              *
617 
;* Входные параметры передаются через глобальные *
618 
;* перменные:                                    *
619 
;* ChannelNumber - номер канала;                 *
620 
;* DiskNumber - номер диска на канале.           *
621 
;*************************************************
622 
prevent_medium_removal:
623 
        pusha
624 
; Очистить буфер пакетной команды
625 
        call    clear_packet_buffer
626 
; Задать код команды
627 
        mov     [PacketCommand], byte 0x1E
628 
; Задать код запрета
629 
        mov     [PacketCommand+4], byte 11b
630 
; Подать команду
631 
        call    SendPacketNoDatCommand
632 
        mov     eax, ATAPI_IDE0_lock
633 
        add     eax, [cdpos]
634 
        dec     eax
635 
        mov     [eax], byte 1
636 
        popa
637 
        ret
638 
 
639 
;*************************************************
640 
;*            РАЗРЕШИТЬ СМЕНУ ДИСКА              *
641 
;* Входные параметры передаются через глобальные *
642 
;* перменные:                                    *
643 
;* ChannelNumber - номер канала;                 *
644 
;* DiskNumber - номер диска на канале.           *
645 
;*************************************************
646 
allow_medium_removal:
647 
        pusha
648 
; Очистить буфер пакетной команды
649 
        call    clear_packet_buffer
650 
; Задать код команды
651 
        mov     [PacketCommand], byte 0x1E
652 
; Задать код запрета
653 
        mov     [PacketCommand+4], byte 00b
654 
; Подать команду
655 
        call    SendPacketNoDatCommand
656 
        mov     eax, ATAPI_IDE0_lock
657 
        add     eax, [cdpos]
658 
        dec     eax
659 
        mov     [eax], byte 0
660 
        popa
661 
        ret
662 
 
663 
;*************************************************
664 
;*         ЗАГРУЗИТЬ НОСИТЕЛЬ В ДИСКОВОД         *
665 
;* Входные параметры передаются через глобальные *
666 
;* перменные:                                    *
667 
;* ChannelNumber - номер канала;                 *
668 
;* DiskNumber - номер диска на канале.           *
669 
;*************************************************
670 
LoadMedium:
671 
        pusha
672 
; Очистить буфер пакетной команды
673 
        call    clear_packet_buffer
674 
; Сформировать команду START/STOP UNIT
675 
        ; Задать код команды
676 
        mov     [PacketCommand], word 1Bh
677 
        ; Задать операцию загрузки носителя
678 
        mov     [PacketCommand+4], word 00000011b
679 
; Подать команду
680 
        call    SendPacketNoDatCommand
681 
        popa
682 
        ret
683 
 
684 
;*************************************************
685 
;*         ИЗВЛЕЧЬ НОСИТЕЛЬ ИЗ ДИСКОВОДА         *
686 
;* Входные параметры передаются через глобальные *
687 
;* перменные:                                    *
688 
;* ChannelNumber - номер канала;                 *
689 
;* DiskNumber - номер диска на канале.           *
690 
;*************************************************
691 
EjectMedium:
692 
        pusha
693 
; Очистить буфер пакетной команды
694 
        call    clear_packet_buffer
695 
; Сформировать команду START/STOP UNIT
696 
        ; Задать код команды
697 
        mov     [PacketCommand], word 1Bh
698 
        ; Задать операцию извлечения носителя
699 
        mov     [PacketCommand+4], word 00000010b
700 
; Подать команду
701 
        call    SendPacketNoDatCommand
702 
        popa
703 
        ret
704 
 
705 
;*************************************************
706 
;* Проверить событие нажатия кнопки извлечения   *
707 
;*                     диска                     *
708 
;* Входные параметры передаются через глобальные *
709 
;* переменные:                                   *
710 
;* ChannelNumber - номер канала;                 *
711 
;* DiskNumber - номер диска на канале.           *
712 
;*************************************************
3534 clevermous 713 
proc check_ATAPI_device_event_has_work?
714 
        mov     eax, [timer_ticks]
715 
        sub     eax, [timer_ATAPI_check]
716 
        cmp     eax, 100
717 
        jb      .no
718 
.yes:
719 
        xor     eax, eax
720 
        inc     eax
721 
        ret
722 
.no:
723 
        xor     eax, eax
724 
        ret
725 
endp
726 
 
2288 clevermous 727 
align 4
728 
check_ATAPI_device_event:
729 
        pusha
730 
        mov     eax, [timer_ticks]
731 
        sub     eax, [timer_ATAPI_check]
732 
        cmp     eax, 100
733 
        jb      .end_1
734 
        mov     al, [DRIVE_DATA+1]
735 
        and     al, 11b
736 
        cmp     al, 10b
737 
        jz      .ide3
738 
.ide2_1:
739 
        mov     al, [DRIVE_DATA+1]
740 
        and     al, 1100b
741 
        cmp     al, 1000b
742 
        jz      .ide2
743 
.ide1_1:
744 
        mov     al, [DRIVE_DATA+1]
745 
        and     al, 110000b
746 
        cmp     al, 100000b
747 
        jz      .ide1
748 
.ide0_1:
749 
        mov     al, [DRIVE_DATA+1]
750 
        and     al, 11000000b
751 
        cmp     al, 10000000b
752 
        jz      .ide0
753 
.end:
754 
 
755 
        sti
756 
        mov     eax, [timer_ticks]
757 
        mov     [timer_ATAPI_check], eax
758 
.end_1:
759 
        popa
760 
        ret
761 
 
762 
.ide3:
763 
        cli
764 
        cmp     [ATAPI_IDE3_lock], 1
765 
        jne     .ide2_1
766 
        cmp     [IDE_Channel_2], 0
767 
        jne     .ide1_1
768 
        cmp     [cd_status], 0
769 
        jne     .end
770 
        mov     [IDE_Channel_2], 1
771 
        call    reserve_ok2
772 
        mov     [ChannelNumber], 2
773 
        mov     [DiskNumber], 1
774 
        mov     [cdpos], 4
775 
        call    GetEvent_StatusNotification
776 
        cmp     [CDDataBuf+4], byte 1
777 
        je      .eject_ide3
778 
        call    syscall_cdaudio.free
779 
        jmp     .ide2_1
780 
.eject_ide3:
781 
        call    .eject
782 
        call    syscall_cdaudio.free
783 
        jmp     .ide2_1
784 
 
785 
.ide2:
786 
        cli
787 
        cmp     [ATAPI_IDE2_lock], 1
788 
        jne     .ide1_1
789 
        cmp     [IDE_Channel_2], 0
790 
        jne     .ide1_1
791 
        cmp     [cd_status], 0
792 
        jne     .end
793 
        mov     [IDE_Channel_2], 1
794 
        call    reserve_ok2
795 
        mov     [ChannelNumber], 2
796 
        mov     [DiskNumber], 0
797 
        mov     [cdpos], 3
798 
        call    GetEvent_StatusNotification
799 
        cmp     [CDDataBuf+4], byte 1
800 
        je      .eject_ide2
801 
        call    syscall_cdaudio.free
802 
        jmp     .ide1_1
803 
.eject_ide2:
804 
        call    .eject
805 
        call    syscall_cdaudio.free
806 
        jmp     .ide1_1
807 
 
808 
.ide1:
809 
        cli
810 
        cmp     [ATAPI_IDE1_lock], 1
811 
        jne     .ide0_1
812 
        cmp     [IDE_Channel_1], 0
813 
        jne     .end
814 
        cmp     [cd_status], 0
815 
        jne     .end
816 
        mov     [IDE_Channel_1], 1
817 
        call    reserve_ok2
818 
        mov     [ChannelNumber], 1
819 
        mov     [DiskNumber], 1
820 
        mov     [cdpos], 2
821 
        call    GetEvent_StatusNotification
822 
        cmp     [CDDataBuf+4], byte 1
823 
        je      .eject_ide1
824 
        call    syscall_cdaudio.free
825 
        jmp     .ide0_1
826 
.eject_ide1:
827 
        call    .eject
828 
        call    syscall_cdaudio.free
829 
        jmp     .ide0_1
830 
 
831 
.ide0:
832 
        cli
833 
        cmp     [ATAPI_IDE0_lock], 1
834 
        jne     .end
835 
        cmp     [IDE_Channel_1], 0
836 
        jne     .end
837 
        cmp     [cd_status], 0
838 
        jne     .end
839 
        mov     [IDE_Channel_1], 1
840 
        call    reserve_ok2
841 
        mov     [ChannelNumber], 1
842 
        mov     [DiskNumber], 0
843 
        mov     [cdpos], 1
844 
        call    GetEvent_StatusNotification
845 
        cmp     [CDDataBuf+4], byte 1
846 
        je      .eject_ide0
847 
        call    syscall_cdaudio.free
848 
        jmp     .end
849 
.eject_ide0:
850 
        call    .eject
851 
        call    syscall_cdaudio.free
852 
        jmp     .end
853 
 
854 
.eject:
855 
        call    clear_CD_cache
856 
        call    allow_medium_removal
857 
        mov     [ignore_CD_eject_wait], 1
858 
        call    EjectMedium
859 
        mov     [ignore_CD_eject_wait], 0
860 
        ret
861 
iglobal
862 
timer_ATAPI_check dd 0
863 
ATAPI_IDE0_lock db 0
864 
ATAPI_IDE1_lock db 0
865 
ATAPI_IDE2_lock db 0
866 
ATAPI_IDE3_lock db 0
867 
ignore_CD_eject_wait db 0
868 
endg
869 
;*************************************************
870 
;* Получить сообщение о событии или состоянии    *
871 
;*                  устройства                   *
872 
;* Входные параметры передаются через глобальные *
873 
;* переменные:                                   *
874 
;* ChannelNumber - номер канала;                 *
875 
;* DiskNumber - номер диска на канале.           *
876 
;*************************************************
877 
GetEvent_StatusNotification:
878 
        pusha
879 
        mov     [CDDataBuf_pointer], CDDataBuf
880 
; Очистить буфер пакетной команды
881 
        call    clear_packet_buffer
882 
; Задать код команды
883 
        mov     [PacketCommand], byte 4Ah
884 
        mov     [PacketCommand+1], byte 00000001b
885 
; Задать запрос класса сообщений
886 
        mov     [PacketCommand+4], byte 00010000b
887 
; Размер выделенной области
888 
        mov     [PacketCommand+7], byte 8h
889 
        mov     [PacketCommand+8], byte 0h
890 
; Подать команду
891 
        call    SendPacketDatCommand
892 
        popa
893 
        ret
894 
 
895 
;*************************************************
896 
; прочитать информацию из TOC
897 
;* Входные параметры передаются через глобальные *
898 
;* переменные:                                   *
899 
;* ChannelNumber - номер канала;                 *
900 
;* DiskNumber - номер диска на канале.           *
901 
;*************************************************
902 
Read_TOC:
903 
        pusha
904 
        mov     [CDDataBuf_pointer], CDDataBuf
905 
; Очистить буфер пакетной команды
906 
        call    clear_packet_buffer
907 
; Сформировать пакетную команду для считывания
908 
; сектора данных
909 
        mov     [PacketCommand], byte 0x43
910 
        ; Задать формат
911 
        mov     [PacketCommand+2], byte 1
912 
; Размер выделенной области
913 
        mov     [PacketCommand+7], byte 0xFF
914 
        mov     [PacketCommand+8], byte 0h
915 
; Подать команду
916 
        call    SendPacketDatCommand
917 
        popa
918 
        ret
919 
 
920 
;*************************************************
921 
;* ОПРЕДЕЛИТЬ ОБЩЕЕ КОЛИЧЕСТВО СЕКТОРОВ НА ДИСКЕ *
922 
;* Входные параметры передаются через глобальные *
923 
;* переменные:                                   *
924 
;* ChannelNumber - номер канала;                 *
925 
;* DiskNumber - номер диска на канале.           *
926 
;*************************************************
927 
;ReadCapacity:
928 
;       pusha
929 
;; Очистить буфер пакетной команды
930 
;       call  clear_packet_buffer
931 
;; Задать размер буфера в байтах
932 
;       mov     [CDBlockSize],8
933 
;; Сформировать команду READ CAPACITY
934 
;       mov     [PacketCommand],word 25h
935 
;; Подать команду
936 
;       call    SendPacketDatCommand
937 
;       popa
938 
;       ret
939 
 
940 
clear_packet_buffer:
941 
; Очистить буфер пакетной команды
942 
        and     [PacketCommand], dword 0
943 
        and     [PacketCommand+4], dword 0
944 
        and     [PacketCommand+8], dword 0
945 
        ret