RusFAQ.ru: программирование на языке Assembler

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Assembler

Выпуск № 137
от 15.05.2005, 13:20

Вопрос № 20607

Здравствуйте, уважаемые эксперты! Помогите решить следующую задачу. Нужно перевести число, хранящееся в паре dx:ax в строку. Казалось бы всё так просто, но нужно использовать только команды 286 процессора(на нём нет 32х битных регистров). Я понимаю, что нужно делить пару на 10, но как это делать, ведь частное может не поместиться в ax. Ещё вариант - делить на 10000 и потом отдельно рассматривать частное и остаток, но и в этом случае частное может не поместиться в ax. Что делать? Помогите

Отправлен: 09.05.2005, 16:54 Вопрос задал: Ермаков Алексей (статус: Посетитель) Всего ответов отправлено: 1

Отвечает: Евгений Иванов Здравствуйте, Ермаков Алексей! ты ещё калькулятор используй. или счёты. ;) если 32 бита, то это 4 миллиона. есть команда деления DIV. ты должен знать пределы чисел, ч которыми работаешь. и делить_сразу_на нужный коэффициент. если не знаешь, то можно проверять на границы десятков и снижать коэффициент. хотя разделить ты сможешь всего на 65536, не более. так что на большие числа тебе придётся делить столбиком. или применяй матем_сопроцессор, что намного проще. опять же, наибольшее число, которое ты можешь узнать, это 27100000h числа больше этого дели на числа больше 10000, например, на 60000, а потом применяй восстанавливающий алгоритм. число 805306368: 805306368/60000 = 13421, в остатке будет 46368 коэффициент 6. значит, умножаем на 13421 * 6 = 13A8Eh получаем первую цифру = 3. и т.д. надеюсь, если у тебя логика работает, ты продолжишь этот алгоритм ;) Удачи!

Ответ отправил: Евгений Иванов (статус: Профессор) Отправлен: 09.05.2005, 18:18

Вопрос № 20614

