Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

Чемпионы рейтинга экспертов в этой рассылке

Лысков Игорь Витальевич Статус: Профессионал Рейтинг: 203 ∙ повысить рейтинг >>

Зенченко Константин Николаевич Статус: Профессор Рейтинг: 99 ∙ повысить рейтинг >>

Boriss Статус: Профессор Рейтинг: 25 ∙ повысить рейтинг >>

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

Выпуск № 1165
от 23.01.2009, 16:05

Вопрос № 157983: Уважаемые эксперты, напишите пожалуйста следующие 3 программки: В отдельном каталоге создано несколько текстовых файлов с такими именами: 1.LAB, 2.LAB, 3.LAB, 4.LAB. 1) Удвоить текст в каждом файле (т.е. повторить исходный текст два раза подряд...

Вопрос № 157.983

Уважаемые эксперты, напишите пожалуйста следующие 3 программки: В отдельном каталоге создано несколько текстовых файлов с такими именами: 1.LAB, 2.LAB, 3.LAB, 4.LAB. 1) Удвоить текст в каждом файле (т.е. повторить исходный текст два раза подряд) 2) Перенести все исходные файлы в каталог уровнем выше, а их прежний каталог удалить 3) Создать отдельные каталоги по числу файлов и перенести каждый файл в свой каталог

Отправлен: 17.01.2009, 19:40 Вопрос задала: Егорова Катерина Федоровна (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Лысков Игорь Витальевич Здравствуйте, Егорова Катерина Федоровна! Все три программки в приложении. Несколько замечаний. Программы тестировались только для случая поддиректорий в текущей директории Программы 1 и 2, скорее всего будут работать с любым путем. Третья создает поддиректории только в текущей. Приложение: 1)------------------------------------------- .model tiny .data path db 'subdir' fname db '1.lab',0 sFile db 'File $' sNotFoundTail db ' is not found',0dh,0ah,'$' sReadErrorTail db ' read error',0dh,0ah,'$' sBigFileTail db ' >= 61440 bytes',0dh,0ah,'$' sWriteErrorTail db ' write error',0dh,0ah,'$' .data? buffer label byte .code .startup mov cx,4 ;4 файла FLoop: push cx ;сохраним счетчик файлов lea dx,path ;путь очередного файла mov ax,3d02h ;откроем на чтение и запись int 21h jc NotFound ;не найден! mov bx,ax ;описатель файла lea dx,buffer ;буфер mov cx,0f000h ;сколько читаем mov ah,3fh ;ф-я чтения int 21h jc ReadError ;ошибка чтения cmp ax,cx ;ждем, чтобы файл был < 0f000h=61440 je Bigfile ;большой файл mov cx,ax ;реальная длина mov ah,40h ;после чтения всего файла указатель текущей позиции файла int 21h ; показывает на конец файла, поэтому команда записи ; удвоит содержимое файла jc WriteError ;ошибка записи cmp ax,cx ;число записанных байт (AX) должно совпадать с тем, что писали (CX) jne WriteError mov ah,3eh ;закроем файл int 21h fNext: pop cx inc byte ptr fname ;строим имя следующего файла loop FLoop mov ax,4c00h int 21h NotFound: ;Сообщения об ошибках lea dx,sFile mov ah,9 int 21h call PrName lea dx,sNotFoundTail jmp PError ReadError: lea dx,sFile mov ah,9 int 21h call PrName lea dx,sReadErrorTail jmp Close BigFile: lea dx,sFile mov ah,9 int 21h call PrName lea dx,sBigFileTail jmp Close WriteError: lea dx,sFile mov ah,9 int 21h call PrName lea dx,sWriteErrorTail Close: mov ah,3eh int 21h PError: mov ah,9 int 21h jmp fNext PrName proc ;вывод имени файла lea si,path PrNLoop: lodsb test al,al jz PrNRet int 29h jmp PrNLoop PrNRet: ret PrName endp end 2)------------------------------------------- .model tiny .data path db 'subdir' ;исходная директория fname db '1.lab',0 ;имя файла sFile db 'File $' sNotMovedTail db ' is not moved',0dh,0ah,'$' sDir db 'Directory $' sDelDirErrTail db ' is not deleted',0dh,0ah,'$' .data? buffer label byte ;буфер для результируещего пути и имени .code .startup lea di,buffer ;сформируем путь, куда перемещать файл lea si,path ;начнем с исходного пути MLoop: movsb cmp si,offset fname ;копируем до имени jb MLoop lea bx,[di-1] ;сохраним позицию конца имени директории mov ax,'..' ;добавим '..' - родительский каталог stosw mov al,'' ;добавим '' stosb mov bp,di ;сохраним позицию имени айла mov cx,4 ;4 файла FLoop: mov di, bp ;копируем имя очередного файла lea si, fname NLoop: lodsb stosb test al,al ;включая завершающий нуль jnz NLoop lea dx,path ;путь очередного исходного файла lea di,buffer ;путь результирующего файла mov ah,56h ;переносим int 21h jc MoveError ;если ошибка fNext: inc byte ptr fname ;строим имя следующего файла loop FLoop ;по всем файлам mov dx,di ;путь имени директории mov byte ptr [bx],0 ;вставим нуль в конце имени исходной директории mov ah,3ah ;удалим директорию int 21h jc DeleteError ;если ошибка Exit: mov ax,4c00h int 21h MoveError: ;Сообщения об ошибках lea dx,sFile mov ah,9 int 21h call PrName lea dx,sNotMovedTail mov ah,9 int 21h jmp fNext DeleteError: lea dx,sDir mov ah,9 int 21h call PrDirName lea dx,sDelDirErrTail mov ah,9 int 21h jmp Exit PrDirName proc ;вывод имени директории mov si,dx jmp PrNLoop PrName proc ;вывод имени файла lea si,path PrNLoop: lodsb test al,al jz PrNRet int 29h jmp PrNLoop PrNRet: ret PrName endp PrDirName endp end 3)------------------------------------------- .model tiny .data fname db '1.lab',0 ;имя файла sFile db 'File $' sNotMovedTail db ' is not moved',0dh,0ah,'$' sDir db 'Directory $' sCrtDirErrTail db ' is not created',0dh,0ah,'$' .data? buffer label byte ;буфер для результируещего пути и имени .code .startup mov cx,4 ;4 файла FLoop: lea di, buffer ;формируем имя очередного пути из имени файла lea si, fname NLoop: lodsb cmp al,'.' ;до точки je MDir stosb jmp NLoop MDir: mov al,0 stosb lea dx,buffer ;создаем поддиректорию mov ah,39h int 21h jc MDError ;ошибка mov byte ptr [di-1],'' ;на место точки вставим lea si,fname ;добавим имя CLoop: lodsb stosb test al,al jnz CLoop lea dx,fname ;путь очередного исходного файла lea di,buffer ;путь результирующего файла mov ah,56h ;переносим int 21h jc MoveError ;если ошибка fNext: inc byte ptr fname ;строим имя следующего файла loop FLoop ;по всем файлам mov ax,4c00h int 21h MoveError: ;Сообщения об ошибках lea dx,sFile mov ah,9 int 21h call PrName lea dx,sNotMovedTail mov ah,9 int 21h jmp fNext MDError: lea dx,sDir mov ah,9 int 21h call PrName lea dx,sCrtDirErrTail mov ah,9 int 21h jmp fNext PrName proc ;вывод имени mov si,dx PrNLoop: lodsb test al,al jz PrNRet int 29h jmp PrNLoop PrNRet: ret PrName endp end --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Профессионал) Украина, Кировоград ICQ: 234137952 ---- Ответ отправлен: 19.01.2009, 17:17 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 241599 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 157.994

