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

Выпуск № 920
от 05.12.2007, 11:05

Вопрос № 111.553

Здравствуйте, Уважаемые Эксперты!!! Хочется разобраться, как решаются задачки на обработку строк на Ассемблере поэтому, если Вас не затруднит, то покажите, ПОЖАЛУЙСТА, решение двух следующих примеров и, если можно, побольше комментариев, так как ОЧЕНЬ хочется понять что к чему:-) Заранее Всем спасибо!!! 1) Вводится строка s. Зашифровать строку s: букву на следующую (последнюю на первую). 2) Вводится строка s и число k. Вывести k символов с левого конца строки s.

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

Отвечает: Sov Здравствуйте, Алена! Код задач в приложении, надеюсь достаточно подробно прокомментирован Удачи! Исправлена строка mov data1[0],13; в приложении, по просьбе автора. ----- ∙ Отредактировал: Зенченко Константин Николаевич (Специалист) ∙ Дата редактирования: 30.11.2007, 17:58 Приложение: ;1 ;Тестировалось в masm 5.0 st_ segment para stack db 256 dup (?) st_ ends dat segment para public data1 db 200,202 dup("$") message db "vvedite stroku",0ah,13,"$" lastsym db ? dat ends cod segment para public assume cs:cod,ss:st_,ds:dat start: mov ax,dat mov ds,ax mov ax,st_ mov ss,ax mov ah,9 ;вывод строки mov dx,offset message int 21h mov dx,offset data1 ;ввод строки mov ah,0ah int 21h xor si,si xor cx,cx mov si,1 mov cl,data1+1 mov di,cx mov dl,data1[2];сохранили 1-й сивол label1: mov al,data1[si+1] mov data1[si],al inc si loop label1 mov al,data1[di+1];последний смвол mov data1[2],al ;переносим в первый mov data1[di+1],dl;а сохраненный первый в последний mov data1[0],13;первые 2 элемента массива после вызова функции mov data1[1],10;0аh это max количество символов в строке и реальное ;их заполняем символами переноса строки, чтобы отделить при выводе от предыдущих сообщений mov ah,9 ;вывод строки mov dx,offset data1 int 21h mov ah,4ch int 21h cod ends end start ;2 ;Тестировалось в masm 5.0 st_ segment para stack db 256 dup (?) st_ ends dat segment para public data1 db 200,202 dup("$") data2 db 3,5 dup("$") message1 db "vvedite stroku",10,13,"$" message2 db 10,13,"vvedite chislo",10,13,"$" dat ends cod segment para public assume cs:cod,ss:st_,ds:dat start: mov ax,dat mov ds,ax mov ax,st_ mov ss,ax mov ah,9 ;вывод строки1 mov dx,offset message1 int 21h mov dx,offset data1 ;ввод строки mov ah,0ah int 21h mov ah,9 ;вывод строки1 mov dx,offset message2 int 21h mov dx,offset data2 ;ввод строки mov ah,0ah int 21h xor cx,cx xor si,si xor dx,dx mov cl,data2+1 mov si,2 label1: ;получаем из строки число xor ax,ax cmp cx,3 jne next1 mov ax,100 mov bl,data2[si] sub bl,48;из ascii кода числа цифры получаем число mul bl next1: cmp cx,2 jne next mov ax,10 mov bl,data2[si] sub bl,48 mul bl next: mov al,data2[si] sub al,48 endl: add dx,ax loop label1 mov si,dx;в si число, которое ввел пользователь прибавляем к нему 2, ;т.к. в массиве первые 2 символа-служебные, а потом строка add si,2; mov data1[si],"$";дописываем в нужной позиции символ конца строки mov data1[0],13;первые 2 служебных символа меняем на символ переноса строки, чтобы mov data1[1],10;отделить текст от предыдущих сообщений mov ah,9 ;вывод строки1 mov dx,offset data1 int 21h mov ah,4ch int 21h cod ends end start

Ответ отправил: Sov (статус: 8-ой класс) Ответ отправлен: 29.11.2007, 20:55 Оценка за ответ: 5 Комментарий оценки: Sov, я Вам ОЧЕНЬ БЛАГОДАРНА!!!:-) СПАСИБО БОЛЬШОЕ!!! Вам УДАЧИ!!!:-)

