Собственное прерывание

.386
esc_key equ 01h
;@,#,$,%,&,*
;hex code for symbols
symbA equ 040h
symbR equ 023h
symbS equ 024h
symbP equ  025h
sand equ 026h
sstar equ 02ah
 
symb1 equ 02h
symb2 equ 03h
symb3 equ 04h
symb4 equ 05h
symb5 equ 06h
symb6 equ 07h
 
 
_ST SEGMENT para    STACK 'stack' use16
    dw  32000 dup (?)
_ST         ENDS
 
_DATA   SEGMENT para 'DATA'     use16
 msg        db  'Press:',10,13              
        db  'ESC - for exit.',10,13
        db  'Then, 1 for @',10,13
        db  '2 for # and more...',10,13,'$'
_DATA ENDS
 
_TEXT    SEGMENT    para 'CODE' use16
ASSUME  CS:_TEXT,DS:_DATA,SS:_ST
 
int9ptr dw 2 dup (?)
 
setint9 PROC
mov ah,35h
mov al,9
int 21h
 
mov cs:int9ptr,bx
mov cs:int9ptr+2,es
 
mov dx,offset userint9
push ds
push cs 
pop ds
 
MOV AH,25H
MOV AL,9 
INT 21H 
pop ds
 
ret
setint9 ENDP
 
retint9 PROC
push ds
push dx
mov dx,cs:int9ptr
mov ax,cs:int9ptr+2
mov ds,ax
 
MOV AH,25H
MOV AL,9 
MOV AL,9 
pop dx
pop ds
 
ret
retint9 ENDP
 
 
userint9    proc    far
pushf
call    dword ptr cs:int9ptr
pushad
xor ax,ax
in  al,60h
mov ah,al
cmp ah,esc_key
je  short ui9020
call show 
 
jmp ui9040
;------
ui9020: 
call retint9
mov ax,4c00h
int 21h
;------
ui9040:
popad
iret                    
userint9    endp 
 
show    proc    near
@go:    
    mov ah,10h      
    int 16h
    
    xor dx,dx
    
    cmp al,symb1
    jne @1
    mov dl,symbA
    
@1: cmp al,symb2
    jne @2
    mov dl,symbR
    
@2: cmp al,symb3
    jne @3
    mov dl,symbS
    
@3: cmp al,symb4
    jne @4
    mov dl,symbP
    
@4: cmp al,symb5
    jne @5
    mov dl,sand
    
@5: cmp al,symb6
    jne @6
    mov dl,sstar
@6:
    cmp al,esc_key
    je @exit
    
    mov ah,02h      
    int 21h
    
    
    
    jmp @go
 
 @exit:
    ret
    show endp
    
;-------
begin:
mov ax,_data
mov ds,ax
 
mov ah,09h
mov dx,offset msg
int 21h
 
cli
call setint9
sti
 
 
cli
call retint9
sti 
 
 
 
 
mov ax,4c00h
int 21h
 
_TEXT ENDS
    end  begin

.model tiny
.code
.486
org 100h
start:
  mov ax,3
  int 10h
  
  mov eax,fs:[9*4]
  mov [oldint9],eax
  mov word ptr fs:[9*4],offset userint9
  mov fs:[9*4+2],cs
  
  mov dx,offset userint9
  int 21h
  
  userint9:
    pusha
    in    al,60h
    cmp   al,7
    ja exit
    push  0B800h
    pop   es
    sub   al,2
    jl quit
    movzx bx,al
    mov   di,cs:[_di]
    add   cs:[_di],2
    mov   al,cs:[symbols+bx]
    mov   es:[di],al
    exit:
    popa
  jmp cs:[oldint9]
  
  quit:
  int 20h   
  
  _di     dw 0
  symbols db '@#$%&*'
  oldint9 dd 0
   
end     start

.model tiny
.code
.486
org 100h
start:
  mov ax,3          
  int 10h                    ;устанавливаем текстовый режим
  
  mov eax,fs:[9*4]                      ;сохраняем старый обработчик прерывания
  mov [oldint9],eax                     ;клавиатуры в переменную oldint9
  mov word ptr fs:[9*4],offset userint9 ;устанавливаем свой обработчик
  mov fs:[9*4+2],cs
  
  a: jmp a
  
  userint9:
    pusha
    in    al,60h             ;считываем сканкод
    cmp   al,7               ;если сканкод больше 6
    ja exit                  ;передаём управление старому обработчику
    sub   al,2               ;если сканкод меньше 2 (клавиша escape)
    jl quit                  ;то завершаем программу
    push  0B800h    
    pop   es                 ;es - сегмент видеопамяти
    movzx bx,al              
    mov   di,cs:[_di]        ;di - смещение текущего символа на экране
    add   cs:[_di],2         
    mov   al,cs:[symbols+bx] ;преобразуем сканкод по таблице перекодировки
    mov   es:[di],al         ;выводим символ на экран
    exit:
    popa
  jmp cs:[oldint9] ;передаём управление старому обработчику
  
  quit:
  int 20h   
  
  _di     dw 0        ;указатель на текущий символ (позиция курсора)
  symbols db '@#$%&*' ;таблица перекодировки
  oldint9 dd 0        ;указатель на старый обработчик прерывания клавиатуры
   
end     start