Здравствуйте! Написана программа на ассемблере, которая переводит 16-разрядное число в символьном виде в двоичное. Программа компилируется без ошибок. Но не работает. Помогите, кто сможет. Спасибо! Приложение: ; tasm /m /z hex2bin ; tlink /t /x hex2bin MODEL Tiny .286 .CODE SMART LOCALS Start: mov ah,0Ah lea dx,String int 21h ; Ожидаем ввод cmp String[1],1 jb @@Exit ; Выходим, если строка пуста mov ax,word ptr String[2] ja @@TwoDigit ; Строка из 2 цифр mov ah,al mov al,'0' @TwoDigit: int 29h xchg al,ah int 29h ; Выводим цифры ещё раз (т.к. они сотрутся из-за Enter'а) or ax,2020h sub ax,'00' cmp al,'a'-'0' jb @@Digit1 ; Цифра, а не буква sub al,'a'-('9'+1) ; ABCDEF как продолжение ...789 @Digit1: cmp ah,'a'-'0' jb @@Digit2 ; Цифра, а не буква sub ah,'a'-('9'+1) ; ABCDEF как продолжение ...789 @Digit2: and al,0Fh shl ah,4 or ah,al ; AH=число mov al,'=' int 29h ; Выводим '=' mov cx,8 @Next: xor al,al shl ah,1 adc al,'0' int 29h ; Выводим двоичную цифру loop @@Next @Exit: int 20h ; Выход String db 3,?,?,?,? END Start

Отправлен: 09.05.2005, 21:17 Вопрос задал: MMM72 (статус: Посетитель) Всего ответов отправлено: 2

Отвечает: Boriss Здравствуйте, MMM72! А кто 256 байт зарезервирует под PSP? (!!!!) То есть нужно добавить ORG 100h Приложение: MODEL Tiny .286 .CODE SMART LOCALS ORG 100h Start:

Ответ отправил: Boriss (статус: Профессор) Отправлен: 11.05.2005, 17:19

Отвечает: Стас Здравствуйте, MMM72! Если все равно COM или EXE откомпили в COM(добавь Org 100h) и все будет Ок! Если EXE то нужно её привести в EXE вид: ставишь .model small, делишь прогу на сегменты, вместо int 20h - mov ax,4c00h int 21h... лучше исправленный код приклеплю. Компилирушь, a.asm: tasm /m a; tlink a /3 Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 14 суток с момента отправки ответа.

Ответ отправил: Стас (статус: Практикант) Отправлен: 12.05.2005, 01:10

Вопрос № 20615

Здравствуйте, была написана программа по следующему условию. Составить программу для 16-разрядного процессора, реализующую следующее задание: Адрес окружения программы находится в префиксе прграммного сегмента (PSP – область, с которой загружается соответствующая программа) со смещением 2Ch. Сегментный адрес PSP находится в регистрах DS и ES при старте программы. Структура среды окружения: db строка_1,0 db строка_2,0 … db строка_т,0,0,хх,0 db строка_запуска_программы 0 1. Необходимо получить из PSP адрес окружения, по этому адресу в среде окружения найти строку, которая описывает путь запуска программы, выдать ее на экран и номер этой строки. 2. Выдатиьстроку с номером 5, 79. Если строки с заданным именем не существует выдать сообщение «Строка не найдена» 3. Выдать все строки содержащие символ @, в формате: Строка 5: содержимое_строки. Если строки не существует, выдать соответствующее сообщение. Все работает! Но единственное, что нужно, как сделать, чтобы эта программа компилировалась в .ехе, а не .com файл. Простое убирание строчки ORG 100h не помогает. Спасибо Приложение: ; tasm /m /z hex2bin ; tlink /t /x hex2bin .MODEL Tiny .286 .CODE ORG 100h SMART LOCALS Start: push cs pop ds mov di,[cs:2ch] mov es,di xor di,di;es:di=адрес переменных окружения из PSP[2ch] ;ищем 2 нуля - т.к. строка запуска программы за ними xor si,si;si=номер строки, строки нумеруются от 0 xor cx,cx dec cx mov al,0 findnext: inc si;увеличим номер строки repne scasb;ищем ноль в конце cmp byte ptr es:[di], al jne findnext ;нашли 2 нуля и число, пропскаем 3 цифры (0,xx,0) add di,3 ;теперь в es:di - адрес строки, в si - ее номер call printnum call printasciiz mov bx,5 call part2 mov bx,79 call part2 call part3 ret printasciiz proc ;печать строки, оканчивающейся на 0 push ds push es push di pop si pop ds jmp nxtchar addchar: int 29h nxtchar: lodsb cmp al,0 jne addchar pop ds ret endp printnum proc ;печать двухзначного номера в SI mov al,13 int 29h mov al,10 int 29h mov ax,si mov dl,10 div dl add ax,3030h int 29h mov al,ah int 29h mov al,' ' int 29h ret endp part2 proc; mov si,bx call printnum ;проверяется si на равенство искомой строки xor di,di;es:di=адрес переменных окружения из PSP[2ch] xor si,si;si=номер строки, строки нумеруются от 0 xor cx,cx dec cx mov al,0 findnext1: cmp si,bx;ищется строка: jne findend call printasciiz jmp nxt1 findend: inc si;увеличим номер строки repne scasb;ищем ноль в конце cmp byte ptr es:[di], al jne findnext1 ;нашли 2 нуля, конец поиска, печатаем "строка не найдена" mov dx,offset strnf mov ah,9 int 21h nxt1: ret endp ;//Выдать все строки содержащие символ @, в формате: PART3 proc ;каждую строку еще и проверяем на присутствие в нем '@' xor di,di;es:di=адрес переменных окружения из PSP[2ch] xor bx,bx;адрес текущего символа xor si,si;si - номер страницы tst: mov ax,[es:bx] inc bx cmp ax,0;встретились 2 нуля? je seed cmp al,0;началась новая строка? jne nxtchar1 mov di,bx;в di-начало строки inc si;номер строки nxtchar1: cmp al,'@' jne tst call printnum push si call printasciiz pop si jmp tst seed: ret endp .data strnf db "Строка не найдена$" end start

Отправлен: 09.05.2005, 21:20 Вопрос задал: MMM72 (статус: Посетитель) Всего ответов отправлено: 2

Отвечает: Евгений Иванов Здравствуйте, MMM72! модель поставь другую - small. assume тоже поставь.

Ответ отправил: Евгений Иванов (статус: Профессор) Отправлен: 09.05.2005, 21:56

Отвечает: Ayl Здравствуйте, MMM72! 1. Модель не должна быть TINY! 2. ORG 100h не нужен. Поставь ORG 0 3. Вместо команд push cs/pop ds напиши следующее: mov ax, @DATA mov ds, ax 4. Для завершения программы вместо ret используй mov ax, 4c00h/int 21h 5. Добавь сегмент стека 6. После .CODE напиши директиву ASSUME: ASSUME cs:CODE, ss:STACK, ds:DGROUP либо используй директиву .STARTUP (тогда не нужен пункт 3) 7. Убери ключ /t из команды линковщика Вроде все.

Ответ отправил: Ayl (статус: Профессор) Отправлен: 11.05.2005, 16:39

Вопрос № 20628

Добрый день! В книге Зубкова есть такой пример: ; nolock.asm ; самая короткая программа для выключения NumLock, CapsLock и ScrollLock ; запускать без параметров .model tiny .code org 100h ; СОМ-файл. АХ при запуске СОМ-файла без параметров ; в командой строке всегда равен 0 start: mov ds,ax ; так что теперь DS = 0 mov byte ptr ds:0417h,al ; байт состояния клавиатуры 1=0 ret ; выход из программы end start прогоняю его он никаких NumLock, CapsLock и ScrollLock не отключает(лампочки горят). Попробовал такую программу .model tiny .code org 100h ; СОМ-файл. АХ при запуске СОМ-файла без параметров ; в командой строке всегда равен 0 start: mov ax,0040h mov ds,ax xor ax,ax mov byte ptr ds:0017h,al ; байт состояния клавиатуры 1=0 ret ; выход из программы end start то же самое не отключает Хотя в ячейку[0040h : 0017h] 0 записывает. Что здесь может быть? Использую win2000. Заранее спасибо.

Отправлен: 10.05.2005, 12:01 Вопрос задал: r900 (статус: Посетитель) Всего ответов отправлено: 3

Отвечает: Евгений Иванов Здравствуйте, r900! это должно запускаться под чистым досом. чтобы выключить/вкл лампочки, лучше работать с портами.

Ответ отправил: Евгений Иванов (статус: Профессор) Отправлен: 10.05.2005, 21:29

Отвечает: Вiктор Здравствуйте, r900! Я это объяснить не могу, но расскажу про свой опыт. у меня Windows 98. я в дебаггере менял значение этой ячейки, и лампочки загорались/погасали. я также делал аналогичную программу, которая меняла значения той ячейки. Значения ячейки менялись, но лампочки не загорались. но после нажатия любой кнопки лампочки принимали нормальный вид, соответствующий значениям ячейки. тогда в программу после замены значения ячейки добавил принудительный вызов прерывания 9Н. тогда лампочки стали загораться как положено. вот как моя программа работает у меня: сначала все лампочки выкл. запускаю программу - все загораются. нажимаю кнопку - остаётся гореть только NUM LOCK. нажимаю курсорную стрелку - опять все горят. вот такие пироги. согласен с Евгением Ивановым - под досом это должно работать нормально, без выбрыков. Пусть боле сведущие эксперты объяснят вам это, а я тоже послушаю. Приложение: в приложении дамп программы 33C0 xor ax,ax 8EC0 mov es,ax 26A11704 mov ax,es:[00417] 0D7000 or ax,00070 ;" p" 26A31704 mov es:[00417],ax CD09 int 009 26A31704 mov es:[00417],ax C3 retn

Ответ отправил: Вiктор (статус: 3-ий класс) Отправлен: 11.05.2005, 16:20

Отвечает: Стас Здравствуйте, r900! Насколько я знаю эти ячейки используются БИОС только для того чтобы знать горят ли лампочки или нет. Их изменение никак не скажется на самих лампочках. Чтобы зажигать гасить лампочки программируют порты, по моему так: mov al,0edh ; команда изменения лампочек out 64H,al mov al,0;выключить, бит 1 - scroll, бит 2 - Num, бит 3 - Caps, напр. 5 - Scroll+Caps горят out 60H,al

Ответ отправил: Стас (статус: Практикант) Отправлен: 12.05.2005, 01:01

© 2001-2005, RusFAQ.ru, Россия, Москва. Все права защищены.
Идея, дизайн, программирование, авторское право: Калашников О.А.