/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Assembler (Ассемблер)

Выпуск № 906
от 20.11.2007, 06:35

Вопрос № 109.433

Доброе время суток, уважаемые эксперты. у меня возник следующий вопрос, или скорее проблема. Суть программы очень проста : пользователь вводит имя файла и программа шифрует этот файл. Только вот дело в том . что если имя файла выбрано по умолчанию (то есть указано в коде) тогда все работает нормально. Отсюда последовал вполне логичный вывод что, когда вводится строка и имя файла сохраняется в выделенном буфере, то при переводе ее в формат ASCIIZ возникает ошибка , в последующих строках я поставил проверку на открытие выбранного файла, что и послужило "индикатором" ошибки именно в этих строках. если я правильно понимаю, то при переводе строки в формат ASCIIZ необходимо в ее конец добавить "0", прошу посмотрите приведенный фрагемнт кода и укажите на ошибку. Заранее выражаю огромную благодарность. Виктор Приложение: ; ... mov ah,09h ; здесь выводится приглашение ; на ввод имени файла lea dx,prigl int 21h mov ah,3fh ;считываем имя выделенный буфер xor bx,bx mov cx,name_len lea dx,file_name int 21h mov bx,ax ; переводим строку в формат ASCIIZ sub bx,2 mov file_name[bx],'0' mov ah,09h ; просто для проверки смотрим, что лежит в буфере lea dx,file_name int 21h mov ah,3Dh ; пытаемся открыть выбранный файл mov al,2 lea dx,file_name int 21h jc ERROR ; ----------- ; ..... prigl DB 'Enter file name $' file_name DB 10 DUP (?) name_len DW 10

Отправлен: 14.11.2007, 20:15 Вопрос задал: V_Victor (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Зенченко Константин Николаевич Здравствуйте, V_Victor! Функция DOS 0Ah — Считать строку символов из STDIN в буфер Ввод: АН = 0Ah DS:DX = адрес буфера Вывод: Буфер содержит введенную строку буфер имеет формат: -первый байт - максимальная длина строки(маск=256) -второй байт - кол-во введенных символов -третий и дальше сама введенная строка. т.е. в программе это выглядит так: сегмент кода mov ah,0ah mov dx,offset myBuff int 21h сегмент данных myBuff db 256 szBuff db ? inBuff db 256 dup (?) Вам остается после ввода строки, заменить последний код(0Dh) на 0. Перед применением 09-ой функции- не забывайте о "$" в конце строки. Удачи! --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Специалист) Ответ отправлен: 14.11.2007, 21:04 Оценка за ответ: 4

Вопрос № 109.449

Здравствуйте уважаемые эксперты! Задали вывести на экран таблицу разрешения маскируемых аппаратных прерываний в соответствии с текущей маской ведомого контроллера прерываний. Подскажите как это реализовать. Есле возможно, то спримерами и подробными коментариями. Заранее спарибо!

Отправлен: 14.11.2007, 21:45 Вопрос задал: Lammer (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Lammer! Смотрите приложение. Удачи! Приложение: MASM;IDEAL or MASM MODEL tiny .186 CODESEG org 100h start: ;берем маску in al,0a1h mov bh,al ;цикл 8 бит mov cx,08 ;вывод IRQ ok_next: mov ah,09 mov dx,offset irq_all int 21h ;считаем номер прырывания mov ax,16 sub ax,cx ;и переводим в 10-ю систему mov dl,10 div dl ;перводим в символьный вид и выводим or ax,3030h int 29h;вывод 10 mov al,ah int 29h;вывод 1 ;побитно проверяем маску mov dx,offset ok_interupt shr bh,1 jnc no_irq mov dx,offset no_interupt ;выводим результат no_irq: mov ah,09 int 21h loop ok_next ;стоп ret irq_all db 13,10,'IRQ$' ok_interupt db ':-0(open)$' no_interupt db ':-1(stop)$' end start --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Специалист) Ответ отправлен: 16.11.2007, 11:13 Оценка за ответ: 5 Комментарий оценки: Спасибо за коментарии. Вы мне очень помогли.

