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

Выпуск № 725
от 17.04.2007, 01:05

Вопрос № 82.035

Здравствуйте! Стоит задача повеситься на прерывание COM-порта и организовать буферный обмен между прибором и компом под управлением MS-DOS. Мой алгоритм следующий: - сначала инициализирую COM-порт (LISTING 1), - потом вешаю резидента сл. способом (на примере 21 прерывания)(LISTING 2) - создаю буфер и накапливаю в нем символы В ходе реализации возникли проблемы: [разработка на ноутбуке с ms-dos и обычным PC, соединенными через COM1 посредством кабеля] 1. На какое прерывание вешать обработку сообщений от порта? 2. Если первым действием я просто инициализирую порт (LISTING 1) на ноутбуке, затем на PC запускаю программу-терминал и посылаю какой-нибудь символ, то на ноутбуке, запустив программку-считывания с 3f8(для первого порта) я ничего не получаю. Почему? Учитывая, что при инициализации на ноутбуке последним делом я разрешаю обработку прерываний. Такое ощущение, что прерывание попросту не работает. Я также пробывал проверять 3f9 для фиксации флагов появления прерываний, одновременно термналом посылая символы. 3. Программы, приведенные в листингах верны - они тестировались. Прочтя множества материала, запутался окончательно в последовательности итераций. Намекните на возможную ошибку. В общем не удается перехватить прерывание идущее на порт Приложение: [LISTING 1]------------------------------------- .model tiny/AT .data .code org 100h start: ; getting address of COM in 'COM_address' mov ax, 40h mov es, ax xor ax, ax ; get real adress of COM port in 'dx', which number ; stored in 'COM_port' var mov di, offset COM_port mov cl, byte ptr ds:[di] dec cl shl cx, 1 mov di, cx mov dx, es:[di] cmp dx, 0h jne $+5 jmp exit_m ; get databits mov di, offset COM_databits mov cl, byte ptr ds:[di] cmp cl, 5 je databits_5 cmp cl, 6 je databits_6 cmp cl, 7 je databits_7 ; default - 8 bits jmp databits_8 databits_5: mov al, 00000000b jmp get_stopbits databits_6: mov al, 00000001b jmp get_stopbits databits_7: mov al, 00000010b jmp get_stopbits databits_8: mov al, 00000011b get_stopbits: ; get stopbits mov di, offset COM_stopbits mov cl, byte ptr ds:[di] cmp cl, 1h jne stopbits_2 stopbits_1: or al, 000b jmp get_parity stopbits_2: or al, 100b get_parity: ; get parity mov di, offset COM_parity mov cl, byte ptr ds:[di] cmp cl, 1 jl parity_none ; if less je parity_even ; if equal jmp parity_odd ; if greater parity_none: or al, 000000b jmp get_next parity_even: or al, 011000b jmp get_next parity_odd: or al, 001000b get_next: ; setting bit 7 in 1, because of baudrate initialization or al, 10000000b ; write settings to LCR registr (base_com_adress + 3): ; - databits ; - stopbits ; - parity ; - enable divizion of frequency push dx add dx, 3 out dx, ax pop dx push ax ; setting baudrate xor ax, ax ; get baudrate mov di, offset COM_baudrate mov cl, byte ptr ds:[di] cmp cl, 0 jne $+8 mov ax, 1040 ; rate = 110 jmp done cmp cl, 1 jne $+8 mov ax, 768 ; rate = 150 jmp done cmp cl, 2 jne $+8 mov ax, 384 ; rate = 300 jmp done cmp cl, 3 jne $+8 mov ax, 192 ; rate = 600 jmp done cmp cl, 4 jne $+8 mov ax, 96 ; rate = 1200 jmp done cmp cl, 5 jne $+8 mov ax, 48 ; rate = 2400 jmp done cmp cl, 6 jne $+8 mov ax, 24 ; rate = 4800 jmp done cmp cl, 7 jne $+8 mov ax, 12 ; rate = 9600 jmp done cmp cl, 8 jne $+8 mov ax, 6 ; rate = 19200 jmp done cmp cl, 9 jne $+8 mov ax, 3 ; rate = 38400 jmp done cmp cl, 0ah jne $+8 mov ax, 2 ; rate = 57600 jmp done cmp cl, 0bh jne $+8 mov ax, 1 ; rate = 115200 ; writing low and high bytes of 'ax' in ; 'BASE_COM_ADRESS' and 'BASE_COM_ADRESS'+1 done: out dx, al inc dx xchg al, ah out dx, al pop ax xor al, 10000000b add dx, 2 out dx, ax in al, 21h and al, 0efh out 21h, al mov ah, 10h int 16h exit_m: int 20h ; default setings for COM-port BASE_BUF_ADDR dw 400h COM_port db 1h COM_baudrate db 6 dup(7) COM_databits db 08h COM_stopbits db 01h ; 0 - 1 ; >0 - 2 COM_parity db 0h ; 0-none, 1-even, 2-odd end start [LISTING 1]------------------------------------- [LISTING 2]------------------------------------- .model tiny/AT .code org 100h start: jmp init old_int_handler dd 0 new_str db 'this_is_my_shit','$' new_handler: ;--setting up resident code---------------------- pushf cmp ah, 09h je go_on popf jmp dword ptr cs:[old_int_handler] go_on: push ds push dx push cs pop ds mov dx, offset new_str pushf call dword ptr cs:[old_int_handler] pop dx pop ds popf iret init: ; save native handler of 'x'h interrupt mov ax, 3521h int 21h mov word ptr cs:[old_int_handler], bx mov word ptr cs:[old_int_handler+2], es ; setting new handler for int 'x'h mov ax, 2521h mov dx, offset new_handler int 21h mov dx, offset init inc dx int 27h mes1 db 'testing1','$' end start [LISTING 2]-------------------------------------

