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

Выпуск № 783
от 19.06.2007, 06:05

Вопрос № 91.178

Добрый день!!! Пожалуйста, если можете, помогите мне... просто я никак не могу понять((( Вот эти строки: xor ah,ah int 16h ;Ждем клавишу... Насколько я понял, после "xor ah,ah" у ah должен быть 0. Но тогда как int 16h будет ждать клавишу... ведь кажется, в ah должно быть загружено число 10h... Извините, если забрал у Вас свободное время... Удачи! Всего хорошего! С уважением, Виталий Приложение: ;========================================= ;========================================= ; TEST12.ASM - программа к Главе № 12 CSEG segment assume cs:CSEG, ds:CSEG, ss:CSEG, es:CSEG org 100h Begin: mov ax,8899h ;Проверим, загружен ли резидент? int 10h cmp ax,9988h je Ok_resident ;Если загружен, то выводим строку mov ah,9 ;Если нет, то выводим соответствующее сообщение mov dx,offset No_resident int 21h ret ;И выходим из программы Ok_resident: mov ah,3 ;Получим текущую позицию курсора... mov bh,0 int 10h push dx ;...И запомним ее mov ah,2 ;Спрячем курсор mov dx,1900h ;Просто установим его за границу экрана int 10h mov ah,88h ;Функция 88h прерывания 10h - вывод строки (наш резидент!) mov si,offset String ;DS:SI - указывают на строку int 10h ;Выводим, используя наш резидент xor ah,ah int 16h ;Ждем клавишу... pop dx ;Восстановим сохраненное состояние курсора mov bh,0 ;и покажем его снова... mov ah,2 int 10h ret ;Можно еще выйти так: int 20h, но это на 1 байт длинее... String db 'Моя строка для вывода !!!!!',0 No_resident db 'Резидент в памяти не обнаружен! Зпустить надо redid12.com сперва!$' CSEG ends end Begin ;==================================================== ;==================================================== ; RESID12.ASM - программа к Главе № 12 CSEG segment assume cs:CSEG, ds:CSEG, ss:CSEG, es:CSEG org 100h Begin: jmp Init ;На метку инициализации ; === Процедура обработки 10h прерывания === Int_10h_proc proc pushf ;Сохраним флаги в стеке, т.к. они поменяются... cmp ax,8899h ;Проверим на повторную загрузку в память (см. ниже) jne Next_test ;Если не проверка, то смотрим дальше... xchg ah,al ;Меняем местами AH и AL (признак того, что мы в памяти ;что-то вроде ответного сигнала) popf ;Выровним стек iret ;Выйдем из прерывания (вернемся в нашу программу) ;AX теперь равен 9988h !!! Next_test: cmp ah,88h ;Это вызов нашей функции? jne Go_10h ;Если нет - уйдем в оригинальный обработчик 10h push es ;Сохраним ES... mov ax,0B800h ;...и занесем в него сегмент 0-ой страницы дисплея mov es,ax xor di,di ;Подготвимся к чистке экрана (равносильно mov di,0) mov cx,2000 ;Просто "забьем" его пробелами. mov ax,0720h ;Будем заносить: код цвета (07) / символ пробела (20h) rep stosw ;"Забиваем"... Очень быстро... mov di,1014 ;Будем выводить вот отсюда (примерно центр экрана) mov ah,14 ;С такими атрибутами (светло-желтый) Next_sym: lodsb ;Заносим в AL очередной символ (один байт, т.к. lodsB), ;Расположенный по адресу DS:SI, увеличив затем SI ;на единицу cmp al,0 ;Конец строки? jz Stop_out ;Да - на выход... stosw ;Заносим по адресу ES:DI значение из AX и увеличиваем DI на 2 ;Здесь заносим слово, т.к. stosW, поэтому на два и ;увеличивается значение DI jmp short Next_sym ;Следующий символ... ;SHORT (короткий) - делает в некоторых случаях ;команду jmp на один байт короче. ;Работает ТОЛЬКО в том случае, если между меткой ;и jmp расстояние не более 127 байт! Stop_out: pop es ;Если достигли конца строки, то восстановим регистры, popf ;выровнив стек... iret ;...и выйдем из прерывания Go_10h: popf ;Выровним стек jmp dword ptr cs:[Int_10h_vect] ;"Прыгаем" на оригинальный обработчик Int_10h_vect dd ? ;Здесь хранится адрес оргинального обработчика Int_10h_proc endp ; =============================================================== ; Инициализация (подготовка и настройка резидента) Init: mov ax,8899h ;Проверим, в памяти ли мы уже или еще нет int 10h ;8899h - наш позывной cmp ax,9988h ;Отозвался обработчик (AH/AL должены поменяться местами)? jne Set_resident mov ah,9 ;Если в памяти, то выведем соответствующее сообщение mov dx,offset In_memory ;Зачем нас двое в памяти? int 21h ret ;...И вернемся в DOS Set_resident: ;Если нас в памяти нет, то установим резидент mov ax,3510h int 21h ;Получим и сохраним адрес (вектор) 10h прерывания mov word ptr Int_10h_vect,bx ;Вначале младшее слово (смещение) mov word ptr Int_10h_vect+2,es ;Затем старшее (сегмент) mov ax,2510h mov dx,offset Int_10h_proc int 21h ;"Повесим" нашу процедуру на 10h прерывание mov dx,offset Init int 27h ;Оставим программу резидентной в памяти. In_memory db 'Мы уже в памяти!!!!$' CSEG ends end Begin

Отправлен: 13.06.2007, 06:16 Вопрос задал: Покритюк Виталий Леонидович (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Sov Здравствуйте, Покритюк Виталий Леонидович! Вы правы, командой xor ah,ah обнуляется регистр ah функция 0h 16-го прерывания читает(ожидает) следующую нажатую клавишу на выходе в al ASCII символ(если al=0, то ah содержит расширеный код ASCII) на выходе в ah сканкод или расширенный ASCII

Ответ отправил: Sov (статус: 4-ый класс) Ответ отправлен: 13.06.2007, 09:03 Оценка за ответ: 5 Комментарий оценки: Спасибо за ответ)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Покритюк Виталий Леонидович! Описание функций БИОС ввода с клавиатуры: INT 16h, АН = 0, 10h, 20h — Чтение символа с ожиданием Ввод: АН = 00h (83/84-key), 10h (101/102-key), 20h (122-key) Вывод: AL = ASCII-код символа, 0 или префикс скан-кода АН = скан-код нажатой клавиши или расширенный ASCII-код Удачи! --------- И только наступив на грабли мы преобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Практикант) Ответ отправлен: 13.06.2007, 10:12 Оценка за ответ: 5 Комментарий оценки: Спасибо)

Отвечает: An42 Здравствуйте, Покритюк Виталий Леонидович! Таблица: 0 xor 0 = 0 1 xor 0 = 1 1 xor 1 = 0 0 xor 1 = 1 Если два бита одинаковы то результат 0, если два бита разные то результат 1 Строка xor ah,ah результат в ah = 0 (все биты равны нулю 00000000b) xor приемник, источник ;приемник = источнику после операции xor в приемнике ноль. Поэтому строки xor ah,ah int 16h нужно в буквальном смысле заменить mov ah,0 int 16h Удачи

Ответ отправил: An42 (статус: 4-ый класс) Ответ отправлен: 13.06.2007, 12:57 Оценка за ответ: 5 Комментарий оценки: Спасибо =)

Вопрос № 91.225

Здравствуйте уважаемые эксперты. У меня проблема, надо решить задачу до 14.06.07 (т.е. до завтра), ато к экзамену не допустят. Вот ее текст: Ввести с клавиатуры число от 1 до 1999 и вывести его в форме римской цифры (т.е. если вводим 5, на экран должно выводиться V, если 9, то IX и т.д.) Заранее благодарен Стас.

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Tochkaopori! Смотрите приложение. Программа на число 1999 выдает MCMXCIX, но если верить правилам записи римских цифр, то справедлива и такая запись MIM. Удачи! Приложение: MODEL small stack 100 .186 DATASEG EnterNumber db 13,10,'enter you number:$' RomaOut db 13,10,'you number in roma:$' RomaNumb db 'IVXLCDM ',0 Number dw 99 outNumRoma db 17 dup('$') CODESEG start: mov ax,@DATA mov ds,ax mov es,ax ;начинаем ввод числа mov ah,09 mov dx,offset EnterNumber int 21h ; xor si,si ;вводим без эхо и проверяем ввод go_input: mov ah,07 int 21h cmp al,13 jz go_roma cmp al,'0' jl go_input cmp al,'9' jg go_input ;выводим введенную цифру push ax int 29h pop ax ;формируем вводимое число xchg si,ax mov bx,10 mul bx and si,0fh add si,ax jmp short go_input ;начинаем вывод в римской записи go_roma: push si mov ah,9 mov dx,offset RomaOut int 21h pop ax mov di,offset outNumRoma+16 mov byte ptr[di],'$' dec di mov si,offset RomaNumb ;получаем младшую цифру числа numA: xor dx,dx mov bx,10 div bx ;проверяем остаток от деления or dx,dx jz numH xor cx,cx xor bx,bx ;проверяем на 5 cmp dl,5 jl numC jg numB ;= 5 mov cl,[si+1] jmp short numE ;>5 numB: inc ch sub dl,5 ;<5 numC: cmp dl,4 jnz numF ;вывод цифр 4:9 or ch,ch jz numD inc bx numD: mov cl,[si+bx+1] mov [di],cl dec di mov cl,[si] numE: mov [di],cl dec di jmp short numH ;вывод цифр 1:3 и 6:8 numF: mov cl,[si] numG: mov [di],cl dec di dec dl jnz numG or ch,ch jz numH mov cl,[si+1] mov [di],cl dec di ;переходим к следующей цифре numH: add si,2 or ax,ax jnz numA ;выводим строку inc di mov dx,di mov ah,9 int 21h ;выход в дос mov ah,4ch int 21h end start --------- И только наступив на грабли мы преобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Практикант) Ответ отправлен: 13.06.2007, 20:17 Оценка за ответ: 4

Вопрос № 91.236

Здравтсвуйте уважаемые эксперты. Не получается придумать алгоритм перекодировки числа с плавающей точкой в BCD. Есть число представленое 4-мя байтами 0х?? 0х?? 0х?? 0х?? оно представляет число с жестким форматом 3 знака запятая 1 десятичный. (например 212,7) мне надо убрав запятую запихнуть это число в 2 байта (0х21 0х27) Как это сделать на tasm? Заранее спасибо!

Отправлен: 13.06.2007, 14:00 Вопрос задал: Васильев Сергей (статус: 3-ий класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 5)

Отвечает: Лысков Игорь Витальевич Здравствуйте, Васильев Сергей! Число float сначала умножаем на 10, чтобы учесть один знак после запятой. Затем сохраняем как BCD в 10-байтовом поле. Первые два байта и будут требуемые Сохраняется в стандарте Intel - младший байт первым. Удачи! Приложение: .model tiny .data num dd 212.7 numBCD dt 0 num10 dw 10 .code .startup fld num fimul num10 fbstp numBCD .exit end --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Практикант) Ответ отправлен: 13.06.2007, 21:29 Оценка за ответ: 5 Комментарий оценки: Честно говоря не удволетворен ответом но по своей вине. Плохо задал вопрос. Я хотел понять алгоритм преобразования не используя команд с плавающей точкой.

Отвечает: Зенченко Константин Николаевич Здравствуйте, Васильев Сергей! Попробуйте так lodsw shl al,4 shr ax,4 в итоге младшие полвины 2-х байтов будут в одном байте. Удачи! --------- И только наступив на грабли мы преобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Практикант) Ответ отправлен: 14.06.2007, 11:00 Оценка за ответ: 1 Комментарий оценки: Вопрос был о перекодировке, а не распределении по байтам. От того что младшие половины будут в одном байте float не превратится в равноценный BCD

Вопрос № 91.293

Здраствуйте. Помогите пожалуста сделать следующее: Задается кол-во элементов цепочки (больше 2). Но цепочка должна быть такая 1,1,2,3,5,8 и т.д.(т.е. каждый следующий член равен сумме двух предыдущих, а два первых эл-та всегда единицы). И нужно подсчитать сумму всех эл-ов данного ряда. Я понимаю что задачка ерундовая, но я в этом 0. Заранее огромное спасибо.

Отправлен: 13.06.2007, 20:19 Вопрос задал: Семин Борис Иванович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Семин Борис Иванович! Смотрите приложение! Проверок в программе нет никаких. Удачи! Приложение: MASM;IDEAL or MASM MODEL small stack 50 .186 DATASEG inpNumb db 13,10,'enter number >2:$' outNumb db 13,10,'you summa:$' CODESEG start: mov ax,@DATA mov ds,ax mov es,ax ;начинвем ввод mov ah,9 mov dx,offset inpNumb int 21h ;вводим только цифры xor cx,cx go_inp: mov ah,07 int 21h cmp al,13 jz go_make cmp al,'0' jl go_inp cmp al,'9' jg go_inp ;выводим push ax int 29h pop ax ;формируем число xchg cx,ax mov bx,10 mul bx and cx,0fh add cx,ax jmp short go_inp ;2-а первых go_make: mov dx,1 mov bx,1 ;отнимем 2-а первых sub cx,2 mov ax,dx add ax,bx ; make_summa: add dx,bx add ax,dx ;меняем слагаемые push dx push bx pop dx pop bx loop make_summa ;начинаем вывод push ax mov ah,9 mov dx,offset outNumb int 21h pop ax ;переводим число из 2-ой в 10-ую запись mov bx,10 xor cx,cx make_numb: xor dx,dx div bx push dx inc cx or ax,ax jnz make_numb ;выводим число в 10-ом виде make_out: pop ax or al,30h int 29h loop make_out ;выход в дос mov ah,4ch int 21h end start --------- И только наступив на грабли мы преобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Практикант) Ответ отправлен: 13.06.2007, 21:01

Вопрос № 91.301

Помогите найти информацию по темке: Работа с портами ввода-вывода звуковой карты (в ассемблере)

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Jungle_jungle! Зубков:Ассемблер глава 5. Удачи! --------- И только наступив на грабли мы преобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Практикант) Ответ отправлен: 13.06.2007, 21:17

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