Ассемблер? Это просто! Учимся программировать (FAQ)

Вопросы, которые поступили от подписчиков рассылки
"Ассемблер? Это просто! Учимся программировать"

Дата выхода: 2001-08-21

Вопрос №544

Приведенный ниже кусок проги был в 13 выпуске фака
он определяет размер файла. Но если размер 1,5 метра то
он будет записан в DX:AX КАк его потом в переменную запихнуть?

mov ah, 42h
mov al, 02h
mov bx, HANDLE1
mov cx, 00h
mov dx, 00h
int 21h
mov File_size,ax ;

Ответ

Здравствуйте, Дмитрий!

mov [File_size + 2], dx

Вопрос №565

Здравствуйте, уважаемые эксперты
Вот пытался написать резидент, что бы он работал как замедлитель, а клавиши от F1 до F10 регулировали скорость, но прога почемуто не работает. Помогите понять почему. И ещЈ как в Turbo Debugere транслировать код резидентной процедуры?
Заранее благодарен

Ответ

Уважаемый Vital! Пока единственное, что сразу бросается в глаза: в обработчике int 1Ch (который, как вы знаете, вызывается 18 раз в секунду) в начале вы командой cli запрещаете обработку всех прерываний, а потом и еще и цикл на n-ное количество долей секунды продлевает запрет, а как вы думаете, успеете нажать и отпустить кнопку меньше, чем за 1/18 с ??? Вообще, может быть отсюда и все остальные проблемы, но ща мы ее оптимизируем по размеру ;) Уважаемые эксперты, прошу занять боевые позиции и т.п......

А так в вашей проге куча лишних popf и т.п.

Вопрос №548

Уважаемый Sensey и все, все, все...
Конечно 41 байт хорошо, но мои 43 будут быстрее работать из-за отсутсвия всяких call/ret!
В принципе jcxz exit можно выкинуть, но при этом данные лишний раз отксорятся но будет тоже 41.

Ответ

Здравствуйте, Painbringer!

Но у тебя нет очистки экрана... наши варианты без очистки - 36 байт.

Твой вариант после моей доточки стал 38, и плюс очистку экрана - опять таки 43... Если убрать jcxz, то 41...

Приложение:
.model tiny .code org 100h Start: mov ax, 3 int 10h mov cx, 3 @@1: mov ah, 09h mov dx, offset string int 21h ; jcxz exit mov si, dx @@2: xor byte ptr [si], 0fh inc si cmp si, offset string_len jnz @@2 loop @@1 exit: ret string db 'daylight' string_len: db 10,13,'$' end Start

Вопрос №566

Добрый день!
Я новый подписчик. Вчера я скачал с вашего сайта MASM611.
Попробывал ассемблировать , программа выдает ошибку:
ненайден link.exe. Я нашел link.exe в папке BINR и поместил вместе с ml.exe. Ошибка пропала но файл *.com не создался.
Подскажите как мне настроить программу.

Заранее благодарю.
Саша.

Ответ

Здравствуйте, Oleksandr!
Что-бы создать COM файл наберите:
\путь\ml.exe prog.asm /AT
путь - путь к ml.exe (у меня например d:\masm611\bin)
Счастливо!

Вопрос №559

Уважаемые эксперты, и не только!!
У кого-нибудь есть НОРМАЛЬНАЯ КНИГА АБЕЛЯ???
В формате Word.Чтобы ее можно было распечатать.
И чтобы "рисунки" были проонумерованы и шли в самом тексте книги!!!
Желательно DOC!!!!!!!!!!

Если у кого есть - кинте плз ссылку мине на мыло: daylightinc@mail.ru

Ответ

Здравствуйте, Дмитрий!
Слухай, а поисковики по юзать лень??
поробуй здесь
скачай архив 285кб...

Вопрос №568

Здравствуйте эксперты.
Я попытался написать программу выводящую в файл содержимое экрана, но не чего не работает. В чем дело?

