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

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

Выпуск № 376
от 19.02.2006, 16:36

Вопрос № 35.358

В главе№3 Калашникова идет речь о сегментации памяти. Все понятно, однако как проверить данные в примерах №1 и №2 С Уважением Kont Kontovich

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

Отвечает: PRiSon Здравствуйте, Kont kontovich! Пример Первый...идёт обьяснение как распологаются данные в памяти. Пример второй... простой пример адресации. Для того чтобы проверить данные нужно для начала загрузить их в память... Смотри пример Третий. Из командной строки указываем путь к отладчику те к примеру C:masm611inAFDPRO Твоя Программа.com жмём enter в отладчике всё видно невооружённым взглядом. В нижней части посмотри там эти самые данные (Dima$). вот есть статейки --->>http://www.wasm.ru/publist.php?list=22 Приложение: CSEG segment org 100h _start: mov ah,9 (05) mov dx,offset My_name; Сюда Мы загружаем Смещение(offset) строки относительно сегмента (DS:offset) (06) int 21h (07) int 20h (08) My_name db 'Dima$'; Здесь строка. (09) CSEG ends (10) end _start --------- Стремление - значит получится.

Ответ отправил: PRiSon (статус: 2-ой класс) Отправлен: 14.02.2006, 08:15

Вопрос № 35.360

Здраствуйте! помогите мне решить задачу на асме. -------------- Надо написать программу для перестановки данных регистров ах и сх с использованием стека. Заранее большое спасибо.

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

Отвечает: Евгений Иванов Здравствуйте, Daiver! mov [esp], ax mov cx, [esp] push cx pop ax удачи! --------- Что имеем - не храним, потерявши - плачем

Ответ отправил: Евгений Иванов (статус: Профессор) Отправлен: 13.02.2006, 22:31 Оценка за ответ: 4 Комментарий оценки: хорошоб еслиб полностью, и на том спасибо

Отвечает: Лысков Игорь Витальевич Здравствуйте, Daiver! Или так: push ax push cx pop ax pop cx --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Студент) Отправлен: 13.02.2006, 22:42

Вопрос № 35.372

