RusFAQ.ru: программирование на языке Assembler

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Assembler

Выпуск № 132
от 10.05.2005, 11:50

Вопрос № 20432

У меня вопрос... Через что запускать резидентную программу, чтобы она оставалась в памяти? А то запускаю её из виндовса и она всё время выгружается из памяти... Когда запускаешь её из командной строки она остаётся резидентной, но у меня в резиденте контроль за девятым прерыванием (нажатием клавиши), но в командной строке при нажатие клавиши ничего не происходить только пишется команда. Что делать?

Отправлен: 04.05.2005, 14:32 Вопрос задал: edson (статус: Посетитель) Всего ответов отправлено: 2

Отвечает: Стас Здравствуйте, edson! Если никто не хочет отвечать попробую я... Чего ты хочешь добится? Чтобы резидентная прога для ДОС перехватывала виндовс? Если тебе надо именно ДОС - значит нужно запускать из под досовских оболочек или "командной строки" или еще лучше "голого ДОСа". Тогда прога должна работать пока работает "командная строка" и перехватывает ввод который идет только в "ней". И что должна делать резидентная прога, мы же не знаем, может так и должно быть ("только пишется команда"), может нужно нажать комбинацию, которую "придерживает" винды... Вообщем подробнее описывай, что у тебя есть и что нужно. Симптомы.

Ответ отправил: Стас (статус: Практикант) Отправлен: 06.05.2005, 01:34

Отвечает: Евгений Иванов Здравствуйте, edson! это вопрос совершенно не по Ассемблеру. используй различные оболочки , типа Volkov Comm. И другие. Настрой их параметры (режим работы) - в свойствах ссылки запуска. И система windows будет запускать их в режиме, приближённом к ДОС. также можно использовать различные эмуляторы. например, vmware. dosbox, virtual pc... ищите.. например, используя dosbox, я запускал ДОС-программы и это было так, как будто перед тобой 486-компьютер. эмулирует очень хорошо! ну и конечо, vmware отлично запускает машины (не только ДОС, но и linux и т.п.)! Всего хорошего! зы. могу посоветовать также сообщество в жж - http://www.livejournal.com/community/useful_faq/ там можно задать любой вопрос по любой тематике - и получите ответ даже быстрее, чем в rusfaq, потому что людей там больше (намного).

Ответ отправил: Евгений Иванов (статус: Профессор) Отправлен: 07.05.2005, 11:43

Вопрос № 20472

Нужно составить 16-разрядную программу. Используя функции BIOS вывода на экран, построив произвольное плоское изображение, выполнить плавный сдвиг экрана, перемещая начало изображения на одну строку. Т.е нужно, чтобы, например, закрашенный прямоугольник или круг (что проще?) плавненько съехал вниз экрана.

Отправлен: 05.05.2005, 08:16 Вопрос задал: MentalR (статус: Посетитель) Всего ответов отправлено: 1

