Сделать программу резидентной

dosseg
.model small
.stack 1000h
.data
;Определения
alt_q equ 1000h
      org 100h
myproc proc 
      jmp init
;Поля данных для резидентной секции программы
        old_09h dd 0
        mesr db '<Alt>/Q - vektor vosstanovlen!!!',lf,cr
        mesrlen equ $-mesr
        boarders: db 0,0,179,180,191,192,193,194,195,196,197,217,218
;Резидентная секция программы
new_09h: cli
         pushf 
         call CS:old_09h
         push AX
         push BX
         push CX
         push DX
         push 0S
         push ES
         mov AX,CS
         mov DS,AX
         mov AX,40h 
         mov ES,AX
;Начнём обработку символа, скопировав его из кольцевого буфера ввода в АХ, но не изменяя его при этом из буфера
         mov BX,ES:1Ah
         mov AX,ES:[BX]
         cmp AX,alt_q
         jb altq
         cmp AH,2
         jb home
         cmp AH,12
         ja home
;Скен-код в заданных пределах. Но нажата ли клавиша <Caps Lock>?
         test byte ptr ES:17h,40h
         jz home
;Режим <Caps Lock> включён и нажата клавиша <1/!>....<-/_>
         push BX
         lea BX,boarders
         xchg AH,AL
         xlat 
         pop BX
         mov byte ptr ES:[BX],AL
;Вернёмся в первоначальную программу
home:    pop ES
         pop DS
         pop DX
         pop CX
         pop BX
         pop AX
         sti
         iret
altq:
;Завершаем работу обработчика. Выведем диагностическое 
;сообщение и восстановим вектор 09h
         mov AX,DS
         mov ES,AX
         mov AH,13h
         mov AL,1
         mov BX,0020h
         mov CX,mesrlen
         mov DH,16
         mov DL,22
         mov BP,offset mesr
         int 10h
;Восстановим вектор "вручную", чтобы не обращаться 
;к функциям DOS
         mov AX,0
         mov ES,AX
         mov AX,word ptr old_09h
         mov word ptr ES:24h,AX
         mov AX,word ptr old_09h+2
         mov word ptr ES:26h,AX
         jmp home
endres equ $-myproc
;Секция инийиализации
init:    mov AH,35h
         mov AL,09h
         int 21h
         mov word ptr old_09h,BX
         mov word ptr old_09h+2,ES
         mov AH,25h
         mov AL,09h
         mov DX,offset new_09h
         int 21h
;Выведем сообщение mes o загрузке обработчика
         Begin:
         mov ah,9
         mov dx,offset mes
         int 21h
         int 20h
         end Begin 
;Оставим программу резидентной в памяти
...
; Поля данных
mes      db 27,'[34;46m'
         db 'Obrabotchik 3agru}|{en & ostavlen rezidentnim'
         db 27,'[0m',cr,lf
         meslen equ $-mes
         myproc endp