| ← Ноябрь 2011 → | ||||||
|
1
|
2
|
6
|
||||
|---|---|---|---|---|---|---|
|
7
|
8
|
10
|
11
|
12
|
13
|
|
|
15
|
16
|
19
|
20
|
|||
|
22
|
23
|
24
|
25
|
26
|
27
|
|
|
28
|
29
|
30
|
||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru
Открыта:
28-06-2000
Статистика
-1 за неделю
RFpro.ru: Ассемблер? Это просто! Учимся программировать
Хостинг портала RFpro.ru: РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты по данной тематике
/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Assembler (Ассемблер)
Консультация # 184426: Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:Создать файл, открыть его в режиме записи и попытаться считать первые 7 байт. Обработать ошибку при помощи INT 24h. Вывести на экран сообщение об ошибке. Ассемблер-Tasm.exe Исполняемый файл в формате EXE. Очень надеюсь, что вы мне поможете.... Консультация # 184429: Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:помогите написать программу на ассемблере (TASM), которая должна суммировать однобайтовые числа из массива с начальным адресом MAS. Суммирование необходимо производить в ячейку памяти с адресом SUM до тех пор, пока накопленное значение SUM меньше или равно 200, после чего ре... Консультация # 184430: Здравствуйте! Прошу помощи в следующем вопросе: написать программу, которая определит метку тома дискеты. Если дискета не вставлена в дисковод, то обработать ошибку с помощью INT24h. Если дискета присутствует, то создать на ней файл с именем "Data_file" и записать в него имя метки. Желательны подробные построчные комментарии. Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:Создать файл, открыть его в режиме записи и попытаться считать первые 7 байт. Обработать ошибку при помощи INT 24h. Вывести на экран сообщение об ошибке.
Дата отправки: 12.11.2011, 17:26 Консультирует Лысков Игорь Витальевич (Старший модератор): Здравствуйте, Дмитрий! Код : ;Создать файл, открыть его в режиме записи и попытаться считать первые 7 байт. ;Обработать ошибку при помощи INT 24h. Вывести на экран сообщение об ошибке. code segment 'code' ;начало сегмента кода assume cs:code,ds:data,ss:stk main proc mov ax, data ;адрес сегмента данных mov ds, ax ;в ds mov es, ax ;в es ;создадим файл lea dx, sName ;имя файла xor cx, cx ;без атрибутов mov ah, 3ch ;функция создания int 21h jc CreateErr ;есть ошибка ;файл создан на чтение/запись ;нам надо только на запись, поэтому ;сначала закроем, а потом откроем на запись mov bx, ax ;описатель файла (handle) mov ah, 3eh ;ф-я закрытия int 21h mov ax, 3d01h ;открываем на запись (al=1) int 21h jc OpenErr ;ошибка открытия mov bx, ax ;handle mov ah, 3fh ;читаем mov cx, 7 ;7 байт int 21h jc ReadErr ;всегда будет ошибка ax=5 - "ошибка достука" lea dx, sOk ;а вдруг проскочит
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:помогите написать программу на ассемблере (TASM), которая должна суммировать однобайтовые числа из массива с начальным адресом MAS. Суммирование необходимо производить в ячейку памяти с адресом SUM до тех пор, пока накопленное значение SUM меньше или равно 200, после чего результат суммирования переслать в видеобуфер для отображения на мониторе. Программа должна состоять из сегментов данных, кода и стека. Пожалуйста, если возможно
с построчными комментариями. Очень надеюсь на Вашу помощь.
Дата отправки: 12.11.2011, 20:22 Консультирует Лысков Игорь Витальевич (Старший модератор): Здравствуйте, Canijke! Код : ;Программа суммирования однобайтовых чисел из массива с начальным адресом MAS. ;Суммирование необходимо производить в ячейку памяти с адресом SUM до тех пор, ;пока накопленное значение SUM меньше или равно 200, после чего результат ;суммирования переслать в видеобуфер для отображения на мониторе. ;Программа должна состоять из сегментов данных, кода и стека. code segment 'code' ;начало сегмента кода assume cs:code,ds:data,ss:stk main proc mov ax, data ;адрес сегмента данных mov ds, ax ;в ds mov ax, 0003h ;в ХР необходимо для прямой записи в память int 10h mov ax, 0b800h mov es, ax ;в es сегмент видеопамяти lea si, MAS ;адрес массива mov cx, lMAS ;длина массива mov SUM, 0 ;сумма SumLoop: mov al, SUM ;предыдущая сумма add al, [si] ;складываем с очередным inc si ;на следующий cmp al, 200 ;сравниваем с 200 ja OutSum ;если больше, то на вывод mov SUM, al ;сохраняем в переменной loop SumLoop ;повторяем OutSum: ;выводим сумму, ближайшую к 200 ;преобразуем число в строку mov al, SUM ;наша сумма xor cx, cx ;счетчик цифр mov bl, 10 ;будем делить на 10 DivLoop: mov ah, 0 ;подготавливаемся к делению ax:bl div bl ;ah-остаток, al-частное push ax ;сохраним остаток в стеке inc cx ;считаем cmp al, 0 ;делим, пока есть что делить jne DivLoop xor di, di ;выведем строку из цифр в начале экрана OutLoop: pop ax ;в ah очередная старшая цифра mov al, ah ;al = ah or al, '0' ;0-9 -> '0'-'9' mov ah, 07h ;атрибут (цвет) "белым по черному" stosw ;пишем в видеобуфер loop OutLoop ;по всем цифрам mov ah, 0 int 16h ;ждем any key mov ax, 4c00h int 21h ;выход в ДОС main endp code ends data segment MAS db 21,34,54,23,28,56,98,100,2 ;последовательность чисел lMAS equ $-MAS ;их количество SUM db 0 ;сумма data ends stk segment stack dw 100h dup (?) stk ends end main
Здравствуйте! Прошу помощи в следующем вопросе: написать программу, которая определит метку тома дискеты. Если дискета не вставлена в дисковод, то обработать ошибку с помощью INT24h. Если дискета присутствует, то создать на ней файл с именем "Data_file" и записать в него имя метки. Желательны подробные построчные комментарии.
Дата отправки: 12.11.2011, 20:31 Консультирует Лысков Игорь Витальевич (Старший модератор): Здравствуйте, Canijke! Код
: code segment 'code' ;начало сегмента кода assume cs:code,ds:data,ss:stk main proc ;установим обработчик int24h, старый можно не сохранять push cs pop ds ;ds=cs lea dx, int_24 ;ds:dx - адрес обработчика mov ax, 2524h int 21h mov ax, data ;адрес сегмента данных mov ds, ax ;в ds mov es, ax ;в es ;читаем информацию о диске в структуру по адресу ds:dx ;во время каждого обращения к флоппи происходит обработка Int24h! mov ax, 6900h ;недокументированная команда (al=0 - чтение) mov bx, 1 ;флоппи-диск (0-текущий, 1-A, 2-B, 3-C, ...) lea dx, d69 ;адрес, куда запишем данные int 21h cmp al, 0 ;если al не 0, то ошибка! (например, нажали Cancel) jne CreateError ; и незачем пытаться создавать файл! lea dx, sName ;создаем файл xor cx, cx ;без атрибутов mov ah, 3ch int 21h jc CreateError ;создался? ;файл создался mov bx, ax ;описатель файла (handle) ;запись в файл lea dx, d69.volume ;адрес имени диска mov cx, size volume ;длина имени mov ah, 40h int 21h jc WriteError ;записался? lea dx, sWriteOk ;ура! записали jmp CloseFile CreateError: ;файл создать невозможно lea dx, sCreateErr jmp PrintMessage WriteError: ;ошибка записи lea dx, sWriteErr CloseFile: ;закрываем файл mov ah, 3eh int 21h PrintMessage: ;вывод сообщения из ds:[dx] mov ah, 0eh ;сначала сделаем перевод строки mov al, 0dh int 10h ;функцией БИОС mov al, 0ah int 10h mov ah, 9 ;выводим сообщение ds:[dx] int 21h PrintAny: lea dx, sAny ;press any key mov ah, 9 int 21h mov ah, 0 int 16h ;ждем any key mov ax, 4c00h int 21h ;выход в ДОС main endp int_24: ;обработка ошибок push ds push di push si mov si, data mov ds, si ;сообщения в сегменте данных and di, 0fh ;младшие 4 бита - номер ошибки shl di, 1 ;по 2 байта на адрес mov si, table_errors[di] ;si - адрес сообщения mov ah, 0eh ;выводим с помощью БИОС mov al, 0dh ;сначала перевод строки int 10h mov al, 0ah int 10h print_loop: ;выводим строку ds:si, заканчивающуюся нулем lodsb cmp al, 0 je print_rc int 10h jmp print_loop print_rc: ;добавим общую часть lea si, Retry_Cancel print_rc_loop: lodsb cmp al, 0 je wait_rc int 10h jmp print_rc_loop wait_rc: ;ждем R или C mov ah,0 int 16h cmp ah,13h ;скан-код клавиши R jne cmp_cancel mov al,1 ;возвращаем код "повторить операцию" jmp short jmp_iret cmp_cancel: cmp ah,2eh ;скан-код клавиши C jne wait_rc ;все остальное игнорируем mov al,3 ;возвращаем код "прервать операцию" jmp_iret: pop si pop di pop ds iret code ends data69 struc ;описание структуры для приема данных по функции 69h level dw ? ;уровень запроса, всегда 0 serial dd ? ;серийный номер тома volume db 11 dup (?) ;имя тома (то, что нам надо) fat db 8 dup (?) ;тип файловой системы (FAT, FAT32, ...) data69 ends data segment sName db 'a:\DataFile',0 ;имя файла, куда запишем имя тома d69 data69 <0> ;структура для приема данных ;сообщения sWriteOk db 'File written',0dh,0ah,'$' sCreateErr db 'Create error',0dh,0ah,'$' sWriteErr db 'Write error',0dh,0ah,'$' sAny db 'Press any key$',0 ;сообщения int24h ;таблица адресов table_errors dw protect_disk dw unknown_id dw not_ready dw unknown_com dw crc_error dw request_error dw search_error dw media_type dw sector_not_fou dw printer_error dw write_fault dw read_fault dw general_fault dw unknown_error dw unknown_error dw change_error ;сами сообщения protect_disk db 'Disk protected',0 unknown_id db 'Unknown ID subunit',0 not_ready db 'Disk not ready',0 unknown_com db 'Unknown command',0 crc_error db 'CRC error',0 request_error db 'Request error',0 search_error db 'Search error',0 media_type db 'Unknown disk media',0 sector_not_fou db 'Sector not found',0 printer_error db 'Printer error',0 write_fault db 'Write fault error',0 read_fault db 'Read fault error',0 general_fault db 'General failure',0 unknown_error db 'Unknown error',0 change_error db 'Disk change error',0 Retry_Cancel db ' (Retry or Cancel) ',0 data ends stk segment stack dw 100h dup (?) stk ends end main
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
© 2001-2011, Портал RFPRO.RU, Россия
Авторское право: ООО "Мастер-Эксперт Про" Калашников О.А. | Гладенюк А.Г. Хостинг: Компания "Московский хостер" Версия системы: 2011.6.33 от 10.09.2011 |
jmp CloseFile
CreateErr: ;Ошибка создания файла
lea dx, sCreateErr
jmp PrintMessage
OpenErr: ;Ошибка открытия файла
lea dx, sOpenErr
jmp PrintMessage
ReadErr:
lea dx, sReadErr ;мы обязательно попадем на ошибку ax=5 ("Нет доступа")
CloseFile: ;закрывам файл
mov ah, 3eh
int 21h
PrintMessage: ;вывод сообщения из ds:[dx]
mov ah, 9
int 21h
PrintAny:
lea dx, sAny ;press any key
mov ah, 9
int 21h
mov ah, 0
int 16h ;ждем any key
mov ax, 4c00h
int 21h ;выход в ДОС
main endp
code ends
data segment
;имя файла
sName db "test.txt",0
;невозможно создать файл, например, путь не найден
sCreateErr db "Create error",0dh,0ah,"$"
;невозможно открыть файл на запись
sOpenErr db "Open error",0dh,0ah,"$"
;невозможно прочитать из файла (что хотели, то и получили)
sReadErr db "Read error",0dh,0ah,"$"
;А вдруг файл прочитался...
sOk db "The file was read",0dh,0ah,"$"
;чтобы окно сразу не закрывалось
sAny db "Press any key$"
data ends
stk segment stack
dw 100h dup (?)
stk ends
end main
| В избранное | ||
