Загрузка и выгрузка программы из оперативной памяти

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