Subversion Repositories Kolibri OS

save_file:

pusha

	bt	dword [flags],0

	jnc	.not_shooted

	cmp	byte [ed_buffer.1],0

	je	.no_file_name

	mov	edi,sign_n_input

	call	zstr_to_int

	mov	[sign_n],al

	; ������㥬 ��� 䠩��

	xor	eax,eax

	mov	ecx,1056

	mov	edi,file_name

	rep	stosb	; ������塞 ��ﬨ

	mov	esi,ed_buffer.1

	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:

; ����塞, ᪮�쪮 ���� �㦭� �ਡ������ � ������ ��ப�,

; �⮡� ᫥����� �뫠 ��ࠢ���� �� 4 ����.

; ������� ����頥� � edi.

	xor	edx,edx

	movzx	eax,word [scr_buf.width]  ; eax = �ਭ� ���⨭��

	lea	eax,[eax*3]		  ; eax = ���� �� ��ப� ���⨭��

	movr	ebx,4			  ; ebx = 4

	mov	edi,ebx 		  ; edi = 4

	div	ebx			  ; eax = ���� �� ��ப� ���⨭�� div 4  edx = ����... mod 4

	sub	edi,edx 		  ; edi = ������⢮ ����

	test	edx,edx

	jnz	@f

	xor	edi,edi

@@:

	; �뤥�塞 ������

	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

	add	ecx,ebx

	mov	[sf_buf.end],ecx

	add	ecx,4096

	xor	ebx,ebx

	inc	ebx

	movr	 eax,64

	int	0x40

	push	edi

	; ������塞 �������� ��� ��࠭���� 䠩��

	mov	edi,fs_struc

	mov	[edi],dword 2

	mov	eax,[sf_buf.bmp_header]

	mov	ebx,[sf_buf.end]

	sub	ebx,eax

	mov	[edi+12],ebx

	mov	[edi+16],eax

	mov	[edi+21],dword file_name

	; ������塞 ��������� bmp

	mov	edi,[sf_buf.bmp_header]

	mov	[edi],word 'BM'

	mov	ebx,[sf_buf.end]

	sub	ebx,[sf_buf.bmp_area]

	mov	[edi+34],ebx	; ࠧ��� ���⨭��

	mov	[edi+10],dword 0x36	; ࠧ��� ���������

	add	ebx,0x36

	mov	[edi+2],ebx ; ࠧ��� 䠩��

	mov	[edi+14],dword 0x28

	movzx	eax,word [scr_buf.width]

	mov	[edi+18],eax ; ��ਧ��⠫�� ࠧ���

	movzx	eax,word [scr_buf.height]

	mov	[edi+22],eax ; ���⨪��� ࠧ���

	mov	[edi+26],word 1

	mov	[edi+28],word 24

	; �����㥬 � ��ॢ��稢���

;        mov     esi,[scr_buf.ptr]

;        mov     edi,[sf_buf.bmp_area]

;        mov     edx,[sf_buf.end]

;        sub     edx,edi

;        movsx   ecx,word [scr_buf.height]

;.next_str:

;push    ecx

;

;        movsx   ecx,word [scr_buf.width]

;        lea     ecx,[ecx*3]

;        mov     ebx,ecx

;.next_byte:

;        mov     ah,[esi+ebx]

;        mov     [edi+edx],ah

;        dec     ebx

;        dec     edx

;        loop    .next_byte

;        movsx   ecx,word [scr_buf.width]

;        lea     ecx,[ecx*3]

;        add     esi,ecx

;pop     ecx

;        loop    .next_str

	mov	esi,[scr_buf.end_ptr]

	mov	edi,[sf_buf.bmp_area]

	movzx	ecx,word [scr_buf.height]

	movzx	ebx,word [scr_buf.width]

	lea	ebx,[ebx*3]

	add	edi,ebx

.next_str:

	mov	edx,ebx

.next_pixel:

	mov	ah,[esi]

	mov	[edi],ah

	dec	esi

	dec	edi

	dec	edx

	jnz	.next_pixel

	lea	edi,[2*ebx+edi]

	add	edi,[esp]

	loop	.next_str

	pop	edi

	; ��࠭塞

	draw_status saving

	mov	eax,70

	mov	ebx,fs_struc

	int	0x40

	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