Отправлен: 11.04.2007, 07:52 Вопрос задал: Nikkidemo (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Евгений Иванов Здравствуйте, Nikkidemo! Посмотри мои исходники. Может быть, помогут. http://eugene-ivanov.narod.ru/research_mou3.htm --------- Знания - сила

Ответ отправил: Евгений Иванов (статус: Профессор) Россия, Нижний Новгород Тел.: +78313145721 Организация: M2Media.ru Адрес: Нижний Новгород, ул.Малая Ямская WWW: Eugene Ivanov ICQ: 214889076 ---- Ответ отправлен: 11.04.2007, 10:04

Отвечает: Зенченко Константин Николаевич Здравствуйте, Nikkidemo! для прямого кабельного соединения необходим нуль-модемнный кабель есть для COM,LPT и LAN посмотрите распайку тут: http://www.hardwarebook.info Удачи! --------- И только наступив на грабли мы преобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: 10-ый класс) Ответ отправлен: 11.04.2007, 10:47

Вопрос № 82.050

необходимо составить в памяти таблицу ascii символов с диапазоном кодов от 51 до 219 по столбцам из 12 символов.затем вывести на экран. помогите.

Отправлен: 11.04.2007, 10:25 Вопрос задал: Biggle (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 10)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Biggle! Пишете макрос: Number = 51 AsciTable label byte rept (219-51+1) db Number Number = Number +1 endm в память будут записаны последовательно цифры от 51 до 219 AsciTable - начало таблицы. Удачи --------- И только наступив на грабли мы преобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: 10-ый класс) Ответ отправлен: 11.04.2007, 10:40

Отвечает: An42 Здравствуйте, Biggle! Программу составил, если это то, что нужно, то рад помоч Удачи Приложение: ;составить в памяти таблицу ascii символов ; с диапазоном кодов от 51 до 219 по столбцам из 12 символов. ;затем вывести на экран ;--- stack segment para stack 'stack' dw 32 dup(?) stack ends ;--- data segment para 'data' tascii db 14 dup(' '),0ah,0dh ;Создаем таблицу 12 строк x 14 столбцов db 14 dup(' '),0ah,0dh ; 0ah и 0dh нужны для вывода на экран db 14 dup(' '),0ah,0dh ; функцией ah,09 db 14 dup(' '),0ah,0dh db 14 dup(' '),0ah,0dh db 14 dup(' '),0ah,0dh db 14 dup(' '),0ah,0dh db 14 dup(' '),0ah,0dh db 14 dup(' '),0ah,0dh db 14 dup(' '),0ah,0dh db 14 dup(' '),0ah,0dh db 14 dup(' '),0ah,0dh,'$' data ends ;--- code segment para 'code' begin proc far assume cs:code,ds:data,ss:stack,es:data push ds sub ax,ax push ax mov ax,data mov ds,ax mov es,ax sub ax,ax ;ah - для счетчика, al - для ascii символа mov cx,168 ;Цикл из 168 повторений mov al,51 ;Начальный ascii - символ lea si,tascii b10loop: mov [si],al cmp ah,13 ;Если записали 14 символов, то jb b20 inc si ; увеличивая si на 3 inc si ; обходим 0ah,0dh в таблице inc si mov ah,00 ; и обнуляем счетчик jmp b30 b20: inc si ;Иначе увеличиваем si inc ah ; увеличиваем счетчик b30: inc al ; увеличиваем номер ascii символа loop b10loop ;Продолжаем цикл mov ah,09 ;Функция вывода на экран lea dx,tascii int 21h ret begin endp code ends end begin