Отвечает: an42 Здравствуйте, Lammer! Регистр маски ведущего контроллера читается из порта 21h. Регистр маски ведомого контроллера читается из порта A1h. В приложение показана значение портов 21h и A1h. Удачи. Приложение: title Вопрос № 109449 .286 stacksg segment stack dw 100h dup(?) stacksg ends data segment ;Все данные имеют один формат: ; 1-й байт цвет, 2-й байт номер строки, 3-й байт номер столбца ; далее текст заканчивающийся нулем Text1 db 0ah,1,34,'IRQ0 Таймер',0 db 0ah,2,34,'IRQ1 Клавиатура',0 db 0ah,3,34,'IRQ2 От ведомого',0 db 0ah,4,34,'IRQ3 COM2',0 db 0ah,5,34,'IRQ4 COM1',0 db 0ah,6,34,'IRQ5 LPT2',0 db 0ah,7,34,'IRQ6 Гибкий диск',0 db 0ah,8,34,'IRQ7 Принтер',0 db 0eh,1,0,'IRQ8 КМОП-часы',0 db 0eh,2,0,'IRQ9 Устройство PnP',0 db 0eh,3,0,'IRQ10 Устройство PnP',0 db 0eh,4,0,'IRQ11 Устройство PnP',0 db 0eh,5,0,'IRQ12 Мышь PS/2',0 db 0eh,6,0,'IRQ13 Сопроцесор',0 db 0eh,7,0,'IRQ14 Жесткий диск №1',0 db 0eh,8,0,'IRQ15 Жесткий диск №2',0 db 0fh,9,34,'Регистр маски ведущ.контр.',0 db 0fh,10,44,'Порт 21h = ',0 db 0fh,9,0,'Регистр маски ведом.контр.',0 db 0fh,10,14,'Порт A1h = ',0 Port21 db 0ah,10,55,2 dup(?),0 PortA1 db 0eh,10,25,2 dup(?),0 Irq0 db 0ch,1,62,?,0 Irq1 db 0ch,2,62,?,0 Irq2 db 0ch,3,62,?,0 Irq3 db 0ch,4,62,?,0 Irq4 db 0ch,5,62,?,0 Irq5 db 0ch,6,62,?,0 Irq6 db 0ch,7,62,?,0 Irq7 db 0ch,8,62,?,0 Irq8 db 0ch,1,28,?,0 Irq9 db 0ch,2,28,?,0 Irt10 db 0ch,3,28,?,0 Irq11 db 0ch,4,28,?,0 Irq12 db 0ch,5,28,?,0 Irq13 db 0ch,6,28,?,0 Irq14 db 0ch,7,28,?,0 Irq15 db 0ch,8,28,?,0 Text2 db 0fh,24,8,'Для выхода нажмите любую клавишу',0 data ends assume cs:code,ds:data code segment begin: ;Инициализация регистра ds mov ax,data mov ds,ax ;Установка текстового режима mov ax,03h int 10h call cursor ;Спрячим курсор ;Выведем первые 20 строк текста mov cx,20 mov si,offset Text1 @B0: call TextColor loop @@B0 ;Прочитаме содержимое портов 21h и A1h call InPort ;Выведем содрежимое портов на экран mov cx,2 mov si,offset Port21 @B1: call TextColor loop @@B1 ;Выведем содержимое регистров масок на экран, и строку Text2 mov cx,17 mov si,offset Irq0 @B2: call TextColor loop @@B2 ;Остановка программы mov ah,0 int 16h ;Выход в DOS mov ah,4ch int 21h ;***************************************************** ;* ПЕРЕВОД ДВОИЧНОГО ЗНАЧЕНИЯ В ШЕСНАДЦАТИРИЧНОЕ * ;***************************************************** AsciiCod proc push ax mov ah,al ; al сохраним в ah shr ah,4 ; выделим страшую цифру or ah,30h ; прибавим 30h cmp ah,39h ; если результат меньше 39h jbe @@A0 ; то на метку add ah,7 ; если больше то прибавим 7 @A0: mov [si],ah ; запишим результат and al,0fh ;Выделим младшую цифру or al,30h ; прибавит 30h cmp al,39h ; если результат меньше 39h jbe @@A1 ; то наметку add al,7 ; иначе прибавить 7 @A1: mov [si+1],al ; запись результата pop ax ret AsciiCod endp ;***************************************************** ;* ПРОЦЕДУРА ЧТЕНИЕ ПОРТОВ 21h И A1h * ;* И ВЫВОДА РЕГИСТРОВ МАСКИ * ;***************************************************** InPort proc pusha mov si,offset Port21+3 ; в si третий байт переменной Port21 in al,21h ; чтение порта 21h (регистр маски, ведущий контроллер) call AsciiCod ;Перевод его в ASCII-код и вывод на экран mov cx,8 ;В cx=8 для цикла loop mov si,offset Irq0+3 ; в si третий байт Irq0 @I0: test al,00000001b ; проверяем значение нулевого байта в al jne @@I1 mov byte ptr [si],30h ; если 0 то запись в третий байт переменной Irq* '0' jmp short @@I2 @I1: mov byte ptr [si],31h ; если 1 то запись в третий байт переменной Irq* '1' @I2: shr al,1 ; сдвиг в право al на 1, чтоб работать в цикле для проверки add si,5 ; увеличиваем si на 5, получается третий байт следующей преременной Irq* loop @@I0 ; и продолжаем цикл mov si,offset PortA1+3 ;Аналогично делается для порта A1h in al,0a1h call AsciiCod mov cx,8 mov si,offset Irq8+3 @I3: test al,00000001b jne @@I4 mov byte ptr [si],30h jmp short @@I5 @I4: mov byte ptr [si],31h @I5: shr al,1 add si,5 loop @@I3 popa ret InPort endp ;***************************************************** ;* ПРОЦЕДУРА ВЫВОДА ЦВЕТНОГО ТЕКСТА * ;* ЗАДАННОГО ФОРМАТА * ;***************************************************** TextColor proc ;Сохраним регистры push ax push bx push es ;регистр ES на нуливую видеостраницу push 0b800h pop es cld ;Напраление строковых операций lodsb ; в al - первый байт (цвет) mov bl,al ; сохраним в bl lodsb ; в al - второй байт (номер строки) mov ah,160 ; в ah=160 (80+80) по 2 байта на символ (символ и цвет) mul ah ; умножаем mov di,ax ; сохраняем в di xor ah,ah ; обнуляем ah lodsb ; в al - третий байт (номер столбца) add di,ax ; дважды прибавляем (2 байта на символ) add di,ax mov ah,bl ; в ah - первый байт (цвет) @T0: lodsb ; в al - символ текста cmp al,0 ; это конец строки? je @@T1 ; если да, то выход stosw ;Нет тогда запись символа+цвет по адресу B800:DI jmp short @@T0 @T1: pop es pop bx pop ax ret TextColor endp ;***************************************************** ;* ПРОЦЕДУРА УПРАВЛЕНИЯ КУРСОРОМ * ;* Используется регистр видеоконтроллера 3D4 * ;***************************************************** cursor proc pusha ;Находим координату курсора 25-я строка 0-ой стролбец mov al,25 ;в al=25 mov ah,80 ; в ah=80 80-колонок в строке mul ah ; в ax=25*80+0 координата курсора mov bl,al ;Сохраним младший байт курсора mov dx,3d4h ; в dx=3d4h регистр управления курсором mov al,0eh ; в al=0eh сначала поместим старший байт курсора out dx,ax ; в 3d4h запись 0eh будем помещать старший байт курсора, ; а в 3d5h запись регистра ah - старший байт курсора inc al ; В al=0fh поместим младщий байт курсора mov ah,bl ; в ah - младший байт курсора out dx,ax ; в 3d4h запись 0fh будет помещен младший байт курсора, ; и в 3d5h помещаем младший байт курсора находящийся в ah popa ret cursor endp code ends end begin

