Написать собственное прерывание - Assembler

Stk    SEGMENT  STACK
          DB 256 DUP(?)
Stk    ENDS 
 
DATA      SEGMENT
        KEEP_CS DW 0 ; для хранения сегмента
        KEEP_IP DW 0 ; и смещения прерывания
 
        schet dw 0
        message db 'hello',10,13,'$'
        Message2 db 'prerivanie',10,13,'$' ;строка для сообщения
DATA      ENDS
 
CODE      SEGMENT
          ASSUME CS:CODE, DS:DATA, SS:Stk
 
rout proc far ;начало процедуры
push ax ;сохраняем все изменяемые регистры
push dx ;сохраняем все изменяемые регистры
 
mov ah,9h ;функция установки вектора
mov dx,offset message2 ;в dx загружаем адрес сообщения Message2
int 21h ;вывод строки на экран
INC schet
 
pop dx ;восстанавливаем регистры
pop ax ;восстанавливаем регистры
 
mov al,20h
out 20h,al
 
iret ;конец прерывания
rout endp ;конец процедуры

main proc far
push ds
sub ax,ax
push ax
mov ax,data
mov ds,ax

MOV  AH, 35H   ; функция получения вектора
MOV  AL, 23H   ; номер вектора
INT  21H
MOV  KEEP_IP, BX  ; запоминание смещения
MOV  KEEP_CS, ES  ; и сегмента

push ds
mov dx,offset rout ;смещение для процедуры в DX
mov ax,seg rout ;cs ;сегмент процедуры
mov ds,ax ;помещаем в ds
mov ah,25h ;функция установки вектора
mov al,23h ;номер вектора
int 21h ;меняем прерывание
pop ds ;восстанавливаем ds 
 
cickl_m:
mov dx, offset message 
mov ah, 9
int 21h
cmp schet, 05h
jb cickl_m
 
CLI
PUSH DS ;DS будет разрушен
MOV DX,KEEP_IP;подготовка к восстановлению
MOV AX,KEEP_CS ;
MOV DS,AX ;подготовка к восстановлению
MOV AH,25h ;функция установки вектора
MOV AL,23h ;номер вектора
INT 21h ;восстанавливаем вектор
POP DS ;восстанавливаем DS
STI
 
ret
 
Main endp
code ends
    end Main