Отвечает: Овчинников Алексей Здравствуйте, Алена! Здесь обе задачи в одной программе Написано под компилятор FASM Приложение: ;программа написана под компилятор FASM ;============================================================ ;Функция DOS 0Ah — Считать строку символов из STDIN в буфер ;Ввод: АН = 0Ah ; DS:DX = адрес буфера ;Вывод: Буфер содержит введенную строку StringRead: mov ax,0a00h mov dx,Buffer int 21h ;вызываем функцию дос для ввода строки xor cx,cx ;обнуляем на всякий случай счетчик mov si,Buffer+2 ;получаем адрес первого элемента введенной строки mov di,String ;задаём адрес для первого элемента преобразованной строки mov cl,[Buffer+1] ;получаем из буфера количество введённых элементов ;число устанавливается функцией ДОС CodeString: lodsb ;читаем элемент из буфера ;при этом указатель смещается автоматически на следующий элемент cmp al,7ah ;проверяем не является ли он последней буквой 'z' jz Reread ;если да переходим inc al ;если нет прибавляем 1 (следующая буква в таблице) A1: stosB ;записываем полученную букву в строку loop CodeString ;повторяем все действия начиная с чтения из буфера call StringWrite ;переходим на подпрограмму вывода строки StringWriteK: ;выводзаданного числа элементов от левого края строки xor ax,ax ;вызываем БИОС функцию работы с клавиатурой int 16h ;в AL - код символа(проверки корректности ввода нет) xor cx,cx sub al,30h ;вычли от кода символа 30h чтобы получить число mov cl,al ;поместили число в регистр счетчика mov si,Buffer+2 ;инициируем регистры для строковых операций mov di,String rep movsb ;копируем элементы из буфера в строку ;префикс rep указывает процессору что копирование необходимо повторить ;количество раз указанное в регистре СХ mov byte [di],24h ;записываем в конец строки символ показывающий конец стоки call StringWrite ;вызываем подпрограмму вывода строки ExitProg: xor ax,ax ;необходимо что-бы программа не закрылась сразу после окончания int 16h ;ожидаем нажатия любой клавиши int 20h ;завершаем программу ;============================================================ ;Функция DOS 09h — Записать строку в STDOUT с проверкой на Ctrl-Break ;Ввод: АН = 09h ; DS:DX = адрес строки, заканчивающейся символом $ (24h) ;Вывод: Никакого, согласно документации, но на самом деле: AL = 24h (код последнего символа) StringWrite: mov ax,0900h mov dx,String int 21h ret Reread: mov al,41h ;меняем латинскую букву z на букву A jmp A1 Buffer db 10,?,10 dup (?) ;буфер для ввода строки 1-й байт максимальный размер строки ;2-й байт реальное количество введенных символов String db 10 dup (?),0dh,0ah,'$'

Ответ отправил: Овчинников Алексей (статус: 2-ой класс) Ответ отправлен: 29.11.2007, 21:20 Оценка за ответ: 5 Комментарий оценки: Спасибо ОГРОМНОЕ, Алексей!!!!!!!!!!!!!:-) Удачи Вам!!!!!!!:-)

Вопрос № 111.591

Здравствуйте эксперты. Вопрос по адресации памяти. Почему для того, чтобы посчитать линейный адрес нужно значение сегмента умножить на 16, и только потом добавить смещение?

Отправлен: 29.11.2007, 17:12 Вопрос задал: Мясников Антон Евгеньевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Лысков Игорь Витальевич Здравствуйте, Мясников Антон Евгеньевич! Данный вопрос к разработчикам Intel-а :) Вот так они сделали... Необходимость подобного "ухищрения" вызвана тем, что регистры 8086/8088 16-битные, а адресная шина 20-битная (адресуется 1 Мб)... Надо же как-то адресовать все пространство... --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Практикант) Ответ отправлен: 29.11.2007, 17:43 Оценка за ответ: 4 Комментарий оценки: Честно говоря рассчитывал на более развернутый ответ...

Вопрос № 111.629

