Проблема с выгрузкой резидентной программы

cseg segment
assume cs:cseg, ds:cseg
org 100h
main proc
jmp init ; Прыгаем на инициализацию
 
installed db 'booper installed$'
already db 'booper already installed$'
removed db 'booper removed$'
old16 dd 0
checker dw 1234h
 
new16 proc far
push ax
push cs
pop ds
    push ax
    push es
    xor ax,ax              
    mov es,ax
    mov al,es:0417h         
    test al,00000100b       
    jz skip
    in al,60h
    cmp al,2Dh ; Проверка на ctrl+x                     
    je remove ; Если да, на выгрузку, иначе звук
    skip:
    pop es
    pop ax
call sound ; Вызываем звук
pop ax
pushf
call dword ptr cs:old16 ; Вызываем старый обработчик
iret
new16 endp
 
sound proc 
push ax
push bx
push cx
push dx
    in al,60h
    mov ah,al
    mov bh,ah
    mov al,255
    mul bh ; Задаем частоту в соответствии с нажатой клавишей
        
    xor cx,cx
    xor dx,dx
    mov bx,ax               ; Запоминаем частоту
                                
    mov al,10110110b        ; 
    out 43h,al              ;
    mov dx,ax               ; Запоминаем AX
    mov ax,bx               ; Кладем частоту в АХ
    out 42h,al              ; Кидаем младший байт частоты
    mov al,ah               ;
    out 42h,al              ; Кидаем старший байт частоты
    mov ax,dx               ; Возвращаем значение АХ
    in al,61h               ;
    or al,00000011b         ; Включаем динамик
    out 61h,al              ; 
                
    mov cx,0001h            ; Старшее слово числа микросекунд
    mov dx,0A120h           ; Младшее слово числа микросекунд
    mov ah,86h          ; 
    int 15h             ; Пауза
 
    in  al,61h              ; 
    and al,not 3            ; Отключаем динамик
    out 61h,al              ; 
        
    pop dx
    pop cx
    pop bx
    pop ax
ret
sound endp
 
remove:
    push ds
    mov ax,2516h ; Возвращаем старое значение вектора
        mov dx, word ptr cs:old16 
        mov ds, word ptr cs:[old16+2]        
        int 21h
        pop ds
        push cs                 
        pop es
        mov AH,49h ; Чистим память от резидента
        int 21h
    mov dx, offset removed
    mov ah,9
    int 21h
exit:
    int 20h ; Выходим
already_inst:
        mov   dx, offset already
        mov   ah,9
        int   21h
        jmp   exit
 
init proc near
mov ax,3516h ; Запоминаем старый адрес 16 обработчика
int 21h
cmp word ptr es:checker,1234h
je already_inst       
 
mov word ptr old16,bx
mov word ptr old16+2,es
mov ax,2516h ; Ставим новый адрес
mov dx, offset new16
int 21h
 
mov dx, offset installed
mov ah,9
int 21h
 
mov dx,offset init ; Оставляем программу резидентной в памяти
int 27h
 
init endp
cseg ends
end main