Subversion Repositories Kolibri OS

Rev

Rev 1688 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1688 Rev 1713
Line 1... Line 1...
1 
;*********************************************************************
 1 
;*********************************************************************
2 
pack:
 2 
pack:
3 
	call	refresh_editbox_data
 - 
 
4 
; clear messages
 - 
 
5 
	call	clear_messages
 3 
	call	displogo_and_readfile
6 
; display logo
 - 
 
7 
	mov	esi,info_str
 - 
 
8 
	push	info_len
 - 
 
9 
	pop	ecx
 - 
 
10 
	call	write_string
 - 
 
11 
; load input file
 - 
 
12 
	mov	esi,inname
 - 
 
13 
	call	get_full_name
 - 
 
14 
	mov	ebx,fn70block
 - 
 
15 
	mov	[ebx],dword 5
 - 
 
16 
	and	[ebx+4],dword 0
 - 
 
17 
	and	[ebx+8],dword 0
 - 
 
18 
	and     [ebx+12],dword 0
 - 
 
19 
	mov	[ebx+16],dword  file_attr
 - 
 
20 
	mcall	70
 - 
 
21 
	test	eax,eax
 - 
 
22 
	jz	inopened
 4 
	jz	inopened
23 
;---------------------------------------------------------------------
 5 
;---------------------------------------------------------------------
24 
infileerr:
 6 
infileerr:
25 
	call	return_memory
 7 
	call	return_memory
26 
	mov	esi,errload_str
 8 
	mov	esi,errload_str
Line 152... Line 134...
152 
lzma_setds:
 134 
lzma_setds:
153 
	push	eax
 135 
	push	eax
154 
	call	lzma_set_dict_size
 136 
	call	lzma_set_dict_size
155 
;--------------------------------------
 137 
;--------------------------------------
156 
no_lzma_setds:
 138 
no_lzma_setds:
157 
	push	compressing_len
 139 
	call	tell_compress_mess
158 
	pop	ecx
 140
159 
	mov	esi,compressing_str
 - 
 
160 
	call	write_string
 - 
 
161 
	mov	esi,[outfile1]
 141 
	mov	esi,[outfile1]
162 
	mov     edi,[outfile2]
 142 
	mov     edi,[outfile2]
163 
	movsd
 143 
	movsd
164 
	movsd
 144 
	movsd
165 
	movsd
 145 
	movsd