Здравствуйте. Возникли вопросы... В программе нужно было инвертировать строку текста. делал ввод строки с клавиатуры, и под вводимую строку сразу отводил опр. длину и забивал её пробелами. То же самое делал со строкой, в которую записывал результат. В итоге, даже если с клавы вводилось 5 символов, в программе обращалась строка из 64(такую длину задавал), т.е. всё вместе с пробелами. Так вот, вопросы: Как сделать длину строки задаваемой динамически, как при этом узнать её длину ? (для кол-ва повторений цикла) ? и как при этом сделать строку-приемник той же, нужной длины? Спасибо.

Отправлен: 29.11.2007, 20:14 Вопрос задал: Petrovich (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 6)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Petrovich! Динамически это делается только когда используется стек. Используя функция 21h / 0Ah, больше 255 символов Вы ввести не можете. Значит директива STACK 256 превращается в STACK 256+512(для строк по 255 байт)=768. mov dx,offset message int 21h mov byte ptr source, 62 cli;запрещаем прерывания push bp;запоминаем регистр mov bp,sp;запоминаем регистр стека mov ax,dbMaxSize;максимальный размер не больше 255 символов sub sp,ax;резервируем адрессное пространство для строки ввода mov si,sp;запоминаем указатели mov di,sp;на строку ввода push ax;значение AL будет на месте размера вводимой строки mov dx,sp;в адрес вводимой строки sub sp,ax;резервируем пространство для 2-й строки push ds;запоминаем регистр push ss;будем работать с регистром стека pop ds;настраиваемся на регистр стека т.к. ds:dx - нужно для прерывания mov ah,0ah ;будем читать строку sti;разрешаем прерывания и сразу вызываем функию ввода строки lea dx, source int 21h LEA SI,SOURCE ;переходим на первый символ строки inc si inc si LEA DI,DEST;всё вычеркиваем dec di;переходим на кол-во введеных символов mov cl,[di];читаем xor ch,ch mov byte ptr[di],'$';записываем признак оконч ания строки dec di; Дальше идет копирование и вывод как в Вашей программе inc di mov dx,di осталось востановить регистры cli pop ds mov sp,bp pop bp sti;всё востановленно Удачи! --------- И только наступив на грабли мы приобретаем драгоценный опыт!

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

Вопрос № 111.631

Доброго времени суток, есть вопросик, имеется переменная типа db и нужно поменять местами первый и последний бит этой меременной, пожалуйста подскажите как это сделать... спасибо.

Отправлен: 29.11.2007, 20:28 Вопрос задал: Pesick (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Овчинников Алексей Здравствуйте, Pesick! делается это с помощью логических операций и операций сдвига см приложение Приложение: mov al,variable mov bl,00000001b mov bh,10000000b and bh,al ;определяем старший бит and bl,al ;определяем младший бит mov cl,7 shl bl,cl ;сдвигаем влево младший бит shr bh,cl ;сдвигаем вправо старший бит or al,bh or al,bl ;устанавливаем биты на место variable db ?

Ответ отправил: Овчинников Алексей (статус: 2-ой класс) Ответ отправлен: 29.11.2007, 21:46 Оценка за ответ: 3 Комментарий оценки: Меняет местами только если на ноль единицу, а наоборот. если старший ноль а младший еденица - нет (

Отвечает: Стас Здравствуйте, Pesick! mov al,x rol al,4 mov x,al .... x db 12h

Ответ отправил: Стас (статус: Специалист) Ответ отправлен: 30.11.2007, 08:43

Отвечает: Лысков Игорь Витальевич Здравствуйте, Pesick! Еще одно решение при помощи минимума регистров и команд сдвига Смотри приложение Приложение: mov al, variable mov ah,al ;нам нужны только крайние биты shr al,1 ;уберем младший бит rcl ah,1 ;старший бит в С rcl al,1 ;бит из С (бывший старший!) стал младшим битом shl al,1 ;уберем старший бит shr ah,1 ;вернем биты (нам нужен только младший) на место rcr ah,1 ;младший бит в С rcr al,1 ;бит из С (бывший младший!) стал старший битом variable db 0fh --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Практикант) Ответ отправлен: 30.11.2007, 12:30 Оценка за ответ: 5 Комментарий оценки: Спасибо:)