Отвечает: Евгений Иванов Здравствуйте, MentalR! смотри приложение и файл. не стал делать функции BIOS, а просто работа с видеопамятью. переделай функцию Line если нужно. Приложение: ;Сдвигающийся квадрат ;7.5.2005 ; ;Иванов Евгений 4.1.2000.2 <<SUPER>> @21 P386 SMART VERSION T310 locals @@ D_VERSION = 100h ;Версия программы Xmax = 640 ;Размеры системные Ymax = 350 V_ADR2 = 8000h ;Адрес второй страницы графической для 10h режима V_SEG2 = 0A800h ;Сегмент второй страницы графической jr equ jmp short bptr equ byte ptr wptr equ word ptr dwptr equ dword ptr ofs equ offset m equ mask LEN_FILE = 3000 LEN_STEK = 777 Model use16 TINY,PASCAL Assume CS:KALAH,DS:KALAH KALAH segment byte public 'code' use16 Org 256 begin: m001a: ;=1a cld cmp sp,ofs STEK ;Проверим,стека нам хватит jc err_mem mov sp,ofs STEK ;Выделим под стек,сколько нам нужно sub ax,ax mov di,ofs dat mov bp,di mov cx,LEN_dat rep stosb ;Очистим локальные данные и BP=начало их mov ah,4ah mov bx,(LEN_FILE+LEN_STEK+LEN_dat+277)/16 int 33 ;Оставим себе память,сколько нам необходимо sub ah,ah ;Установим начальное RND int 1Ah mov wptr [bp+Seed-dat],dx mov wptr [bp+Seed+2-dat],cx m101a: mov ah,15 ;Сохраним прежний видеорежим int 16 mov bptr [bp+OLD_SCR-dat],al mov ax,10h ;Установим видеорежим 640*350_4 (4 слоя) int 16 no_mouse: push 0A000h ;ES=сегмент видеопамяти pop es mov bx, ofs rc_0 m10: mov [INK], 4 call FillRect call Pause1 mov [INK], 0 mov ax, [bx] mov wptr [bp+KX-dat], ax mov ax, [bx+2] mov wptr [bp+KY-dat], ax mov dx, ax mov ax, [bx+2+2] mov cx, ax call Line mov ax, [bx+2] inc ax cmp ax, 300 jz m90 mov [bx+2], ax inc wptr [bx+2+2+2] jmp m10 m90: ExitDos: call Pause1 Dos: mov sp,ofs STEK ;Увеличим надежность mov bp,ofs dat push cs cs pop ds es call SetOldScr dos9: call clear_key_buf EXITCODE 0 ;Выходим в ОС,код нас не интересует err_mem: ;Если памяти мало,то выходим в ОС с выводом сообщения mov dx,ofs d_err_mem call PrintCon jmp dos9 err_mem_gr: mov sp,ofs STEK call SetOldScr err_mem_last: mov dx,ofs d_err_mem err_font: call PrintCon jmp Dos proc SetOldScr ;========================================================= movzx ax,bptr [bp+OLD_SCR-dat] mov bptr [bp+OLD_SCR-dat],ah or al,al jz @@no int 16 ;Восстановим прежний видеорежим @no: ret endp proc WaitKey ;========================================================== sub ah,ah int 22 ret endp proc clear_key_buf mov ah,1 int 22 jz ret_clear_k call WaitKey jmp clear_key_buf ret_clear_k: ret endp proc PrintCon ;=========================================================== mov ah,9 int 33 ret endp proc Pause1 USES ax,bx,cx,dx mov cx,1 mov dx,21000 mov ah,86h int 21 ret endp ;IN->w[KX],w[KY]-первая точка; CX,DX-вторая точка; b[INK]-цвет; proc Line ;=l1 ======================================= pusha mov bx,101h mov ax,cx sub ax,wptr [bp+KX-dat] jnc m10l1 mov bh,-1 neg ax m10l1: mov cx,ax push dx mov dx,3CEh mov ax,205h out dx,ax pop ax sub ax,wptr [bp+KY-dat] jnc m20l1 mov bl,-1 neg ax m20l1: mov dx,ax line_all: mov wptr [bp+Zip1-dat],bx cmp cx,dx jnc m25l1 mov di,cx sub bh,bh jmp m30l1 m25l1: or cx,cx jz m90l1 mov di,dx mov dx,cx sub bl,bl m30l1: mov si,dx mov ax,dx shr ax,1 m33l1: add ax,di jc m35l1 cmp ax,si jc m37l1 m35l1: sub ax,si mov cx,ax push cx dx mov cx,wptr [bp+Zip1-dat] jmp m40l1 m37l1: mov cx,ax push cx dx bx pop cx m40l1: movsx dx,cl movsx cx,ch add dx,wptr [bp+KY-dat] add cx,wptr [bp+KX-dat] mov wptr [bp+KX-dat],cx mov wptr [bp+KY-dat],dx push bx ;Рисуем точку mov bx,cx shr bx,3 imul ax,dx,Xmax/8 add bx,ax mov al,[es:bx] mov dx,3CEh and cl,7 mov ax,8008h shr ah,cl out dx,ax mov cl,bptr [bp+INK-dat] mov [es:bx],cl pop bx ; pop dx cx mov ax,cx dec dx jnz m33l1 m90l1: mov dx,3CEh mov ax,0FF08h out dx,ax jcxz $+2 mov ax,5 out dx,ax popa ret endp ;Закрашивает прямоугольник цветом b[INK]; ;IN -> BX-адрес параметров (x1,y1,x2,y2); proc FillRect ;========================================================= pusha mov si, bx lodsw mov [bp+KX-dat], ax lodsw mov [bp+KY-dat], ax lodsw mov cx, ax lodsw mov dx, ax mov di, dx sub di, [bp+KY-dat] or di, di jz @@ret mov dx, [bp+KY-dat] @m1: push wptr [bp+KX-dat] push wptr [bp+KY-dat] call Line pop wptr [bp+KY-dat] pop wptr [bp+KX-dat] inc wptr [bp+KY-dat] inc dx dec di jnz @@m1 @ret: popa ret endp ;=23 hallo: db 'Super Assembler - Copyright 1997 <<SUPER>> EugeneIvanov@nm.ru',13,10 db 'Software of 21 centure; 12.2003',13,10,36 d_err_mem db 'Need more memory',13,10,36 ini: rc_0 dw 50, 50, 100, 100 ; координаты прямоугольника dat: KX dw ? ; Координата X графическая KY dw ? ; Координата Y графическая OLD_SCR db ? ; Прежний видеорежим INK db ? ; Цвет чернил Zip1 dw ? ; Временная переменная Seed dd ? ; Для Rnd LEN_dat = ($-dat) POSL: my_stack db LEN_STEK dup(?) STEK: KALAH Ends End begin Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 14 суток с момента отправки ответа.

