Написание собственного прерывания (проверьте)

EofLine EQU '$'
;------------Стек программы------------------------
AStack  SEGMENT STACK
    DW  400 DUP(0)  ;Выделение 1Кб под стэк
AStack  ENDS
;------------Сегмент данных------------------------
DATA    SEGMENT
    KEEP_ES DW 0        ;Буфер для хранения сегмента
    KEEP_IP DW 0        ;и смещения старого прерывания
    STR DB 'Вектор прерывания заменен',0AH,0DH,EofLine
DATA    ENDS
;-------------Сегмент кода-------------------------
CODE    SEGMENT
    ASSUME  SS:AStack,DS:DATA,CS:CODE   
START   PROC    NEAR    
    ;Сохранение адреса старого прерывания
    ;Функция 35 прерывания 21H возвращает текущее
    ;значение вектора прерывания,  помещая значение сегмента в ES,  а
    ;смещение в BX.
    mov AH,35h
    mov AL,08h
    int 21h
    mov KEEP_ES,ES
    mov KEEP_IP,BX
    ;Задание нового обработчика 08h
    ;Для установки написанного прерывания  в  поле  векторов
    ;прерываний  используется  функция 25H прерывания 21H, которая
    ;устанавливает вектор прерывания на указанный адрес.
    push DS
    mov DX,OFFSET Newint
    mov DS,AX
    mov AH,25h     ;функция установки вектора
    mov AL,08h     ;номер вектора
    int 21h           ;меняем прерывание
    pop DS
;------------Тело нового обработчика (печать строки)---------------
Newint  PROC FAR
    push AX
    mov DX,OFFSET STR
    mov AH,9
    int 21h    
    pop AX
    mov AL,20h
    out 20h,AL
    iret
Newint  ENDP
;----Восстанавливаем адрес старого обработчика-----
    CLI
    push DS
    mov DX,KEEP_IP
    mov AX,KEEP_ES
    mov DS,AX
    mov AH,25h
    mov AL,08h
    int 21h           ;восстанавливаем вектор
    pop DS 
    STI
    ret 
START   ENDP
CODE    ENDS        ;Конец сегмента
    END start   ;Конец программы