Отвечает: an42 Здравствуйте, Pesick! Занесем переменную в AL (в al будет представлять так L??????R) Выделим крайний левый бит: mov bl,al ;bl= L??????R shl bl,7 ;bl=0000000L Выделим крайний правый бит: mov bh,al ;bh=L??????R shr bh,7 ;bh=R0000000 Обнулим в AL крайние биты: and al,011111110b ;al=0??????0 Вставим крайние биты: or al,bl ;al=0??????L or al,bh ;al=R??????L В AL поменяли крайние биты. В приложение показано как это происходит программно Удачи Приложение: title Вопрос № 111631 .186 stacksg segment stack dw 100h dup(?) stacksg ends data segment text1 db 'Input ','$' b0 db ?,?,0ah,0dh,'$' text2 db 'Output ' b1 db ?,?,'$' data ends assume cs:code,ds:data code segment begin: ;Инициализация сегмента ds mov ax,data mov ds,ax ;Вывод text1 (Input) mov ah,09 mov dx,offset text1 int 21h ;Ждем нажания клавиши mov ah,0 int 16h ;После нажатия в AL - Ascii-код(будем использовать), в AH - Скан-код mov si,offset b0 ;Смещение b0 call BinAscii ;Процедура перевода числа в шестнадцатиричный формат push ax ;Сохраним AX (в AL - код который мы меняем биты ;Вывод на экран исходной переменной, в которой будем менять биты mov ah,09 mov dx,offset b0 int 21h pop ax ;Востановим AX call InverBin ;Процедура замены бит mov si,offset b1 ;Смещение b1 call BinAscii ;Процедура перевода числа в шестнадцатиричный формат ;Вывод на экран числа со сменой двух крайних бит mov ah,09 mov dx,offset text2 int 21h ;Выход в DOS mov ah,4ch int 21h ;***************************************************** ;* ПРОЦДУРА СМЕНЫ ДВУХ КРАЙНИХ БИТ * ;***************************************************** InverBin proc mov bl,al ;Сохраним переменую в bl shr bl,7 ;Сдвиг в право на 7 бит (крайний левый бит на крайней правой позиции) mov bh,al ;Сохраним переменую в bh shl bh,7 ;Сдвиг в лево на 7 бит (крайний правый бит на крайней левой позиции) and al,01111110b ;Обнулим в исходном числе крайние биты (левый и правый) or al,bl ;Установим левый бит на правую позицию or al,bh ;Установим правый бит на левую позицию ; в al поменяли местами крайние биты ret InverBin endp ;***************************************************** ;* ПРОЦЕДУРА ПЕРЕВОДА В ASCII-КОД * ;***************************************************** BinAscii proc push ax push ax mov ah,al shr ah,4 or ah,30h cmp ah,39h jbe @@B0 add ah,7 @B0: mov [si],ah pop ax and al,0fh or al,30h cmp al,39h jbe @@B1 add al,7 @B1: mov [si+1],al pop ax ret BinAscii endp code ends end begin

Ответ отправил: an42 (статус: 6-ой класс) Ответ отправлен: 01.12.2007, 08:58

Вопрос № 111.670

Здравствуйте, эксперты. Может вопрос,немножко не в рубрику, но подскажите, пожайлуста, где в сети можно найти литературу по Тестированию и отладке ПО. Нужно для написания курсовой по этой теме.

Отправлен: 30.11.2007, 05:33 Вопрос задал: Чепиков Александр Валерьевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Boriss Здравствуйте, Чепиков Александр Валерьевич! Была (а может и сейчас существует?) даже рассылка на эту тему. Простой поиск по Вашему запросу выдал неимоверное количество ссылок: Тестирование и отладка Тестирование проекта. Отладка. (Тематический каталог на Королевстве Delphi) Тестирование и отладка (реферат) (если Вы любитель готовенького) ТЕСТИРОВАНИЕ И ОТЛАДКА ПРОГРАММНОГО СРЕДСТВА (Лекция) .. --------- Вывод - то место в тексте, где вы устали думать

Ответ отправил: Boriss (статус: Профессор) Россия, Саранск Организация: mte WWW: Программирование на Паскале ---- Ответ отправлен: 30.11.2007, 08:12 Оценка за ответ: 5 Комментарий оценки: Спасибо, буду читать. Видимо, поисковиком еще не научился толком пользоваться - вводил ничего конкретного не нашел.

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