Ответ

Здравствуйте, Алексей!

Ты допустил как минимум одну ошибку.
При вызову функций дос номер функции засылается в ah а не в ax!
А в остальном... глянь исходник.

Приложение:
cseg SEGMENT assume cs:CSEG, ds:CSEG, es:CSEG, ss:CSEG org 100h Begin: ;----открытие файла---- mov ah, 3ch xor cx, cx mov dx, offset name_f int 21h mov bx, ax mov ax, 0b800h mov ds, ax xor si, si mov di, offset buffer cld mov cx, 25 next_line: push cx mov cx, 80 next_char: lodsw stosb ; Атpибуты нафиг коцаем! loop next_char mov ax, 0a0dh stosw pop cx loop next_line ;---- Запись файла ---- mov ah, 40h mov cx, di push cs pop ds mov dx, offset buffer sub cx, dx int 21h ;----закрытие файла---- mov ah, 3eh int 21h ret name_f db 'screen.txt', 0 buffer: db 82 * 25 dup (?) CSEG ends end Begin

Вопрос №568

Здравствуйте эксперты.
Я попытался написать программу выводящую в файл содержимое экрана, но не чего не работает. В чем дело?

Ответ

Здравствуйте, Алексей!
Во-первых, функция 3ch не открывает файл, а создаёт новый, используй 3dh, а в al установи 1 бит в 1, потом используй функцию 40h и всё получится!
Но если будут проблемы, обращайся, прогу запросто напишем!

Вопрос №568

Здравствуйте эксперты.
Я попытался написать программу выводящую в файл содержимое экрана, но не чего не работает. В чем дело?

Ответ

Здравствуйте, Алексей!
1. Номер ф-ции передается в ah, а ты его писал в ax
Дальше не разбирался, переписал гораздо проще (см Приложение)
Используется ф-ция 40h - запись блока
И используется знание того, что экран - непрерывная область памяти...
ЗЫ Для экспертов - мой адрес sensey@ukr.net(полнодоступный) или klyuchka@uts-ua.com(просьба на него не писать, это рабочий, я могу с него ответить)

Приложение:
cseg SEGMENT assume cs:CSEG, ds:CSEG, es:CSEG, ss:CSEG org 100h ScrLen equ 4000 Begin: ;----открытие файла---- mov ax,3c00h xor cx,cx mov dx,offset name_f int 21h jc __error push ds ; сохр ds mov bx, ax mov ax, 0B800h ; так гораздо быстрее, чем push 0B800h mov ds, ax mov ax, 4000h ; ф-ция записи mov cx, ScrLen; колво байт в экране xor dx, dx ; ds:dx указ на начало экрана int 21h jc __error cmp ax, ScrLen jne __error pop ds ; восстановили ds ;----закрытие файла---- mov ax,3e00h int 21h __error: ; какая-то ошибка, не обрабатывается...(лень писать) ret name_f db 'screen.txt',0 CSEG ends end Begin

Вопрос №567

Я затеял оптимизация своей проги, решил переписать наиболее тормозные ее части на асме, но столкнулся с некоторыми проблемами. Вопрос такой, почему на первой строке вставки на асме(lea ESI,m_ScaleTable[0][0]) компилятор выдает ошибку: "error C2420: 'm_ScaleTable' : illegal symbol in second operand"? m_ScaleTable - переменная класса, массив WORD [2][2000]. Код процедурки прилагается. Помогите, пожалуйста, а то я нифига понять не могу.

Ответ

Уважаемый pUnknown!
Я не знаком ни с одним языком высокого уровня (или низкого?), ну С, Паскаль, Дельфи и т.п., поэтому все, что до строки Asm для меня (к позору) полнейший бред, может в них и можно использовать двумерные массивы (ну наверняка можно!), но во всяком случае даю сто процентную гарантию, что в Асме запись типа lea esi,scaltable[0][0] просто не имеет логического смысла, т.к. первый ноль - это понятно, нулевой элемент в строке scltable, но что такое воторой ноль? ширина? глубина? Aсм этого не понимает, и ......... дай бог никогда не поймет! (за это я его и люблю...). Единственное, что могу сказать по поводу "глубин" и "ширин", уровней вложенности, так это использование СТРУКТУР, там можно задавать уровень вложенности (через точки), но это, опять же, непотеме...
p.s. что за странная команда add ax,0 ??????