Уважаемые эксперты, составить программу, которая определяет номера max элементов массива, в коде которых содержится одна единица. Размер массива - 8 элементов. Использовать функцию role и значение флагов, модель памяти small

Отправлен: 17.01.2009, 22:03 Вопрос задал: Dagra (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Лысков Игорь Витальевич Здравствуйте, Dagra! Программа в приложении. Реализовал идею, любезно предоставленную экспертом Airyashov, а именно: Сначала сортируем (методом пузырька) массив, одновременно сохраняя индексы в исходном массиве. Затем просматриваем сначала отсортированный массив. Первый попавшийся элемент, у которого в коде только одна единица и будет требуемым. Выводим его и его индекс. Проверяем дальше, если совпадают значения, значит имеем несколько одинаковых элементов, удовлетворяющих условию. Следовательно, выводим также и их индекс. Удачи! Приложение: .model small,C .data source db 'Source array: $' str1 db 0dh,0ah,'Maximum = $' str2 db 'index = $' str3 db 0dh,0ah,'Number with one 1 not found',0dh,0ah,'$' array db 6h, 1, 128, 4, 3, 255, 128, 64 ;array db 6h, 1, 130, 4, 3, 255, 129, 64 .code .startup mov ax,@data mov es,ax lea dx,source ;Выведем исходный массив mov ah,9 int 21h lea si,array mov cx,8 PrLoop: lodsb call PrByte ;выводим десятичное число loop PrLoop call CalcMax1, offset array ;произведем анализ mov ax,4c00h int 21h ; ;Определяет номера max элементов массива, в коде которых содержится одна единица ;Выводит на экран само значение и индексы с 0 ;Параметр - адрес массива CalcMax1 proc arr:word local arr1:byte:8, ;временный массив, перепишем сюда из исходного index:byte:8 ;массив индексов, нужен, потому что мы сначала отсортируем ;копию исходного массив, здесь же будем хранить индексы в исходном mov si,arr ;сформируем временные массивы xor di,di ;индекс в обоих массивах mov ah,0 ;исходное значение для записи в index mov cx,8 ;количество CLoop: lodsb ;читаем исходный байт mov arr1[di],al ;записываем в arr1 mov index[di],ah ;индекс в исходном массиве inc di ;на след байт inc ah ;след индекс loop CLoop ;сортировка строки методом "пузырька" по убыванию, ;строка arr1, длиной cx xor si,si ;индекс в строке mov cx,8 ;конечный адрес для внешнего цикла mov dx,7 ;конечный адрес для внутреннего цикла loop1: mov al,arr1[si] ;берем первое значение и сравниваем со всеми последующими lea di,[si+1] ;смещение, с чем сравниваем loop2: cmp al,arr1[di] ;сравним jae next ;на следующий, если arr1[si]>=arr1[di] xchg al,arr1[di] ;меняем местами arr1[si] и arr1[di] mov arr1[si],al ;причем в al будет минимальный элемент push ax ;параллельно меняем местами и индексы! mov al,index[si] ;меняем местами index[si] и index[di] xchg al,index[di] mov index[si],al pop ax ;восстановим al next: inc di ;на следующий элемент cmp di,cx jb loop2 ;на внутренний цикл inc si ;на следующий элемент cmp si,dx jb loop1 ;на внешний цикл ;Посчитаем число бит, и ищем первый байт слева, у которого одна единица в коде, ;не забыв проверить, может есть одинаковые xor si,si ;индекс mov cx,8 ;число байт BLoop: mov al,arr1[si] ;берем очередной call CalcBits ;считаем число бит cmp al,1 je BFound ;нас интересует 1 бит inc si ;ищем, чтобы было 1 бит loop BLoop lea dx,str3 ;не нашли! mov ah,9 ;выводим сообщение int 21h jmp CMret ;и завершаем работу BFound: lea dx,str1 ;нашли mov ah,9 int 21h ;выводим 'Maximum = ' mov al,arr1[si] ;значение call PrByte ;как десятичное число lea dx,str2 ;'index = ' mov ah,9 int 21h mov al,index[si] ;индекс в исходной строке call PrByte mov al,arr1[si] ;еще раз прочитаем, чтобы сравнивать ILoop: dec cx ;уменьшим счетчик байт jcxz CM0d0a ;дошли до края? inc si ;индекс следующего cmp al,arr1[si] ;сравним jne CM0d0a ;если не равны, то заканчиваем push ax ;сохраним значение mov al,index[si] ;выведем следующий индекс call PrByte pop ax jmp ILoop CM0d0a: mov al,0dh ;перевод строки int 29h mov al,0ah int 29h CMret: ret CalcMax1 endp ; ;считаем единичные биты CalcBits proc push cx ;сохраним счетчик mov ah,0 ;здесь будем считать биты mov cx,8 ;8 бит CBLoop: rol al,1 ;сдвигаем циклически, одновременно, бит попадает в C adc ah,0 ;ch = ch + C loop CBLoop mov al,ah ;результат в al pop cx ret CalcBits endp ; PrByte proc ;вывод строки push cx mov bl,10 ;будем делить на 10 mov ah,0 ;байт -> слово xor cx,cx ;счетчик цифр DLoop: ;цикл формирования цифр div bl ;получим очередную цифру в ah push ax ;сохраним в стеке inc cx ;проинкрементируем счетчик цифр mov ah,0 ;подготовимся к следующему делению test ax,ax ;проверим на 0 jnz DLoop ;еще есть цифры PLoop: ;цикл вывода pop ax ;восстановим цифлу mov al,ah ;из ah в al add al,'0' ;0-9 -> '0'-'9' int 29h ;выведем loop PLoop ;по всем цифрам mov al,' ' ;отделим пробелом int 29h pop cx ret PrByte endp ; end --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Профессионал) Украина, Кировоград ICQ: 234137952 ---- Ответ отправлен: 19.01.2009, 12:28 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 241582 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 157.995