Ответ отправил: Евгений Иванов (статус: Профессор) Отправлен: 07.05.2005, 15:22

Вопрос № 20475

Пивет! Вопрос Стасу. Я задавал вопрос по поводу резидентного калькулятора ( №19813 ). На что вы ответили: "Ты вызываешь процедуру CALC из прерывания INT9 - т.е. у тебя запрещены все прерывания и клава работать не будет. Пока корректно не выйдешь из Int9. Т.е. тебе надо переместить вызов CALC скажем в int2f(по флагу), а в Int9 поставить флаг. " Поясние, пожалуйста, поподробнее - как поставить флаг, что это такое и как эго использовать?

Отправлен: 05.05.2005, 09:17 Вопрос задал: x3m (статус: Посетитель) Всего ответов отправлено: 2

Отвечает: Ayl Здравствуйте, x3m! А можно я отвечу? Все-таки вопрос всем экспертам отправил... Под флагом понимается любая переменная в памяти, которая может принимать 2 значения: установлен или сброшен. Вначале флаг сброшен. Когда ты проверяешь в Int9 клавишу и понимаешь, что надо вызвать свой резидент, то в эту переменную заносишь значение "установлен". А в прерывании Int2f проверяешь этот флаг и если он установлен, то переходишь на свою подпрограмму. А если нет - выходишь из прерывания. Кстати, рекомендация использования прерывания Int2f выглядит странной, т.к. это программное прерывание и вероятность его частого использования достаточно мала. Лучше всего использовать прерывания от таймера (Int8 или Int1c) или прерывание DOS Inactivity (Int28). В приложении см. скелет написания этих процедур. P.S. Попробуй найти книжку Касаткина А.И. "Пpофессиональное пpогpаммиpование на языке Си. Системное пpогpаммиpование", Минск, Высшая школа, 1993, третий том. Там подробно описано создание резидентной программы на Си с описанием, какие и почему надо перехватывать прерывания и как их обрабатывать. Приложение: .CODE .StartUp jmp Init ; переменные для резидентной части InDosFlag dd ? ; флаг возможности вызова Dos MyFlags db 0 ; собственные флаги ; адреса старых обработчиков прерываний Old_Int8 dd ? Old_Int9 dd ? Old_Int28 dd ? ... bCallFlag EQU 01h ; флаг вызова резидента bActivityFlag EQU 02h ; флаг активации резидента Int9 proc far ... ; получение кода клавиши, проверка на активацию IsMyKey: ; сюда попадаем, когда нажата клавиша активации test cs:[MyFlags], bActivityFlag ; проверяем, что резидент уже активирован jnz @@Exit_Int9 ; если да - выходим из обработчика or cs:[MyFlags], bCallFlag ; устанавливаем флаг вызова @Exit_Int9: mov al, 20h out 20h, al iret Int9 endp Int8 proc far ; вызовем старый обработчик pushf call dword ptr cs:[Old_Int8] ; проверим необходимость вызова резидента test cs:[MyFlags], bCallFlag jz @@Exit_Int8 ; проверим возможность запуска резидента push ex bx les bx, cs:[InDosFlag] cmp es:[bx], 0 pop bx es jne @@Exit_Int8 ; вызываем резидент sti ; разрешим прерывания call MyResidentProc @Exit_Int8: iret Int8 endp Int28 proc far ; это прерывание генерируется самим Dos'ом, поэтому ; проверять флаг занятости Dos'а не нужно ; проверим необходимость вызова резидента test cs:[MyFlags], bCallFlag jz @@Exit_Int28 ; вызываем резидент sti ; разрешим прерывания call MyResidentProc @Exit_Int28: ; вызовем старый обработчик jmp dword ptr cs:[Old_Int28] Int28 endp MyResidentProc proc ; сбросим флаг вызова и установим флаг активации mov cs:[MyFlags], 2 ; если кроме этих двух флагов в переменной MyFlags ; имеется другая информация, то надо использовать такой код: ; and cs:[MyFlags], (not bCallFlag) ; сбросить флаг вызова ; or cs:[MyFlags], bActivityFlag ; установить флаг активации ; ... ; выполняем необходимые действия ; завершаем резидентную процедуру, сбрасывая флаги and cs:[MyFlags], 0fch ret MyResidentProc endp ; нерезидентная часть Init: ... ; сохраняем старые адреса обработчиков прерываний, устанавливаем новые ; получаем адрес флага InDos mov ah, 34h int 21h mov word ptr [InDosFlag], bx mov word ptr [InDosFlag + 2], es ... ; продолжаем инициализацию end

Ответ отправил: Ayl (статус: Профессор) Отправлен: 05.05.2005, 13:01 Оценка за ответ: 5

Отвечает: Стас Здравствуйте, x3m! В принципе Ayl все ответил, лучше чем мог бы я. :) И все же: в проге (в резидентной её части) выделяешь один байт (flag db 0), скажем, и по какому либо событию ставишь или опускашь биты этого байта - получаешь 8 флагов типа "да"-"нет". Либо кладешь туда число символизирущее чтолибо или содержащее какулибо информацию. Ну типа того. Насчет Int2f(Мультиплексное прерывание) - так советует мне некое руководство (см. прил.). Int28(Квант времени DOS) - тоже хорошо, но: "ВАЖНО: Popup-программа НЕ должна использовать функций DOS с номерами вплоть до 0cH, пока она выполняется внутри INT 28H". Int1c - тоже, что и Int8 - "Поскольку программа INT 1cH выполняется во время низкоуровневого аппаратного прерывания, вы должны помнить, что система еще не сбросила контроллер прерываний и потому другие аппаратные прерывания, в том числе прерывание от клавиатуры, не будут происходить при работе INT 1cH (т.е. вы не получите ввода пользователя). Большинство popup-программ предпочитают перехватывать вектор INT 08H , вызывать первоначальный вектор, а затем уже выполнять операции, зависящие от времени, после того как BIOS закончит свою обслугу." Вот примерно этим я руководствовался... Если есть другая инфа - просветите. Приложение: INT 2fH: Мультиплексное прерывание Этот вектор (0000:00bc) предоставляет средства управления процессами, доступные всей системе из любого приложения. Каждый процесс должен включить себя в цепочку прерываний с этим кодом, и каждый процесс в цепочке должен проверять AH на свой мультиплексный номер процесса. Если запрос относится к другому процессу, активный процесс должен передать управление по первоначальному адресу прерывания 2fH (по адресу, который был в векторе 0:00bc перед тем, как текущий процесс установил себя). Руководство DOS Tech Ref разъясняет, что вы можете использовать INT 2fH как вход для установки и доступа к вашему собственному резидентному процессу. Идея состоит в следующем: Если вы произвольно используете вектор прерывания для вашего собственного доступа, то вы подвергаетесь определенному риску, особенно в мультизадачной системе. Если же вы используете предлагаемую мультиплексную "цепочку", то DOS знает о вас, и ваш вектор не будет перекрыт другим обработчиком. Одна возможная проблема: нет предопределенного способа определить мультиплексный номер вашего процесса (регистр AH). Плохо привязываться к конкретному числу, ибо нет гарантии, что другой процесс не будет использовать этот же номер. Вы должны предусмотреть какую-то логику, гарантирующую вам четкое опознание вашего процесса. Ваш процесс должен по меньшей мере использовать подфункцию AL=0, чтобы вы могли выяснить, не был ли процесс уже установлен ранее.

Ответ отправил: Стас (статус: Практикант) Отправлен: 06.05.2005, 01:25 Оценка за ответ: 5

© 2001-2005, RusFAQ.ru, Россия, Москва. Все права защищены.
Идея, дизайн, программирование, авторское право: Калашников О.А.