Вопрос №572

Уважаемые эксперты.
Помогите решить проблемму.
Нужно создать резедент под DOS.
Он должен записывать в текстовый файл имя и дату/время любово запускаемого файла.
Я прелагаю код. Но он при запуске вкшает ПК.
Оччень прошу помогите. Не дайте вылететь с работы.
CSEG segment
assume ss:CSEG,cs:CSEG,es:CSEG,ds:CSEG
org 100h
Begin:
jmp Init

MOY proc
pushf
cmp ax,3D00h
je Ok_09h
cli
popf
jmp dword ptr cs:[VECT]
Ok_09h:
push ds
push dx
push cs
pop ds
mov dx,offset May_String
pushf
call dword ptr cs:[Vect]
pop dx
pop ds
popf
sti
iret
VECT dd ?
May_String db'Ђ ў®в ®Ў« ¬ЁвҐбм$'
MOY endp

Init:
mov ax,3521h
int 21h;’ҐЇҐам ¬л §­ Ґ¬ ўҐЄв®а 21 ЇаҐалў ­Ёп ES:BX
mov word ptr VECT,bx
mov word ptr VECT+2,es
;Ђ¤аҐб ўҐЄв®а  б®еа ­Ё«Ё
mov ax,2521h
mov dx,offset MOY;DX ¤®«¦Ґ­ гЄ §лў вм ­  ­ и ®Ўа Ў®взЁЄ
int 21h
mov dx,offset Init
int 27h
CSEG ends
end Begin

Ответ

Здравствуйте, fagot!

Я не совсем понял где ты вообще производишь запись...
Чтобы что-то сохранить в файле надо сохранять это...

А в твоей программе ничего не понятно, и еще кодировка странная какая-то.. что там в May_string написано то?

Вопрос №569

Доброго дня всем умам, посваятившим себя программированию.
Я в Asseamber'е полный ноль, но неплохо владею Delphi.А Delphi может компилировать Asseamber! Вот я и хочю понять основы 'коренного языка'. Эксперты, отзовитесь! Научите понимать Asseamber! :)HELP))

Ответ

Здравствуйте, Евгений!
Для начала - слазь на www.kalashnikoff.ru там есть инфа по программированию на асме под ДОС. Вот. Коли вьедишь в это дело, и захочешь пойти дальше - в Win32 то пиши мне сюда: codebuilder@chat.ru
ICQ# 45249044
ASSEMBLER - RULEZZZZZZ!!!!!!!!
Кстати, нужна поломанная мною демонстрационная версия Dr web 4.25 for Windows ? Полнофункциональная стала :))) А?
Да, сразу оговорюсь: дам тока файл drweb32w.exe. Демо версию берете на drweb.ru или dialognauka.ru а потом замещаете скаченный оттуда drweb32w.exe моим.. Весь веб слать напряжно.
Удачи!

Вопрос №577

