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

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

Звонок, изменяющий жизнь! Позвони в "Битву экстрасенсов"!

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

RFpro.ru: Ассемблер? Это просто! Учимся программировать Хостинг портала RFpro.ru: Московский хостер Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64 РАССЫЛКИ ПОРТАЛА RFPRO.RU Чемпионы рейтинга экспертов в этой рассылке Boriss Статус: Академик Рейтинг: 2478 • повысить рейтинг » _Ayl_ Статус: Профессионал Рейтинг: 1898 • повысить рейтинг » vladisslav Статус: 6-й класс Рейтинг: 1227 • повысить рейтинг » / КОМПЬЮТЕРЫ И ПО / Программирование / Assembler (Ассемблер) Номер выпуска: 1363 Дата выхода: 20.06.2010, 04:30 Администратор рассылки: Лысков Игорь Витальевич, Старший модератор Подписчиков / экспертов: 236 / 63 Вопросов / ответов: 1 / 1 IRC-канал по теме: #assembler Вопрос № 178667: Доброе время суток. Необходимо решить следующую задачу: Перенести все файлы с расширением .SS на 5 записей после логичного конца корневого каталога, заполнив пропуски пустыми записями. При вводе Вашего имени, оно должно записываться в поле имени проп... Вопрос № 178667: Доброе время суток. Необходимо решить следующую задачу: Перенести все файлы с расширением .SS на 5 записей после логичного конца корневого каталога, заполнив пропуски пустыми записями. При вводе Вашего имени, оно должно записываться в поле имени пропуска. * DOS (прерывания BIOS) TASM * Примечание. Диск: флоппи 1.4 Отправлен: 26.05.2010, 18:59 Вопрос задал: Мазуренко Николай Павлович, Посетитель Всего ответов: 1 Страница вопроса » Отвечает Зенченко Константин Николаевич, Модератор : Здравствуйте, Мазуренко Николай Павлович. Смотрите приложение. На рисунке видно содержимое корневого каталога дискеты до и после выполнения программы. Одновременно с записью на дискету формируется бинарный файл с именем MBR_ONE.BIN, там находится копия записанной на дискету имформации. Его содержимое можно посмотреть любой программой, к примеру HIEW [ Евгений Сусликов ] ps:старался комментировать каждый участок кода, но если будут вопросы обращайтесь в минифорум. Удачи! Приложение: model tiny code org 100h 186 begin: ;запускаем мотор xor ax,ax xor dx,dx int 13h xor ax,ax xor dx,dx int 13h xor ax,ax xor dx,dx int 13h ;читаем MBR диска mov ax,0201h; mov cx,0001h xor dx,dx mov bx,offset Data_Mbr int 13h ;проверяем признак MBR mov si,offset Data_Mbr mov ax,0AA55h cmp [si+01FEh],0AA55h jz isValidMbr ;выводим сообщениие об ошибке и выходим из программы mov cx,szErrorMBR mov si,offset dbErrorMBR isErrorMSG: mov ah,0Eh mov bx,012h isErrorMBR: lodsb int 10h loop isErrorMBR xor ax,ax int 16h ret ;сообщени об ошибках dbErrorSize db \'It is a lot of recordings in the root\' szErrorSize equ $ - dbErrorSize dbErrorMBR db \'Invalid system disk\' szErrorMBR equ $ - dbErrorMBR ;блок параметров BIOS dataMBR_BPB label byte dwMBR_BytePerSector dw ?;число байт в секторе dbMBR_SectorPerClaster db ?;число секторов в кластере dwMBR_SectorReserv dw ?;число зарезервированных секторов dbMBR_NumberFAT db ?;число FAT dwMBR_RecordPerRoot dw ?;число записей в корневом каталоге dwMBR_AllSector dw ?;общее число секторов dbMBR_DriveType db ?;тип носителя dwMBR_SectorPerFAT dw ?;число секторов в FAT dwMBR_SectorPerCilinder dw ?;число секторов на дорожке dwMBR_NumberHead dw ?;число головок dwMBR_HiddenSector dw ?,?;число скрытых сеторов szDataBPB equ $ - dataMBR_BPB ;имя файла куда копируется записываемая в корневой каталог информация dbName db \'mbr_one.bin\',0 dwHNDL dw ?;дискриптор открытого файла dwSizeByteRoot dw ?;количество байт для записи dwLBASector dw ?;логический номер сектора начала корневого каталога dbSizeRoot db ?;размер коревого каталога в секторах dbCilinder db ?;номер цилиндра корневого каталога dbHead db ?;номер головки корневого каталога dbSector db ?;номер сектора корневого каталога dwEndRoot dw ?;конец логического конца оригинального корневого каталога dwNumberRecord dw ?; isValidMBR: ;копируем блок праметорв БИОС mov di,offset dataMBR_BPB add si,0Bh mov cx,szDataBPB rep movsb ;занимаемся расчетами :-) ;получаем количество секторов в FAT mov ax,dwMBR_SectorPerFAT ;получаем количество FAT mov cl,dbMBR_NumberFAT ;корректируем на количество FAT shl ax,cl shr ax,1 ;добавляем количество зарезервированных секторов add ax,dwMBR_SectorReserv mov dwLBASector,ax ;теперь в АХ номер сектора в котором начинается корневой каталог в LBA-формате ;пересчитываем в CHS-формат mov di,dwMBR_SectorPerCilinder xor dx,dx div di inc dx ; ;AX - номер логического цилиндра ;DX - номер сектора на цилиндре ;вычисляем номер головки и корректируем цилиндр mov cx,dwMBR_NumberHead xor ah,ah shl al,1 shr al,cl rcl ah,1 ;сохраняем полученные значения mov dbCilinder,al mov dbSector,dl mov dbHead,ah ; ;считаем количество считываемых секторов корневого каталога mov ax,dwMBR_RecordPerRoot ;правильнее было бы умножать и делить на dwMBR_BytePerSector ;т.к. возможно нестандартное форматирование секторов :-)) ;но считаем, что у нас стандарт =512 ;делим на 16, т.к. Х* 32 / 512 = Х / 16 ;количество секторов корневого каталога push ax shr ax,4 ;сохраняем значение mov dbSizeRoot,al pop ax ;считаем количество байт для записи в файл shl ax,5 mov dwSizeByteRoot,ax ;читаем данные из корневого каталога mov bx,offset Data_MBR mov ah,2 mov al,dbSizeRoot mov ch,dbCilinder mov cl,dbSector mov dh,dbHead mov dl,0 int 13h ; ; ;БЛОК ПОИСКА ЛОГИЧЕСКОГО КОНЦА КОРНЕВОГО КАТАЛОГА ; ;в памяти по адресу Data_Mbr находится информация с корневого каталога ;начинаем поиск логического конца корневого каталога mov si,offset data_Mbr mov cx,dwMBR_RecordPerRoot ;в цикле ищем нулевой байт в первой позиции имени isSearch: lodsb or al,al jnz isNoZero ;проверяем следующий байт, если ноль, то записей больше нет test al,[si] jz isEndRoot isNoZero: add si,31 loop isSearch ; ;если попали сюда, в корневом каталоге нет свободного места ;выводим сообщение и завершаем программу mov cx,szErrorSize mov si,offset dbErrorSize jmp isErrorMSG ;контрольная запись в корневой каталог dbNewName db 0,\' \',21 dup(0) szNewName equ $ - dbNewName ;индекс востанавливаемых записей dbIndexName db \'A\' ; ;запоминаем адрес логического конца корневого каталога isEndRoot: mov dwEndRoot,si ; ; ;БЛОК ДОБАВЛЕНИЯ НОВЫХ ЗАПИСЕЙ В КОРНЕВОЙ КАТАЛОГ ; dec si push si pop di ;добавляем 5-ть записей mov cx,5 ;зопоминаем счетчик isAddNewRec: push cx ;готовимся копировать 32-битные записи mov si,offset dbNewName mov cx,szNewName ;копируем rep movsb ;востанавливаем счетчик для цикла pop cx loop isAddNewRec ; ; ;БЛОК ПЕРЕНОСА ИМЕН ФАЙЛОВ С ОПРЕДЕЛЕННЫМ ЗАШИРЕНИЕМ ; mov cx,dwEndRoot mov si,offset Data_Mbr ;проверяем тип файла *.ТХ* isMovsName: cmp word ptr[si+8],\'XT\' jnz isNextName ;нашли, копируем в конец каталога push si push cx mov cx,32 rep movsb ;запоминем адрес следующего элемента mov bx,si pop cx pop si mov byte ptr[si],0 ;запоминаем регистры push cx push si push di ;готовимся копировать mov dx,di mov di,si mov si,bx ;копируем весь корневой каталог isChange: lodsb stosb cmp si,dx jb isChange ;стираем смещенную информацию xor ax,ax mov cx,32 rep stosb ;востанавливаем регистры pop di pop si pop cx ;переходим к следующей записи isNextName: add si,32 cmp si,cx ;пока недостигнем конца данных jb isMovsName ; ; ;БЛОК ВОСТАНОВЛЕНИЯ ДОБАВЛЕНЫХ ЗАПИСЕЙ ; mov si,offset Data_MBR ;считываем байт isRestoryLoop: mov al,[si] ;проверяем на признак удаления or al,al jnz isNextRec ;считываем следующий байт mov al,[si+1] ;проверяем на признак конца каталога or al,al jz isStopRestory ;проверяем признак нашей записи cmp al,\' \' jnz isNextRec ;востанавливаем нашу запись и увеличиваем индекс mov al,dbIndexName mov [si],al inc al mov dbIndexName,al isNextRec: add si,32 jmp short isRestoryLoop isStopRestory: ;; ; ; ;БЛОК ЗАПИСИ НА ДИСК ; ;comment ~ mov bx,offset Data_MBR mov ah,3 mov al,dbSizeRoot mov ch,dbCilinder mov cl,dbSector mov dh,dbHead mov dl,0 int 13h ;~ ; ; ;БЛОК ЗАПИСИ В ФАЙЛ ; ;открываем файл для записи mov ah,3Ch xor cx,cx mov dx,offset dbName int 21h ; ;записываем в файл данные mov dwHNDL,ax mov bx,ax mov ah,40h mov dx,offset Data_Mbr mov cx,dwSizeByteRoot int 21h ; ;закрываем файл mov ah,3Eh mov bx,dwHNDL int 21h ;~ ;сигнализируем об окончании работы и выходим mov al,\'#\' isStop: int 29h xor ax,ax int 16h ret ;метка для данных для чтения и записи Data_Mbr label byte end begin ----- Итерация от человека. Рекурсия — от Бога. — Л. Питер Дойч Ответ отправил: Зенченко Константин Николаевич, Модератор Ответ отправлен: 17.06.2010, 13:27 Номер ответа: 262162 Украина, Киев Тел.: +38-097-953-66-19 Адрес: Украина, Киев Вам помог ответ? Пожалуйста, поблагодарите эксперта за это! Как сказать этому эксперту "спасибо"? Отправить SMS #thank 262162 на номер 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

