Резидент, который при ctrl+s записывает информацию с экрана в файл

segm segment
    assume cs: segm, ds: segm
    org 100h
BEGIN:  
 
JMP START           ; Переход на выполнение транзитной части
    metka dw 4596   ;для проверки на нахождение в памяти
    output proc ; процедура вывода
        push ax
        push bx
        push si
        push di
        pushf
 
        mov ah, 0eh
        mov si, sp
        mov di, ss:[si+0ch]
        mov si, 0
        
itaration:
        mov bx, di
        mov al, [bx+si]
        cmp al, '$'
        jz end_out
        mov bh, 0
        int 10h
        inc si
        jmp itaration
end_out:
        popf
        pop di
        pop si
        pop bx
        pop ax
        ret 2
    endp
 
file_name db  'name.txt$'
buffer    db ?
buffer1    dw ?
buffer2     db 0dh,0ah
handle dw 0
message_error1 db 'error1 try again$'
message_error2 db 'error2 try again$'
message_error3 db 'error3 try again$'
message_error4 db 'error4 try again$'
message1 db 'open file$'
message2 db 0dh,0ah,'stayed resident$'
message3 db 'program is already run$'
message4 db 'the file has been created$'    
message5 db 0dh,0ah,'program shutdown$' 
old_addr_int9 dd ?
old_addr_int1C dd ?
myhandleflag db 0
Dos_flag dw ?   
 
 
;обработчик на замену int9h   
m1:         pushf
            push es
            push ax
            push dx
            push cx
            push bx
            push si
            
            push ds
            push cs
            pop ds
    
            xor ax, ax
            mov es, ax
            
;проверяем, нажата ли ctrl
            
            mov ax, es:[0417h]
            test ax, 00000100b
            jz ex1
 
;ctrl+s?            
            in al, 60h
            cmp al, 01fh
            jz save_flag
 
;ctrl+x
            
            cmp al, 02dh
            jz close_flag
ex1:        jmp exit        
                    
            
;выставляем флаг на запись и уходим на стандартный обработчик       
save_flag:  mov myhandleflag,1
            jmp exit
;выставляем флаг на закрытие и уходим на стандартный обработчик   
close_flag: mov myhandleflag,2          
            jmp exit
 
;повесил на int28h 
new28:      pushf
            push es
            push ax
            push dx
            push cx
            push bx
            push si
            
            push ds
            push cs
            pop ds
            
            
            cmp myhandleflag,1
            jz save
            cmp myhandleflag,2
            jz closing
            jmp finish
            
            
save:       cmp Dos_flag,0
            jz save1
            jmp save
save1:      mov myhandleflag,0
            mov cx,2000
            xor si,si
cycle:      push cx
            push es
            push  0B800h
            pop es
            mov ah,40h  ;функция записи
            mov cx,1  ;размер конечного
            mov dx, es:[si]
            mov buffer1, dx
            lea dx, buffer1;то что должно записаться
            mov bx,handle ;кидаем дескриптор в регистр
            int 21h
            inc si
            inc si
            pop es
            jnc check;если всё удачно
            push offset message_error2  
            call output
            pop cx
            jmp finish
; проверка на конец строки         
check:      mov ax,si
            mov dh, 160d
            div dh
            cmp ah,0
            jnz end_cycle       
end_cycle:  pop cx
            loop cycle
            
success:    push offset message4
            call output
            pop ds
 
 
closing:    cmp Dos_flag,0
            jz closing1
            jmp closing
closing1:   mov myhandleflag,0
            mov ah,3eh ;закрытие
            mov bx, handle
            int 21h
            jnc success
            push offset message_error4  
            call output 
            
            push offset message5    
            call output 
            
            
;-------------------восстанавливаем вектора как было
 
            
            mov ax, cs
                mov ds, ax
                xor ax, ax
                mov es, ax
                mov dx, WORD PTR [old_addr_int9]
                mov ax, WORD PTR [old_addr_int9 + 2]
 
                cli
                mov es:[0024h], dx
                mov es:[0026h], ax
                sti
                
            mov ax, cs
                mov ds, ax
                xor ax, ax
                mov es, ax
                mov dx, WORD PTR [old_addr_int1C]
                mov ax, WORD PTR [old_addr_int1C + 2]
 
                cli
                mov es:[0070h], dx
                mov es:[0072h], ax
                sti 
 
;--------------- очистка памяти
            
                mov ax, cs:[02ch]; addres segment varable
                dec ax
                mov es, ax
                mov es:[1h], WORD PTR 0
 
                mov ax, cs
                dec ax ; mcb block = [cs-1]:[1]
                mov es, ax
                mov es:[01h], WORD PTR 0
            
finish:     pop ds
            pop si
            pop bx
            pop cx
            pop dx
            pop ax
            pop es
            popf
            jmp cs:[old_addr_int1C]
            
            
exit:       pop ds
            pop si
            pop bx
            pop cx
            pop dx
            pop ax
            pop es
            popf
            jmp cs:[old_addr_int9]
            
start:      push cs     ; начало транзитной части
            pop ds
            MOV AX, 3509H            ; получение адреса
            INT 21H     
            cmp word ptr es:metka,4596
            je remove           
            mov WORD PTR [old_addr_int9], bx
            mov WORD PTR [old_addr_int9+2], es
            MOV AX, 3528H            ; получение адреса
            INT 21H     
            mov WORD PTR [old_addr_int1C], bx
            mov WORD PTR [old_addr_int1C+2], es
            
;----------открытие файла
create:     mov ah,3ch
            xor cx,cx
            lea dx, file_name
            int 21h
            mov handle,ax
            jnc file_true
            push offset message_error1  
            call output 
 
            mov ah,34h 
            int 21h
            mov AX,ES:[BX]
            mov Dos_flag,ax
            
file_true:  push offset message1    
            call output 
            cli
            MOV ax,2509H            ; Установка вектора 09H на адрес
            LEA DX,m1           ; резидентной процедуры
            INT 21H
            sti
            
            cli
            mov ax, 251Ch
            LEA DX,new28
            int 21h
            sti
            
            LEA DX,START                ; Адрес конца резидентной части
            push offset message2    
            call output 
            INT 27H         
            
remove:     push offset message3    
            call output             
            ret
segm ends
end BEGIN