Привет! Хочу сложить два десятичных числа и вывести результат (десятичный) на экран: CSEG segment assume CS:CSEG, DS:CSEG, ES:CSEG, SS:CSEG org 100h start: mov ah,9 mov ax,5 add ax,8 int 21h int 20h ret CSEG ends end start В итоге получается пустая строка ;-( Что сделать, чтобы добиться цели?

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

Отвечает: Sager Здравствуйте, Retcom! Чтобы вывести результат на экран нужно преобразовать сложенное число в десятичный вид. В 25-выпуске Калашникова подробно рассмотрено как это сделать Приложение: .386 ;Будем использовать команды 80386 процессора, .287 ;А также 287 сопроцессора CSEG segment use16 assume cs:CSEG, ds:CSEG, es:CSEG, ss:CSEG org 100h Start: mov ax,3 int 10h ;Чистим экран mov ah,2 mov dx,40 int 10h ;Установим курсор на середину 0-ой строки call Out_dec ;Процедура вывода десятичного числа, которое в Number_dec ret ;Выход в DOS ;=== Вывод десятичного числа на экран с использованием сопроцессора === Out_dec proc finit ;Инициализация сопроцессора ;На приведенные ниже строки не обращайте пока внимания! ;------- fstcw Dat ;Получим регистр управления сопроцессором и установим RC or Dat,0C00h ;Округление: просто урезаем числа после запятой fldcw Dat ;Загрузим изменения назад в сопроцессор ;------- ;!!! Теперь следим очень внимательно !!! fldz ;Загрузим нуль (LoaD Zero) fild Divider ;Загрузим делитель (10) fild Number_dec ;Загрузим делимое (выводимое число) fst st(7) ;Дублируем делимое ST(7)=ST(0) (STore) Next_sym: fprem ;Делим ST(0) на ST(1) и получаем остаток от деления fistp Dat ;Остаток - в переменную Dat call Out_sym ;Выводим остаток от деления на экран fld st(6) ;ST(0)=ST(6) fdiv st,st(1) ;Делим на 10 ST(0)=ST(0)/ST(1) frndint ;Округляем до целого ST(0) (RouND INTeger) fst st(7) ;Дублируем округленное число fcom st(2) ;ST(0)=ST(2)? (COMpare - сравнение) fstsw ax ;Получим состояние сопроцессора and ax,4500h ;=100010100000000b - Обнулим ненужные нам биты cmp ax,4000h ;=100000000000000b - Проверим... jnz Next_sym ;Не нуль? Тогда обрабатываем следующую цифру... Finish_dec: ret ;Число полностью выведено!!! Выходим из процедуры... ;64-х разрядная переменная для выводимого числа Number_dec dq 1234 ;<=== Выводим это число! ;В данную переменную можно занести два регистра EAX или ;0FFFF:FFFF:FFFF:FFFFh или ;16^16 (16 в 16 степени) или ;18.446.744.073.709.551.600 ;Однако, учитывая, что крайний левый бит сигнализирует сопроцессору о знаке ;числа (положительное или отрицательное), то вывести приведенное выше число ;не удастся. Реально же почти в два раза меньше. Но этого достаточно... Divider dw 10 ;Делитель всегда 10 Dat dw ? ;Временная переменная Out_dec endp ;=== Вывод одного символа на экран в текущую позицию курсора === Out_sym proc push dx ;DX содержит текущую позицию курсора, которую нужно сохранить mov ah,2 mov dl,byte ptr Dat ;DL=остаток от деления на 10 add dl,'0' ;Добавим '0' int 21h ;Выводим остаток от деления pop dx dec dx ;Курсор назад , т.к. вывод идет в обратном порядке mov ah,2 int 10h ret Out_sym endp CSEG ends end Start

Ответ отправил: Sager (статус: Практикант) Отправлен: 14.02.2006, 07:57 Оценка за ответ: 5 Комментарий оценки: Спасибо. если более коротким способом это сделать нельзя, то огромное спасибо! буду изучать.

Отвечает: Беляев Валерий (ака seaman) Здравствуйте, Retcom! Тебе уже 10 раз отвечали, с исходниками полными. Ну нельзя вывести просто число на экран. На экран выводятся литеры. Коды литер стандартизованы. Чтобы вывести 0 надо выводит литеру с кодом 30h, 1 - 31h и.т.д. Если тебе надо вывести просто цифру ну прибавь ты к ней 30h. Если число больше чем 9(десятичное) оно при выводе будет из двух литер - надо их вычислить. делим число на 10 - частное (целое) - старшая цифра, остаток - младшая цифра. Их надо по отдельности выводить на экран, как выводил одиночную цифру меньшую 10. Сначала прибавляем 30h к старшей цифре -выводим на экран, затем аналогично к младшей. Если число больше 99 - делим на 10 - получаем частное большее 9 и остаток - младшую цифру. Вроде ее уже можно было бы вывести на экран, как описано выше, но мы же не арабы, у нас сначала надо выводить старшие цифры. Так что где-то запоминаем остаток. С частным же проделываем то, что описано выше для числа большего 9, но меньшего 99. Затем вспоминаем сохраненную младшую цифру, и вводим ее. Обобщить горазда проще сначала сорудив где-нибудь в памяти строку, представляющую число. Иначе где-то нужно будет каждый раз сохранять остаток, да еще так, чтобы он не испортил предыдущую сохраненную цифру. Можно, конечно просто сохранять их в стеке, а затем при выводе доставать их оттуда. Ну вот вроде разжевал алгоритм, теперь разберемся в твоей программе. Ты смотрел описание функции ДОС int 21h/ah=9? Входные параметры: ds:dx - адрес строки, заканчивающейся '$'. Где она у тебя?

Ответ отправил: Беляев Валерий (ака seaman) (статус: 3-ий класс) Отправлен: 14.02.2006, 08:29 Оценка за ответ: 5 Комментарий оценки: Спасибо

Вопрос № 35.378

Приветствую господа эксперты! Мне задали задачу: ввести два числа и их сумму в двоичном представлении вывести в правый верхний угол экрана. Со всем, кроме двоичного представления разобрался, точнее слепил из кусков кодов, найденных в инете. Помогите с последним штрихом, пожалуйста. Спасибо! Приложение: _DATA segment word public 'DATA' SYMB db 0ah,0dh,'$' MULT10 dw 01 OVERTXT db 'Overflow','$' TXT1 db 'First value:','$' TXT2 db 'Second Value:','$' NAMEPAR1 label byte MAXLEN1 db 6 ACTLEN1 db 5 NAMEFLD1 db 6 dup (' '),'$' BINARY1 dw 00 NAMEOUT1 db 6 dup (' '),'$' NAMEPAR2 label byte MAXLEN2 db 6 ACTLEN2 db 5 NAMEFLD2 db 6 dup (' '),'$' BINARY2 dw 00 NAMEOUT2 db 6 dup (' '),'$' BINAR dw 00 SUMBIN dw 00 SUMOUT db 6 dup (' '),'$' _DATA ends _STACK segment para public 'STACK' stk db 20 dup(' ') _STACK ends _TEXT segment word public 'CODE' assume cs:_TEXT,ds:_DATA,ss:_STACK begin: MAIN proc far push ds sub ax,ax push ax mov ax,_DATA mov ds,ax VVOD: ;ввод чисел lea dx,TXT1 call SCREEN mov ah,0ah lea dx,NAMEPAR1 int 21h call SYMBL ;переход на следующую строку lea dx,TXT2 call SCREEN mov ah,0ah lea dx,NAMEPAR2 int 21h ;----------- lea si,NAMEFLD1-1 mov bl,ACTLEN1 mov MULT10,01 call PREOBR mov ax,BINAR mov BINARY1,ax mov bx,bx sub bx,0 jnz KON lea si,NAMEOUT1+4 mov ax,BINARY1 call OBR ;----------- mov BINAR,00 lea si,NAMEFLD2-1 mov bl,ACTLEN2 mov MULT10,01 call PREOBR mov ax,BINAR mov BINARY2,ax mov bx,bx sub bx,0 jnz KON lea si,NAMEOUT2+4 mov ax,BINARY2 call OBR ;----------- mov ax,BINARY1 add ax,BINARY2 ;сложение jc KON mov SUMBIN,ax lea si,SUMOUT+4 ; обратно mov ax,SUMBIN call OBR ;------------------------------ mov ax,0003h int 10h ;режим текстовый mov ah,1 mov cx,2000h int 10h ;курсор прячем mov ah,2 mov dl,75 int 10h ;перемещаем курсор в нужную точку mov ah,09 lea dx,SUMOUT int 21h ; Вывод суммы чисел ;---------------------------- mov ah,07h int 21h ;Ожидаем нажатие на любую клавишу jmp DOS KON: lea dx,OVERTXT ;перебор call SCREEN DOS: ret ; Выход MAIN endp ;-----------описание процедур PREOBR proc mov cx,10 mov bh,0 B20: mov al,[si+bx] and ax,000fh mul MULT10 jc OVR add BINAR,ax jc OVR mov ax,MULT10 mul cx mov MULT10,ax dec bx jnz B20 OVR: ret PREOBR endp ;----------- OBR proc mov cx,10 c20: cmp ax,10 jb c30 xor dx,dx div cx or dl,30h mov [si],dl dec si jmp c20 c30: or al,30h mov [si],al ret OBR endp ;----------- SYMBL proc ; переход mov ah,09h lea dx,SYMB int 21h ret SYMBL endp ;----------- SCREEN proc mov ah,09h int 21h ret SCREEN endp ;----------- _TEXT ends end begin

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

Отвечает: Sager Здравствуйте, Fantomax! Самый простой способ вывода в двоичном представлении - это разбить число на тетрады и вывести каждую из них по очереди. См. пример в приложении Приложение: ;деление hex на hex и вывод результата на экран в двоичном виде .286 CSEG segment assume cs:CSEG, ds:CSEG, ss:CSEG, es:CSEG org 100h start: mov ax,3 int 10h push 0b800h pop es mov di,322 ; смещение откуда будем выводить число xor dx,dx mov ax,x1 div x2 ;делим х1 на х2 mov data,ax and ah,11110000b rol ah,4 mov al,ah xor ah,ah mov bx,ax mov ch,31h mov cl,30h mov al,30 call bin ;************ mov ax,data and ah,00001111b mov al,ah xor ah,ah mov bx,ax ;shl bx,1 ;add bx,jmp_offset mov ch,31h mov cl,30h mov al,30 call bin ;************ mov ax,data and al,11110000b rol al,4 xor ah,ah mov bx,ax ;shl bx,1 ;add bx,jmp_offset mov ch,31h mov cl,30h mov al,30 call bin ;************ mov ax,data and al,00001111b xor ah,ah mov bx,ax ;shl bx,1 ;add bx,jmp_offset mov ch,31h mov cl,30h mov al,30 call bin mov ah,10h int 16h int 20h data dw 0 x1 dw 32h x2 dw 16h bin proc cmp bx,0 jz chislo0 cmp bx,1 jz chislo1 cmp bx,2 jz chislo2 cmp bx,3 jz chislo3 cmp bx,4 jz chislo4 cmp bx,5 jz chislo5 cmp bx,6 jz chislo6 cmp bx,7 jz chislo7 cmp bx,8 jz chislo8 cmp bx,9 jz chislo9 cmp bx,0Ah jz chisloA cmp bx,0Bh jz chisloB cmp bx,0Ch jz chisloC cmp bx,0Dh jz chisloD cmp bx,0Eh jz chisloE cmp bx,0fh jz chisloF chislo0: mov es:[di],cl add di,2 mov es:[di],cl add di,2 mov es:[di],cl add di,2 mov es:[di],cl add di,2 jmp next chislo1: mov es:[di],cl add di,2 mov es:[di],cl add di,2 mov es:[di],cl add di,2 mov es:[di],ch add di,2 jmp next chislo2: mov es:[di],cl add di,2 mov es:[di],cl add di,2 mov es:[di],ch add di,2 mov es:[di],cl add di,2 jmp next chislo3: mov es:[di],cl add di,2 mov es:[di],cl add di,2 mov es:[di],ch add di,2 mov es:[di],ch add di,2 jmp next chislo4: mov es:[di],cl add di,2 mov es:[di],ch add di,2 mov es:[di],cl add di,2 mov es:[di],cl add di,2 jmp next chislo5: mov es:[di],cl add di,2 mov es:[di],ch add di,2 mov es:[di],cl add di,2 mov es:[di],ch add di,2 jmp next chislo6: mov es:[di],cl add di,2 mov es:[di],ch add di,2 mov es:[di],ch add di,2 mov es:[di],cl add di,2 jmp next chislo7: mov es:[di],cl add di,2 mov es:[di],ch add di,2 mov es:[di],ch add di,2 mov es:[di],ch add di,2 jmp next chislo8: mov es:[di],ch add di,2 mov es:[di],cl add di,2 mov es:[di],cl add di,2 mov es:[di],cl add di,2 jmp next chislo9: mov es:[di],ch add di,2 mov es:[di],cl add di,2 mov es:[di],cl add di,2 mov es:[di],ch add di,2 jmp next chisloA: mov es:[di],ch add di,2 mov es:[di],cl add di,2 mov es:[di],ch add di,2 mov es:[di],cl add di,2 jmp next chisloB: mov es:[di],ch add di,2 mov es:[di],cl add di,2 mov es:[di],ch add di,2 mov es:[di],ch add di,2 jmp next chisloC: mov es:[di],ch add di,2 mov es:[di],ch add di,2 mov es:[di],cl add di,2 mov es:[di],cl add di,2 jmp next chisloD: mov es:[di],ch add di,2 mov es:[di],ch add di,2 mov es:[di],cl add di,2 mov es:[di],ch add di,2 jmp next chisloE: mov es:[di],ch add di,2 mov es:[di],ch add di,2 mov es:[di],ch add di,2 mov es:[di],cl add di,2 jmp next chisloF: mov es:[di],ch add di,2 mov es:[di],ch add di,2 mov es:[di],ch add di,2 mov es:[di],ch add di,2 next: ret bin endp cseg ends end start

Ответ отправил: Sager (статус: Практикант) Отправлен: 14.02.2006, 07:58

Отвечает: Евгений Иванов Здравствуйте, Fantomax! ужас тебе Sager привёл. нет ничего проще вот этого: mov bx, [number] mov di, address push 0B800h pop es mov cx, 16 mov ah, 7 @m1: mov al, '0' rcl bx, 1 jnc @@zero inc al @zero: stosw dec cx jnz @@m1 удачи! --------- Что имеем - не храним, потерявши - плачем

Ответ отправил: Евгений Иванов (статус: Профессор) Отправлен: 14.02.2006, 08:59 Оценка за ответ: 5

Вопрос № 35.403

1.Подскажите как сделать программу резидентной. 2.как ее удалить из памяти. Если не затруднит напишите пример простинькой программы. Заранее спасибо.

Отправлен: 14.02.2006, 12:10 Вопрос задал: Gwest (статус: 1-ый класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Евгений Иванов Здравствуйте, Gwest! Чтобы сделать резидентной, используй прерывание номер 27h mov dx,ofs end_resident int 27h в DX должен быть адрес последнего байта, который ты хочешь оставить в памяти. Чтобы выгрузить после обратно из памяти, используй ключ командной строки - это команда на выгрузку. Проверяешь, что программа в памяти находится - есть много способов, как проверка по адресам, там и по спулеру (2Fh). вот кусок кода - проверка идёт по состоянию перехвата прерывания собственным обработчиком. cli mov ax,es cmp ax,wptr [ds:90] jnz no_unin cmp ax,wptr [ds:190] jnz no_unin lds dx,dwptr [es:old_16_int] mov ax,2516h int 33 lds dx,dwptr [es:old_2f_int] mov ax,252fh int 33 mov ah,49h int 33 После проверки "отдаёшь прерывания" и отдаёшь память (49h). после этого обычный выход sti mov ax,4C00h int 21h удачи! Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа. --------- Что имеем - не храним, потерявши - плачем

Ответ отправил: Евгений Иванов (статус: Профессор) Отправлен: 14.02.2006, 13:18 Оценка за ответ: 4

© 2001-2006, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.14 (бета) от 09.02.2006

---

В избранное