Уважаемые эксперты, я получил отклик на свой предыдущий вопрос и очень вам блогодарен.
Но я видимо выразился очень расплывчито поэтому сейчас постораюсь исправить ошибку.
Цель моей программы: При запуске пользователем какого либо файла моя программа резедент
должна записывать имя этого вайла в текстовый файл gurnal.txt.
Но программа написанная мной вешает системму.
Я пытался исправить код рабочей программы которая пришла в рассылке с номером 010"Учись программировать на ассемблере"
Я очень пршу откликнутьсяя быстрее.
мой адрес: post@arh.ru
CSEG segment
assume ss:CSEG,cs:CSEG,es:CSEG,ds:CSEG
org 100h
Begin:
jmp Init
;Начало резедента
MOY proc
pushf
cmp ah,3Dh; если открыт какой либо файл на выполнение то выполнить следующие функции
je Ok_3Dh
popf ;Иначе отдать упровление DOS
jmp dword ptr cs:[VECT]
Ok_3Dh:
push dx;Предпологаю что здесь будет имя открытого программой файла
mov ax,3d02h ;открыть файл для записи
mov dx,offset file_nam ;Имя файла куда производиться запись
int 21h
mov hahdle,ax
mov dx,ax
mov cx,30
pop dx
mov dx,offset dx ;что записываем в файл. Запишем в файл gurnal.txt имя файла который запустит пользователь во время работы
int 21h
mov ah,3eh ;закроем файл
mov dx,handle
int 21h
iret
Handle dw 0
VECT dd ?
file_nam db 'gurnal.txt',0
MOY endp
;конец резедента
Init:
mov ax,3521h
int 21h
mov word ptr VECT,bx
mov word ptr VECT+2,es
mov ax,2521h
mov dx,offset MOY
int 21h
mov dx,offset Init
int 27h
CSEG ends
end Begin

Ответ

Здравствуйте, fagot!

Хм... ты в курсе какое прерывание ты перехватил?!?
Ты перехватил int 21h, функцию 3d...

Но почти в самом начале своего обработчика ты сам же вызываешь int 21h при ax = 3d02! и у тебя в обработчике вновь и вновь происходит вызов int 21... вот и повис.

В прерывании вместо int 21h тебе надо использовать

pushf
call far [VECT]

дабы много раз не вызывать себя самого.

Вопрос №574

"Поймал" скрипт con/con.
Повторил в DOS окне, результат тот же, синий экран и
куда то делся скан диск, вместо него что то похожее,
но работает медленно. Я имею ввиду вызов скандиска при
неправильном выходе из Windows.(не пробуйте!!)
Что за команды, есть ли возможность избавиться от последствий малой кровью.

Ответ

Здравствуйте, oleg!
непонял... говори конкретней..
чаво ты в DOS окне повторял??
сорри...вопрос не понял...

Вопрос №577

Уважаемые эксперты, я получил отклик на свой предыдущий вопрос и очень вам блогодарен.
Но я видимо выразился очень расплывчито поэтому сейчас постораюсь исправить ошибку.
Цель моей программы: При запуске пользователем какого либо файла моя программа резедент
должна записывать имя этого вайла в текстовый файл gurnal.txt.
Но программа написанная мной вешает системму.
Я пытался исправить код рабочей программы которая пришла в рассылке с номером 010"Учись программировать на ассемблере"
Я очень пршу откликнутьсяя быстрее.
мой адрес: post@arh.ru
CSEG segment
assume ss:CSEG,cs:CSEG,es:CSEG,ds:CSEG
org 100h
Begin:
jmp Init
;Начало резедента
MOY proc
pushf
cmp ah,3Dh; если открыт какой либо файл на выполнение то выполнить следующие функции
je Ok_3Dh
popf ;Иначе отдать упровление DOS
jmp dword ptr cs:[VECT]
Ok_3Dh:
push dx;Предпологаю что здесь будет имя открытого программой файла
mov ax,3d02h ;открыть файл для записи
mov dx,offset file_nam ;Имя файла куда производиться запись
int 21h
mov hahdle,ax
mov dx,ax
mov cx,30
pop dx
mov dx,offset dx ;что записываем в файл. Запишем в файл gurnal.txt имя файла который запустит пользователь во время работы
int 21h
mov ah,3eh ;закроем файл
mov dx,handle
int 21h
iret
Handle dw 0
VECT dd ?
file_nam db 'gurnal.txt',0
MOY endp
;конец резедента
Init:
mov ax,3521h
int 21h
mov word ptr VECT,bx
mov word ptr VECT+2,es
mov ax,2521h
mov dx,offset MOY
int 21h
mov dx,offset Init
int 27h
CSEG ends
end Begin