Здравствуйте дорогие эксперты! Помогите пожалуйста решить задачу: Составьте программу, которая определяет содержит ли исходный массив символ "&". Размерность исходного массива - 14 однобайтных символов. Нашел пример, впринципе изменил но при поиске этого элемента '&' команда сравнения cmp не хочет работать. Заранее спасибо... Приложение: model small stack 100h data x db 'jfitcm&0fjds10' ; массив состоящий из 14 символов len_x equ $-x ;константа определяющая длинну строки, где $-текущий адрес символа code start: assume ds: @data, es: @data mov ax, @data mov ds, ax mov es, ax lea si, x ;Заносим адрес строки в индексный регистр... mov cx, len_x ;длинну строки считываем по одному байту т.к символ один cycl: mov ax,[si] ;чиаем символ ;проверяем равен ли он '&' cmp ax, '&' ;сравниваем с '&' je isER ;Если сивол массива равен '&' - выходим из цикла inc si ;пока Сх не равно 0 loop cycl stc ;прошли весь цикл и не нашли - добавим флаг C и заносим в регистр например ax число 0 (0 - не найден 1 - найден) mov ax, 0 jmp exit isER: ;После того как символ найден добавляем в регистр например ax число 1 (0 - не найден 1 - найден) mov ax, 1 clc ;сбросим C т.к элемент найден exit: mov ax, 4c00h int 21h end start

