kolibrios-fun/programs/media/scrshoot/scrsavef.inc

save_file:
pusha
        bt      dword [flags],0
        jnc     .not_shooted

        cmp     byte [fname_buf],0
        je      .no_file_name

        mov     edi,sign_n_input
        call    zstr_to_int
        mov     [sign_n],al

        ; <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>㥬 <EFBFBD><EFBFBD><EFBFBD> 䠩<EFBFBD><EFBFBD>
        xor     eax,eax
        mov     ecx,1056
        mov     edi,file_name
        rep     stosb   ; <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>塞 <EFBFBD><EFBFBD><EFBFBD>ﬨ

        mov     esi,fname_buf
        mov     edi,file_name
.next:
        mov     ah,[esi]
        test    ah,ah
        jz      .str_end
        cmp     ah,'*'
        jne     .no_insert_number
        jmp     .insert_number
.no_insert_number:
        mov     [edi],ah
        inc     edi
        inc     esi
        jmp     .next
.insert_number:
        bt      word [ch6.flags],1
        jnc     @f
        mov     eax,[cur_number]
        ;mov     ebx,4
        movsx   ebx,byte [sign_n]
        push    ebx
        call    int_to_str
        pop     ebx
        add     edi,ebx
@@:
        inc     esi
        jmp     .next
.str_end:

;;;;clean memory 

        mov     ecx,dword [sf_buf.bmp_header]
        mov     ebx,13
        mov     eax,68
        mcall

; <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>塞, ᪮<EFBFBD>쪮 <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>㦭<EFBFBD> <EFBFBD>ਡ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ப<EFBFBD>,
; <EFBFBD>⮡<EFBFBD> ᫥<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>뫠 <EFBFBD><EFBFBD>ࠢ<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> 4 <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
; <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>頥<EFBFBD> <EFBFBD> edi.

        xor     edx,edx
        movzx   eax,word [scr_buf.width]  ; eax = <EFBFBD><EFBFBD>ਭ<EFBFBD> <EFBFBD><EFBFBD><EFBFBD>⨭<EFBFBD><EFBFBD>
        lea     eax,[eax*3]               ; eax = <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ப<EFBFBD> <EFBFBD><EFBFBD><EFBFBD>⨭<EFBFBD><EFBFBD>
        mov     ebx,4                     ; ebx = 4
        mov     edi,ebx                   ; edi = 4
        div     ebx                       ; eax = <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ப<EFBFBD> <EFBFBD><EFBFBD><EFBFBD>⨭<EFBFBD><EFBFBD> div 4  edx = <EFBFBD><EFBFBD><EFBFBD><EFBFBD>... mod 4
        sub     edi,edx                   ; edi = <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⢮ <EFBFBD><EFBFBD><EFBFBD><EFBFBD>
        test    edx,edx
        jnz     @f
        xor     edi,edi
@@:

        ; <EFBFBD>뤥<EFBFBD>塞 <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
;        mov     ecx,[scr_buf.end_ptr]
;        mov     [sf_buf.bmp_header],ecx

;        add     ecx,0x36
;        mov     [sf_buf.bmp_area],ecx
        movsx   ebx,word [scr_buf.width]
        movsx   edx,word [scr_buf.height]
        ;imul    ebx,edx
        lea     ebx,[ebx*3]
        add     ebx,edi
        imul    ebx,edx
        mov     ecx,ebx

;        mov     [sf_buf.end],ecx
        add     ecx,0x36
        mov     ebx,12
        mov     eax,68
        mcall

        mov     [sf_buf.bmp_header],eax 
        add     eax,0x36
        mov     [sf_buf.bmp_area],eax
        add     eax,ecx
        sub     eax,0x36
        mov     [sf_buf.end],eax

;        push    edi
        ; <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>塞 <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>࠭<EFBFBD><EFBFBD><EFBFBD><EFBFBD> 䠩<EFBFBD><EFBFBD>
        mov     ebp,fs_struc
        mov     [ebp],dword 2

        mov     eax,[sf_buf.bmp_header]
        mov     ebx,[sf_buf.end]
        sub     ebx,eax
        mov     [ebp+12],ebx
        mov     [ebp+16],eax
        mov     [ebp+21],dword file_name

        ; <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>塞 <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> bmp
        mov     ebp,[sf_buf.bmp_header]
        mov     [ebp],word 'BM'
        mov     ebx,[sf_buf.end]
        sub     ebx,[sf_buf.bmp_area]
        mov     [ebp+34],ebx    ; ࠧ<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>⨭<EFBFBD><EFBFBD>
        mov     [ebp+10],dword 0x36     ; ࠧ<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
        add     ebx,0x36
        mov     [ebp+2],ebx ; ࠧ<EFBFBD><EFBFBD><EFBFBD> 䠩<EFBFBD><EFBFBD>
        mov     [ebp+14],dword 0x28
        movzx   eax,word [scr_buf.width]
        mov     [ebp+18],eax ; <EFBFBD><EFBFBD>ਧ<EFBFBD><EFBFBD>⠫<EFBFBD><EFBFBD><EFBFBD><EFBFBD> ࠧ<EFBFBD><EFBFBD><EFBFBD>
        movzx   eax,word [scr_buf.height]
        mov     [ebp+22],eax ; <EFBFBD><EFBFBD><EFBFBD>⨪<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ࠧ<EFBFBD><EFBFBD><EFBFBD>
        mov     [ebp+26],word 1
        mov     [ebp+28],word 24

        ; <EFBFBD><EFBFBD><EFBFBD>࠭塞
        mov     esi,[scr_buf.ptr]
        mov     edi,[sf_buf.end]
        movzx   edx,word [scr_buf.height]
        movzx   ebx,word [scr_buf.width]
        lea     ebx,[ebx*3]
        mov     ecx,ebx
        
        test    ebx,11b
        jz      @f
        shr     ebx,2
        inc     ebx
        shl     ebx,2
@@:
        mov     eax,ebx
        sub     eax,ecx
        cld
align 4
.next_str:
        sub     edi,ebx
        mov     ecx,ebx
        shr     ecx,2
        rep     movsd
        sub     edi,ebx
        sub     esi,eax
        dec     edx
        jnz     .next_str 

       draw_status saving
        mov     eax,70
        mov     ebx,fs_struc
        mcall

        test    eax,eax
        jne     save_error

        inc     dword [cur_number]
        call    draw_number

        draw_status saved_ok

popa
ret

.no_file_name:
        draw_status no_file_name
popa
ret

.not_shooted:
        draw_status not_shooted
popa
ret

save_error:
        cmp     al,5
        jne     @f
        mov     [status.text],dword bad_file_name
@@:
        cmp     al,8
        jne     @f
        mov     [status.text],dword disk_filled
@@:

        cmp     al,9
        jne     @f
        mov     [status.text],dword bad_fat_table
@@:

        cmp     al,10
        jne     @f
        mov     [status.text],dword ac_den
@@:

        cmp     al,11
        jne     @f
        mov     [status.text],dword device_er
@@:
        call    send_draw_status
popa
ret