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 
unpack:
 2 
unpack:
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 
 
 - 
 
12 
; load input file
 - 
 
13 
	mov	esi,inname
 - 
 
14 
	call	get_full_name
 - 
 
15 
	mov	ebx,fn70block
 - 
 
16 
	mov	[ebx],dword 5
 - 
 
17 
	and	[ebx+4],dword 0
 - 
 
18 
	and	[ebx+8],dword 0
 - 
 
19 
	and	[ebx+12],dword 0
 - 
 
20 
	mov	[ebx+16],dword file_attr
 - 
 
21 
	mcall	70
 - 
 
22 
	test	eax,eax
 - 
 
23 
	jnz	infileerr
 4 
	jnz	infileerr
Line 24... Line 5...
24 
 
 5 
 
25 
	mov	ecx,[insize]
 6 
	mov	ecx,[insize]
26 
	test	ecx,ecx
 7 
	test	ecx,ecx
Line 179... Line 160...
179 
	xor	eax,eax
 160 
	xor	eax,eax
180 
	mov	[infile],eax
 161 
	mov	[infile],eax
181 
@@:
 162 
@@:
182 
	ret
 163 
	ret
183 
;*********************************************************************
 164 
;*********************************************************************
184 

            165
            
displogo_and_readfile:

          

          

            -
            
 

            166
            
	call	clear_mess_and_displogo

          

          

            -
            
 

            167
            
; load input file

          

          

            -
            
 

            168
            
	mov	esi,inname

          

          

            -
            
 

            169
            
	call	get_full_name

          

          

            -
            
 

            170
            
	mov	ebx,fn70block

          

          

            -
            
 

            171
            
	mov	[ebx],dword 5

          

          

            -
            
 

            172
            
	and	[ebx+4],dword 0

          

          

            -
            
 

            173
            
	and	[ebx+8],dword 0

          

          

            -
            
 

            174
            
	and	[ebx+12],dword 0

          

          

            -
            
 

            175
            
	mov	[ebx+16],dword file_attr

          

          

            -
            
 

            176
            
	mcall	70

          

          

            -
            
 

            177
            
	test	eax,eax

          

          

            -
            
 

            178
            
	ret

          

          

            -
            
 

            179
            
;*********************************************************************

          

          

            -
            
 

            180
            

          

          

            185
            

            181