Уважаемые эксперты! Помогите, пожалуйста, написать код для программы в А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 руб.)

Здравствуйте уважаемы эксперты! Прошу помощи в решение такой задачки:

Сформировать файл со строками, состоящими из ИМЯ, ОТЧЕСТВО, ФАМИЛИЯ. Создать этот файл самому и заполнить его данными по своей группе. Организовать вывод на экран всех полных имён людей, имеющих задаваемое с клавиатуры имя.

Прошу написать все с комментариями чтоб понятно было) Программа Tasm.

Отправлен: 27.05.2010, 16:48
Вопрос задал: Петров Юрий Иванович, Посетитель
Всего ответов: 1
Страница вопроса »

Иван Петрович Сидоров
неверная строка
Николай
Сергеевич, Смирнов...
Иван Андреевич Лисов
Петр Николаевич Иванов

Приложение:
; Программа читает файл со строками, состоящими из ИМЯ, ОТЧЕСТВО, ФАМИЛИЯ. ; Организовать вывод на экран всех полных имён людей, имеющих задаваемое ; с клавиатуры имя. 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 руб.)

Здравствуйте уважаемы эксперты! Помогите пожалуйста написать программу:

Задана строка символов. Составить программу, выясняющую, имеется ли в ней все буквы из слова "end". Причем порядок наличия символов в проверяемой строке должен быть обратным их порядку в "end".

В ассемблере я не очень, так что прошу с подробными комментами! Программа Tasm.

Отправлен: 27.05.2010, 16:51
Вопрос задал: Петров Юрий Иванович, Посетитель
Всего ответов: 1
Страница вопроса »

.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 руб.)

Здравствуйте уважаемые эксперты!
Помогите пожалуйста с таким заданием:
Нужно поэлементно вычесть с одного массива 8 битных чисел другой(мне с массивами как-то не приходилось работать )
Причем сначала вычетание происходит обычными командами, потом значение обеих массивов восстанавливаются до тех, которые вначале были и уже после этого происходит такое же вычетание, только командами MMX. Ввод и вывод элементов массива реализовывать не нужно, я это сам сделаю, cамое главное, чтобы сам процес происходил в памяти и работу пока я продемонстрирую в отладчике, например AFDPro. Если можно с комментариями, спасибо большое

Отправлен: 27.05.2010, 17:43
Вопрос задал: Мироненко Николай Николаевич, Практикант
Всего ответов: 1
Страница вопроса »

 .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 руб.)

Оценить выпуск »
Нам очень важно Ваше мнение об этом выпуске рассылки!

Задать вопрос экспертам этой рассылки »