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

Выпуск № 911
от 26.11.2007, 03:05

Вопрос № 110.317

Єксперты помогите плз надо срочно решить задачу !!! Для матрицы размером 5Х10 определить максимальный елемент матрицы если первый елемент находится в оперативной памяти по адресу 1000А а второй 1001h .... итд результат занести в стек по адресу 5000h .... Зранее СПС

Отправлен: 20.11.2007, 18:35 Вопрос задал: VaNuk (статус: 3-ий класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Зенченко Константин Николаевич Здравствуйте, VaNuk! Т.к. все элементы матрицы расположенны последовательно в памяти то можно все реализовать только в одном цикле. mov si,1000h;настраиваемся на матрицу cld;выбираем напрвление +1 mov cx,5*10;всего 50 элементов lodsb;читаем первый элемент jmp short C;переходим, чтобы запомнить максимальный элемент A:lodsb;читаем текущий элемент cmp ah,al;сравниваем текущий элемент с максимальным jae B;если ah больше al переходим C:mov ah,al;теперь новый максимальный элемент B:loop A;проверяем все элементы в цикле mov [5000h],ah;записываем по адресу Удачи! --------- И только наступив на грабли мы приобретаем драгоценный опыт!

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

Вопрос № 110.318

Здравствуйте, Эксперты!!! Помогите, пожалуйста, разобраться. Например, надо сложить три числа: Res=X+Y+Z, где x,y -однобайтные, z – четырехбайтное Я пытаюсь, но пока мои попытки тщетны. Скажите, что я не так делаю и как нужно правильно писать. Приложение: ;Res=X+Y+Z, где x,y-однобайтные, z - четырехбайтное ; Арифметическая операция ;Опишем сегмент кода Code segment ;укажем соответсвие сегментных регистров сегментам assume cs:code, ds:data, ss: stek Start: ; настроим регистр ds на сегмент данных mov ax, data mov ds, ax mov ax,x mov bx,y add ax,bx mov dword ptr Res,ax adc ax,z add [Res+2], ax ;Выход из программы mov ax,4c00h int 21h code ends ;Опишем сегмент данных data segment x db 58h ;число 58h y db 15h ;число 15h z dd 75757575h ;число 75757575h Res dd 0,0 data ends ;Опишем сегмент стека stek segment stack dw 128 dup (?) ;под стек отводится 128 слов stek ends end start

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

Отвечает: Sov Здравствуйте, Алена! ... xor ax,ax xor bx,bx mov al,x mov bl,y add ax,bx add ax,word ptr z ;mojet vozniknut perenos mov word ptr Res,ax;rezultat slojenia x y i mladshaia chast z mov ax,word ptr [z+2] adc word ptr [Res+2],ax ...

Ответ отправил: Sov (статус: 8-ой класс) Ответ отправлен: 21.11.2007, 08:05 Оценка за ответ: 5 Комментарий оценки: Спасибо Вам БОЛЬШОЕ!!!:-) Удачи Вам!;-)

Отвечает: an42 Здравствуйте, Алена! Не много подправил ваше приложение. Удачи Приложение: ;Res=X+Y+Z, где x,y-однобайтные, z - четырехбайтное ; Арифметическая операция ;Опишем сегмент кода Code segment ;укажем соответсвие сегментных регистров сегментам assume cs:code, ds:data, ss: stek Start: ; настроим регистр ds на сегмент данных mov ax, data mov ds, ax xor ax,ax ;ОБНУЛИМ РЕГИСТРЫ AX xor bx,bx ; И BX mov al,x ;X В AL mov bl,y ;Y В BL add ax,bx ;AX=AX+BX mov word ptr Res,ax ;ЗАПИШИМ В 1-Е СЛОВО RES ЗНАЧЕНИЕ СУММЫ mov ax,word ptr z ;В AX 1-Е СЛОВО ПЕРЕМЕННОЙ Z add word ptr res,ax ;СУММА 1-ГО СЛОВА RES С РЕГИСТРОМ AX mov ax,word ptr z+2 ;В AX СТАРШЕЕ СЛОВО ПЕРЕМЕННОЙ Z adc word ptr res+2,ax ;СЛОЖЕНИЕ С ПЕРЕНОСОМ ;ПЕРЕМЕНАЯ RES=X+Y+Z ;Выход из программы mov ax,4c00h int 21h code ends ;Опишем сегмент данных data segment x db 58h ;число 58h y db 15h ;число 15h z dd 75757575h ;число 75757575h Res dd 0 data ends ;Опишем сегмент стека stek segment stack dw 128 dup (?) ;под стек отводится 128 слов stek ends end start

