Assebler резидентная программа

[Greench]

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

code segment  
assume cs:code,ds:code ; CS и DS указывают на сегмент кода
org 100h ;Увеличиваем все указатели на данные на 100h (256 байт)
;т.к. это место будет занято данными msdos (заголовком призапуске)

start:  
jmp     load   ;Выполняется только один раз

;------------------------------------------------------
oldsave dd ?;двойное слово для сохранения обработчика адреса int 9 BIOS 

resprog proc far
; вызовем старый обработчик
pushf
call    dword ptr cs:oldsave

pushf  ; создание в стеке структуры для IRET
push ax
push bx
push cx
push dx
push sp
push bp
push si
push di      
push ds ;Сохранить все регистры (ax,cx,dx,bx,sp,bp,si,di,ds)  

; определим код нажатой клавиши
mov ah, 01h
int 16h
jnz view_code   ; если код в буфере есть, то посмотрим, что за код
jmp exit     ; иначе выйдем из резидента

view_code:
; если нажали на CTRL+X, то выгружаем резидент из памяти
cmp ax, 2d18h
je  exit

; если нажали на CTRL+S, то выполнить необходимое действие
cmp ax, 1f13h
je startproc
jmp exit

startproc:

; резидентная часть кода !! 

call    clear_keys

exit: 
  
push ds
push di
push si
push bp
push sp
push dx
push cx
push bx      
push ax ; ;Восстановить все регистры (ax,cx,dx,bx,sp,bp,si,di,ds)
popf

iret  ; возврат из обработчика

stop:

; восстановим старый обработчик прерывания от клавиатуры
mov dx, word ptr cs:oldsave        ; смещение обработчика
mov ds, word ptr cs:[oldsave+2]    ; сегмент обработчика
mov ah, 25h         ; функция установки вектора обработчика прерывания
mov al, 09h         ; восстановим вектор 09h
int 21h

; вывод сообщения о выгрузке из памяти
mov si, offset cs:prn_unload    ; адрес сообщения о выгрузке
mov es, cs:2Ch          ; выгрузка psp (префикс программного сегмента)
mov ah, 49h
int 21h
push    cs      ; освобождение памяти,
pop es      ; которую занимает наш резидент
mov ah, 49h
int 21h

call    clear_keys

push ds
push di
push si
push bp
push sp
push dx
push cx
push bx      
push ax ; ;Восстановить все регистры (ax,cx,dx,bx,sp,bp,si,di,ds)
popf
iret

prn_unload db ' program unload $'   ; сообщение "программа выгружена"
prn_start_procedure db 'procedure started $'   ; сообщение о старте подпрограммы

resprog endp

;--------------------------------------------------------------
; подпрограмма для очистки буфера клавиатуры
clear_keys  proc
    push    ax      ; сохраним используемые регистры
clear_keys_0:
    mov ah, 01h ; есть ли в буфере код клавиши
    int 16h
    jz  clear_keys_1    ; если нет кода, то на выход
    mov ah, 00h ; иначе удаляем символ из буфера клавиатуры
    int 16h
    jmp clear_keys_0    ; проверим, есть ли ещё символ в буфере клавиатуры
clear_keys_1:
    pop ax      ; восстановим используемые регистры
    ret
clear_keys  endp
;--------------------------------------------------------------
; Загрузка резедента в память
load: 
push    cs      ; установим сегментный регистр DS на текущий
pop ds
mov ah, 09h ; функция вывода сообщения о запуске программы
mov dx, offset prn_run  ; адрес ds:dx указывает на сообщение
int 21h


; запоминаем адрес старого обработчика прерывания INT 09h
mov ah, 35h ; функция получения вектора прерывания
mov al, 09h ; получаем адрес обработчика 9-го прерывания
int 21h
mov word ptr cs:oldsave, bx    ; запомним смещение
mov word ptr cs:[oldsave + 2], es  ; запомним сегмент

; установим обработчик 9-го прерывания на нашу функцию
mov dx, offset resprog ; получим смещение нашего обработчика
mov ah, 25h     ; функция установки вектора
mov al, 09h
int 21h

; выводим сообщение об установке резидента в память
mov ah, 09h  
mov dx, offset prn_load
int 21h

mov dx,offset load;Размер программы
int 27h;Завершить и остаться резидентом (адрес программы в dx-1)

; сообщения
prn_run db  'Resident program ', 13, 10   ; сообщение "резидентная программа "
    db  'press key:', 13, 10                  ; сообщение "управление:"
    db  'CTRL+S - start', 13, 10              ; начать действие подпрограммы
    db  'CTRL+X - exit & unload from memory', 13, 10, '$' ; выгрузить из памяти
prn_load    db  'load to memory ok', 13, 10, '$'      ; сообщение "программа оставлена резидентом"
;--------------------------------------------------------------

code ends 
end start

[Serge_Bliznykov]

программу не смотрел.
Вопрос, а где Вы проверяете? Вы же знаете, что под Windows это работать не будет? Нужен DOS (ну или виртуальная машина с DOS, DOSBox, на крайний случай)!

[vadimych]

Greench, push'ей в коде много. А вот pop'ов в достаточном количестве не наблюдаю.

[p51x]

vadimych, копи-паст он такой естественно, при восстановлении регистров надо попать

[Greench]

Я в Dosbox все тестирую