Ответ отправил: An42 (статус: 1-ый класс) Ответ отправлен: 12.04.2007, 00:42

Вопрос № 82.060

Уважаемые эксперты, вопрос может быть не по теме, но очень нужно. Не подскажите ли какую либо WinAPI функцию которая берет указатель и возвращает этот же указатель, ничего не меняя в памяти на которую указывает этот указатель.

Отправлен: 11.04.2007, 11:49 Вопрос задал: Ярков Роман Александрович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Пашка Здравствуйте, Ярков Роман Александрович! Можно применить функции для работы со строками: char* strstr(source1,source2) - находин первое вхождение строки source2 в source1. Фишка такая: strstr(source1,source1) Например: #include <string.h> #include <stdio.h> void main(){ char source1[] = "Angelina"; printf("%s ",strstr(source1,source1)); } Осталось только найти похожую API-функцию.

Ответ отправил: Пашка (статус: 1-ый класс) Ответ отправлен: 11.04.2007, 13:16

Вопрос № 82.130

Здравствуйте,уважаемые эксперты!!подскажите пожалуйста как примерно составить следующую программу:при нажатии и отпускании клавиши на экране должен появляться scan-код этой клавиши и ascii-код (для символьных клавиш).

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, YU678LYA! mov ah,00h int 16h читает символ с клавиатуры: al-символ ah-скен-код mov ah,01h int 16h проверяет состояние ввода: если символ есть: флаг НУЛЯ сброшен al-символ ah-скен-код если символа нет флаг НУЛЯ установлен Удачи! --------- И только наступив на грабли мы преобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: 10-ый класс) Ответ отправлен: 11.04.2007, 20:37 Оценка за ответ: 5

Отвечает: Лысков Игорь Витальевич Здравствуйте, YU678LYA! Для ДОС-а ? Нет ничего проще... Строим такой цикл: wait_key: mov ah,0 int 16h ; ждем очередное нажатие ; получаем в ah скан-код, в al ASCII-код cmp ah, 1 ;проверим, например, на Esc (чтобы выйти) je exit ;конец ; преобразовываем к нужному виду коды и выводим (тут проблем, надеюсь, нет?) jmp wait_key ;повтор exit: int 20h --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Практикант) Ответ отправлен: 11.04.2007, 20:44 Оценка за ответ: 5

Вопрос № 82.135

Здравствуйте. У меня такое задание: Вывести на экран те слова, которые отличны от последнего слова строки и первая буква этого слова входит в него ещё раз. Опыта работы со строками в асме вообще нет. Как найти последнее слово и те слова, что отличны от него? Желательно без стека. Работаю с tasm'ом. Заранее спасибо

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, InviZible! См. приложение: Если совсем без строковых команд то команду - lodsb замените на mov al,[si] dec si и команда stc будет не нужна. Удачи! Приложение: MODEL tiny .186 kode segment org 100h assume cs:kode,ds:kode,es:kode start: push cs push cs pop ds pop es ;вводим строку mov ah,0ah mov dx,offset input_max int 21h ;переходим на следующую строку mov al,13 int 29h mov al,10 int 29h ;вычисляем длину строки ;пишем конец строки для вывода xor ah,ah mov al,input_size mov si,offset input_buff add si,ax mov byte ptr[si],'$' dec si mov temp_di,si std ;начинаем искать пробел find_space: lodsb cmp si,offset input_size jz ok_stop cmp al,' ' jnz find_space ;нашли пробел ;si хвост следующего слова ;di хвост последнего слова mov di,temp_di mov temp_si,si inc di _compare: dec di lodsb cmp si,offset input_size jz ok_check cmp al,[di] jnz find_space cmp al,' ' jnz _compare ;стираем совпавшее слово _clear: mov bx,temp_si inc bx ok_clear: dec bx cmp bx,offset input_size jz ok_stop mov al,' ' cmp al,[bx] mov [bx],al jnz ok_clear jmp short find_space ;контроль закончилось ли последнее слово ok_check: cmp byte ptr[di-1],' ' jz _clear ;выводим сообщение ok_stop: mov dx,offset input_buff mov ah,09h int 21h ;выход в дос go_exit: mov ax,4c00h int 21h temp_si dw ? temp_di dw ? input_max db 200 input_size db ? input_buff db 200 dup(?) kode ends end start --------- И только наступив на грабли мы преобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: 10-ый класс) Ответ отправлен: 12.04.2007, 18:54