Отправлен: 17.01.2009, 22:16 Вопрос задал: Лукин Андрей (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Airyashov Здравствуйте, Лукин Андрей! попробуйте это Код: mov ax,[si] ;чиаем символ ;проверяем равен ли он '&' cmp ax, '&' ;сравниваем с '&' заменить на Код: mov al,[si] ;чиаем символ ;проверяем равен ли он '&' cmp al, '&' ;сравниваем с '&'

Ответ отправил: Airyashov (статус: Студент) Ответ отправлен: 17.01.2009, 23:42 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 241453 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5

Вопрос № 158.017

Написать программу (на ассемблере для процессора 80х86) определения кол-ва двоичных разрядов (битов), имеющих значения "0" в массиве ячеек с адресами 0-010H сегмента кода.

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

Отвечает: Лысков Игорь Витальевич Здравствуйте, Oxioner! Решение в приложении с выводом информации на экран Приложение: .model tiny .data str1 db '[$' str2 db 'h] = $' str3 db 'h, $' str4 db ' zero bits',0dh,0ah,'$' .code .startup xor si,si ;начальный адрес данных mov cx,17 ;число байт 0-10h MLoop: lea dx,str1 ;'[' mov ah,9 int 21h mov ax,si ;выведем адрес call PrHexWord lea dx,str2 ;'h] =' mov ah,9 int 21h lodsb ;байт [si] push ax ;сохраним call PrHexByte ;выведем hex значение байта по адресу [si] lea dx,str3 ;'h, ' mov ah,9 int 21h pop ax ;восстановим байт call CountZeros ;посчитаем нулевые биты or al,'0' ;превратим в символ int 29h ;выведем lea dx,str4 ;' zero bits' mov ah,9 int 21h loop MLoop ;по всем байтам mov ax,4c00h int 21h ; CountZeros proc ;посчитаем нулевые биты, ;для этого сначала посчитаем единичные биты push cx ;сохраним счетчик байтов mov cx,8 ;число бит mov ah,0 ;число единичных бит CZLoop: ;цикл по битам shr al,1 ;сдвинем в C очередной бит adc ah,0 ;посчитаем ah = ah + C test al,al ;если в регистре 0, то дальше циклить нет смысла loopnz CZLoop ;циклим по битам, причем только если есть единичные биты mov al,8 sub al,ah ;al=8-ah - число нулевых битов CZRet: pop cx ;восстановим счетчик байтов ret CountZeros endp ; PrHexWord proc ;печать двух байт в виде hex-значения push ax mov al,ah ;сначала старший байт call PrHexByte pop ax ;потом младший PrHexByte: ;печать байта push ax ;сохраним shr al, 4 ;сначала старшую тетраду call PutHexDigit ;выведем pop ax and al,0fh ;потом младшую PutHexDigit: ;формирование из числа hex-символа add al,90h daa adc al,040h daa int 29h ;вывод ret PrHexWord endp ; end --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Профессионал) Украина, Кировоград ICQ: 234137952 ---- Ответ отправлен: 19.01.2009, 03:36 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 241553 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Спасибо огромное

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