RFpro.ru: Ассемблер? Это просто! Учимся программировать

Если выпуск не отображается корректно, то вы можете прочесть его на сайте

Когда ты выйдешь замуж? Кто твой будущий муж? Проблемы в личной жизни?

Реклама Отказаться от рекламы Реклама

RFpro.ru: Ассемблер? Это просто! Учимся программировать Хостинг портала RFpro.ru: Московский хостер Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64 РАССЫЛКИ ПОРТАЛА RFPRO.RU Чемпионы рейтинга экспертов в этой рассылке Boriss Статус: Академик Рейтинг: 2420 • повысить рейтинг » _Ayl_ Статус: Профессионал Рейтинг: 1857 • повысить рейтинг » vladisslav Статус: 6-й класс Рейтинг: 1227 • повысить рейтинг » / КОМПЬЮТЕРЫ И ПО / Программирование / Assembler (Ассемблер) Номер выпуска: 1350 Дата выхода: 02.06.2010, 01:00 Администратор рассылки: Лысков Игорь Витальевич, Модератор Подписчиков / экспертов: 260 / 62 Вопросов / ответов: 4 / 4 IRC-канал по теме: #assembler Вопрос № 178678: Уважаемые эксперты! Помогите, пожалуйста, написать код для программы в А51. Условие задачи прилагаю: Если можно, с коментариям... Вопрос № 178697: Здравствуйте уважаемы эксперты! Прошу помощи в решение такой задачки: Сформировать файл со строками, состоящими из ИМЯ, ОТЧЕСТВО, ФАМИЛИЯ. Создать этот файл самому и заполнить его данными по своей группе. Организовать вывод на экран всех полны... Вопрос № 178698: Здравствуйте уважаемы эксперты! Помогите пожалуйста написать программу: Задана строка символов. Составить программу, выясняющую, имеется ли в ней все буквы из слова "end". Причем порядок наличия символов в проверяемой строке должен б... Вопрос № 178701: Здравствуйте уважаемые эксперты! Помогите пожалуйста с таким заданием: Нужно поэлементно вычесть с одного массива 8 битных чисел другой(мне с массивами как-то не приходилось работать ) Вопрос № 178678: Уважаемые эксперты! Помогите, пожалуйста, написать код для программы в А51. Условие задачи прилагаю: Если можно, с коментариями. Спасибо. Отправлен: 27.05.2010, 01:31 Вопрос задал: Крупицын Игорь Викторович, Посетитель Всего ответов: 1 Страница вопроса » Отвечает Лысков Игорь Витальевич, Модератор : Здравствуйте, Крупицын Игорь Викторович. Вот Вам программа. Естественно, с комментариями. По другому мы не отвечаем :) Учитываем, что адрес состоит из двух байт, поэтому сохраняем оба байта адреса. Удачи! Код: mov sp, #70h ;переносим вершину стека mov dptr, #array ;адрес, где исходный массив mov r2, #len ;количество элементов исходного массива mov r3, #0 ;посчитаем число нулевых элементов mov r6, #0 ;сохраненный мл байт адреса во внешней памяти для записи результата mov r7, #0 ; ст байт адреса loop: ;цикл clr a ;поготовимся для чтения из программной памяти movc a, @a+dptr ;читаем очередной элемент jnz next ;если не нуль, то обходим mov r4, dpl ;сохраним мл байт адреса в исходном массиве mov r5, dph ; ст байт mov dpl, r6 ;мл байт адреса, куда пишем mov dpl, r7 ; ст байт mov a, r4 ;мл байт адреса нулевого элемента movx @dptr, a ;сохраним inc dptr ;для следующего mov a, r5 ;ст байт адреса нулевого элемента movx @dptr, a ;сохраним inc dptr ;для следующего inc r3 ;считаем mov r6, dpl ;сохраним адрес внешней памяти mov r7, dph mov dpl, r4 ;восстановим мл байт адреса в исходном массиве mov dph, r5 ; ст байт next: inc dptr ;адрес следующего элемента исходного массива djnz r2, loop ;r4=r4-1; циклим, пока r4!=0 jmp $ ;задача решена, циклимся на одном месте array: db 1,0,0,2,3,4,5,0,0,2,0,6 len equ $-array ;длина массива end ----- Удачи! Ответ отправил: Лысков Игорь Витальевич, Модератор Ответ отправлен: 27.05.2010, 11:12 Номер ответа: 261707 Украина, Кировоград Тел.: +380957525051 ICQ # 234137952 Mail.ru-агент: igorlyskov@mail.ru Абонент Skype: igorlyskov Оценка ответа: 5 Комментарий к оценке: Огромное спасибо! Вам помог ответ? Пожалуйста, поблагодарите эксперта за это! Как сказать этому эксперту "спасибо"? Отправить SMS #thank 261707 на номер 1151 (Россия) | Еще номера » Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.) Вопрос № 178697: Здравствуйте уважаемы эксперты! Прошу помощи в решение такой задачки: Сформировать файл со строками, состоящими из ИМЯ, ОТЧЕСТВО, ФАМИЛИЯ. Создать этот файл самому и заполнить его данными по своей группе. Организовать вывод на экран всех полных имён людей, имеющих задаваемое с клавиатуры имя. Прошу написать все с комментариями чтоб понятно было) Программа Tasm. Отправлен: 27.05.2010, 16:48 Вопрос задал: Петров Юрий Иванович, Посетитель Всего ответов: 1 Страница вопроса » Отвечает amnick, Студент : Здравствуйте, Петров Юрий Иванович. Программа приведена в приложении. Файл с данными должен быть создан предварительно. Если необходимо, то можно добавить и создание файла. Компилировать в COM-файл. Пример данных: Код: Иван Петрович Сидоров неверная строка Николай Сергеевич, Смирнов... Иван Андреевич Лисов Петр Николаевич Иванов Строка "неверная строка" будет пропущена при разборе файла (меньше 3-х слов). Если в строке больше 3-х слов, то разбор файла прекращается. Максимальный размер файла - 40К (программа проверяет, но я эту часть не тестировал). С вопросами обращайтесь в мини-форум. Успехов! Приложение: ; Программа читает файл со строками, состоящими из ИМЯ, ОТЧЕСТВО, ФАМИЛИЯ. ; Организовать вывод на экран всех полных имён людей, имеющих задаваемое ; с клавиатуры имя. locals @@ model tiny t_person struc pName dw ? ; адрес имени pPatronymic dw ? ; адрес отчества pSurname dw ? ; адрес фамилии t_person ends MAX_ENTRIES = 100 ; максимальное кол-во записей data strMenu db 13,10,\'-----------------\',13,10 db \'1- загрузить файл\',13,10 db \'2- показать файл\',13,10 db \'3- поиск по имени\',13,10 db \'-----------------\',13,10 db \'Esc - выход\',13,10 db \'-----------------\' strEol db 13,10,\'$\' msgEnterName db 13,10,\'Введите имя файла: $\' msgOpenError db 13,10,\'Ошибка при открытии файла.\',13,10,\'$\' msgFileTooBig db 13,10,\'Файл слишком большой, читаем только первые 40 Кбайт.\',13,10,\'$\' msgReadError db 13,10,\'Ошибка при чтении файла.\',13,10,\'$\' msgLimit db 13,10,\'Слишком много записей.\',13,10,\'$\' msgWrongFormat db 13,10,\'Неверный формат файла. Разбор файла прерван.\',13,10,\'$\' msgUnexpectedEnd db 13,10,\'Неожиданный конец файла.\',13,10,\'$\' msgNoData db 13,10,\'Нет данных.\',13,10,\'$\' msgSearchName db 13,10,\'Поиск - введите имя: $\' msgNotFound db 13,10,\'Имя не найдено.\',13,10,\'$\' strTableHead db 13,10 db \'-----------------------------------------------------\',13,10 db \'Фамилия Имя Отчество\',13,10 strTableLine db \'-----------------------------------------------------\',13,10,\'$\' db 13,10 delimiters db 9, \' .,;:!?$\' ; массив разделителей слов LEN_DELIM equ $-delimiters ; кол-во разделителей bufInput db 254 ; размер буфера lenInput db 0 ; длина введенной строки szInput db 254 dup(0) ; сюда будет помещена введенная строка bufFileName db 254 ; размер буфера lenFileName db 0 ; длина введенной строки szFileName db 254 dup(0) ; сюда будет помещено имя файла при вводе ; таблица указателей на функции proc_table dw load_file, type_file, search nPersons dw 0 ; кол-во записей в файле screen_row db 0 bFound db 0 ; для уменьшения размера файла не объявляем явно массив с указателями ; и буфер для данных, а используем метку конца данных (persons) и ; вычисляем адрес буфера persons label byte file_buffer EQU persons + MAX_ENTRIES*(SIZE t_person) ; организация памяти ; -----0 ; PSP ; -----256 (100h) ; код программы ; данные ; ----- конец загруженной программы ; метка persons ; MAX_ENTRIES*(SIZE t_person) - массив структур с указателями ; буфер для данных (40 Кбайт) ; ----- ; Стек ; -----64К code org 100h start: cld ; направление для строковых команд ; выводим меню mov ah,9 ; вывод строки на экран mov dx,offset strMenu ; смещение выводимой строки int 21h ; выбор из меню @wait_key: xor ax,ax ; ожидаем нажатия клавиши int 16h ; проверяем нажатую клавишу cmp al,27 ; ESC - выход je @@exit cmp al,\'1\' jb @@wait_key cmp al,\'3\' ja @@wait_key ; введенное число - индекс в массиве указателей на процедуры, ; соответствующие пунктам меню and ax,000Fh ; символ преобразуем в число с одновременным обнулением AH dec ax ; индексация с 0 shl ax,1 ; массив слов, поэтому индекс умножаем на 2 mov bx,ax ; для получения смещения в таблице call [proc_table][bx] jmp start @exit: int 20h ; выход из программы (только .COM) ;------------------------------------------------------------------------- ; запрос имени файла, загрузка в память и формирование массива указателей ;------------------------------------------------------------------------- load_file proc mov ah,9 ; выводим предложение ввести имя файла mov dx,offset msgEnterName ; смещение выводимой строки int 21h mov ah,0Ah ; ввод строки с клавиатуры mov dx,offset bufFileName ; смещение буфера int 21h ; преобразуем имя файла в ASCIIZ строку (с конечным нулем) xor bh,bh mov bl,[lenFileName] mov [szFileName][bx],0 ; открываем файл mov ax,3D00h ; открытие файла (AH=3Dh) с доступом по чтению (AL=0) mov dx,offset szFileName ; DS:DX - адрес имени файла int 21h jnc @@open_ok ; AX содержит код ошибки, для простоты его игнорируем ; В серьезной программе надо выводить осмысленное сообщение ; в соответствии с кодом. mov ah,9 ; сообщение об ошибке создания mov dx,offset msgOpenError int 21h ret @open_ok: ; Читаем файл в память. ; Сначала определяем размер mov bx,ax ; handle mov ax,4202h ; AL=2 - позиция задается относительно конца файла xor cx,cx ; CX:DX - позиция xor dx,dx int 21h ; DX:AX - текущая позиция = размер файла test dx,dx ; проверим размер jnz @@too_big cmp ax,40*1024 ; максимум 40K jbe @@size_ok @too_big: ; слишком большой файл mov ah,9 ; выводим сообщение mov dx,offset msgFileTooBig int 21h mov ax,40*1024 ; максимум 40K @size_ok: push ax ; сохраняем размер ; возвращаем указатель текущей позиции на начало файла mov ax,4200h ; AL=0 - позиция задается относительно начала файла xor cx,cx ; CX:DX - позиция xor dx,dx int 21h pop cx ; CX - сколько читать mov ah,3Fh ; ф-я чтения файла, BX = handle mov dx,offset file_buffer ; смещение буфера (после всех данных) int 21h jnc @@read_ok ; AX содержит код ошибки, для простоты его игнорируем mov ah,9 ; выводим сообщение об ошибке чтения mov dx,offset msgReadError int 21h mov ah,3Eh ; закрываем файл int 21h ret @read_ok: mov cx,ax ; сколько реально прочитано mov ah,3Eh ; закрываем файл int 21h mov [nPersons],0 jcxz @@ret mov bx,offset persons mov si,dx ; начало буфера @next_line: call skip_all_delimiters ; пропускаем разделители, включая концы строк jcxz @@ret cmp bx,offset persons + MAX_ENTRIES*(SIZE t_person) ; проверяем на переполнение jb @@ok mov dx,offset msgLimit ; слишком много записей jmp short @@msg @ok: ; (SI-1) - адрес первого символа следующего слова lea ax,[si-1] ; AX = адрес первого символа имени mov [bx],ax ; сохраняем адрес имени call read_word ; пропускаем имя jcxz @@unexpected_end jz @@end_of_line ; неполная строка, пропускаем mov byte ptr [si],\'$\' call skip_delimiters ; пропускаем разделители jcxz @@unexpected_end jz @@end_of_line ; неполная строка, пропускаем ; (SI-1) - адрес первого символа следующего слова lea ax,[si-1] ; AX = адрес первого символа отчества mov [bx+2],ax ; сохраняем адрес отчества call read_word ; пропускаем отчество jcxz @@unexpected_end jz @@end_of_line ; неполная строка, пропускаем mov byte ptr [si],\'$\' call skip_delimiters ; пропускаем разделители jcxz @@unexpected_end jz @@end_of_line ; неполная строка, пропускаем ; (SI-1) - адрес первого символа следующего слова lea ax,[si-1] ; AX = адрес первого символа фамилии mov [bx+4],ax ; сохраняем адрес фамилии call read_word ; пропускаем фамилию mov byte ptr [si],\'$\' jz @@eol ; нормально, конец строки сразу после фамилии jcxz @@eol ; нормально, конец файла сразу после фамилии ; разделитель, но не конец строки ; до конца строки допустимы только разделители (строго говоря, только пробелы) call skip_delimiters ; пропускаем разделители jz @@eol ; неверный формат файла - лишние символы после фамилии ; эта строка предполагается неверной, дальнейший анализ прекращается mov dx,offset msgWrongFormat @msg: mov ah,9 int 21h ret @eol: add bx,SIZE t_person ; продвигаем указатель в массиве записей inc [nPersons] ; увеличиваем счетчик записей @end_of_line: test cx,cx ; здесь нельзя использовать loop, поскольку CX jnz @@next_line ; может быть равно 0. Кроме того, здесь нельзя уменьшать CX. ; дошли до конца прочитанного блока @ret: ret @unexpected_end: ; Неожиданный конец прочитанного блока - в середине записи. ; Это возможно при ошибке или если файл был прочитан не полностью mov dx,offset msgUnexpectedEnd jmp short @@msg load_file endp ;-------------------------------------------------------------- ; пропуск разделителей ; вход: ; SI - указатель на строку ; CX - длина строки ; выход: ; (SI-1) - адрес первого символа следующего слова ; CX - длина остатка строки ;-------------------------------------------------------------- skip_delimiters proc @next: push cx ; длина остатка строки lodsb ; очередной символ строки mov cx,LEN_DELIM mov di,offset delimiters repne scasb ; сравниваем с возможными разделителями pop cx loope @@next ; цикл, пока разделитель и строка не кончилась cmp al,13 ; конец строки в стиле DOS - пара 13,10 (CR/LF) je @@ret cmp al,10 ; конец строки в стиле UNIX - LF @ret: ret skip_delimiters endp ;-------------------------------------------------------------- ; пропуск разделителей, включая CR/LF ; параметры - аналогично skip_delimiters ;-------------------------------------------------------------- skip_all_delimiters proc @next: push cx ; длина остатка строки lodsb ; очередной символ строки mov cx,LEN_DELIM+2 mov di,offset delimiters-2 repne scasb ; сравниваем с возможными разделителями, включая CR/LF pop cx loope @@next ; цикл, пока разделитель и строка не кончилась ret skip_all_delimiters endp ;-------------------------------------------------------------- ; пропуск слова ; вход: ; SI - указатель на первый символ слова + 1 ; (к этому моменту первый символ слова уже проверен) ; CX - длина строки ; выход: ; SI - указывает на первый символ за концом слова ; CX - длина остатка строки ; ZF (флаг нуля)=1 - конец строки ;-------------------------------------------------------------- read_word proc @next: push cx ; длина остатка строки lodsb ; очередной символ строки mov cx,LEN_DELIM+2 mov di,offset delimiters-2 repne scasb ; сравниваем с возможными разделителями, включая CR/LF pop cx loopne @@next ; цикл, пока НЕ разделитель и строка не кончилась jne @@ret ; эта проверка важна для последнего введенного слова dec si ; теперь SI указывает на первый символ за концом слова inc cx cmp al,13 ; конец строки в стиле DOS - пара 13,10 (CR/LF) je @@ret cmp al,10 ; конец строки в стиле UNIX - LF @ret: ret read_word endp ;-------------------------------------------------------------- ; Вывод на экран всех записей в табличном виде ;-------------------------------------------------------------- type_file proc mov cx,[nPersons] jcxz _no_data mov ah,9 ; вывод заголовка таблицы mov dx,offset strTableHead int 21h mov si,offset persons @next: call type_line add si,SIZE t_person loop @@next _bottom_line: mov ah,9 ; нижняя черта mov dx,offset strTableLine int 21h ret _no_data: mov ah,9 ; сообщение "нет данных" mov dx,offset msgNoData int 21h ret type_file endp ;-------------------------------------------------------------- ; Запрос имени и поиск ; Замечание: если пользователь введет что-то вроде ; Иван$Петрович ; и в файле с данными \'Иван\' и \'Петрович\' разделены ; одним символом (например, \'Иван Петрович Сидоров\'), ; то будет найдена эта запись ;-------------------------------------------------------------- search proc mov cx,[nPersons] jcxz _no_data mov ah,9 ; выводим предложение ввести имя для поиска mov dx,offset msgSearchName ; смещение выводимой строки int 21h mov ah,0Ah ; ввод строки с клавиатуры mov dx,offset bufInput ; смещение буфера int 21h xor bh,bh mov bl,[lenInput] ; BX= длина введенной строки mov [bFound],bh ; пока ничего не найдено mov bp,bx mov [szInput][bx],\'$\' ; записываем терминатор mov bx,offset persons ; адрес массива указателей @next: push cx mov si,offset szInput mov di,[bx].pName mov cx,bp repe cmpsb jne @@skip cmp [bFound],cl ; здесь CL=0 jnz @@lin mov [bFound],1 ; что-то нашли mov ah,9 ; вывод заголовка таблицы mov dx,offset strTableHead int 21h @lin: mov si,bx call type_line mov bx,si @skip: add bx,SIZE t_person ; к следующей записи pop cx loop @@next cmp [bFound],cl ; здесь CL=0 jne _bottom_line ; что-то было найдено, отчеркиваем таблицу @not_found: mov ah,9 ; ничего не найдено mov dx,offset msgNotFound int 21h ret search endp ;-------------------------------------------------------------- ; вывод одной строки на экран в таблицу ; SI - адрес структуры в массиве persons ; Сохраняет значение CX,SI ;-------------------------------------------------------------- type_line proc push cx mov ah,3 ; запрос позиции и размера курсора xor bh,bh ; видеостраница int 10h ; Выход: DH - строка, DL - колонка mov [screen_row],dh mov ah,9 mov dx,[si].pSurname ; фамилия int 21h mov ah,2 ; установить позицию курсора mov dh,[screen_row] mov dl,15 ; позиция имени int 10h mov ah,9 mov dx,[si].pName ; имя int 21h mov ah,2 ; установить позицию курсора mov dh,[screen_row] mov dl,30 ; позиция отчества int 10h mov ah,9 mov dx,[si].pPatronymic ; отчество int 21h mov dx,offset strEol ; на новую строку int 21h pop cx ret type_line endp end start Ответ отправил: amnick, Студент Ответ отправлен: 27.05.2010, 23:04 Номер ответа: 261721 Вам помог ответ? Пожалуйста, поблагодарите эксперта за это! Как сказать этому эксперту "спасибо"? Отправить SMS #thank 261721 на номер 1151 (Россия) | Еще номера » Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.) Вопрос № 178698: Здравствуйте уважаемы эксперты! Помогите пожалуйста написать программу: Задана строка символов. Составить программу, выясняющую, имеется ли в ней все буквы из слова "end". Причем порядок наличия символов в проверяемой строке должен быть обратным их порядку в "end". В ассемблере я не очень, так что прошу с подробными комментами! Программа Tasm. Отправлен: 27.05.2010, 16:51 Вопрос задал: Петров Юрий Иванович, Посетитель Всего ответов: 1 Страница вопроса » Отвечает Airyashov, Студент : Здравствуйте, Петров Юрий Иванович. если Я правильно понял задачу, то так Код: .model small ; модель пямяти для программы типа EXE .286 ; разрешить использовать команда 80286 .stack 200h ; сегмент стека .data ; сегмент данных mR_Yes db 'Yes',10,13,'$' ; строка вывода если условие выполняется mR_No db 'No',10,13,'$' ; строка вывода если условие не выполняется MyStr db 'sdfdgawfekldjklnss' ; заданная строка SizeS=$-MyStr ; длина строки mGood db 10,13,'Работа программы окончена! ',10,13,'$' ; строки с сообщениями об успешном завершении программы .code ; сегмент кода @start: ; точка входа в программу mov ax,@data; иници ализация семента данных mov ds,ax mov es,ax mov cx,SizeS ; cx=длина строки mov dx,offset mR_No ; занести в dx адрес строки с предполагаемым результатом mov di,offset MyStr ; di=адрес заданной строки mov al,'d' ; al='d' repne scasb ; поиск символа в строке je @next1 ; нашли продолжить поиск jmp @no ; если не нашли переход @next1: mov al,'n' ; al='n' repne scasb ; поиск символа в строке je @next2 ; нашли продолжить поиск jmp no @next2: mov al,'e' ; al='e' repne scasb ; поиск символа в строке jne @no ; не нашли переход mov dx,offset mR_Yes ; занести в dx адрес строки с полученным результатом @no: ; вывод результата mov ax,0900h ; вывести заголовок для ввода элемента массива int 21h ; вызов DOS @end_prog: mov ax,0900h ; вывести заголовок для ввода элемента массива mov dx, offset mGood ; адрес выводимой строки int 21h ; вызов DOS mov ax,0c07h ; ожидаем нажатие клавиши int 21h ; вызов DOS ;выход из программы mov ax,4c00h; функция DOS завершение программы int 21h ; вызов DOS end @start Ответ отправил: Airyashov, Студент Ответ отправлен: 27.05.2010, 20:48 Номер ответа: 261719 Вам помог ответ? Пожалуйста, поблагодарите эксперта за это! Как сказать этому эксперту "спасибо"? Отправить SMS #thank 261719 на номер 1151 (Россия) | Еще номера » Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.) Вопрос № 178701: Здравствуйте уважаемые эксперты! Помогите пожалуйста с таким заданием: Нужно поэлементно вычесть с одного массива 8 битных чисел другой(мне с массивами как-то не приходилось работать ) Причем сначала вычетание происходит обычными командами, потом значение обеих массивов восстанавливаются до тех, которые вначале были и уже после этого происходит такое же вычетание, только командами MMX. Ввод и вывод элементов массива реализовывать не нужно, я это сам сделаю, cамое главное, чтобы сам процес происходил в памяти и работу пока я продемонстрирую в отладчике, например AFDPro. Если можно с комментариями, спасибо большое Отправлен: 27.05.2010, 17:43 Вопрос задал: Мироненко Николай Николаевич, Практикант Всего ответов: 1 Страница вопроса » Отвечает Лысков Игорь Витальевич, Модератор : Здравствуйте, Мироненко Николай Николаевич. Пара замечаний: 1) Боюсь, что Вам не получится использовать Tasm для ассемблирования программы. Увы, Tasm остановился в развитии до появления MMX. Он их не понимает! Придется использовать Masm, и то пропатченный до версии 6.12! Или писать 32-битную программу, Masm32 прекрасно понимает MMX. 2) Смотреть под досовскими отладчиками будет весьма сложно! Они ведь тоже не понимают MMX! Вот такие пирожки... А теперь сама программа: Код: .586 .MMX assume cs:CSEG,ds:CSEG CSEG segment use16 start: mov ax, CSEG ;проиницируем сегментные регистры mov ds, ax mov es, ax mov cx, len ;длина массива lea di, s1 ;адреса строк lea si, s2 SubLoop: ;цикл вычитания по-байтно lodsb ;читаем очередной байт вычитаемого sub [di], al ;отнимаем inc di ;инкремент адреса уменьшаемого/разности loop SubLoop ;восстановим исхоный массим, для этого сложим с вичитаемым mov cx, len lea di, s1 lea si, s2 AddLoop: lodsb add [di], al inc di loop AddLoop ;проделаем то же самое, используя MMX mov cx, len ;число байт shr cx, 3 ;8 байт за 1 раз lea si, s1 ;адреса строк lea di, s2 MMXSubLoop: movq MM0, qword ptr [si] ;грузим 8 байт [si] в MM0 movq MM1, qword ptr [di] ;грузим 8 байт [di] в MM0 psubb MM0, MM1 ;отнимаем по-байтно [si]-[di] сразу все 8 байт movq qword ptr [si], MM0 ;пишем результат на место [si] (уменьшаемое/разность) add si, 8 ;на следующие 8 байт add di, 8 loop MMXSubLoop emms ;завершаем работу с MMX mov ax,4c00h int 21h ;будем считать s1-s2 s1 db 1,2,3,4,5,6,7,8,1,2,3,4,5,6,7,8 len equ $-s1 s2 db 0ffh ,0ffh,1,0ffh,2,0ffh,3,0ffh db 0feh,010h,3,011h,2,1,3,4 CSEG ends end start ----- Удачи! Ответ отправил: Лысков Игорь Витальевич, Модератор Ответ отправлен: 30.05.2010, 23:14 Номер ответа: 261767 Украина, Кировоград Тел.: +380957525051 ICQ # 234137952 Mail.ru-агент: igorlyskov@mail.ru Абонент Skype: igorlyskov Оценка ответа: 5 Вам помог ответ? Пожалуйста, поблагодарите эксперта за это! Как сказать этому эксперту "спасибо"? Отправить SMS #thank 261767 на номер 1151 (Россия) | Еще номера » Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.) Оценить выпуск » Нам очень важно Ваше мнение об этом выпуске рассылки! Задать вопрос экспертам этой рассылки » Скажите "спасибо" эксперту, который помог Вам! Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА на короткий номер 1151 (Россия) Номер ответа и конкретный текст СМС указан внизу каждого ответа. Полный список номеров » * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов) ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются. *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании. © 2001-2010, Портал RFpro.ru, Россия Авторское право: ООО "Мастер-Эксперт Про" Автор: Калашников О.А. | Программирование: Гладенюк А.Г. Хостинг: Компания "Московский хостер" Версия системы: 2010.6.16 от 26.05.2010 Обсудить выпуск

