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

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

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

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

RFpro.ru: Ассемблер? Это просто! Учимся программировать Хостинг портала RFpro.ru: Московский хостер Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64 РАССЫЛКИ ПОРТАЛА RFPRO.RU Чемпионы рейтинга экспертов в этой рассылке Boriss Статус: Академик Рейтинг: 2494 • повысить рейтинг » _Ayl_ Статус: Профессионал Рейтинг: 1869 • повысить рейтинг » vladisslav Статус: 6-й класс Рейтинг: 1227 • повысить рейтинг » / КОМПЬЮТЕРЫ И ПО / Программирование / Assembler (Ассемблер) Номер выпуска: 1355 Дата выхода: 09.06.2010, 12:00 Администратор рассылки: Лысков Игорь Витальевич, Модератор Подписчиков / экспертов: 238 / 62 Вопросов / ответов: 1 / 1 IRC-канал по теме: #assembler Вопрос № 178827: Здравствуйте уважаемые эксперты! Помогите пожалуйста решить задачу на ассемблере: Имеется текстовый файл из нескольких строк. Организовать их вывод в другой файл в обратнем порядке. Использовать память экономно - в качестве буфера в программе ... Вопрос № 178827: Здравствуйте уважаемые эксперты! Помогите пожалуйста решить задачу на ассемблере: Имеется текстовый файл из нескольких строк. Организовать их вывод в другой файл в обратнем порядке. Использовать память экономно - в качестве буфера в программе применить строку. Ее длина должна быть заведомо меньше исходного файла. В ассемблере я не очень, так что прошу с подробными комментариями. Программа Tasm 5.0. Отправлен: 03.06.2010, 11:34 Вопрос задал: Петров Юрий Иванович, Посетитель Всего ответов: 1 Страница вопроса » Отвечает amnick, Студент : Здравствуйте, Петров Юрий Иванович. Прокомментированная программа приведена в приложении. Используется буфер размером 60 байт, но я проверял и с 20-, и даже с 10-байтовым буфером — работает нормально. Особой обработки требует случай, когда последняя строка не заканчивается LF. См. комментарии в исходнике. Компилировать в COM-файл. Успехов! Приложение: ;-------------------------------------------------------------------- ; Имеется текстовый файл из нескольких строк. Организовать их вывод в ; другой файл в обратнем порядке. Использовать память экономно - в ; качестве буфера в программе применить строку. Ее длина должна быть ; заведомо меньше исходного файла. ;-------------------------------------------------------------------- ; В программе подразумевается, что размер исходного файла меньше 64K. ; Исходный файл сначала сканируется и заполняется массив смещений строк. ; Затем строки записываются в результирующий файл в обратном порядке. ;-------------------------------------------------------------------- locals @@ model tiny BUF_SIZE = 60 ; размер буфера MAX_LINES = 20 ; макс. число строк data ; буфер для имени исходного файла bufInName db 80 ; размер буфера lenInName db 0 ; длина введенной строки szInName db 80 dup(0) ; сюда будет помещено имя файла при вводе ; буфер для имени результирующего файла bufOutName db 80 ; размер буфера lenOutName db 0 ; длина введенной строки szOutName db 80 dup(0) ; сюда будет помещено имя файла при вводе msgInName db 13,10,\'Input file: $\' msgOutName db 13,10,\'Output file: $\' msgCreateError db 13,10,\'Can\'\'t create output file.\',13,10,\'$\' msgOpenError db 13,10,\'Can\'\'t open input file.\',13,10,\'$\' msgTooManyLines db 13,10,\'Too many lines in the input file.\',13,10,\'$\' msgReadError db 13,10,\'Read error.\',13,10,\'$\' msgWriteError db 13,10,\'Write error.\',13,10,\'$\' msgLseekError db 13,10,\'LSeek error.\',13,10,\'$\' msgExit db 13,10,\'Press any key to exit...$\' hIn dw 0 ; описатель исходного файла hOut dw 0 ; описатель результирующего файла str_ptr dw MAX_LINES dup(0) ; массив файловых смещений строк buffer db BUF_SIZE dup(0) ; буфер code startup mov dx,offset msgInName ; запрос имени исходного файла mov bx,offset bufInName ; смещение буфера для имени call getString mov dx,offset msgOutName ; запрос имени результирующего файла mov bx,offset bufOutName ; смещение буфера для имени call getString mov ah,3ch ; создаем результирующий файл mov dx,offset szOutName ; DS:DX - адрес имени файла xor cx,cx ; атрибуты int 21h jnc @@create_ok ; в файловых функция CF=1 - признак ошибки mov dx,offset msgCreateError jmp _error_exit @create_ok: mov [hOut],ax ; описатель результирующего файла mov ax,3d00h ; открываем файл для чтения mov dx,offset szInName ; DS:DX - адрес имени файла int 21h jnc @@open_ok mov dx,offset msgOpenError jmp _error_exit @open_ok: mov [hIn],ax ; описатель исходного файла ; читаем файл по кусочкам и помещаем смещения строк в массив cld ; направление для строковых операций mov bx,ax ; описатель файла mov dx,offset buffer ; DS:DX - адрес буфера xor bp,bp ; BP = файловое смещение начала буфера mov si,offset str_ptr+2 ; указатель на массив смещений строк ; первый элемент уже содержит 0 @scan_file: mov ah,3Fh ; чтение из файла mov cx,BUF_SIZE ; размер читаемого блока int 21h jnc @@read_ok mov dx,offset msgReadError jmp _error_exit @read_ok: test ax,ax ; AX = 0 - признак достижения конца файла jz @@eof push ax mov cx,ax ; кол-во реально прочитанных байт mov di,dx ; ES:DI - адрес буфера @continue: mov al,10 ; LF - символ перевода строки repne scasb ; поиск в буфере перевода строки jne @@buf_end ; DI - адрес начала следующей строки ; А место в массиве str_ptr еще есть? cmp si,offset buffer ; buffer идет сразу за str_ptr jb @@ok mov dx,offset msgTooManyLines jmp _error_exit @ok: ; вычисляем смещение в файле push di sub di,dx ; DI - расстояние от начала буфера lea ax,[bp+di] ; AX = BP + DI - смещение в файле mov [si],ax ; сохраняем в массиве смещений строк inc si ; к следующему элементу массива inc si pop di ; восстанавливаем для продолжения поиска jmp @@continue ; продолжаем поиск до конца буфера @buf_end: pop ax ; кол-во реально прочитанных байт add bp,ax ; файловое смещение следующего блока jmp @@scan_file @eof: ; просканировали весь исходный файл ; BP = размер файла dec si dec si mov ax,[si] cmp ax,bp ; если [si] == bp, ... jz @@eol ; ... то последняя строка в файле заканчивается LF ; последняя строка в файле НЕ заканчивается LF call copyTextLine ; сначала копируем последнюю строку ... ; ... затем добавляем CR/LF mov ah,40h ; ф-я записи в файл, BX содержит hOut mov dx,offset msgInName ; берем только 2 первых символа - CR/LF mov cx,2 ; кол-во байт в буфере для записи int 21h jmp short @@eol @next_str: call copyTextLine @eol: dec si ; к предыдущей строке dec si cmp si,offset str_ptr ; прошли весь массив? jae @@next_str ; нет, продолжаем _close_files: mov ah,3eh ; закрыть файл mov bx,[hOut] ; описатель исходного файла test bx,bx jz @@close_in int 21h @close_in: mov bx,[hIn] ; описатель результирующего файла int 21h int 20h _error_exit: ; сообщение об ошибке и выход ; DS:DX - адрес сообщения mov ah,9 int 21h mov dx,offset msgExit ; предложение нажать клавишу для выхода int 21h xor ah,ah ; ждем нажатия любой клавиши (чтобы увидеть результат, int 16h ; прежде чем консоль в Windows закроется) jmp _close_files ; копирование одной строки из исходного файла в результирующий copyTextLine proc mov ax,4200h ; LSEEK (AH=42h), позиция от начала файла (AL=0) mov bx,[hIn] ; handle xor cx,cx ; CX:DX - позиция mov dx,[si] ; файловое смещение копируемой строки int 21h jnc @@lseek_ok mov dx,offset msgLseekError jmp _error_exit @lseek_ok: mov di,bp ; BP - смещение следующей строки (размер файла при первом вызове) sub di,ax ; DI = длина копируемой строки mov bp,ax ; сохраняем смещение текущей строки для следующего вызова mov dx,offset buffer @copy_str: mov ah,3Fh ; чтение mov bx,[hIn] ; handle mov cx,di ; кол-во читаемых байт cmp di,BUF_SIZE ; больше размера буфера? jb @@small ; нет, короткая строка или хвост строки mov cx,BUF_SIZE @small: int 21h jnc @@read_ok mov dx,offset msgReadError jmp _error_exit @read_ok: mov ah,40h ; запись прочитанного (CX=число байт для записи, DX=буфер) mov bx,[hOut] int 21h jnc @@wr_ok @wr_fail: mov dx,offset msgWriteError jmp _error_exit @wr_ok: cmp ax,cx ; записали сколько требовалось? jne @@wr_fail sub di,cx ; эта строка скопирована полностью? jnz @@copy_str ; нет, длинная строка, продолжаем ret copyTextLine endp ;----------------------------------------------------------------- ; Вывод подсказки на экран, ввод строки с клавиатуры и ; преобразование введенной строки в ASCIIZ. ; Вход: ; DX - адрес (смещение) подсказки ; BX - адрес буфера для строки в формате, требуемом ф-ей 0Ah ;----------------------------------------------------------------- getString proc mov ah,9 ; вывод строки на экран int 21h mov ah,0Ah ; ввод строки с клавиатуры mov dx,bx ; смещение буфера int 21h ; преобразуем имя файла в ASCIIZ строку (с конечным нулем) add bl,[bx+1] ; [bx+1] = длина введенной строки adc bh,0 mov byte ptr [bx+2],0 ret getString endp end Ответ отправил: amnick, Студент Ответ отправлен: 03.06.2010, 19:10 Номер ответа: 261853 Вам помог ответ? Пожалуйста, поблагодарите эксперта за это! Как сказать этому эксперту "спасибо"? Отправить SMS #thank 261853 на номер 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

Реклама Отказаться от рекламы Скачай журнал "Сам себе мастер" Кухня в деревенском стиле. Обустройство узкой ванны. Шторы в детской.   Вспомни детство! Аппарат для приготовления сахарной ваты - отличное угощение!   Здоровая пища: миф или реальность? Аэрогриль Flavorwave Turbo Oven - новое слово в кухонном досуге!

Реклама Отказаться от рекламы Антивирусная защита трафика. Traffic Inspector. Двойная проверка трафика от вредоносных программ.<>www.smart-soft.ru Новый Firefox3.6 Быстрый и удобный браузер. Скачай бесплатно прямо сейчас!<>fx.yandex.ru Как заработать в интернете? Начните бизнес на Forex с надёжным партнёром! Зарегистрироваться.<>promo.akmos.ru

Рассылки Softodrom.ru: бесплатные программы Рассылка только с бесплатными программами, появившимися в софткаталоге Softodrom.ru Подписаться:   на сайте    по почте

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

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