Ответ отправил: an42 (статус: 6-ой класс) Ответ отправлен: 22.11.2007, 11:03 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо, an42!:-) И Вам удачи!!!:-)

Вопрос № 110.320

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

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Primus! Смотрите приложение. ps:вопросы задавайте в мини-форум, он Вам доступен как автору вопроса. Удачи! Приложение: MASM;IDEAL or MASM MODEL tiny .186 CODESEG org 100h start: ;выводим сообщение о строке mov ah,09h mov dx,offset dbString int 21h ;вводим строку mov ah,0ah mov dx,offset dbStrSize int 21h ;вывол сообщения о символе mov ah,09h mov dx,offset dbSimbol int 21h ;вводим символ mov ah,01h int 21h mov dl,al ;настраиваемся на поиск xor ch,ch mov cl,dbStrLen push cx pop di xor si,si mov bx,offset dbStrInput ;соединяем начало и конец строки mov al,[bx] mov ah,[bx+di-1] mov dbStrLen,ah mov [bx+di],al ;записываем конец строки для контроя mov byte ptr[bx+di+1],'$' ;проверяем букву LoopFind: cmp dl,[bx+si] jnz CheckLoop ;меняем регистр символов для контроля xor byte ptr[bx+si],20h ;переводим строку mov al,13 int 29h mov al,10 int 29h ;вывод соседних символов mov al,[bx+si-1] int 29h mov al,[bx+si+1] int 29h ;переход к следующему символу CheckLoop: inc si loop LoopFind ;вывод строки поиска для контроля mov al,13 int 29h mov al,10 int 29h mov ah,09 mov dx,offset dbStrLen int 21h ret ;данные dbString db 13,10,'Input String:$' dbSimbol db 13,10,'Input Simbol:$' dbStrSize db 100 dbStrLen db ? dbStrInput db 100 dup(?) end start --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Специалист) Ответ отправлен: 21.11.2007, 20:30 Оценка за ответ: 5

Вопрос № 110.326

Привет, народ. Появилась такая вот проблемка с асмом. Нужно считать 22 числа. первые два образуют некий диапазон MIN..MAX. После этого поочередно вводится еще 20 чисел. если число входит в диапазон, то нужно его занести в общую сумму. в конце вывести эту сумму. как это сделать в принципе понятно. а вот перевод на асм немного не получается. В приложении есть код. там идет просто ввод одного числа и вывод. Я написал отдельно процедуры ввода и вывода. если все это записать в кучу без процедур для ввода и вывода одного числа, то все работает. а так нет. Ошибке мне кажется сидит в процедуре вывода writed. но словить я ее не могу. помогите кто-нить ее исправить или просто решить задачу. всем спасибо ) Приложение: ;Лабораторная работа .model tiny ;Создаем COM-файл .code org 100h ;Распределение регистров и переменных ;sum - хранит накопленную сумму ;min, max - диапазон ;с этой процедуры начинает выполнение программы start: push cs ;Заполним DS pop ds ;mov ah,09h ;Вывод приглашения на экран ;mov dx,offset str1 ;int 21h ;Распределение регистров: ;di - накопленная часть числа ;si - номер текущей позиции ;bp=10 - делитель для процедур ввода и вывода ;ax и dx - служебные регистры (буферы) mov di,0 ;Пока ничего не введено, считаем что 0 mov si,0 ;Номер позиции в числе mov bp,10 ;Потом будем умножать на 10 mov sum, di ;обнуляем сумму ;переходим на процедуру считывания чисел inMIN: mov ah,09h ;Вывод приглашения на экран mov dx,offset sMIN int 21h call readd pop ax push -1 ;Сохраним признак конца числа l: mov dx,0 ;Очистим регистр dx (xor dx,dx - оптимальнее) div bp ;Делим push dx ;Сохраним цифру cmp ax,0 ;Остался 0? (оптимальнее or ax,ax) jne l ;нет -> продолжим mov ah,2h l2: pop dx ;Восстановим цифру cmp dx,-1 ;Дошли до конца -> выход {оптимальнее: or dx,dx jl ex} je ex1 add dl,'0' ;Преобразуем число в цифру int 21h ;Выведем цифру на экран jmp l2 ;И продолжим call exit ;-------Описание процедур---------------------------------------------------- exit proc near ;-----------процедура корректного завершения работы программы mov ah,02h ;ПерейдЯм на новую строчку mov dl,13 int 21h mov dl,10 int 21h mov ax,4c00h;Выход int 21h RET endp exit writed proc near ;выводит на экран число из ax pop ax push -1 ;Сохраним признак конца числа l11: mov dx,0 ;Очистим регистр dx (xor dx,dx - оптимальнее) div bp ;Делим push dx ;Сохраним цифру cmp ax,0 ;Остался 0? (оптимальнее or ax,ax) jne l11 ;нет -> продолжим mov ah,2h l211: pop dx ;Восстановим цифру cmp dx,-1 ;Дошли до конца -> выход {оптимальнее: or dx,dx jl ex} je ex1 add dl,'0' ;Преобразуем число в цифру int 21h ;Выведем цифру на экран jmp l211 ;И продолжим RET ex1: RET endp writed ;---------------------------------------------------------------------------- readd proc near ;считывает число и передает его в регистре ax mov di,0 ;Пока ничего не введено, считаем что 0 mov si,0 ;Номер позиции в числе mov bp,10 ;Потом будем умножать на 10 mov sum, di ;обнуляем сумму r1: mov ah,08h int 21h ;Читаем символ cmp al,'0' ;Если это служебный символ -> r3 jb r3 cmp al,'9' ;Если это не цифра -> r1 ja r1 mov bl,al ;Сохраним символ в bl mov ax,di mul bp ;Умножаем на 10 cmp dx,0 jne ex2 ;Если не 0 в DX -> переполнение mov dl,bl sub dl,'0' ;Преобразуем символ в цифру mov dh,0 ;DX - цифра add dx,ax jc r1 ;Если перенос -> переполнение inc si mov di,dx mov dl,bl mov ah,02h int 21h jmp r1 r3: cmp si,0 je r1 cmp al,13 je enter2 ;Нажали ввод cmp al,8 ;Нажали забой jne r1 zab: dec si mov ax,di mov dx,0 div bp mov di,ax mov dl,8 mov ah,2 int 21h mov dl,32 int 21h mov dl,8 int 21h jmp r1 enter2: mov ah,2h mov dl,13 int 21h mov dl,10 int 21h ;mov ax,di push di RET ex2: RET endp readd ;Константы программы sMIN db 'Input MIN: $' sMAX db 'Input MAX: $' str1 db 'Input: $' str2 db 'Chislo: $' sum dw 0 min dw 0 max dw 0 end start