Ответ

Хмм... Оччень странный вопрос. Вроде уже была такая программа. Ну да ладно. Вот укороченный резидент из рассылки 19. Вроде работает. Если тебе вдруг понадобиться убрать путь к файлу - скажи. Или сам попробуй. Это уже тривиал просто.

Приложение:
; === Начало программы: === .286 cseg segment assume cs:cseg, ds:cseg, ss:cseg, es:cseg org 100h Begin: jmp Init ; на метку инициализации ; === Обработчик 21h-ого прерывания === Int_21h_proc proc cmp ax,9889h jne Next_step xchg ah,al iret Next_step: pusha ;Сохраним регистры... push ds push es mov bx,ds ;BX=DS push cs ;Настроим сегментные регистры push cs pop es pop ds cmp ax,4B00h ;Это запуск файла на выполнение? je Start_f jmp short Go_21h ;Если что-то другое, то передадим управление 21h-ому... Start_f: mov si,offset Start_filemess ;Строка для записи в наш log-файл. call Move_string ;Готовим строку и записываем ее в файл... jmp short Go_21h ;Передадим управление 21h-ому прерыванию... Go_21h: pop es ;Восстановим регистры... pop ds popa jmp dword ptr cs:[0FCh] ;Передаем управление 21h-ому Int_21h_proc endp ;=== Переносим строку и пишем информацию в файл === Move_string proc mov di,2 ;DS:SI указывают на строку ;ES:DI - на место в памяти, где будет формироваться строка... lodsw ;Получим длину строки (первый байт строки) mov cx,ax ;Длину строки в CX rep movsb ;Переместили строку по адресу ES:DI (Текущий сегмент:0002h) push ds mov ds,bx ;DS указывает на сегмент, где находится имя файла mov si,dx ;SI - на смещение Next_char: lodsb ;Получаем очередной символ or al,al ;Это конец строки с именем файла? Проверка на 0... jz Zero_found stosb ;Если еще не конец - заносим его в нашу формирующуюся строку jmp short Next_char ;Следующий символ... Zero_found: pop ds ;Имя файла перенесли! Восстановим DS. mov ax,0A0Dh ;Добавим возврат каретки/перевод строки. stosw dec di dec di mov word ptr cs:[0],di ;Занесем по 0-ому смещению длину готовой строки call Save_file ;Запишем готовую строку в наш log-файл... ret Move_string endp ;=== Пишем в файл === Save_file proc call Check_file ;Проверим, существует ли наш log-файл или нет... mov al,02h ;Открываем файл для чтения/записи call Open_file mov ax,4202h ;Устанавливаем указатель на конец файла xor cx,cx xor dx,dx int 3 mov ah,40h ;Функция записи в файл mov cx,cs:[0] ;Количество записываемых байт mov dx,2 ;Откуда будем писАть (DS:DX) int 3 call Close_file ;Закрываем файл... ret Save_file endp ;=== Проверяем: существует ли нужный файл === Check_file proc xor al,al ;Пробуем открыть наш log-файл call Open_file jnc File_exists ;Если файл существует, то на метку File_exists ; === Атрибуты файла === ;00001 - только чтение ;00010 - спрятанный ;00100 - системный ;01000 - метка тома ;010000 - подкаталог ;100000 - архивный mov ah,3Ch ;Если файл не существует, то создадим его. mov cx,00010b ;Атрибут: архивный, спрятанный mov dx,offset File_name ;DS:DX указывают на имя файла int 3 jc Error_create ;Ошибка?.. mov Handle,ax ;Если успешно создали, то запомним номер файла File_exists: call Close_file ;Закрываем файл... Error_create: ret File_name db 'C:\gurnal.txt',0 ;Наш log-файл Check_file endp ;=== Открытие файла === Open_file proc mov dx,offset File_name mov ah,3Dh int 3 jc Error_open mov bx,ax mov Handle,ax Error_open: ret Handle dw 0FFFFh Open_file endp ;=== Закрытие файла === Close_file proc pusha pushf cmp Handle,0FFFFh ;Нечего закрывать?.. je No_close mov ah,3Eh mov bx,Handle int 3 mov Handle,0FFFFh ;Закрываем и отмечаем, что нет открытых файлов... No_close: popa popf ret Close_file endp ;--- Сообщения резидента --- Start_filemess dw Start_filemessl db 'Запуск файла ---> ' Start_filemessl equ $-Start_filemess-2 ; === Инициализация (подготовка и настройка резидента) === Init: mov ax,9889h ;проверим, в памяти ли мы уже или еще нет int 21h cmp ax,8998h jne Set_resident mov ah,9 ;если в памяти, то выведем соответствующее сообщение mov dx,offset In_memory int 21h ret ;...и вернемся в DOS Set_resident: ;если нас в памяти нет, то установим наш резидент ; 21h-ое... mov ax,3521h int 21h ;получим и сохраним адрес (вектор) 21h прерывания mov word ptr cs:[0FCh],bx mov word ptr cs:[0FEh],es mov ax,es ;Установим старый вектор 21h-прерывания на 3... push 0 ;(вырубим отладчик) pop es mov es:[3*4],bx mov es:[3*4+2],ax mov ax,2521h mov dx,offset Int_21h_proc int 3 ;"повесим" нашу процедуру на 21h прерывание call Check_file ;А есть ли наш log-файл? mov ah,9 mov dx,offset Mess_hello int 21h mov dx,offset Init int 27h ;оставим программу резидентной в памяти. In_memory db 'Программа-шпион уже есть в памяти$' Mess_hello db 'Программа-шпион загружена в память$' cseg ends end Begin