Ответ отправил: an42 (статус: 6-ой класс) Ответ отправлен: 18.11.2007, 13:54

Вопрос № 109.460

Скачал с kalashnikoff.ru книгу-рассылку, еще есть несколько книг но там ответа на мой вопрос. У меня вопрос : как компилировать - у меня не открываются ML и MASM простым нажатием. Может их нужно открывать с помощью какой-то проги или у меня комп глючит. В учебниках просто сказано с помощью MASM а как подробней не сказано. MASM скачал с kalashnikoff.ru, розархивировал, установил и в папке BIN нашел этот MASM и ML . Зато LINK открывается . И где эта командная строка? И в блокноте же можна писать программу?

Отправлен: 14.11.2007, 23:13 Вопрос задал: Гоменюк Владимир Викторович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Гоменюк Владимир Викторович! Командная строка: Нажимаете кнопки "Windows" + "R", у Вас появится окно "Выполнить | Run". Набираете "COMMAND"(W9x)" или CMD"(XP), у Вас откроется окно "Сеанс MS-DOS | MS-DOS prompt" c текстом "имя ОСи и текущая папка(к примеру: C:WindowsDestop>)". используя команды MS-DOS: -CD имя папки - зайти в папку; -CD . . - выйти из папки; -D: - сменить дисковод; Вы должны попасть в папку MASM611BIN>. Только после этого Вы набираете команду: ML prog01.asm [ options | ключи ](обратите внимание не MASM.EXE, a ML.EXE). Как вариант можно в блокноте создать *.ВАТ(к примеру: prog01.bat) и в нём прописать команду : ML prog01.asm [ options | ключи ]. В проводнике достаточно клика на нём и у Вас запустится компилятор. -достоинство метода: не нужно запоминать опции компилятора для каждой программы; -недостатки метода:лишний файл на диске и(или) его нужно переписывать для каждой программы. Как второй вариант Вы можете использовать командную строку файловых менеджеров, их около 60-ти (есть с поддержкой "мыши" и без) ps:-вначале файлы *.ASM сохраняйте в папку MASM611BIN>; -уточняющие вопросы задавайте в мини-форум, он Вам как автору вопроса доступен. Удачи! --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Специалист) Ответ отправлен: 19.11.2007, 17:43

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.62.1 от 14.11.2007
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru