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

Выпуск № 898
от 11.11.2007, 23:35

Вопрос № 108.198

Здравствуйте! Вот такой у меня вопрос: я купил книгу Калашникова "Ассемблер это просто" , скачал все необходимое с его сайта и принялся все это добро устанавливать. После установки в xp ,на диск С, захожу в папку masm611in пытаюсь открыть двойным щелчком все файлы, а они появляются на четверть секунды в виде черного экрана и закрываются (все файлы кроме QH.exe там под заголовком "quickhelp failed to install" на ходится текст). Пожалуйста скажите что делать, как запустить и начать осваивать программу masm

Отправлен: 06.11.2007, 01:19 Вопрос задал: Сергей (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: _beast Здравствуйте, Сергей! винды у меня нету и с правильной последовательностью производимых дейтий я могу ошибиться, но если говорить кратко то надо сделать так: в Пуске нажать выполнить программу...в окошке вводим cmd...это у нас оболочка виндовая, переходим в каталог исполняемых файлов масма и запускаем... или запускать из фара или чего то на него похожего...

Ответ отправил: _beast (статус: 3-ий класс) Ответ отправлен: 06.11.2007, 02:17 Оценка за ответ: 5 Комментарий оценки: Спасибо за расмотрение моего вопроса и краткий ответ. Буду пробовать.

Отвечает: Gwest Здравствуйте, Сергей! создай текстовый файл 1.txt открой его и напиши следующее echo off имя файла который надо открыть pause>nul сохраняем файл и переименовываем в 1.bat теперь чтоб запустить нужную прогу надо всеголишь прописать ее в этом файле и запустить его. PS: В винде как такогого нет доса поэтому программы написанные под дос вызывают эмулятор доса который по завершению работы проги тут же закрывается и вы ничего неуспеваете увидеть. --------- Если играть трезвым багов становится меньше...

Ответ отправил: Gwest (статус: 3-ий класс) Ответ отправлен: 06.11.2007, 14:28

Вопрос № 108.305

Здравствуйте, скажите, пожалуйста как вывести на экран значения флагов байта статуса клавиатуры. Спасибо

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

Отвечает: Boriss Здравствуйте, Подовалов Иван Павлович! Если без расшифровки битов, то можно так, как в приложении Если нужно с расшифровкой, то напишите в минифоруме - это тоже просто Приложение: .model tiny .code org 100h start: mov ax, 3 int 10h CALL binshow int 20h binshow proc mov AX, 0040h mov ES, AX mov DX, [ES:017h] mov CX, 16 @1: ror DX,1 mov al, '0' adc al, 0 int 29h loop @@1 ret binshow endp end start --------- Вывод - то место в тексте, где вы устали думать

Ответ отправил: Boriss (статус: Профессор) Россия, Саранск Организация: mte WWW: Программирование на Паскале ---- Ответ отправлен: 07.11.2007, 13:06

Отвечает: Зенченко Константин Николаевич Здравствуйте, Подовалов Иван Павлович! Смотрите приложение. В программе используется прямое чтение байта состояния клавиатуры, которое полностью аналогично функциям: INT 16h, AH = 02h, 12h, 22h — Считать состояние клавиатуры Ввод: АН = 02h (83/84-key), 12h (101/102-key), 22h (122-key) Вывод: AL = байт состояния клавиатуры 1 АН = байт состояния клавиатуры 2 (только для функций 12h и 22h) Байт состояния клавиатуры 1 (этот байт всегда расположен в памяти по адресу 0000h:0417h или 0040h:0017h): Бит 7: Ins включена Бит 6: CapsLock включена Бит 5: NumLock включена Бит 4: ScrollLock включена Бит 3: Alt нажата (любая Alt для функции 02h, часто только левая Alt для 12h/22h) Бит 2: Ctrl нажата (любая Ctrl) Бит 1: Левая Shift нажата Бит 0: Правая Shift нажата Байт состояния клавиатуры 2 (этот байт всегда расположен в памяти по адресу 0000h:0418h или 0040h:0018h): Бит 7: SysRq нажата Бит 6: CapsLock нажата Бит 5: NumLock нажата Бит 4: ScrollLock нажата Бит 3: Правая Alt нажата Бит 2: Правая Ctrl нажата Бит 1: Левая Alt нажата Бит 0: Левая Ctrl нажата Удачи! Приложение: MASM;IDEAL or MASM MODEL small stack 50 .186 DATASEG mess db 13,10,'byte:$' CODESEG ;настраиваемся на сегмент данных start: mov ax,@DATA mov ds,ax ;настраиваемся на сегмент bios xor ax,ax mov es,ax ;ячейка с байтом состояния клавиатуры mov bx,417h ;выводим сообщение mov ah,9 mov dx,offset mess int 21h ;читаем 1-ый байт состояния клавиатуры из bios mov dl,es:[bx] ;будем выводить побитно mov cx,8 ;цикл вывода a: shl dl,1;сдвигаем влево через флаг CF xor al,al;сбрасываем аккумулятор adc al,30h;преобразовываем в символ 0 или 1 int 29h;выводим в режиме телетайпа в текущую позицию loop a; СХ=СХ-1,если СХ больше 0 то переход на метку а ;выход mov ah,4ch int 21h end start --------- И только наступив на грабли мы приобретаем драгоценный опыт!

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

Отвечает: An42 Здравствуйте, Подовалов Иван Павлович! Флаги статуса клавиатуры находятся по адресу (0040:0017h и 0040:18h) В приложение показано как вывести их на экран. Удачи Приложение: title Вопрос 108305 ; Вывод на экран значения ; флагов байта статуса клавиатуры .286 ; Цвета LIGHTBLUE equ 9 ;синий LIGHTGREEN equ 10 ;зеленый LIGHTRED equ 12 ;красный YELLOW equ 14 ;желтый WHITE equ 15 ;белый stacksg segment stack dw 100h dup(?) stacksg ends data segment ASCIIcod db 00 ; Текстовые сообщеня: 1байт - цвет текста, 2байт - номер строки, 3байт - номер столбца ; далее сам текст заканчивающийся нулем. Text1 db WHITE,0,0,'Состояние битов первого байта' db ' флага клавиатуры (0040:17h)',0 db LIGHTGREEN,1,0,'№ бита Значение бита Назначение бита',0 db YELLOW,2,0,' 0 --- Нажата правая клавиша Shift',0 db YELLOW,3,0,' 1 --- Нажата левая клавиша Shift',0 db YELLOW,4,0,' 2 --- Нажата любая клавиша Ctrl',0 db YELLOW,5,0,' 3 --- Нажата любая клавиша Alt',0 db YELLOW,6,0,' 4 --- Режим Scroll Lock активен',0 db YELLOW,7,0,' 5 --- Режим Num Lock активен',0 db YELLOW,8,0,' 6 --- Режим Caps Lock активен',0 db YELLOW,9,0,' 7 --- Режим Insert активен',0 db WHITE,11,0,'Состояние битов второго байта' db ' флага клавиатуры (0040:18h)',0 db LIGHTGREEN,12,0,'№ бита Значение бита Назначение бита',0 db YELLOW,13,0,' 0 --- Нажата левая клавиша Ctrl',0 db YELLOW,14,0,' 1 --- Нажата левая клавиша Alt',0 db YELLOW,15,0,' 2 --- Нажата правая клавиша SysRec',0 db YELLOW,16,0,' 3 --- Нажата правая клавиша пауза',0 db YELLOW,17,0,' 4 --- Нажата клавиша Scroll Lock',0 db YELLOW,18,0,' 5 --- Нажата клавиша Num Lock',0 db YELLOW,19,0,' 6 --- Нажата клавиша Caps Lock',0 db YELLOW,20,0,' 7 --- Нажата клавиша Insert',0 db WHITE,22,0,'Нажатие Shift, CapsLoc, Ctrl, Alt, SysRg, Scroll Lock',0 db WHITE,23,0,'Insert, Num Lock изменяется соответствующий бит',0 db LIGHTBLUE,24,17,'Для выхода нажмите клавишу ESC',0 ; Вывод Битов флага клавиатуры Text2 db LIGHTRED,1,19,' ',0 Text3 db LIGHTRED,12,19,' ',0 ; Адрес оригинального обработчика клавиатуры Int09_ofs dw ? Int09_seg dw ? data ends assume cs:code,ds:data code segment ; Основной модуль программы begin: mov ax,data mov ds,ax ; Установка текстового режима mov ax,03h int 10h ; Спрячим курсор, установив его в позицию 25 строка 0 столбец call Cursor ; Подготовка к выводу текста на экран mov si,offset Text1 mov cx,23 @C0: call TextColor ; Процедура вывода текста loop @@C0 call Int09_vect ; Сохраним старый адресе прерывания 09 ; и установим новый обработчик прерывания 09 ; Контроль нажания клавиши ESC и вывод состояния флага клавиатуры @C1: cmp ASCIIcod,01 je @@C2 call KeybFlag jmp short @@C1 ; Востановление оригинального аброботчика @C2: call RestoreInt09 ; Выходв в DOS mov ah,4ch int 21h ;*************************************************************** ;* ВОСТОНОВЛЕНИЕ ОРИГИНАЛЬНОГО ОБРАБОТЧИКА 09 * ;*************************************************************** RestoreInt09 proc pusha push es push 0 pop es cli mov ax,Int09_ofs mov word ptr es:[09h*4],ax mov ax,Int09_seg mov word ptr es:[09h*4+2],ax sti pop es popa ret RestoreInt09 endp ;*************************************************************** ;* ПРОЦЕДУРА ОПРЕДЕЛЕНИЕ ФЛАГОВ КЛАВИАТУРЫ * ;* Флаги клавиатуры расположены по адресу: * ;* 1-байт 0040:0017h * ;* 2-байт 0040:0018h * ;*************************************************************** KeybFlag proc push 40h pop es ; Байт по адресу 0040:0017 mov al,byte ptr es:[0017h] ; в al-1байт флага mov ah,00000001b ; ah нужен для тестирования битов флага xor cx,cx mov Text2+1,1 ; инициализация строки вывода для первых восьми битов флага @M0: test al,ah ; тестирование битов jz @@M1 ; если, тестируемый бит не ноль mov Text2+3,31h ; то выведем на экран '1' jmp short @@M2 @M1: mov Text2+3,30h ; иначе на экрам '0' @M2: add Text2+1,1 ; увелчим номер строки mov si,offset Text2 ; в DS:SI начальный адрес call TextColor ; вывод на экран inc cl cmp cl,7 ; проверяем количество проверенных битов, если меньше 8(битов) ja @@M3 shl ah,1 ; то сдвигаме в ah бит в лево jmp @@m0 ; и продолжаем дальше тестировать 1байт @M3: ; иначе переходим на второй байт (0040:0018h) ; Байт по адресу 0040:0018h mov al,byte ptr es:[0018h] mov ah,00000001b xor cx,cx mov Text3+1,12 @M4: test al,ah jz @@M5 mov Text3+3,31h jmp short @@M6 @M5: mov Text3+3,30h @M6: add Text3+1,1 mov si,offset Text3 call TextColor inc cl cmp cl,7 ja @@M7 shl ah,1 jmp @@M4 @M7: ret KeybFlag endp ;*************************************************************** ;* НОВЫЙ ОБРАБОТЧИК ПРЕРЫВАНЯ 09 (клавиатура) * ;* Нужен для того, чтобы пререхватиь скан-код 01 (клавиша ESC) * ;* для завершение программы * ;*************************************************************** KeyboardInt proc pusha push ds ; Инициализируем сегмента data mov ax,data mov ds,ax in al,60h ; Считываем скан-код из порта 60h push ax ; сохранит скан-код mov al,20h ; послать команду EOI out 20h,al ; в ведущий контроллер pop ax ; востановить ax sti cmp al,01 ; Проверка скен-кода (нажатая клавиша ESC?) jne @@K0 ; если нет, то дальше mov ASCIIcod,al ; если да, то сохраним в ASCIIcod @K0: pushf ; сохраним флаги и перейдем на call dword ptr Int09_ofs ; оригинальный обработчик pop ds popa iret KeyboardInt endp ;*************************************************************** ;* СОХРАНЕНИЕ АДРЕСА ПРЕРЫВАНИЯ 09 * ;* УСТАНОВКА НОВОГО ПРЕРЫВАНИЯ 09 * ;*************************************************************** Int09_vect proc push ax push es push 0 pop es mov ax,word ptr es:[09h*4] ; в ax смещение адреса оригинального обработчика mov Int09_ofs,ax ; сохраним в Int09_ofs mov ax,word ptr es:[09h*4+2]; в ax сегментный адрес оригинального обработчика mov Int09_seg,ax ; сохраним в Int09_seg cli ; запрет прерываний mov ax,offset KeyboardInt ; смещение процедуры KeyboardInt в ax mov word ptr es:[09h*4],ax ; сохраним по адресу оригинального обработчика mov ax,seg KeyboardInt ; сегментный адрес процедуры KeyboardInt в ax mov word ptr es:[09h*4+2],ax ; сохраним по адресу оригинального обработчика sti ; разрешить прерывания pop es pop ax ret Int09_vect endp ;*************************************************************** ;* ВЫВОД ЦВЕТНОГО ТЕКСТОВОГО СООБЩЕНИЯ * ;* С ИСПОЛЬЗОВАНИЕМ ТЕКСТОВОГО ВИДИОБУФЕРА * ;* Параметры передаются через одну структуру: * ;* 1 - байт цвет * ;* 2 - байт номер строки * ;* 3 - байт номер столбца * ;* далее сам текст, заканчивающийся нулем. * ;* Начальный адрес строки DS:SI * ;*************************************************************** TextColor proc push ax push bx push es ; Установим в es начало видеобуфера push 0b800h pop es cld ; Направление строковых операций в сторону увеличение адресов lodsb ; в al - 1байт (цвет текста) mov bh,al ; сохраним в bh xor ah,ah lodsb ; в al - 2байт (номер строки) mov bl,160 mul bl ; в ax номер байта в видиобуфере mov di,ax ; сохраним в di xor ah,ah lodsb ; в al - 3байт (номер столбца) add di,ax ; дважды прибавим к di add di,ax ; в di - начальное положение в строки в видеобуфере mov ah,bh ; в ax - цвет текста @T0: lodsb ; в al - символ текста, тепер в ax (ah=цвет, al=символ) cmp al,0 ; проверка на конец строки je @@T1 stosw ; значение ax в видеобуфер jmp short @@T0 @T1: pop es pop bx pop ax ret TextColor endp ;*************************************************************** ;* ПРОЦЕДУРА УСТАНОВКИ КУРСОРА * ;* Используется регистры установки курсора видеоконтроллера * ;*************************************************************** Cursor proc push ax push dx push bx ; Вычислим положение курсора в позиции 25 строка 0 столбец mov al,25 ; в al=25 строка mov ah,80 ; 80 колонок в строке mul ah ; при умножении получим позицию курсора в ax mov bl,al ; сохраним младший байт курсора mov dx,3d4h ; регистр управления курсором mov al,0eh ; устанавить старший байт курсора out dx,ax ; устанавливаем inc al ; установить младший байт курсора mov ah,bl ; записываем в ah младший байт курсора out dx,ax ; устанавливаем ; Теперь курсор за пределами экрана pop bx pop dx pop ax ret Cursor endp code ends end begin

Ответ отправил: An42 (статус: 5-ый класс) Ответ отправлен: 09.11.2007, 06:11

Вопрос № 108.307

Всем привет. Где можно скачать нормальний ASM.

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

Отвечает: _beast Здравствуйте, Vova buksir! вообще у каждого понятия "нормальности" асма разные, у меня это например вообще асм с at&t синтаксисом. вообще google выручал почти всегда и везде, хотя лучший ресурс по программированию на асме всегда был wasm.ru(по крайней мере для меня) там же и всевозможные fasm'ы masm'ы и tasm'ы...

Ответ отправил: _beast (статус: 3-ий класс) Ответ отправлен: 06.11.2007, 23:19

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