Вопрос №572

Уважаемые эксперты.
Помогите решить проблемму.
Нужно создать резедент под DOS.
Он должен записывать в текстовый файл имя и дату/время любово запускаемого файла.
Я прелагаю код. Но он при запуске вкшает ПК.
Оччень прошу помогите. Не дайте вылететь с работы.
CSEG segment
assume ss:CSEG,cs:CSEG,es:CSEG,ds:CSEG
org 100h
Begin:
jmp Init

MOY proc
pushf
cmp ax,3D00h
je Ok_09h
cli
popf
jmp dword ptr cs:[VECT]
Ok_09h:
push ds
push dx
push cs
pop ds
mov dx,offset May_String
pushf
call dword ptr cs:[Vect]
pop dx
pop ds
popf
sti
iret
VECT dd ?
May_String db'Ђ ў®в ®Ў« ¬ЁвҐбм$'
MOY endp

Init:
mov ax,3521h
int 21h;’ҐЇҐам ¬л §­ Ґ¬ ўҐЄв®а 21 ЇаҐалў ­Ёп ES:BX
mov word ptr VECT,bx
mov word ptr VECT+2,es
;Ђ¤аҐб ўҐЄв®а  б®еа ­Ё«Ё
mov ax,2521h
mov dx,offset MOY;DX ¤®«¦Ґ­ гЄ §лў вм ­  ­ и ®Ўа Ў®взЁЄ
int 21h
mov dx,offset Init
int 27h
CSEG ends
end Begin

Ответ

