Не могу сделать программу резидентной :(

model small
 
DATA SEGMENT
mes11 db 'PRIMER1.TXT',0
mes22 db 'PRIMER2.TXT',0
HANDL1 DW ?
HANDL2 DW ?
BUFER DB 1000 DUP(?)
EOF DB 0
 
mes db 0Dh,0Ah,'Raschet vyrazhenya: y=((z+x)-(x*2))*2', 0Dh, 0Ah, '$'
mes1 db 0Dh,0Ah,'Vvedite x(0-9)=','$'
mes2 db 0Dh,0Ah,'Vvedite z(0-9)=','$'
mes3 db 0Dh,0Ah,'Reshenie:','$'
mes4 db 0Dh,0Ah,'(z+x)=','$'
mes5 db 0Dh,0Ah,'(x*2)=','$'
mes6 db 0Dh,0Ah,'(z+x)-(x*2)=','$'
mes7 db 0Dh,0Ah,'Otvet: y=','$'
mes8 db 0Dh,0Ah,'$'
mes9 db 0Dh,0Ah,'Nazhmite kombinaciy klavish ALT+A...','$'
mes10 db 0Dh,0Ah,'Fail #1 otkryt?','$'
mes13 db 0Dh,0Ah,'Da','$'
mes14 db 0Dh,0Ah,'Fail #2 otkryt?','$'
mes15 db 0Dh,0Ah,'Da','$'
mes16 db 0Dh,0Ah,'Kopirovanie...','$'
mes17 db 0Dh,0Ah,'Kopirovanie zaversheno...','$'
mes18 db 0Dh,0Ah,'Proishodit zakrytie failov', 0Dh, 0Ah, 0Dh, 0Ah,'$'
mes20 db 0Dh,0Ah,'Nazhmite ESC dlya vyhoda...','$'
DATA ENDS
 
SSEG SEGMENT STACK
DB 200 DUP(?)
SSEG ENDS
 
CODE SEGMENT
ASSUME CS:CODE,DS:DATA,ss:SSEG
 
start:
 
mov ax,DATA
mov ds,ax
 
mov ah,00h      
mov al,03h
int 10h
 
 
 
a1: mov ah,9 
    mov dx,offset mes9 
    int 21h
    mov ah, 0
        int 16h
    cmp ah,1eh  ; Проверка нажатия Alt+a
    jnz a1
 
 
mov ah,00h      
mov al,03h
int 10h
 
    mov ah,9 
    mov dx,offset mes10 
    int 21h
 
mov ah,3dh  ;открываем 1-ый файл
mov al,0
lea dx,mes11
int 21h
jnz OTKR
jc CLOSE2
mov HANDL1,ax
 
OTKR:   mov ah,9 
    mov dx,offset mes13 
    int 21h
    
 
    mov ah,9 
    mov dx,offset mes14 
    int 21h
 
mov ah,3dh  ;открываем 2-ый файл
mov al,1
lea dx,mes22
int 21h
jnz OTKR2
jc CLOSE1
mov HANDL2,ax
 
OTKR2:  mov ah,9 
    mov dx,offset mes15 
    int 21h
 
mov ah,42h  ;указатель второго файла на конец
mov bx,HANDL2
xor cx,cx
xor dx,dx
mov al,2
int 21h
 
lea dx,BUFER    ;готовим регистры
mov cx,1000
 
;БЛОК КОПИРОВАНИЯ
 
    mov ah,9 
    mov dx,offset mes16 
    int 21h
 
LOO:    mov bx,HANDL1   ;читаем
    mov ah,3fh
    int 21h
    cmp ax,cx
    jz NORM
    mov cx,ax   ;<1000байт
    mov EOF,1   ;достигнут конец файла
 
NORM:   mov bx,HANDL2   ;пишем
    mov ah,40h
    int 21h
    cmp EOF,0   ;не достигнут ли конец
    jz LOO
 
    mov ah,9 
    mov dx,offset mes18 
    int 21h
 
CLOSE2: mov ah,3eh  ;закрываем второй файл
    mov bx,HANDL2
    int 21h
 
CLOSE1: mov ah,3eh  ;закрываем ПЕРВЫЙ файл
    mov bx,HANDL1
    int 21h
 
xor cx,dx
xor ax,bx
 
 
mov ah,09h  ; DOS функция вывода строки на экран
mov dx,offset mes   ; Задаём смещение к началу строки
int 21h     ; Выводим строку
;////////////////////
mov ah, 09h
mov dx, offset mes1
int 21h
 
mov ah,01h      ;считали с клавиатуры x
int 21h
sub al,'0'
 
push ax         ;занесли в стэк x
 
mov ah, 09h
mov dx, offset mes2
int 21h
 
mov ah,01h      ;считали с клавиатуры z
int 21h
sub al,'0'
 
mov bl,al   ;z перенесли в bl
 
mov ah, 09h
mov dx, offset mes8
int 21h
 
mov ah, 09h
mov dx, offset mes3
int 21h
 
mov ah, 09h
mov dx, offset mes8
int 21h
;////////////////////z+x
pop ax          ;извлекли из стэка x
mov cl,al       ;x перенесли в cl
add bl,cl       
 
push bx
 
mov ah,09h
mov dx,offset mes4
int 21h
 
mov dl,bl       
add dl,'0'      
mov ah,02h
int 21h
;////////////////////x*2
mov al,2
mul cl
mov cl,al
 
push cx
mov dl,cl
mov ah,09h
mov dx,offset mes5
int 21h
 
mov dl,cl
add dl,'0'
mov ah,02h 
int 21h
;////////////////////(z+x)-(x*2)
pop bx      ;(x*2)
pop ax      ;(z+x)
sub al,bl 
push ax  
mov cl,al
 
mov ah,09h
mov dx,offset mes6
int 21h
 
mov dl,cl
add dl,'0'
mov ah,02h
int 21h
;////////////////////((z+x)-(x*2))*2
pop ax
mov bl,al
mov al,2
mul bl
mov cl,al
 
push cx
 
mov ah, 09h
mov dx, offset mes8
int 21h
 
mov ah,09h
mov dx,offset mes7
int 21h
 
pop ax
 
push -1               
        mov cx,10
      L:mov dx,0
        div cx
        push dx
        cmp ax,0
        jne L
        mov ah,2h
        L2: pop dx
        cmp dx,-1
        je ex
        add dl,'0'
        int 21h
        jmp L2
        ex: mov ax,4c00h
        int 21h
 
 
EXIT:   mov ah,4ch
    int 21h
    CODE ENDS
END start

.model tiny
.code
.286c
org 1eh
envseg dw ?
org 100h
 
start:
    jmp init
 
int09h_handler proc far
    jmp short actual_int09h_handler
old_int09h  dd ?
        dw 424Bh
        db 00h
actual_int09h_handler:
    pushf
    call dword ptr cs:old_int09h
disable_point label byte
    pusha
    push ds
    push es
    cld
    push 0B800h
    pop es
    push 0040h
    pop ds
    mov di, word ptr ds:001Ch
    cmp di, word ptr ds:001ch
    jne l1
        jmp exit
        l1:
 
mov ax, word ptr [di]
 
No_ext:
    mov ah,10h  ;ожидание нажатия клавиши от пользователя
    int 16h     ;(в ah=0, если расширенный, в al=расширенный код)
    cmp al,0    ;проверка на расширенный код
    jnz No_ext  ;если не расширенный код, то переход к No_ext
    cmp ah,1eh  ;расширенный код Alt+a(в ah );
push cs
pop ds
    je Alt_a    ;если да(Alt+a), то переход к Alt_a:
    jne exit    ;иначе на старый вектор
 
Alt_a proc near
 
    ;открываем первый файл
    MOV AH,3DH
    MOV AL,0
    LEA DX,PATH1
    INT 21H
    JC EXIT1
    MOV HANDL1,AX
;открываем второй файл
    MOV AH,3DH
    MOV AL,1
    LEA DX,PATH2
    INT 21H
    JC CLOSE1
    MOV HANDL2,AX
;указатель второго файла на конец
    MOV AH,42H
    MOV BX,HANDL2
    XOR CX,CX
    XOR DX,DX
    MOV AL,2
    INT 21H
;готовим регистры
   LEA DX,BUFER
   MOV CX,1000
;блок копирования
LOO: 
;читаем 
   MOV BX,HANDL1
   MOV AH,3FH
   INT 21H
   CMP AX,CX
   JZ NORM
   MOV CX,AX ;<1000 байт
   MOV  EOF,1 ;достигнут конец файла
  NORM:
;пишем
  MOV BX,HANDL2
  MOV AH,40H
  INT 21H
  CMP EOF,0 ; не достигнут ли конец
  JZ LOO
 ; закрываем второй файл 
CLOSE2:
   MOV AH,3EH
   MOV BX,HANDL2
   INT 21H
 ;закрываем первый файл
CLOSE1:
   MOV AH,3EH
   MOV BX,HANDL1
   INT 21H
    ;выход в ДОС
EXIT1:
  MOV AH,4CH
  INT 21H
 
Alt_a endp
 
int09h_handler endp
 
exit:
    pop es
    pop ds
    popa    
    iret
    
init proc near
 
    mov ax,3509h; получим адрес обработчика прерывания 
    int 21h
    mov word ptr old_int09h,bx
    mov word ptr old_int09h+2,es
 
    mov ax,2509h; установим адрес нового обработчика
    mov dx, offset int09h_handler
    int 21h
 
    mov ah,49h
    mov es, word ptr envseg
    int 21h
 
    mov dx, offset init
 
    int 27h 
ret
 
str1 db 'OPEN ERROR! ','$'
path db "mm.txt",0 ; имя файла для октрытия
buf  db 1 dup (?)
PATH1 DB 'PRIMER1.TXT',0;имя первого файла
PATH2 DB 'PRIMER2.TXT',0;имя второго файла(куда добавлять)
HANDL1 DW ?             ;описатель первого файла  
HANDL2 DW ?             ;описатель второго файла
BUFER  DB 1000 DUP(?)   ;буфер
EOF DB 0                ;если 1,то в процессе чтения 
            ;достигнут конец файла
init endp
end start