Отправлен: 20.11.2007, 21:17 Вопрос задал: Решетник Д (статус: Студент) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Решетник Д! Смотрите приложение. Первое, что бросилось в глаза: writed proc near;выводит на экран число из ax pop ax;в стеке находится адрес возврата . . . push di RET;возврат на число в di ex2: RET endp readd Удачи! Приложение: masm .MODEL tiny .186 .CODE org 100h ;поехали start: mov cx,22 xor si,si;пределы xor di,di; mov bp,10 mov dwSumm,di ;повторяем 22 раза InputSumm: call InputNumber loop InputSumm mov ah,09 mov dx,offset dbSumm int 21h ;преобразовываем в 10-ю ситему mov ax,dwSumm isDiv: xor dx,dx div bp push dx inc cx or ax,ax jnz isDiv ;выводим число isOut: pop ax or al,30h int 29h loop isOut ret ;вывод общий InputNumber: mov ah,09 mov dx,offset dbInp int 21h or di,di jnz checkMax ;вывод минимума mov ah,09 mov dx,offset dbMin int 21h jmp short InpData checkMax: or si,si jnz InpNumb ;вывод максимума mov ah,09 mov dx,offset dbMax int 21h jmp short InpData ; InpNumb: mov al,':' int 29h ;начинаем ввод InpData: xor bx,bx InpN: push bx mov ah,07 int 21h pop bx ;конролируем enter cmp al,13 jz StopData ;контролируем цифру cmp al,'0' jb InpN cmp al,'9' ja inpN ;показываем цифру push ax int 29h pop ax and ax,0fh ;bx:=bx*10+ax xchg bx,ax mul bp add bx,ax jmp short InpN ;контроль минимального предела StopData: or di,di jnz isMax mov di,bx jmp short goHome ;контроль максималильного предела isMax: or si,si jnz isSumm mov si,bx jmp short goHome ;контроль диапазона isSumm: cmp di,bx jae goHome cmp si,bx jbe goHome ;суммируем add dwSumm,bx goHome: ret ; dbMin db ' Min:$' dbMax db ' Max:$' dbInp db 13,10,'input number$' dbSumm db 13,10,'Summa:$' dwSumm dw ? end start --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Специалист) Ответ отправлен: 21.11.2007, 11:35 Оценка за ответ: 5 Комментарий оценки: Большое спасибо. Работает отлично. только в начало добавил еще кусочек небольшой инициализации. а то мусор выбивало сначала.

