Создание резидента

masm
.model medium

.stack 400h

.data
    ;Всякие данные и область хранения адреса оригинального обработчика
    oldHandler  dw  0

.code
    jmp main   
   
;-------------------------Functions----------------------------
;--------------------------------------------------------------

main:

;Сохранение адреса начала сегмента данных
    assume  ds:@data,es:@data
    mov ax, @data                      ;сохраняем адрес сегмента данных
    mov ds, ax                  ;в регистр ds
    mov es, ax                            ;и в регистр es
    xor ax, ax                             ;очищаем регистр ax

    jmp initial

;************Резидентная часть******************

_treaterInt:
;-----------------------Инициализация----------------------------------
    pushf                   ;сохраняем флаги

;Создание отклика
    cmp ax, 1987h
    jne _symbol
    mov ax, 7891h
    iret

;-------------------------Код резидента--------------------------------
;-----------C использованием вышеописанных функций-----------------

    popf                    ;восстанавливаем флаги

;Возвращаем управление оригинальному обработчику
;   jmp dword ptr cs:[ oldHandler ]

    iret                    ;выходим из прерывания

_residentEnd:

;*******************************************************

;*****************Нерезедентная часть**********************

initial:
    ;Проверяем, присутствует ли резидент в памяти
    mov ax, 1987h
    int 13h                     ;Посылаем резиденту запрос
        cmp ax, 7891h
    jne _upload

    ;Резидент уже загружен
    mov dx, offset message_resident_exists
    mov ah, 09h
    int 21h
    jmp _end

_upload:
    ;Загружаем резидента
    mov dx, offset message_resident_upload
    mov ah, 09h
    int 21h

    ;Скопируем адрес оригинального разработчика в переменную oldHandler (13h)
    mov ax, 3513h
    int 21h
    mov word ptr oldHandler, bx
    mov word ptr oldHandler + 2, es
   
    ;Установим на обработчик
    mov ax, 2513h
    mov dx, seg _treaterInt
    mov ds, dx
    mov dx, offset _treaterInt
    int 21h


    ;Создаём резидента
    mov dx, offset _residentEnd
    int 27h

    int 13h
;-----------------Завершение приложения------------------------
                                                     
;Выход из программы
_end:
    mov ax, 4c00h
    int 21h
;******************************************************

end main