RFpro.ru: Ассемблер? Это просто! Учимся программировать

Если выпуск не отображается корректно, то вы можете прочесть его на сайте

Когда ты выйдешь замуж? Кто твой будущий муж? Проблемы в личной жизни?

Реклама Отказаться от рекламы

RFpro.ru: Ассемблер? Это просто! Учимся программировать Хостинг портала RFpro.ru: Московский хостер Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64 РАССЫЛКИ ПОРТАЛА RFPRO.RU Чемпионы рейтинга экспертов в этой рассылке Boriss Статус: Академик Рейтинг: 2420 • повысить рейтинг » _Ayl_ Статус: Профессионал Рейтинг: 1847 • повысить рейтинг » vladisslav Статус: 6-й класс Рейтинг: 1227 • повысить рейтинг » / КОМПЬЮТЕРЫ И ПО / Программирование / Assembler (Ассемблер) Номер выпуска: 1347 Дата выхода: 29.05.2010, 23:30 Администратор рассылки: Лысков Игорь Витальевич, Модератор Подписчиков / экспертов: 260 / 63 Вопросов / ответов: 1 / 1 IRC-канал по теме: #assembler Вопрос № 178572: Здравствуйте! Помогите пожалуйста написать программу по работе с CD проигрывателем. Цель программы - изучение возможностей драйвера CD-ROM msdex. Задание - Реализовать 1) функцию получения информации о диске; или 2) реализовать функцию прод... Вопрос № 178572: Здравствуйте! Помогите пожалуйста написать программу по работе с CD проигрывателем. Цель программы - изучение возможностей драйвера CD-ROM msdex. Задание - Реализовать 1) функцию получения информации о диске; или 2) реализовать функцию продолжения проигрывания (одно из двух). Предпочтителен - TASM, но буду рад и другим вариантам. Процессор - 64-битный. В приложении пример реализации функции открытия/закрытия дверцы CD ROM. Спасибо! Отправлен: 22.05.2010, 19:16 Вопрос задал: Гальцов Андрей, Практикант Всего ответов: 1 Страница вопроса » Отвечает amnick, Студент : Здравствуйте, Гальцов Андрей. Программа в приложении возвращает кое-какую информацию: - версия MSCDEX; - кол-во CD-приводов и их буквы; Для каждого привода: - статус (код завершения операции и расшифровка 5-ти младших битов); - размер сектора (вообще-то, для CD всегда 2048 байт); - если поддерживается, то размер raw сектора (тоже всегда 2352 байт); - размер диска в секторах; - номера начальной и конечной дорожек; - стартовая точка дорожки lead-out. Компилировать программу в COM-файл. Тестировать только в чистом DOS! Иначе работает неверно (в Win95/98 не проверял). Кроме того, у меня на этом компьютере только один привод, поэтому работоспособность с несколькими не проверена. К сообщения приложен файл "Microsoft MS-DOS CD-ROM Extensions 2.1" - описание программного интерфейса MSCDEX (на английском). Успехов! Приложение: ; Отображение некоторой информации о 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 руб.) Оценить выпуск » Нам очень важно Ваше мнение об этом выпуске рассылки! Задать вопрос экспертам этой рассылки » Скажите "спасибо" эксперту, который помог Вам! Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА на короткий номер 1151 (Россия) Номер ответа и конкретный текст СМС указан внизу каждого ответа. Полный список номеров » * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов) ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются. *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании. © 2001-2010, Портал RFpro.ru, Россия Авторское право: ООО "Мастер-Эксперт Про" Автор: Калашников О.А. | Программирование: Гладенюк А.Г. Хостинг: Компания "Московский хостер" Версия системы: 2010.6.16 от 26.05.2010 Обсудить выпуск

Как вам этот выпуск ?  Дайте свой отзыв  или  Оцените   5    4    3    2    1,   можно письмом:  5    4    3    2    1

Реклама Отказаться от рекламы Купи KOSS - подарок не вопрос! С 26.04 по 30.06 купи Kaspersky Open Space Security в Softkey и получи подарочные карты!   Скачай журнал "Дела садовые" Пруд на даче. Сборные садовые домики. Удивительно скороплодные саженцы.   Вспомни детство! Аппарат для приготовления сахарной ваты - отличное угощение!

Реклама Отказаться от рекламы Супермаркет ПО Softkey.ru Огромный выбор лицензионного софта. Моментальная оплата!<>www.softkey.ru Как заработать в интернете? Начните бизнес на Forex с надёжным партнёром! Зарегистрироваться.<>promo.akmos.ru Новости на GZT.RU: Все главные новости дня, обзор происшествий, мнения экспертов.<>www.gzt.ru

Рассылки 1C Программирование, 1С-франчайзинг Поддержка пользователей программ семейства 1С - Вся полезная информация для зарегистрированных пользователей программ семейства 1С: релизы, конфигурации, отчетность, документация и др. Подписаться:   на сайте    по почте

Группы «Отношения между мужчиной и женщиной» Группа об отношениях между мужчиной и женщиной. Для того, чтобы лучше понять мужчину, нужно узнать его психологию, знать о чём он говорит и что на самом деле имеет ввиду. «Интернет для начинающих пользователей» Группа начинающих пользователей Интернета. Советы, статьи, инструкции новичкам. Если вы недавно подключились к Интернету и у вас на счет него есть куча ... «Работа и хобби для милых женщин!» Как хочется иногда отвлечься от работы и домашнего хозяйства, и заняться чем нибудь интересным, получить новые впечатления или сотворить что-то своими р...

Подписан адрес: admin10383.deep@blogger.com Код этой рассылки: comp.prog.assembler Архив рассылки Отписаться:  На сайте  Почтой Поддержка подписчиков Убрать рекламу Другие рассылки этой тематики Другие рассылки этого автора Рассылка производится: Subscribe.Ru / ЗАО «Интернет-Проекты» / О компании / Политика конфиденциальности