Отвечает: an42 Здравствуйте, Решетник Д! Предлагаю свое приложение. Макрос dos2109 служит для вывода текстовых сообщений. Процедура Ascii служит для ввода цифр с клавиатуры Процедура AsciiBin служит для перевода числа в двоичное представление Процедура BinAscii служит для перевода из двоичного числа в десятеричный формат При воде с клавиатуры идет контроль, блокировка не цифровых клавиш (звонок) Контроль количество введенных символов (четыре) Введен контроль определение максимального и минимального числа Нет контроля на переполнение переменной sum, поэтому чтобы все работало корректно максимальное число не должно превышать 3276 десятичное. (3276*20=FFF0h) Остальные пояснения в программе Удачи Приложение: title Вопрос № 110326 dos2109 macro off ;Макрос для вывода текстовых сообщений mov ah,09h mov dx,offset off int 21h endm stacksg segment stack dw 100h dup(?) stacksg ends data segment smin db 'Input MIN: ','$' smax db 'Input MAX: ','$' str1 db ' ',0,'$' ;Указатель номера вводимого числа str2 db ' Input: ','$' inputbuff db 5 dup(0),'$' ;Буфер для ввода Ascii-кода с клавиатуры и для вывода результата tempbuff dw 0 ;Буфер для перевода Ascii-кода в двоичный код sum dw 0 min dw 0 max dw 0 AsciiSum db 'Sum = ','$' nstr db 0ah,0dh,'$' tabl db 30h,31h,32h,33h,34h,35h,36h,37h,38h,39h ;Таблица для трансляции номера ввода числа data ends assume cs:code,ds:data code segment begin: mov ax,data mov ds,ax ;Установка текстового режима mov ax,03 int 10h dos2109 smin ;Input MIN call Ascii ;Процедура ввода числа с клавиатуры call AsciiBin ;Процедура перевода Ascii-кода в двоичное число mov ax,tempbuff ;Сохраним число mov min,ax ; в переменной min dos2109 nstr ;Переход на новую строку dos2109 smax ;Input MAX call Ascii ;Процедура ввода числа с клавиатуры call AsciiBin ;Процедура перевода Ascii-кода в двоичное число mov ax,tempbuff ;Сохраним число cmp ax,min ; и проверим ja @@B0 ; какое из двух большее, а какое меньшее mov bx,min mov min,ax ; и соответственно сохраним mov max,bx jmp short @@B1 @B0: mov max,ax @B1: ;------ Начало ввода 20 чисел --------- mov bx,0 @B2: ;Определим текущий номер ввода числа inc bx ;счетчик ввода чисел cmp bx,9 ;Если больше 9, то ja @@B3 ; на метку @@B3, иначе mov al,tabl[bx] ;в al значение Ascii-кода числа из tabl mov [str1+1],al ; занесем номер в текущего числа dos2109 nstr ;Переход на новую строку dos2109 str1 ;Вывод текущего номера числа dos2109 str2 ;Вывод Input call Ascii ;Процедура ввода с клавиатуры call AsciiBin ;Процедура перевода Ascii-кода в двоичное число mov ax,tempbuff ;Значения ввода в AX cmp ax,max ;Проверяем границы интервала ja @@B2 ; если число в ходит в границу cmp ax,min jb @@B2 add sum,ax ; то его суммируют jmp @@B2 ; и продолжают ввод @B3: ;Как только правая цифра счетчика станет больше 9, тогда cmp str1,31h ;Проверяем, первая цыфра '1' je @@B5 ; если да то на метку mov str1,31h ; если нет то левая цыфра счетчика '1' mov bx,-1 ; сбос счетчика вода чисел jmp @@B2 ; и продолжит ввод @B5: ;Если певая цифра номера числа '1', то mov str1,32h ; меняем ее на '2', а mov [str1+1],30h ; вторую на '0' dos2109 nstr ;Переход на новую строку dos2109 str1 ;Приглашение ввода последнего 20-того числа dos2109 str2 call Ascii ;Процедура вода числа call AsciiBin ;Процедура перевода Ascii-кода в двоичное число mov ax,tempbuff ;И проверка на вхождение в интервал cmp ax,max ja @@B6 cmp ax,min jb @@B6 add sum,ax ;Суммируем если входит в интервал @B6: ;---- Вывод суммы -------- call BinAscii ;Процедура перевода вдоичного числа в Ascii-код dos2109 nstr dos2109 AsciiSum dos2109 inputbuff ;Вывод результирующей суммы в десятичном формате mov ah,0 ;Остановка программы int 16h mov ah,4ch ;Выход в DOS int 21h ;****************************************************************** ;* ПЕРЕВОД ДВОИЧНОГО ЧИЛА В ASCII-КОД * ;* Делим число на Ah, к остатку прибавляем 30h и получаем цифру * ;* в Ascii-коде * ;* Сохранение результата в inputbuff * ;****************************************************************** BinAscii proc push ax push cx push dx push di push ds push es push ds pop es cld mov cx,5 mov al,' ' ;Заполним пробелами mov di,offset inputbuff ;буфер inputbuff rep stosb mov ax,sum ;Значение суммы в ax mov cx,0ah ;в cx делитель 10 @ASC0: xor dx,dx ;Ощищаем dx dec di ;Уменьшаем индеск div cx ;Делим or dl,30h ;К остатку прибавим 30h mov [di],dl ;Запишим cmp ax,0 ;Если часное ноль, то je short @@ASC1 ; выход, иначе jmp short @@ASC0 ; продолжим @ASC1: pop es pop ds pop di pop dx pop cx pop ax ret BinAscii endp ;****************************************************************** ;* ПРОЦЕДУРА ПЕРЕВОДА ЧИСЛА ИЗ ASCII-КОДА В ДВОИЧНОЕ * ;* Первое число умножить на 1 * ;* Второе число умножить на 10 * ;* Третье число умножить на 100 * ;* Четвертое число умножить на 1000 * ;* Полученные произведения сложить, это и будет двоичное число * ;****************************************************************** AsciiBin proc ; в si - колво Ascii - символов в буфере push ax push bx push dx push cx mov tempbuff,0 ;Обнулим буфер mov bx,1 ;множетель числа mov cx,10 @A0: xor ax,ax mov al,byte ptr inputbuff[si-1] ;Ascii-код в AL and al,0fh ;Обнулить старшие четыре бита mul bx ;Умножить на множетель add tempbuff,ax ;Сложить с значением буфера dec si ;Уменьшить счетчик je @@A1 ;Если цифры закончились, то выход mov ax,bx ;Иначе увеличить mul cx mov bx,ax ;множетель числа в 10 раз jmp short @@A0 @A1: pop cx pop dx pop bx pop ax ret AsciiBin endp ;****************************************************************** ;* ПРОЦЕДУРА ВВОД ДЕСЯТИЧНОГО ЧИСЛА С КЛАВИАТУРЫ * ;* Используется функция DOS 08h, для получения Ascii-кода * ;* с клавиатуры. И функция DOS 02h, для вывода Ascii-кода * ;* на экран. * ;* Контроль вода не цифровых клавиш (звонок) * ;* Оканчание ввода - 4 цифры числа или клавиша Enter * ;* Для счетчика вводимых чисел используется si * ;****************************************************************** Ascii proc ;Сохраним регистры которые будем использовать push ax push dx push cx push di push ds push es push ds pop es ;ES на адрес DS, необхадимо для строковой операции cld mov di,offset inputbuff ;Адресс буфера ввода mov cx,5 ;Длина буфера mov al,0 ;Заполним 0 буфер ввода rep stosb xor si,si ;Обнулим счетчик вводимых чисел @BA0: mov ah,08 ;Ввод с клавиатуры int 21h cmp al,0dh ;Если Enter, то закончить je @@BA2 cmp al,30h ;Проверка водимых цифровых символов jb @@BA1 cmp al,39h ja @@BA1 mov ah,02h ;Если это цифра, то mov dl,al mov byte ptr inputbuff[si],al ;Запишим ее в буфер int 21h ; и выведем на экран inc si cmp si,4 ;Проверка максимального ввода цифр числа (до четырех) jne @@BA0 jmp short @@BA2 @BA1: mov ah,02h ;Если была нажата не цифравая клавиша mov dl,07 ; то звонок int 21h jmp short @@BA0 @BA2: cmp si,0 ;Если был нажат Enter без ввода числа jne @@BA3 ; то inc si ; увеличим счетчик, так надо для перевода в числа из Ascii-кода в двоичный форамат @BA3: pop es ;Востановим регистры и выйдем pop ds pop di pop cx pop dx pop ax ret Ascii endp code ends end begin

Ответ отправил: an42 (статус: 6-ой класс) Ответ отправлен: 24.11.2007, 15:22 Оценка за ответ: 5 Комментарий оценки: Болльшое спасибо за ответ. буду разбираться

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