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

Лучшие эксперты по данной тематике

Асмик Гаряка Статус: Советник Рейтинг: 10654 ∙ повысить рейтинг »

Коцюрбенко Алексей aka Жерар Статус: Советник Рейтинг: 3992 ∙ повысить рейтинг »

Куликов Роман Евгеньевич Статус: 1-й класс Рейтинг: 0 ∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Assembler (Ассемблер)

Номер выпуска:	1563
Дата выхода:	22.08.2015, 15:09
Администратор рассылки:	Лысков Игорь Витальевич (Старший модератор)
Подписчиков / экспертов:	13 / 5
Вопросов / ответов:	3 / 7

Консультация # 23827: Здравствуйте! Подскажите как выделить общий кусок памяти, для обмена данными между двумя моими прогами, (под дос). Главная программа на basic, вторая генерится первой на asme. Поэтому нужно както еще сообщить главной программе этот адрес (лучше будет если она сама и выделит этот кусок памяти). Прим: через временный файл не хочу работать...

Консультация # 23827:

Здравствуйте!
Подскажите как выделить общий кусок памяти, для обмена данными между двумя моими прогами, (под дос).
Главная программа на basic, вторая генерится первой на asme. Поэтому нужно както еще сообщить главной программе этот адрес (лучше будет если она сама и выделит этот кусок памяти).
Прим: через временный файл не хочу работать.
Также могу включить асмовый код в главную.

Дата отправки: 21.07.2005, 17:10
Вопрос задал: Артем Талипов
Всего ответов: 3
Страница онлайн-консультации »

Консультирует Voituk Alexander:

Здравствуйте, Артем Талипов!
Есть такой вариант (я им пользуюсь)

В главной проге выделяешь память для совместной работы и вешаешься на какое нибудь прерывание, которое не используется (например 60h). В обработчике возвращаешь адрес этой памяти в каком нибудь регистре. Вторая программа вызывает это прерывание и получает адрес, а потом уже работает с ним.
Или можно еще писать в область данных БИОСа по адресу 0000:4F0h находится 16 байт памяти для связи между приложениями. Выделяешь в главной проге память и пишешь в эту область адрес, а второй прогой считываешь его и работаешь.

Консультировал: Voituk Alexander Дата отправки: 21.07.2005, 17:56

Рейтинг ответа: 0 поблагодарить эксперта

Консультирует DSota:

Здравствуйте, Артем Талипов!

Можно загрузить асмовую программу, как оверлей - и тогда вся ее память будет доступна из программы на бейсике.
Т.е. Во второй программе делаешь какую либо переменную, как дальнюю ссылку.
При работе бейсиковская программа, загружает асмовскую как оверлей,
выделяет память, изменяет эту ссылку в асмовской программе и запускает ету программу.

И еще можнол в самой асмовской программе создать большой неинициализированный сегмент данных, тогда при загрузке ДОС сам выделит память под этот сегмент и нужно будет просто считать его адрес и обмениваться данными через него...

Консультировал: DSota Дата отправки: 21.07.2005, 18:23

Рейтинг ответа: 0 поблагодарить эксперта

Консультирует Евгений Иванов:

Здравствуйте, Артем Талипов!
используй общее прерывание и обслуживание через функции.

Консультировал: Евгений Иванов Дата отправки: 21.07.2005, 22:08

Рейтинг ответа: 0 поблагодарить эксперта

Консультация # 121851:

Здраствуйте, у меня такой вопрос: как правильно считывать с дискеты данные. Например считать первые 100кб и разместить их в памяти с опредиленного адреса. По возможности напишите с подробными коментариями. Заранее благодарен!

Дата отправки: 05.02.2008, 21:25
Вопрос задал: Razboynik
Всего ответов: 1
Страница онлайн-консультации »

Консультирует Зенченко Константин Николаевич (Модератор):

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