Как вам этот выпуск ?  Дайте свой отзыв  или  Оцените   5    4    3    2    1,   можно письмом:  5    4    3    2    1

Реклама Отказаться от рекламы Скачай "Пятое колесо" Билет в первый класс. Nissan Juke. Кругом одни гибриды.   Вспомни детство! Аппарат для приготовления сахарной ваты - отличное угощение!   Надоела сутулая спина и обвислый живот? Тренажер Ab Rocket - великолепный пресс всего за несколько недель!

Реклама Отказаться от рекламы Ведущий портал по безопасности Все, что Вы хотите знать о рынке безопасности, есть на Sec.ru.<>www.sec.ru Супермаркет ПО Softkey.ru Огромный выбор лицензионного софта. Моментальная оплата!<>www.softkey.ru Новый Firefox3.6 Быстрый и удобный браузер. Скачай бесплатно прямо сейчас!<>fx.yandex.ru

Рассылки SoftSoft.ru - свежий софт Дайджест новых поступлений программ в каталог Softsoft.ru Подписаться:   на сайте    по почте

Группы «Интернет для начинающих пользователей» Группа начинающих пользователей Интернета. Советы, статьи, инструкции новичкам. Если вы недавно подключились к Интернету и у вас на счет него есть куча ... «Клуб для людей, у которых дома живут Кошки» Я знаю всё о кошачьих повадках и вообще о кошках! Поэтому я решил создать свою группу о кошках где я смогу отвечать на ваши вопросы о кошках и т.д. и т.п. ! «Добрая беседа» Разговоры обо всем. Беседы на любую тему. Вселенная, социум, домашние животные, интересные находки, советы или просьбы посоветовать - не важно, о чем го...

Подписан адрес: admin10383.deep@blogger.com Код этой рассылки: comp.prog.assembler Архив рассылки Отписаться:  На сайте  Почтой Поддержка подписчиков Убрать рекламу Другие рассылки этой тематики Другие рассылки этого автора Рассылка производится: Subscribe.Ru / ЗАО «Интернет-Проекты» / О компании / Политика конфиденциальности