Вопрос № 82.141

такой пример 100100,как перевести из двоичной системы в десятичную.

Отправлен: 11.04.2007, 21:24 Вопрос задал: George Cracker Crackerovich (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Зенченко Константин Николаевич Здравствуйте, George Cracker Crackerovich! число_десятичное=0x2^7+0x2^6+1x2^5+0*2^4+0x2^3+1x2^2+0x2^1+0x2^0 где: 0x2^0-степень основания(в даном случае двойки) | | | | | | | знак степени | | основание(в даном случае двойка) | знак умножения цифра из Вашего числа степени двойки в Вашем числе:543210 Ваше число из вопроса :100100 Удачи --------- И только наступив на грабли мы преобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: 10-ый класс) Ответ отправлен: 11.04.2007, 21:57

Отвечает: Sov Здравствуйте, George Cracker Crackerovich! 100100=1*2^5+0*2^4+0*2^3+1*2^2+0*2^1+0*2^0=36

Ответ отправил: Sov (статус: 1-ый класс) Ответ отправлен: 12.04.2007, 06:16

Отвечает: An42 Здравствуйте, George Cracker Crackerovich! двоичное число 100100 номер позиции 543210 перевод в десятичную 100100=1*2^5+0*2^4+0*2^3+1*2^2+0*2^1+0*2^0=32+0+0+4+0+0=36 или слева на право первую цифру умножаем на 2 и прибавляем последующую цифру, затем к полученный результат умножаем на 2 и прибавляем последующую цифру и т.д. другой способ перевод 100100 номера шагов 123456 первый шаг: первую с лева цифру умножаем на 2 и прибавляем следящую цифру 0, 1*2+0=2 второй шаг: полученный результат первого шага умножаем на 2 и прибавляем следующую цифру 0, 2*2+0=4 третий шаг: полученный результат второго шага умножаем на 2 и прибавляем следующую цифру 0, 4*2+1=9 четвертый шаг: полученный результат второго шага умножаем на 2 и прибавляем следующую цифру 1, 9*2+0=36 последний шаг к полученному результату прибавить последнюю цифру в нашем примере это 0, 36+0=36 Удачи

Ответ отправил: An42 (статус: 1-ый класс) Ответ отправлен: 12.04.2007, 09:45

Вопрос № 82.144

КАК ПОЛЬЗОВАТЬСЯ ПРОГРАММОЙ MASM 6.12

Отправлен: 11.04.2007, 21:54 Вопрос задал: George Cracker Crackerovich (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Зенченко Константин Николаевич Здравствуйте, George Cracker Crackerovich! 1)В любом редакторе набираете текст программы на языке ассемблера. 2)Сохраняете на диске в папку BIN каталога MASM. 3)Дальше "ПУСКПРОГРАММЫ"(STARTPROGRAMS) ищете значек "Сеанс ДОС"(MS-DOS Prompt") запускаете его(. 4)Используя команды ДОСа переходите в папку BIN каталога MASM. 5)Вводите команду ML PROGR.ASM 6)Если есть ошибки начинаете с п.1(исправление ошибок) 7)Запускаете программу. Удачи! --------- И только наступив на грабли мы преобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: 10-ый класс) Ответ отправлен: 11.04.2007, 22:13

Отвечает: P@lach Здравствуйте, George Cracker Crackerovich! Для компиляции используется файл ml.exe [имя_файла.asm] Например необходимо скомпилировать файл prog1.asm в com файл, тогда в командной строке нужно писать ml.exe prog1.asm /AT

Ответ отправил: P@lach (статус: 2-ой класс) Ответ отправлен: 12.04.2007, 10:01

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Email: support@rusfaq.ru, тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.50 (beta) от 15.04.2007