Здравствуйте fagot!
пишу находясь в полубреду, потому что со вчера на сегодня (с 8 вечера до полчетвертого ночи, а с пол третьего это уже напоминало безумную пляску демонов вокруг костра) и сегодня с 11 утра до пол второго дня я....... пытался сделать так, чтобы "программа, находясь резидентом в памяти, выводила в файл дату запущенного файла..." ;)))))))))))))))))))))))))))))))))) - это был истерический смех!!!). И вот что мне удалось установить... ;)))))))) - этот уже припадочный...
Прошу ВСЕХ ВНИМАНИЕ!!! ЭТО ОЧЕНЬ ВАЖНО ЗНАТЬ, ЗАПОМНИТЬ И ЗАПИСАТЬ!!! ЭТОГО НЕТ НИ В ОДНОЙ КНИГЕ №;%№;%№;;%?%:?****** ;(((((( , из-за чего мне пришлось пожертвовать своим драгоценным здоровьем и совершить уникальное открытие!!! Вообщем так,
В ОБРАБОТЧИКЕ int 21h, созданного СВОИМИ РУКАМИ НИ В КОЕМ СЛУЧАЕ НЕЛЬЗЯ МЕНЯТЬ СЕГМЕНТНЫЕ РЕГИСТРЫ НИ ПРИ КАКИХ ОБСТОЯТЕЛЬСТВАХ НИ ЗАПИСЫВАТЬ В НИХ ЧТО ЛИБО (ТЕМ БОЛЕЕ ЧЕРЕЗ СТЕК), НИ ЧИТАТЬ (хотя второе вполне возможно)(кто щас подумал про cli и pusha того извините, готов разорвать на куски!!!! ;(((((((((((((((, вообщем, cli и pusha - упавшие в моих глазах команды и их можно вообще послать очень далеко после моих сегодняшних подвигов. Я таки написал прогу, которая работает ТОЛЬКО В ДОСЕ, запуская ее, она остается резидентом в памяти, при запуске ЛЮБОГО файла, в котором вызывается ф-ция 3Dh прерывания 21h, на диске C:\ образуется файл DATA.TXT, содержащий 128 байт БРЕДА! (потому как я уже выразился ранее в связи с сделанным в пол третьего ночи открытием я не могу нормально задать ds на нужный мне сегмент с DTA, хотя можете сами убедиться, в программе ловко (;) реализована ф-ция определения этого самого сегмента...) и к тому же намертво вешающая комп (из-за первых push cs po! p ds, ато файл не создасться ;)
Если кто то из вас, уважаемые эксперты, знает, КАК МОЖНО РЕАЛИЗОВАТЬ ПОДОБНЫЙ АЛГОРИТМ, НЕ ИЗМЕНЯЯ СЕГМ. РЕГИСТРОВ в обработчике, прошу выслать мне вашу фоту, я ее на стену повешу и буду молиться денно и нощно, а засим прошу откланяться, мне спать пора
с ув., BS

Приложение:
.286 .model tiny .code org 2Ch envseg dw ? org 100h @@start: old_int21h: jmp short @@init dw ? int21h_handler proc cli pusha cmp ah,3Dh ; это 3Dh? jnz @@exit push cs ;...Если бы эти две строчки можна было оставить!!!   pop ds mov ax,cs mov ds,ax mov ah,3Ch ; создаем файл DATA.TXT в корневухе xor cx,cx mov dx,offset filename int 21h jc @@exit mov cx,ax mov ah,2Fh ; Где DTA? а вот где! - es:bx int 21h ; push es и эти тоже.... ; pop ds и прога бы не весила комп, и дата была бы в поряде... mov dx,bx mov ah,40h mov bx,cx mov cx,128 int 21h jc @@exit mov ah,3Eh ; закрыть файл! (типа обязательно, сброс буферов) int 21h @@exit: popa sti jmp dword ptr cs:old_int21h filename db 'c:\data.txt',0 int21h_handler endp @@init: mov ax,3521h ; int 21h ; тут все ясно mov word ptr old_int21h,bx mov word ptr old_int21h+2,es mov ax,2521h mov dx,offset int21h_handler int 21h mov ah,49h mov es,word ptr envseg ; освободить память из под окружения int 21h ; (сам бы не додумался, - умная книжка!) mov dx,offset @@init int 27h end @@start

Подписаться на рассылки

Форма подачи вопроса

Регистрация в качестве эксперта

Архив выпусков

Ведущий рассылки,