Хостинг портала RFpro.ru:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Чемпионы рейтинга экспертов в этой рассылке

Boriss Статус: Академик Рейтинг: 2420 ∙ повысить рейтинг »

_Ayl_ Статус: Профессионал Рейтинг: 1847 ∙ повысить рейтинг »

vladisslav Статус: 6-й класс Рейтинг: 1227 ∙ повысить рейтинг »

Вопрос № 178572: Здравствуйте! Помогите пожалуйста написать программу по работе с CD проигрывателем. Цель программы - изучение возможностей драйвера CD-ROM msdex. Задание - Реализовать 1) функцию получения информации о диске; или 2) реализовать функцию прод...

Здравствуйте!

Помогите пожалуйста написать программу по работе с CD проигрывателем. Цель программы - изучение возможностей драйвера CD-ROM msdex.
Задание - Реализовать 1) функцию получения информации о диске; или 2) реализовать функцию продолжения проигрывания (одно из двух).

Предпочтителен - TASM, но буду рад и другим вариантам.
Процессор - 64-битный.

В приложении пример реализации функции открытия/закрытия дверцы CD ROM.

Спасибо!

Отправлен: 22.05.2010, 19:16
Вопрос задал: Гальцов Андрей, Практикант
Всего ответов: 1
Страница вопроса »