Информацию с дискеты можно считывать с помощью функции BIOS 13h | 02h.
В приложении пример который считывает 4-е сектора - 2кб в видео буфер. Работа с дискетами отличается от работы с жесткими дисками, из-за того, что рабочая поверхность открыта(не герметична), нет смысла постоянно держать мотор диковода включенным (с небольшой задержкой он отключается сам), т.к. при попадании пыли можно поцарапать её и как следствие потерять информацию. По этому при чтении или записи информации нужно постоянно вызывать функцию BIOS 13h | 00h, которая приводит в исходное состояние дисковод и только после этого проверить ошибку выполнения функции, к примеру если флаг CF=1 и АН=6 это значит, что нет дискеты в дисководе.
Ещё добавлю стандартный формат дискеты 3.5 дюйма:
720кб= 80 дорожек(цилиндров), 2 головки(стороны), 9 секторов на дорожке;
1,44мб= 80,2,18 соответственно.
В одном секторе 512 байт.

Удачи!

Приложение:
;3-ий видео режимmov ax,3int 10h;настраиваем сегментыmov ax,0b000hmov es,ax;запускаем привод дисководаxor ax,axint 13hxor ax,axint 13hxor ax,axint 13h;если флаг CF установлен, то ошибкаjc error;готовимся к загрузке основоной программыmov ax,0204h;будем читать 4-е сектора(AH номер функции,AL число секторов)xor bx,bx;ES:BX адрес куда будем читатьmov cx,101h;будем читать начиная с первого сектора(CL) первой дорожки(CH)xor dx,dx;головка привода =0(DH) , флоппи диск=0(DL)int 13h

Консультировал: Зенченко Константин Николаевич (Модератор) Дата отправки: 06.02.2008, 18:32

Рейтинг ответа: 0 поблагодарить эксперта

Консультация # 17424:

Здравствуйте, уважаемые эксперты.
Я хочу, чтобы моя программа оставалась резидентной.
Использую прерывание INT 27H
Перед тестированием программы запускаю Volkov Kommander
Volkov Kommander программу не видит (Alt+F5)
Помогите!
Если можно, превидите пример простой резидентной программы
( использую TASM )

Дата отправки: 24.02.2005, 13:00
Вопрос задал: Дробнов Сергей
Всего ответов: 3
Страница онлайн-консультации »

Консультирует Котиев Зураб:

Здравствуйте, Дробнов Сергей!
Ты исходник то скинь, я покопаюсь.Мож шо придумаю, если не правильно.
А вот тебе исходник с рассылки Калашникова.

Приложение:
CSEG segmentassume cs:CSEG, ds:CSEG, es:CSEG, ss:CSEGorg 100hStart:;Переходим на метку инициализации. Нам нужно будет перехватить прерывание 21h, а также оставить программу резидентной в памятиjmp Init; Ниже идет, собственно, обработчик 21h прерывания (он будет резидентный). После того, как программа выйдет, процедура Int_21h_proc останется в памяти и будет контролировать функцию 09 прерывания 21h. Он у нас будет жирным.Int_21h_proc procpushf ;сохраним в стеке регистр флаговcmp ah,9 ;проверим: это функция 09h?je Ok_09popf ;восстановим регистр флаговjmp dword ptr cs:[Int_21h_vect] ;Если нет, прейдем на оригинальный обработчик прерывания 21h. Все. На метку Ok_09 программа уже не вернетсяOk_09:push ds ;Сохраним регистрыpush dxpush cs ;Адрес троки должен быть DS:DXpop dsmov dx,offset My_stringpushf ;так надо! Позже рассмотримcall dword ptr cs:[Int_21h_vect] ;Вывели нашу строку вместо той, которую надо былоpop dx ;восстановим использованные регистрыpop dspopfiret ;продолжим работу (выйдем из прерывания)Int_21h_vect dd ? ;переменная для хранения оригинального адреса обработчика 21hMy_string db \'Моя строка!$\'int_21h_proc endp;Со следующей метки нашей программы уже не будет в памяти (это нерезидентная часть). Она затрется сразу после выхода.Init:;установим наш обработчик (Int_21h_proc) (адрес нашего обработчика, если быть точнее) на 21h прерывание. Это позволяет сделать функция 25h прерывания 21h. Но прежде нам нужно запомнить оригинальный адрес этого прерывания. Для этого используется функция 35h прерывания 21h:mov ah,35h ;AH содержит номер функции (это понятно)mov al,21h ;AL указывает номер прерывания, адрес (или вектор) которого нужно получитьint 21h ;тепрь в ES:BX адрес (вектор) 21h прерывания (ES - сегмент, BX - смещение)mov word ptr Int_21h_vect,bxmov word ptr Int_21h_vect+2,es ;обратите внимание на запись;итак, адрес сохранили. Теперь перехватываем прерывание:m ov ax,2521hmov dx,offset Int_21h_proc ;DX должен указывать на наш обработчик (т.е. Int_21h_proc)int 21h;Все! Теперь, если какая-либо программа вызовет 21h, то вначале компьютер попадет на наш обработчик (Int_21h_proc). Что осталось? Завершить программу, оставив ее резидентной в памяти (чтобы никто не затер наш обработчик. Иначе компьютер просто зависнет!)mov dx,offset Initint 27h;прерывание 27h выходит в DOS (как 20h), при этом оставив нашу программу резидентной. DX должен указывать на последний байт, остающийся в памяти (это как раз метка Init).CSEG endsend Start

