RFpro.ru: Ассемблер? Это просто! Учимся программировать
Хостинг портала RFpro.ru: РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты данной рассылки
/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Assembler (Ассемблер)
Вопрос № 183608: Здравствуйте! У меня возникли сложности с таким вопросом: Уважаемый Игорь Витальевич и другие эксперты! Повторяю свой вопрос за №183348 от 25,05,2011 года- требуется написать 3 варианта заданной подпрограммы ( на встроенном ассемблере, с использовани... Вопрос № 183608:
Здравствуйте! У меня возникли сложности с таким вопросом: Уважаемый Игорь Витальевич и другие эксперты! Повторяю свой вопрос за №183348 от 25,05,2011 года- требуется написать 3 варианта заданной подпрограммы ( на встроенном ассемблере, с использованием модели памяти PASCAL (листинг) и без использования директивы MODEL (листинг)). Программу, вызывающую эти подпрограммы с указанием автора и варианта задания . Задание- копирование строк. АСС- TASM.Извините, но в мини-форум в свое время не смог войти.
Поэтому отвечаю-речь идет о программе на Паскале, не на С.
Отправлен: 13.06.2011, 22:36 Отвечает Лысков Игорь Витальевич (Старший модератор) : Здравствуйте, Сanijke! Вот Вам прокомментированные тексты. Вы зарегистрировались как "Посетитель - 377629". Это правильно. Рекомендую переименоваться в Canijke и в будущем задавать вопросы под этим ником. Дело в том, что временная регистрация - она и есть временная, только для ознакомления. Работать с ней очень неудобно. Будут вопросы, пишите в личку. С посетителя Вы не сможете написать в "чужую" консультацию... Код на Паскале: Код : {строки, используемые в программе}
var
a,b,c,d:string;
{внешние подпрограммы}
procedure CopyStrA(var x,y:string);external;
{подгружаем внешний модуль q183348a.obj}
{$L q183348a}
procedure CopyStrB(var x,y:string);external;
{подгружаем внешний модуль q183348b.obj}
{$L q183348b}
{процедура со встроенным Ассемблером}
{параметры: x-исходная строка, y-выходная}
procedure CopyStrC(var x,y:string);
begin {начало процедуры}
asm {задаем включение блока на асме}
cld {задаем автоинкремент для строковых команд}
lds si,dword ptr x {загружаем длинный адрес исходной строки в ds:si}
les di,dword ptr y {загружаем длинный адрес выходной строки в es:di}
lodsb {первый байт-длина строки, al = ds:[si], si=si+1}
stosb {сохраняем es:[di] = al, di=di+1}
mov cl,al {длина строки в счетчик cx}
xor ch,ch {байт превращаем в слово}
rep movsb {копируем в повторе cx байт строки es:[di]=ds:[si], si=si+1, di=di+1}
end {конец блока на асме}
end; {конец процедуры}
begin {начало программы}
Writeln('Canijke, 5 variant');{автор}
repeat {ждем, пока не введем непустую строку}
write('Enter string:'); {приглашение на ввод}
readln(d) {читаем с консоли/клавиатуры}
until length(d)>0; {проверяем, чтобы была непустая строка}
CopyStrA(d,a); {вызываем процедуру со встроенным Ассемблером, a=d}
writeln('Result A:',a); {выводим результат}
CopyStrB(d,b); {вызываем процедуру, которая описана с MODEL, b=d}
Writeln('Result B:',b); {выводим результат}
CopyStrC(d,c); {вызываем процедуру, которая описана без MODEL, c=d}
writeln('Result C:',c); {выводим результат}
readln; {ждем нажатия на Enter, чтобы окно не закрылось сразу}
end. {конец программы}
С директивой MODEL и упрощенным описанием сегментов: Код : model small,pascal ;модель памяти и способ передачи параметров
code ;сегмент кода
public CopyStrA ;имя будет вызываться из другого модуля
proc CopyStrA ;имя процедуры
push bp ;сохраним регистр, с его помощью будем адресовать параметры
mov bp,sp ;в bp кадр стека
cld ;задаем автоинкремент для строковых команд
;загрузим адреса строк, которые является длинными указателями
mov di,[bp+04] ;адрес в кадре стека для смещения выходной строки
mov es,[bp+06] ;адрес в кадре стека для сегмента выходной строки
mov si,[bp+08] ;адрес в кадре стека для смещения исходной строки
mov ds,[bp+10] ;адрес в кадре стека для сегмента исходной строки
lodsb ;первый байт-длина строки, al = ds:[si], si=si+1
stosb ;сохраняем es:[di] = al, di=di+1
mov cl,al ;длина строки в счетчик cx
xor ch,ch ;байт превращаем в слово
rep movsb ;копируем в повторе cx байт строки es:[di]=ds:[si], si=si+1, di=di+1
pop bp ;восстанавливаем содержимое bp
ret 8 ;выход из подпрограммы с удалением из стека параметров - 4 слов
endp ;конец процедуры
end ;конец модуля
Полное описание сегмента: Код : _TEXT segment word public 'CODE';сегмент кода
public CopyStrB ;имя будет вызываться из другого модуля
assume cs:_TEXT ;связываем сегментный регистр с сегментом кода
proc CopyStrB ;имя процедуры
push bp ;сохраним регистр, с его помощью будем адресовать параметры
mov bp,sp ;в bp кадр стека
cld ;задаем автоинкремент для строковых команд
;загрузим адреса строк, которые является длинными указателями
mov di,[bp+04] ;адрес в кадре стека для смещения выходной строки
mov es,[bp+06] ;адрес в кадре стека для сегмента выходной строки
mov si,[bp+08] ;адрес в кадре стека для смещения исходной строки
mov ds,[bp+10] ;адрес в кадре стека для сегмента исходной строки
lodsb ;первый байт-длина строки, al = ds:[si], si=si+1
stosb ;сохраняем es:[di] = al, di=di+1
mov cl,al ;длина строки в счетчик cx
xor ch,ch ;байт превращаем в слово
rep movsb ;копируем в повторе cx байт строки es:[di]=ds:[si], si=si+1, di=di+1
pop bp ;восстанавливаем содержимое bp
ret 8 ;выход из подпрограммы с удалением из стека параметров - 4 слов
endp ;конец процедуры
_TEXT ends ;конец сегмента
end----- Люби своего ближнего, как самого себя
Ответ отправил: Лысков Игорь Витальевич (Старший модератор)
Оценить выпуск »
Задать вопрос экспертам этой рассылки »Скажите "спасибо" эксперту, который помог Вам!Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТАна короткий номер 1151 (Россия) Номер ответа и конкретный текст СМС указан внизу каждого ответа.
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов) © 2001-2011, Портал RFPRO.RU, Россия
Авторское право: ООО "Мастер-Эксперт Про" Калашников О.А. | Гладенюк А.Г. Хостинг: Компания "Московский хостер" Версия системы: 2011.6.31 от 07.05.2011 |
| В избранное | ||
