сохранить изображение в файл

        mov ax,0a000h
    mov ds,ax
    mov si,50
    lea di,cs:bufin
    push cs
    pop es
 
    mov cx,50
    rep movsb
    
    mov ah,40h
    mov bx,cs:handle
    mov cx,50
    mov dx,offset cs:bufin
    int 21h

    
        mov cx,150
ly: push cx
    mov cx,150
lx:     push cx
        mov ah,0dh  ;чтение пикселя
    mov bh,0    ;страница
    mov cx,cs:x ;столбец
    mov dx,cs:y ;строка
    int 10h               ;в al результат
    stosb
    inc cs:x
    inc cs:kol
        pop cx
    loop lx
    mov x,0
    pop cx
    inc cs:y
    loop ly
 
    mov ah,40h
    mov bx,cs:handle
    mov cx,cs:kol
    mov dx,offset cs:bufin
    int 21h

        push cs
    pop es

push cs
pop ds

New09Obrab  proc        ; новый обработчик прерывания int09h
 
    pushf           ; заносим флаги в стек, поскольку iret в конце оригинального обработчика заберет один экземпляр флагов из стека
    call    dword   ptr CS:[Old09]  ; вызов оригинального обработчика
    cli         ; запретить прерывания
    pushf           ; сохранить флаги
    pusha           ; сохранить регистры общего назначения
    mov cs:work,0   ; сбрасываем признак активации
    in  al,60h      ; читаем из порта клавиатуры скан-код нажатойй клавиши
    cmp     al,3bh      ; это f1?
    jz  fx_pressed
    cmp     al,3ch      ; это f2?
    jz  fx_pressed
    cmp     al,3dh      ; это f3?
    jz  fx_pressed
    cmp     al,3eh      ; это f4?
    jz  fx_pressed
    jmp skipwork    ; иначе просто пропускаем
fx_pressed:
    mov cs:work,1   ; устанавливаем признак активации
    sub al,3bh      ; по нажатой клавище получаем номер страницы: f1-0,f2-1,f3-2,f4-3
    mov ah,0
    shl ax,12       ; расчитываем смещение страницы
    push    es      ; сохраняем сегментные регистры, поскольку они не сохраняются командой pusha
    push    ds              ;
    push    cs      ; установка es:di в начало буфера программы и ds:si в начало страницы
    pop es
    push    0b800h
    pop ds
    mov si,ax       ; адрес начала страницы
    mov di, offset scrbuff; адрес начала буфера в памяти
    cld                     ; устанавливаем прямой режим увеличения адресов при работе со строковыми командами
    mov cx,0        ; обход страницы
    mov bl,80       ; делитель
scr:
    lodsw           ; команда загрузки из последовательности(цепочки) в аккумулятор AX
    stosb           ; сохраняем в цепочке только код символа
    inc cx      ; увеличиваем счетчик
    mov ax,cx
    div bl      
    test    ah,ah       ;достигнут ли конец строки экрана?
    jnz ncrlf
    mov ax,0a0dh    ;если да, то добавляем в буфер символы конца строки
    stosw
ncrlf:  cmp cx,2048     ;обходим пока не закончится видеостраница
    jnz scr
 
    pop ds      ; восстанавливаем сегментные регистры
    pop es
skipwork:
    popa            ; восстанавливаем регистры общего назначения
    popf            ; восстанавливаем флаги
    sti         ; разрешить прерывания
    iret            ; выход из прерывания
endp
 
New28Obrab  proc        ; новый обработчик прерывания int28h
 
    pushf           ; заносим флаги в стек, поскольку iret в конце оригинального обработчика заберет один экземпляр флагов из стека
    call    dword   ptr CS:[Old28]  ; вызов оригинального обработчика
    pushf           ; сохранить флаги
    pusha           ; сохранить регистры общего назначения
    cmp cs:work,1   ; проверяем фдаг активации
    jnz skip28      ; выход из обработчика, если флаг сброшен
    push    es      ; сохраняем сегментные регистры, поскольку они не сохраняются командой pusha
    push    ds              ;
    push    cs      ; установка es и ds равным cs
    pop es
    push    es
    pop ds
    mov ah,41h      ;удаляем файл page.txt(если он есть), чтобы не мешать созданию нового
    mov dx,offset fname
    int 21h
    mov ah,3ch      ;создаем файл page.txt
    mov cx,0
    mov dx,offset fname
    int 21h
    jc  stop28      ;если ошибка, то пропускаем дальнейшие файловые операции
    mov handle,ax   ;сохраняем хэндл
    mov bx,ax
    mov ah,40h      ;записываем на диск сожержимое буфера
    mov cx,800h + 26*2
    mov dx,offset scrbuff
    int 21h
    jc  stop28
    mov bx,handle   ;и закрываем файл
    mov ah,3eh
    int 21h
 
 
 
stop28: mov cs:work,0   ;сбрасываем флаг активации
    pop ds      ; восстанавливаем сегментные регистры
    pop es
skip28:
    popa            ; восстанавливаем регистры общего назначения
    popf            ; восстанавливаем флаги
    iret            ; выход из прерывания