Приложение:
; Отображение некоторой информации о CD-приводе и диске ; с использованием функций MSCDEX locals @@ model tiny ; Заголовок запроса для обращения к драйверу RQ_HEADER STRUC bSize DB ? ; Length in bytes of request header bSubUnit DB ? ; Subunit code for minor devices bCmd DB ? ; Command code field wStatus DW ? ; Status bReserved DB 8 dup (?) RQ_HEADER ENDS ; Запрос IOCTL Input IOCTL_Input STRUC rh RQ_HEADER <> bMediaDescriptor DB ? lpTransferAddress DD ? wDataSize DW ? wStartSector DW ? lpVolID DD ? IOCTL_Input ENDS ; Запрос на получение информации о компакт-диске TDiskInfo STRUC bControl DB ? bLowest DB ? bHighest DB ? dwTotal DD ? TDiskInfo ENDS ; Запрос для определения текущего состояния CD-привода TDeviceStatus STRUC bControl DB ? dwParam DD ? TDeviceStatus ENDS ; Запрос для определения общего количества секторов на компакт-диске TVolumeSize STRUC bControl DB ? dwVolumeSize DD ? TVolumeSize ENDS TSectorSize STRUC bControl DB ? bReadMode DB ? wSectorSize DW ? TSectorSize ENDS data msgHello db \'CDINFO\',13,10,10,\'$\' msgNoMSCDEX db \'MSCDEX is not installed\' eol db 13,10,\'$\' msgVerMSCDEX db \'MSCDEX version: \' strNum db 16 dup (0) msgFound db \' CD drive(s) found\',13,10,\'$\' msgLetters db \'CD-ROM letters: $\' msgStatus db \'Status of CD Drive x: \' strStatus db \'0000\',13,10,\'$\' msgFailed db \'-- failed\',13,10,\'$\' msgSectorSize db \'Sector Size: \' strSectorSize db \' bytes\',13,10,\'$\' msgRawSecSize db \'Raw Sector Size: \' strRawSecSize db \' bytes\',13,10,\'$\' msgVolumeSize db \'Volume Size: \' strVolumeSize db \' blocks\',13,10,\'$\' msgLowestTrack db \'Lowest track number $\' msgHighestTrack db \'Highest track number $\' msgLeadOutTrack db \'Starting point of the lead-out track $\' msgBit0_0 db 9,\'Door closed$\' msgBit0_1 db 9,\'Door open$\' msgBit1_0 db 9,\'Door locked$\' msgBit1_1 db 9,\'Door unlocked$\' msgBit2_0 db 9,\'Supports only cooked reading$\' msgBit2_1 db 9,\'Supports cooked and raw reading$\' msgBit3_0 db 9,\'Read only$\' msgBit3_1 db 9,\'Read/write$\' msgBit4_0 db 9,\'Data read only$\' msgBit4_1 db 9,\'Data read and plays audio/video tracks$\' Table_Status0 dw msgBit0_0, msgBit1_0, msgBit2_0, msgBit3_0, msgBit4_0 SIZE_TBL_STATUS EQU $-Table_Status0 Table_Status1 dw msgBit0_1, msgBit1_1, msgBit2_1, msgBit3_1, msgBit4_1 nDrives dw 0 nFirst db 0 cdLetters db 26 dup(0) oneLetter db \'x $\' hex db \'0123456789ABCDEF\' drive dw 0 devStatus TDeviceStatus <6,0> ; Состояние CD-привода volumeSize TVolumeSize <8,0> ; объем устройства sectorSize TSectorSize <7,0,0> diskInfo TDiskInfo <10,0,0,0> code startup cld mov ah,9 mov dx,offset msgHello int 21h ; Проверяем, установлена ли программа MSCDEX mov ax,1500h ; получить число устройств xor bx,bx int 2Fh ; BX - количество устройств ; CX - номер первого устройства (0 - A:, 1 – B: и т.д.) test bx,bx jnz @@ok mov ah,9 mov dx,offset msgNoMSCDEX int 21h int 20h @ok: mov [nDrives],bx ; BX - количество устройств mov [nFirst],cl ; CX - номер первого устройства (0 - A:, 1 – B: и т.д.) ; Определяем и выводим версию MSCDEX mov ax,150Ch ; определить версию MSCDEX int 2Fh ; BH = старший номер верии MSCDEX, BL = младший xor ax,ax mov al,bh push bx mov di,offset strNum call num2str ; преобразуем в строку старший номер версии mov al,\'.\' ; десятичная точка stosb pop ax xor ah,ah call num2str ; преобразуем в строку младший номер версии mov ax,0A0Dh ; Добавляем конец строки stosw mov byte ptr [di],\'$\' mov ah,9 ; выводим версию MSCDEX mov dx,offset msgVerMSCDEX int 21h ; Показываем количество найденных CD-приводов mov ax,[nDrives] ; преобразуем число CD-приводов в строку mov di,offset msgFound call num2str mov ah,9 mov dx,offset msgFound int 21h ; Получаем массив номеров CD приводов mov ax,150Dh ; получение номеров устройств чтения CD-ROM mov bx,offset cdLetters int 2Fh ; Отображаем обозначения всех устройств CD-ROM mov ah,9 mov dx,offset msgLetters int 21h mov cx,[nDrives] ; число CD-приводов, ненулевое mov ah,9 ; AH=9 - вывод строки mov dx,offset oneLetter @next_letter: mov al,[bx] add al,\'A\' mov [oneLetter],al int 21h inc bx loop @@next_letter mov dx,offset eol int 21h ; Цикл по всем CD-приводам mov cx,[nDrives] ; число CD-приводов, ненулевое mov si,offset cdLetters @next_drive: push cx lodsb mov cl,al ; номер привода add al,\'A\' ; буква привода для сообщения mov [strStatus-3],al xor ch,ch mov [drive],cx ; запрашиваем и отображаем статус привода call GetDeviceStatus push ax mov di,offset strStatus call word2hex mov ah,9 mov dx,offset msgStatus int 21h pop ax test ah,80h ; ошибка? jz @@ok2 mov ah,9 ; да, ошибка mov dx,offset msgFailed int 21h jmp short @@sect_size @ok2: ; расшифровываем 5 младших битов статуса привода mov ch,byte ptr [devStatus].dwParam mov ah,9 mov bx,offset Table_Status1-2 ; указатель на конец таблицы сообщений mov cl,10000b @next_bit: mov dx,[bx] ; адрес сообщения, когда бит = 0 test ch,cl jz @@bit0 mov dx,[bx+SIZE_TBL_STATUS] ; адрес сообщения, когда бит = 1 @bit0: int 21h mov dx,offset eol ; переход на новую строку int 21h dec bx ; перемещаем указатель в таблице dec bx shr cl,1 ; сдвигаем битовую маску jnz @@next_bit @sect_size: ; запрашиваем и отображаем размер сектора mov cx,[drive] call GetSectorSize mov di,offset strSectorSize mov ax,[sectorSize.wSectorSize] call num2str mov ah,9 mov dx,offset msgSectorSize int 21h ; если поддерживается, то запрашиваем и отображаем размер raw сектора test byte ptr [devStatus].dwParam,100b jz @@skip_raw mov [sectorSize.bReadMode],1 mov cx,[drive] call GetSectorSize mov di,offset strRawSecSize mov ax,[sectorSize.wSectorSize] call num2str mov ah,9 mov dx,offset msgRawSecSize int 21h @skip_raw: ; запрашиваем и отображаем объем устройства (в секторах) mov cx,[drive] call GetVolumeSize mov di,offset strVolumeSize 386 mov eax,[volumeSize.dwVolumeSize] 8086 call long2str mov ah,9 mov dx,offset msgVolumeSize int 21h ; запрашиваем и отображаем информацию о диске mov cx,[drive] call GetDiskInfo xor ax,ax mov al,[diskInfo.bLowest] mov dx,offset msgLowestTrack mov cx,offset num2str call diskInfoMsg xor ax,ax mov al,[diskInfo.bHighest] mov dx,offset msgHighestTrack mov cx,offset num2str call diskInfoMsg 386 mov eax,[diskInfo.dwTotal] 8086 mov dx,offset msgLeadOutTrack mov cx,offset long2str call diskInfoMsg pop cx dec cx ; счетчик CD-приводов jz @@end_loop jmp @@next_drive @end_loop: int 20h ;------------------------------------------------- ; Определение состояния CD-привода ; Вход: CX = номер привода ; ; The status word is 0 on entry and is set by the device driver. ; ; Bit 15 - Error bit ; Bit 14-10 - Reserved ; Bit 9 - Busy ; Bit 8 - Done ; Bit 7-0 - Error code (bit 15 on) ;------------------------------------------------- GetDeviceStatus PROC PASCAL LOCAL cmd: IOCTL_Input mov word ptr [cmd.lpTransferAddress], offset devStatus mov [cmd.wDataSize],5 mov [devStatus.bControl],6 ; Device Status _call_driver: xor ax,ax mov [cmd.rh.bSize],26 mov [cmd.rh.bSubUnit],al mov [cmd.rh.bCmd],3 ; IOCTL INPUT mov [cmd.bMediaDescriptor],al push DS pop word ptr [cmd.lpTransferAddress+2] mov [cmd.wStartSector],ax mov word ptr [cmd.lpVolID],ax mov word ptr [cmd.lpVolID+2],ax push SS pop ES lea bx,[cmd] mov ax,1510h int 2Fh ; CX = номер CD-привода mov ax,[cmd.rh.wStatus] ret GetDeviceStatus ENDP ;------------------------------------------------- ; Определение размера сектора компакт-диска ; Вход: CX = номер привода ;------------------------------------------------- GetSectorSize PROC PASCAL LOCAL cmd: IOCTL_Input mov word ptr [cmd.lpTransferAddress], offset sectorSize mov [cmd.wDataSize],4 mov [sectorSize.bControl],7 ; Return Sector Size jmp _call_driver GetSectorSize ENDP ;------------------------------------------------- ; Определение объема компакт-диска ; Вход: CX = номер привода ;------------------------------------------------- GetVolumeSize PROC PASCAL LOCAL cmd: IOCTL_Input mov word ptr [cmd.lpTransferAddress], offset volumeSize mov [cmd.wDataSize],5 mov [volumeSize.bControl],8 ; Return Volume Size jmp _call_driver GetVolumeSize ENDP ;------------------------------------------------- ; Получение информации о компакт-диске ;------------------------------------------------- GetDiskInfo PROC PASCAL LOCAL cmd: IOCTL_Input mov word ptr [cmd.lpTransferAddress], offset diskInfo mov [cmd.wDataSize],7 mov [diskInfo.bControl],10 ; Audio Disk Info jmp _call_driver GetDiskInfo ENDP ;------------------------------------------------- ; Преобразование числа в строку ; Вход: ; AX = число ; DI = адрес строки ; Выход: ; DI - указывает на байт за концом строки ; CX = 0 ;------------------------------------------------- num2str PROC xor cx,cx ; обнуляем счетчик цифр mov bx,10 ; основание системы счисления @1: xor dx,dx ; будем делить DX:AX на BX div bx ; DX = последняя цифра push dx ; мы получаем цифры в обратном порядке inc cx ; счетчик цифр test ax,ax ; повторяем, пока частное в AX != 0 jnz @@1 pop_string: ; формируем строку из цифр mov dx,di ; для вывода на экран @2: pop ax ; извлекаем очередную цифру из стека add al,\'0\' ; переводим её в символ stosb ; переносим в строку loop @@2 ret num2str ENDP ;------------------------------------------------- ; Преобразование длинного целого числа в строку ; Вход: ; EAX = число ; DI = адрес строки ; Выход: ; DI - указывает на байт за концом строки ; CX = 0 ;------------------------------------------------- long2str PROC 386 xor cx,cx ; обнуляем счетчик цифр mov ebx,10 ; основание системы счисления @1: xor edx,edx ; будем делить EDX:EAX на BX div ebx ; EDX = последняя цифра push dx ; мы получаем цифры в обратном порядке inc cx ; счетчик цифр test eax,eax ; повторяем, пока частное в EAX != 0 jnz @@1 jmp pop_string 8086 long2str ENDP ;------------------------------------------------- ; Преобразование числа в 16-ричное представление ; Вход: ; AX = число ; DI = адрес строки ; Выход: ; DI - указывает на байт за концом строки ;------------------------------------------------- word2hex PROC push ax mov al,ah call byte2hex_internal pop ax byte2hex: mov ah,al byte2hex_internal: 286 shr al,4 mov bx,offset hex xlat stosb mov al,ah and al,0Fh xlat stosb ret word2hex ENDP ;------------------------------------------------------ ; вспомогательная функция для вывода информации о диске ; Вход: ; (E)AX = число ; DX = адрес сообщения ; CX = адрес функции преобразования числа в строку ;------------------------------------------------------ diskInfoMsg proc push ax mov ah,9 int 21h pop ax mov di,offset strNum call cx ; преобразуем в строку младший номер версии mov ax,0A0Dh ; Добавляем конец строки stosw mov byte ptr [di],\'$\' mov ah,9 mov dx,offset strNum int 21h ret diskInfoMsg endp END Прикрепленный файл: загрузить »

Ответ отправил: amnick, Студент
Ответ отправлен: 28.05.2010, 23:07
Номер ответа: 261733

Оценка ответа: 5
Комментарий к оценке:
Спасибо, спасибо, спасибо!...

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это! Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 261733 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

Оценить выпуск »
Нам очень важно Ваше мнение об этом выпуске рассылки!

Задать вопрос экспертам этой рассылки »