Реклама Отказаться от рекламы Скачай журнал "FHM" 100 самых сексуальных женщин мира! Девушка гоу-гоу. 9 идей для извращенца.   Все дело в размере! Easy Curves - первый тренажер для женской груди!   Здоровая пища: миф или реальность? Аэрогриль Flavorwave Turbo Oven - новое слово в кухонном досуге!

Реклама Отказаться от рекламы Ведущий портал по безопасности Все, что Вы хотите знать о рынке безопасности, есть на Sec.ru.<>www.sec.ru Супермаркет ПО Softkey.ru Огромный выбор лицензионного софта. Моментальная оплата!<>www.softkey.ru Учим писать скрипты Сценарии для администрирования (BAT-ники и VB Script)<>www.sysengineering.ru

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

Группы «Откровенно и с юмором о сетевом бизнесе» А некдоты и юмор о себе и не только. В ыявление и преодоление недостатков в бизнесе. Т резвый взгляд в будущее. О бмен опытом между коллегами разных компаний. «Фото. Пейзаж» В этой группе публикуются и обсуждают фотопейзажи. Цветочки и бабочки пейзажем не являются! Разрешается публиковать только СВОИ фотографии. Любая агресс... «Уникальные новости от Свободного Журналиста» Я - свободный журналист. Моя работа - дать Вам пищу для ума. Испытываете инфо-голод? Вкусности здесь! Цель создания группы: публикация качественной, инт...

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