Консультировал: Котиев Зураб Дата отправки: 24.02.2005, 15:21

Рейтинг ответа: 0 поблагодарить эксперта

Консультирует psevdo:

Здравствуйте, Дробнов Сергей!
Хотелось бы увидеть исходник. А вот простейший резидетн из рассылки Калашникова

Приложение:
CSEG segmentassume cs:CSEG, ds:CSEG, es:CSEG, ss:CSEGorg 100hStart:;Переходим на метку инициализации. Нам нужно будет перехватить прерывание 21h, а также оставить программу резидентной в памятиjmp Init; Ниже идет, собственно, обработчик 21h прерывания (он будет резидентный). После того, как программа выйдет, процедура Int_21h_proc останется в памяти и будет контролировать функцию 09 прерывания 21h. Он у нас будет жирным.Int_21h_proc procpushf ;сохраним в стеке регистр флаговcmp ah,9 ;проверим: это функция 09h?je Ok_09popf ;восстановим регистр флаговjmp dword ptr cs:[Int_21h_vect] ;Если нет, прейдем на оригинальный обработчик прерывания 21h. Все. На метку Ok_09 программа уже не вернетсяOk_09:push ds ;Сохраним регистрыpush dxpush cs ;Адрес троки должен быть DS:DXpop dsmov dx,offset My_stringpushf ;так надо! Позже рассмотримcall dword ptr cs:[Int_21h_vect] ;Вывели нашу строку вместо той, которую надо былоpop dx ;восстановим использованные регистрыpop dspopfiret ;продолжим работу (выйдем из прерывания)Int_21h_vect dd ? ;переменная для хранения оригинального адреса обработчика 21hMy_string db \'Моя строка!$\'int_21h_proc endp;Со следующей метки нашей программы уже не будет в памяти (это нерезидентная часть). Она затрется сразу после выхода.Init:;установим наш обработчик (Int_21h_proc) (адрес нашего обработчика, если быть точнее) на 21h прерывание. Это позволяет сделать функция 25h прерывания 21h. Но прежде нам нужно запомнить оригинальный адрес этого прерывания. Для этого используется функция 35h прерывания 21h:mov ah,35h ;AH содержит номер функции (это понятно)mov al,21h ;AL указывает номер прерывания, адрес (или вектор) которого нужно получитьint 21h ;тепрь в ES:BX адрес (вектор) 21h прерывания (ES - сегмент, BX - смещение)mov word ptr Int_21h_vect,bxmov word ptr Int_21h_vect+2,es ;обратите внимание на запись;итак, адрес сохранили. Теперь перехватываем прерывание:m ov ax,2521hmov dx,offset Int_21h_proc ;DX должен указывать на наш обработчик (т.е. Int_21h_proc)int 21h;Все! Теперь, если какая-либо программа вызовет 21h, то вначале компьютер попадет на наш обработчик (Int_21h_proc). Что осталось? Завершить программу, оставив ее резидентной в памяти (чтобы никто не затер наш обработчик. Иначе компьютер просто зависнет!)mov dx,offset Initint 27h; Функция 27h прерывания 21h выходит в DOS (как 20h), при этом оставив нашу программу резидентной. DX должен указывать на последний байт, остающийся в памяти (это как раз метка Init).CSEG endsend Start

Консультировал: psevdo Дата отправки: 24.02.2005, 22:38

Рейтинг ответа: 0 поблагодарить эксперта

Консультирует Евгений Иванов:

Здравствуйте, Дробнов Сергей!
;Программа очистки экрана по нажатию F11.Иванов Евгений <<SUPER>> @ 14.8.1998
386p
jr equ jmp short
ofs equ offset
wptr equ word ptr
bptr equ byte ptr
Model tiny
Assume CS:F11,DS:F11
F11 segment \'code\' use16
Org 256
start:
db 19 dup(144)
jr m101a
dat equ $
data1 db 1eh,0,26h,0,63h,2eh,6ch,26h,73h,1fh,0dh,0
int9_entry:
cmp bptr [cs:(data1-dat+11)],0
jnz m15i9
push ax
in al,96
cmp al,57h
jz m10i9
pop ax
m15i9:
db 0EAh,0,0,0,0
m10i9:
push ds si di es cx cs
pop ds
mov bptr [ds:(data1-dat+11)],1ch
push 40h
pop es
mov cx,12
mov si,ofs data1-dat
mov di,1ah
cld
rep movsb
in al,97
or al,128
out 97,al
and al,127
out 97,al
mov al,32
out 32,al
mov bptr [ds:(data1-dat+11)],0
pop cx es di si ds ax
iret
len_resid equ $-data1
m101a:
mov bx,[ds:2ch]
sub bx,1000h
mov ds,bx
xor si,si
mov cx,65500
cld
m52a:
lodsb
cmp al,\'M\'
jz m102a
m72a:
loop m52a
m12a:
push cs
pop ds
jmp dos
m142a:
pop si cx
jmp m72a
m102a:
mov bx,88
push cx si
m162a:
mov cx,bx
m172a:
lodsb
cmp al,\'=\'
jz m202a
loop m172a
jmp m142a
m212a:
pop bx ds
push dx
jmp m162a
m202a:
pushf
push si
std
sub si,2
mov di,ofs d1+5
mov bx,cx
mov cx,6
repz cmpsb
lahf
pop si
popf
sahf
jnz m162a
pop dx
push ds bx
mov bx,dx
mov bx,wptr [bx]
mov ds,bx
mov bx,wptr [ds:2ch]
dec bx
mov ds,bx
mov ax,wptr [ds:1]
mov cx,wptr [ds:3]
sub ax,cx
dec ax
dec ax
cmp ax,bx
jnz m212a
cmp bptr [ds:0],\'M\'
jnz m212a
cmp cx,(len_resid/16)+1
jc m212a
pop bx ds cx
add dx,17
mov cl,4
shr dx,cl
mov cx,ds
add cx,dx
push cs
pop ds
mov dx,ofs dhelp
mov ah,9
int 33
mov ax,3509h
int 33
mov wptr [m15i9+1],bx
mov wptr [m15i9+3],es
mov es,cx
mov si,ofs data1
mov di,0
mov cx,len_resid
push es
rep movsb
mov ax,2509h
mov dx,ofs int9_entry-dat
pop ds
int 33
jmp m12a
dos:
mov ah,4ch
int 33
d1 db \'PROMPT\'
dhelp db 10,13,\'Для очистки экрана нажмите F11 \',10,13,36
db \'@21\'
F11 Ends
End start

Консультировал: Евгений Иванов Дата отправки: 24.02.2005, 23:56

Рейтинг ответа: 0 поблагодарить эксперта

Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка  |  восстановить логин/пароль