WebSVN – Kolibri OS – Diff – /programs/other/kpack/trunk/kpack.asm


; kpack = Kolibri Packer
;---------------------------------------------------------------------
; version:	0.20
; last update:  08/18/2011
; changed by:   Marat Zakiyanov aka Mario79, aka Mario
; changes:      Checking for "rolled up" window
;---------------------------------------------------------------------
; version:	0.20
; last update:  07/12/2010
; changed by:   Marat Zakiyanov aka Mario79, aka Mario
; changes:      Added code for packing the kernel.mnt
;---------------------------------------------------------------------
; version:	0.15
; last update:  06/11/2010
; changed by:   Marat Zakiyanov aka Mario79, aka Mario
; changes:      1) Window Y=4, B=1
;               2) Refresh lenght of data after Editbox editing
;               3) Changed format of start parameter -
;                    longer path (total length 255 + zero).
;---------------------------------------------------------------------
; version:	0.14
; last update:  03/11/2010
; changed by:   Marat Zakiyanov aka Mario79, aka Mario
; changes:      select path with OpenDialog,
;               using Box_Lib and Proc_Lib
;---------------------------------------------------------------------
; Kpack - Kolibri Packer
; Kolibri version
; Written by diamond in 2006, 2007 specially for KolibriOS
;
; Disassemled and corrected in 2010 specially for FASM
;            by Marat Zakiyanov aka Mario79, aka Mario
;
; Uses LZMA compression library by Igor Pavlov
; (for more information on LZMA and 7-Zip visit http://www.7-zip.org)
; (plain-C packer and ASM unpacker are ported by diamond)
;---------------------------------------------------------------------
use32
	org	0
 
	db 'MENUET01'
	dd 1
	dd START
	dd IM_END
	dd I_END
	dd stacktop
	dd params
	dd cur_dir_path
;---------------------------------------------------------------------
include '../../../config.inc'		;for nightbuild
include '../../../macros.inc'
include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
include '../../../develop/libraries/box_lib/load_lib.mac'
  @use_library
 
START:
	mcall	68,11
	mcall	40,100111b
 
load_libraries l_libs_start,load_lib_end
	cmp eax,-1
	je exit
 
	init_checkboxes2 check1,check1_end
	;push	check1
	;call	[init_checkbox]
 
	call	clear_messages
; set default path = /RD/1/
	mov	esi,defpath
	mov	edi,path
	mov	[edi-4],dword 6
	movsw
	movsd
; get system window info
	xor	eax,eax
	cmp	[params],al
	je	default
	
	mov	edi,path
	mov	esi,params
	call	copy_1
 
	sub	esi,2
	std
@@:
	lodsb
	dec	edi
	cmp	al,byte '/'
	jnz	@r
	
	mov	[edi-1],byte 0
	mov	edi,inname
	add	esi,2
	push	esi
	call	copy_1
	pop	esi
	mov	edi,outname
	call	copy_1
;---------------------------------------------------------------------
	call	set_editbox_position_all
;---------------------------------------------------------------------
	call	draw_window
	call	pack
	jmp	OD_initialization
;*********************************************************************
default:
	mov	esi,definoutname
	mov	edi,esi
	xor	ecx,ecx
	xor	eax,eax
	dec	ecx
	repnz	scasb
	not	ecx
	dec	ecx
	mov	[innamelen],ecx
	push	ecx
	push	esi
	mov	edi,inname
	rep	movsb
	pop	esi
	pop	ecx
	mov	[outnamelen],ecx
	mov	edi,outname
	rep	movsb
;---------------------------------------------------------------------
	call	set_editbox_position_all
;---------------------------------------------------------------------
OD_initialization:
;OpenDialog	initialisation
	push    dword OpenDialog_data
	call    [OpenDialog_Init]
;---------------------------------------------------------------------
red:
	call	draw_window
;--------------------------------------
still:
	mcall	10
	dec	eax
	jz	red
 
	dec	eax
	jz	key
 
	dec	eax
	jz	button
 
	push	dword edit1
	call	[edit_box_mouse]
 
	push	dword edit2
	call	[edit_box_mouse]
 
	push	dword edit3
	call	[edit_box_mouse]
 
	push	dword check1
	call	[check_box_mouse]
	
	jmp	still
;*********************************************************************
tell_compress_mess:
	push	compressing_len
	pop	ecx
	mov	esi,compressing_str
	call	write_string
	ret
;*********************************************************************
clear_mess_and_displogo:
	call	refresh_editbox_data
; clear messages
	call	clear_messages
; display logo
	mov	esi,info_str
	push	info_len
	pop	ecx
	call	write_string
	ret
;*********************************************************************
clear_messages:
	xor	eax,eax
	mov	ecx,80*20/4+1
	mov	edi,message_mem
	rep	stosd
	ret
;*********************************************************************
exit:
	xor	eax,eax
	dec	eax
	mcall
;*********************************************************************
button:
; button pressed
	mcall	17
	xchg	al,ah
	cmp	al,7
	jz	but7
 
	dec	eax
	jz	exit
 
	dec	eax
	jnz	nopack
 
 
	bt dword[check1.flags],1
	jc	@f
 
	call	pack
	jmp	still
;---------------------------------------------------------------------	
@@:
	call	kerpack
	jmp	still	
;---------------------------------------------------------------------
nopack:
	dec	eax
	jnz	nounpack
	
	call	unpack
	jmp	still
;---------------------------------------------------------------------	
but7:
	call	clear_messages
; display logo
	mov	esi,info_str
	push	info_len
	pop	ecx
	call	write_string
; display info
	mov	esi,usage_str
	mov	ecx,usage_len
	call	write_string
	jmp	still
;---------------------------------------------------------------------
nounpack:
	dec	eax
	jnz	still
 
	call	OpenDialog_start
	jmp	still
;*********************************************************************
OpenDialog_start:
	mov	esi,path
	mov	edi,temp_dir_pach
	call	copy_1	
 
	push    dword OpenDialog_data
	call    [OpenDialog_Start]
	cmp	[OpenDialog_data.status],1
	jne	@f
 
	mov	esi,filename_area
	mov	edi,inname
	call	copy_1
 
	mov	esi,filename_area
	mov	edi,outname
	call	copy_1
	
	mov	esi,temp_dir_pach
	mov	edi,path
	call	copy_1
	
	call	refresh_editbox_data
 
	call	set_editbox_position_all
 
	call	draw_editbox
@@:
	ret
;*********************************************************************
copy_1:
	xor	eax,eax
	cld	
@@:
	lodsb
	stosb
	test	eax,eax
	jnz	@r
	ret
;*********************************************************************
refresh_editbox_data:
	mov	esi,inname
	mov	edi,innamelen
	call	refresh_data
 
	mov	esi,outname
	mov	edi,outnamelen
	call	refresh_data
 
	mov	esi,path
	mov	edi,pathlen
	call	refresh_data
 
	ret
;*********************************************************************
refresh_data:
	push	esi
	xor	eax,eax
	cld	
@@:
	lodsb
	test	eax,eax
	jnz	@r
	pop	eax
	sub	esi,eax
	dec	esi
	mov	[edi],esi
	ret
;*********************************************************************
set_editbox_position_all:
	mov	ebx,inname
	mov	edi,edit1
	call	set_editbox_position
 
	mov	ebx,outname
	mov	edi,edit2
	call	set_editbox_position
 
	mov	ebx,path
	mov	edi,edit3
	call	set_editbox_position
	ret
;*********************************************************************
key:
	mcall	2
 
	push	dword edit1
	call	[edit_box_key]
 
	push	dword edit2
	call	[edit_box_key]
 
	push	dword edit3
	call	[edit_box_key]
 
	jmp	still
;*********************************************************************
get_full_name:
	push	esi
	mov	esi,path
	mov	ecx,[esi-4]
	mov	edi,fullname
	rep	movsb
	mov	al,'/'
	cmp	[edi-1],al
	jz	@f
 
	stosb
;--------------------------------------
@@:
	pop	esi
	cmp	[esi],al
	jnz	@f
 
	mov	edi,fullname
;--------------------------------------
@@:
	mov	ecx,[esi-4]
	rep	movsb
	xor	eax,eax
	stosb
	ret
;*********************************************************************
write_string:
; in: esi=pointer, ecx=length
	mov	edx,[message_cur_pos]
;--------------------------------------
x1:
	lea	edi,[message_mem+edx]
;--------------------------------------
do_write_char:
	lodsb
	cmp	al,10
	jz	newline
 
	stosb
	inc	edx
	loop	do_write_char
	jmp	x2
;---------------------------------------------------------------------
newline:
	xor	eax,eax
	stosb
	xchg	eax,edx
	push	ecx
	push	eax
	mov	ecx,80
	div	ecx
	pop	eax
	xchg	eax,edx
	sub	edx,eax
	add	edx,ecx
	pop	ecx
	loop	x1
;--------------------------------------
x2:
	mov	[message_cur_pos],edx
; update window
	mcall	13,<6,414>,<54,222>,[color_table+20]
;--------------------------------------
draw_messages:
	mov	ebx,12 shl 16+60
	mov	edi,message_mem
;--------------------------------------
@@:
	push	edi
	xor	eax,eax
	push	80
	pop	ecx
	repnz	scasb
	sub	ecx,79
	neg	ecx
	mov	esi,ecx
	pop	edi
	mcall	4,,[color_table+32],edi
	add	ebx,10
	add	edi,80
	cmp	edi,message_cur_pos
	jb	@b
 
	ret
;*********************************************************************
draw_window:
; start redraw
	mcall	12,1
	
	mcall	48,3,color_table,40
;--------------------------------------
edit_boxes_set_sys_color edit1,editboxes_end,color_table
check_boxes_set_sys_color2 check1,check1_end,color_table
;--------------------------------------
; define window
	xor	eax,eax
	mov	ecx,100 shl 16+306
	mov	edx,[color_table+20]
	add	edx,34000000h
	xor	esi,esi
	xor	edi,edi
	mcall	,<100,436>,,,,caption_str
	mcall	9,procinfo,-1
	
	mov	eax,[procinfo+70] ;status of window
	test	eax,100b
	jne	.end	
;--------------------------------------
; draw lines and frame
	call	draw_lines
; draw buttons
	call	draw_buttons
; draw messages
	call	draw_messages
; draw editbox's
	mov	eax,[procinfo+42]
	sub	eax,65+72+10
	mov	[edit1.width],eax
	mov	[edit2.width],eax
	mov	[edit3.width],eax
 
	call	draw_editbox
; end redraw
.end:
	mcall	12,2
	ret
;*********************************************************************
draw_editbox:
	push	dword edit1
	call	[edit_box_draw]
	
	push	dword edit2
	call	[edit_box_draw]
	
	push	dword edit3
	call	[edit_box_draw]
	
	push	dword check1
	call	[check_box_draw]
	ret
;*********************************************************************
set_editbox_position:
	mov	esi,ebx
	cld
@@:
	lodsb
	test	al,al
	jne	@r
	sub	esi,ebx
	mov	eax,esi
	dec	eax
	mov	[edi+48], eax  ;ed_size
	mov	[edi+52], eax  ;ed_pos
	ret
;*********************************************************************
draw_lines:
	mov	ecx,2 shl 16+12*3
; draw frame for messages data
	push	ecx
	add	ecx,50 shl 16+16
	mcall	38,<3,423>,,[color_table+36]
	add	ecx,224*(1 shl 16+1)
	mcall
	sub	cx,224
	mcall	,<3,3>
	mcall	,<423,423>
	pop	ecx
	ret
;*********************************************************************
draw_buttons:
; define compress button
	mov	cx,18
	mcall	8,<351,72>,<1, 17>,2,[color_table+24]
; uncompress button
	add	ecx,18 shl 16
	inc	edx
	mcall
	add	ecx,-12h+0Ah+140000h
; question button
	push	esi
	mov	dl,7
	mcall	,<414,9>
	shr	ecx,16
	lea	ebx,[ecx+1A10002h]
	mcall	4,,[color_table+28],aQuestion,1
	pop	esi
; define settings buttons
	mov	ecx,16*2+2
	shl	ecx,16
	mov	cx,13
	mcall	8,<6,50>,,4
; text on settings buttons
	mov	ebx,9 shl 16+5
	mov	al,4
	mov	ecx,[color_table+32]
	push	buttons1names
	pop	edx
	push	8
	pop	esi
;--------------------------------------
	mcall
	add	edx,esi
	add	ebx,16
	mcall
	add	edx,esi
	add	ebx,16
	mov	ecx,[color_table+28]
	mcall
; text on compress and decompress buttons
	or	ecx,80000000h
	mcall	,<364,6>,,aCompress
	mcall	,<359,24>,,aDecompress
	ret
;*********************************************************************
;Pack procedures
include 'packpoc.inc'
;---------------------------------------------------------------------
;UnPack procedures
include 'upacproc.inc'
;---------------------------------------------------------------------
;lzma_compress:
include 'lzma_compress.inc'
;---------------------------------------------------------------------
;lzma_set_dict_size:
include 'lzma_set_dict_size.inc'
;---------------------------------------------------------------------
;lzma_decompress:
include	'lzma_decompress.inc'
;---------------------------------------------------------------------
;kerpack code:
include	'kerpack.inc'
;---------------------------------------------------------------------
;initialized variables and constants
include 'const_var.inc'
;---------------------------------------------------------------------
IM_END:
;---------------------------------------------------------------------
;uninitialized data
include 'data.inc'
;---------------------------------------------------------------------
I_END:
;---------------------------------------------------------------------

Rev 3177	Rev 3178
1	; kpack = Kolibri Packer	1	; kpack = Kolibri Packer
2	;---------------------------------------------------------------------	2	;---------------------------------------------------------------------
3	; version: 0.20	3	; version: 0.20
4	; last update: 08/18/2011	4	; last update: 08/18/2011
5	; changed by: Marat Zakiyanov aka Mario79, aka Mario	5	; changed by: Marat Zakiyanov aka Mario79, aka Mario
6	; changes: Checking for "rolled up" window	6	; changes: Checking for "rolled up" window
7	;---------------------------------------------------------------------	7	;---------------------------------------------------------------------
8	; version: 0.20	8	; version: 0.20
9	; last update: 07/12/2010	9	; last update: 07/12/2010
10	; changed by: Marat Zakiyanov aka Mario79, aka Mario	10	; changed by: Marat Zakiyanov aka Mario79, aka Mario
11	; changes: Added code for packing the kernel.mnt	11	; changes: Added code for packing the kernel.mnt
12	;---------------------------------------------------------------------	12	;---------------------------------------------------------------------
13	; version: 0.15	13	; version: 0.15
14	; last update: 06/11/2010	14	; last update: 06/11/2010
15	; changed by: Marat Zakiyanov aka Mario79, aka Mario	15	; changed by: Marat Zakiyanov aka Mario79, aka Mario
16	; changes: 1) Window Y=4, B=1	16	; changes: 1) Window Y=4, B=1
17	; 2) Refresh lenght of data after Editbox editing	17	; 2) Refresh lenght of data after Editbox editing
18	; 3) Changed format of start parameter -	18	; 3) Changed format of start parameter -
19	; longer path (total length 255 + zero).	19	; longer path (total length 255 + zero).
20	;---------------------------------------------------------------------	20	;---------------------------------------------------------------------
21	; version: 0.14	21	; version: 0.14
22	; last update: 03/11/2010	22	; last update: 03/11/2010
23	; changed by: Marat Zakiyanov aka Mario79, aka Mario	23	; changed by: Marat Zakiyanov aka Mario79, aka Mario
24	; changes: select path with OpenDialog,	24	; changes: select path with OpenDialog,
25	; using Box_Lib and Proc_Lib	25	; using Box_Lib and Proc_Lib
26	;---------------------------------------------------------------------	26	;---------------------------------------------------------------------
27	; Kpack - Kolibri Packer	27	; Kpack - Kolibri Packer
28	; Kolibri version	28	; Kolibri version
29	; Written by diamond in 2006, 2007 specially for KolibriOS	29	; Written by diamond in 2006, 2007 specially for KolibriOS
30	;	30	;
31	; Disassemled and corrected in 2010 specially for FASM	31	; Disassemled and corrected in 2010 specially for FASM
32	; by Marat Zakiyanov aka Mario79, aka Mario	32	; by Marat Zakiyanov aka Mario79, aka Mario
33	;	33	;
34	; Uses LZMA compression library by Igor Pavlov	34	; Uses LZMA compression library by Igor Pavlov
35	; (for more information on LZMA and 7-Zip visit http://www.7-zip.org)	35	; (for more information on LZMA and 7-Zip visit http://www.7-zip.org)
36	; (plain-C packer and ASM unpacker are ported by diamond)	36	; (plain-C packer and ASM unpacker are ported by diamond)
37	;---------------------------------------------------------------------	37	;---------------------------------------------------------------------
38	use32	38	use32
39	org 0	39	org 0
40		40
41	db 'MENUET01'	41	db 'MENUET01'
42	dd 1	42	dd 1
43	dd START	43	dd START
44	dd IM_END	44	dd IM_END
45	dd I_END	45	dd I_END
46	dd stacktop	46	dd stacktop
47	dd params	47	dd params
48	dd cur_dir_path	48	dd cur_dir_path
49	;---------------------------------------------------------------------	49	;---------------------------------------------------------------------
50	include '../../../config.inc' ;for nightbuild	50	include '../../../config.inc' ;for nightbuild
51	include '../../../macros.inc'	51	include '../../../macros.inc'
52	include '../../../develop/libraries/box_lib/trunk/box_lib.mac'	52	include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
53	include '../../../develop/libraries/box_lib/load_lib.mac'	53	include '../../../develop/libraries/box_lib/load_lib.mac'
54	@use_library	54	@use_library
55		55
56	START:	56	START:
57	mcall 68,11	57	mcall 68,11
58	mcall 40,100111b	58	mcall 40,100111b
59		59
60	load_libraries l_libs_start,load_lib_end	60	load_libraries l_libs_start,load_lib_end
61	cmp eax,-1	61	cmp eax,-1
62	je exit	62	je exit
-		63
63		64	init_checkboxes2 check1,check1_end
64	push check1	65	;push check1
65	call [init_checkbox]	66	;call [init_checkbox]
66		67
67	call clear_messages	68	call clear_messages
68	; set default path = /RD/1/	69	; set default path = /RD/1/
69	mov esi,defpath	70	mov esi,defpath
70	mov edi,path	71	mov edi,path
71	mov [edi-4],dword 6	72	mov [edi-4],dword 6
72	movsw	73	movsw
73	movsd	74	movsd
74	; get system window info	75	; get system window info
75	xor eax,eax	76	xor eax,eax
76	cmp [params],al	77	cmp [params],al
77	je default	78	je default
78		79
79	mov edi,path	80	mov edi,path
80	mov esi,params	81	mov esi,params
81	call copy_1	82	call copy_1
82		83
83	sub esi,2	84	sub esi,2
84	std	85	std
85	@@:	86	@@:
86	lodsb	87	lodsb
87	dec edi	88	dec edi
88	cmp al,byte '/'	89	cmp al,byte '/'
89	jnz @r	90	jnz @r
90		91
91	mov [edi-1],byte 0	92	mov [edi-1],byte 0
92	mov edi,inname	93	mov edi,inname
93	add esi,2	94	add esi,2
94	push esi	95	push esi
95	call copy_1	96	call copy_1
96	pop esi	97	pop esi
97	mov edi,outname	98	mov edi,outname
98	call copy_1	99	call copy_1
99	;---------------------------------------------------------------------	100	;---------------------------------------------------------------------
100	call set_editbox_position_all	101	call set_editbox_position_all
101	;---------------------------------------------------------------------	102	;---------------------------------------------------------------------
102	call draw_window	103	call draw_window
103	call pack	104	call pack
104	jmp OD_initialization	105	jmp OD_initialization
105	;*********************************************************************	106	;*********************************************************************
106	default:	107	default:
107	mov esi,definoutname	108	mov esi,definoutname
108	mov edi,esi	109	mov edi,esi
109	xor ecx,ecx	110	xor ecx,ecx
110	xor eax,eax	111	xor eax,eax
111	dec ecx	112	dec ecx
112	repnz scasb	113	repnz scasb
113	not ecx	114	not ecx
114	dec ecx	115	dec ecx
115	mov [innamelen],ecx	116	mov [innamelen],ecx
116	push ecx	117	push ecx
117	push esi	118	push esi
118	mov edi,inname	119	mov edi,inname
119	rep movsb	120	rep movsb
120	pop esi	121	pop esi
121	pop ecx	122	pop ecx
122	mov [outnamelen],ecx	123	mov [outnamelen],ecx
123	mov edi,outname	124	mov edi,outname
124	rep movsb	125	rep movsb
125	;---------------------------------------------------------------------	126	;---------------------------------------------------------------------
126	call set_editbox_position_all	127	call set_editbox_position_all
127	;---------------------------------------------------------------------	128	;---------------------------------------------------------------------
128	OD_initialization:	129	OD_initialization:
129	;OpenDialog initialisation	130	;OpenDialog initialisation
130	push dword OpenDialog_data	131	push dword OpenDialog_data
131	call [OpenDialog_Init]	132	call [OpenDialog_Init]
132	;---------------------------------------------------------------------	133	;---------------------------------------------------------------------
133	red:	134	red:
134	call draw_window	135	call draw_window
135	;--------------------------------------	136	;--------------------------------------
136	still:	137	still:
137	mcall 10	138	mcall 10
138	dec eax	139	dec eax
139	jz red	140	jz red
140		141
141	dec eax	142	dec eax
142	jz key	143	jz key
143		144
144	dec eax	145	dec eax
145	jz button	146	jz button
146		147
147	push dword edit1	148	push dword edit1
148	call [edit_box_mouse]	149	call [edit_box_mouse]
149		150
150	push dword edit2	151	push dword edit2
151	call [edit_box_mouse]	152	call [edit_box_mouse]
152		153
153	push dword edit3	154	push dword edit3
154	call [edit_box_mouse]	155	call [edit_box_mouse]
155		156
156	push dword check1	157	push dword check1
157	call [check_box_mouse]	158	call [check_box_mouse]
158		159
159	jmp still	160	jmp still
160	;*********************************************************************	161	;*********************************************************************
161	tell_compress_mess:	162	tell_compress_mess:
162	push compressing_len	163	push compressing_len
163	pop ecx	164	pop ecx
164	mov esi,compressing_str	165	mov esi,compressing_str
165	call write_string	166	call write_string
166	ret	167	ret
167	;*********************************************************************	168	;*********************************************************************
168	clear_mess_and_displogo:	169	clear_mess_and_displogo:
169	call refresh_editbox_data	170	call refresh_editbox_data
170	; clear messages	171	; clear messages
171	call clear_messages	172	call clear_messages
172	; display logo	173	; display logo
173	mov esi,info_str	174	mov esi,info_str
174	push info_len	175	push info_len
175	pop ecx	176	pop ecx
176	call write_string	177	call write_string
177	ret	178	ret
178	;*********************************************************************	179	;*********************************************************************
179	clear_messages:	180	clear_messages:
180	xor eax,eax	181	xor eax,eax
181	mov ecx,80*20/4+1	182	mov ecx,80*20/4+1
182	mov edi,message_mem	183	mov edi,message_mem
183	rep stosd	184	rep stosd
184	ret	185	ret
185	;*********************************************************************	186	;*********************************************************************
186	exit:	187	exit:
187	xor eax,eax	188	xor eax,eax
188	dec eax	189	dec eax
189	mcall	190	mcall
190	;*********************************************************************	191	;*********************************************************************
191	button:	192	button:
192	; button pressed	193	; button pressed
193	mcall 17	194	mcall 17
194	xchg al,ah	195	xchg al,ah
195	cmp al,7	196	cmp al,7
196	jz but7	197	jz but7
197		198
198	dec eax	199	dec eax
199	jz exit	200	jz exit
200		201
201	dec eax	202	dec eax
202	jnz nopack	203	jnz nopack
203		204
204	mov eax,[check1+32]	-
205	test eax,10b	205	bt dword[check1.flags],1
206	jnz @f	206	jc @f
207		207
208	call pack	208	call pack
209	jmp still	209	jmp still
210	;---------------------------------------------------------------------	210	;---------------------------------------------------------------------
211	@@:	211	@@:
212	call kerpack	212	call kerpack
213	jmp still	213	jmp still
214	;---------------------------------------------------------------------	214	;---------------------------------------------------------------------
215	nopack:	215	nopack:
216	dec eax	216	dec eax
217	jnz nounpack	217	jnz nounpack
218		218
219	call unpack	219	call unpack
220	jmp still	220	jmp still
221	;---------------------------------------------------------------------	221	;---------------------------------------------------------------------
222	but7:	222	but7:
223	call clear_messages	223	call clear_messages
224	; display logo	224	; display logo
225	mov esi,info_str	225	mov esi,info_str
226	push info_len	226	push info_len
227	pop ecx	227	pop ecx
228	call write_string	228	call write_string
229	; display info	229	; display info
230	mov esi,usage_str	230	mov esi,usage_str
231	mov ecx,usage_len	231	mov ecx,usage_len
232	call write_string	232	call write_string
233	jmp still	233	jmp still
234	;---------------------------------------------------------------------	234	;---------------------------------------------------------------------
235	nounpack:	235	nounpack:
236	dec eax	236	dec eax
237	jnz still	237	jnz still
238		238
239	call OpenDialog_start	239	call OpenDialog_start
240	jmp still	240	jmp still
241	;*********************************************************************	241	;*********************************************************************
242	OpenDialog_start:	242	OpenDialog_start:
243	mov esi,path	243	mov esi,path
244	mov edi,temp_dir_pach	244	mov edi,temp_dir_pach
245	call copy_1	245	call copy_1
246		246
247	push dword OpenDialog_data	247	push dword OpenDialog_data
248	call [OpenDialog_Start]	248	call [OpenDialog_Start]
249	cmp [OpenDialog_data.status],1	249	cmp [OpenDialog_data.status],1
250	jne @f	250	jne @f
251		251
252	mov esi,filename_area	252	mov esi,filename_area
253	mov edi,inname	253	mov edi,inname
254	call copy_1	254	call copy_1
255		255
256	mov esi,filename_area	256	mov esi,filename_area
257	mov edi,outname	257	mov edi,outname
258	call copy_1	258	call copy_1
259		259
260	mov esi,temp_dir_pach	260	mov esi,temp_dir_pach
261	mov edi,path	261	mov edi,path
262	call copy_1	262	call copy_1
263		263
264	call refresh_editbox_data	264	call refresh_editbox_data
265		265
266	call set_editbox_position_all	266	call set_editbox_position_all
267		267
268	call draw_editbox	268	call draw_editbox
269	@@:	269	@@:
270	ret	270	ret
271	;*********************************************************************	271	;*********************************************************************
272	copy_1:	272	copy_1:
273	xor eax,eax	273	xor eax,eax
274	cld	274	cld
275	@@:	275	@@:
276	lodsb	276	lodsb
277	stosb	277	stosb
278	test eax,eax	278	test eax,eax
279	jnz @r	279	jnz @r
280	ret	280	ret
281	;*********************************************************************	281	;*********************************************************************
282	refresh_editbox_data:	282	refresh_editbox_data:
283	mov esi,inname	283	mov esi,inname
284	mov edi,innamelen	284	mov edi,innamelen
285	call refresh_data	285	call refresh_data
286		286
287	mov esi,outname	287	mov esi,outname
288	mov edi,outnamelen	288	mov edi,outnamelen
289	call refresh_data	289	call refresh_data
290		290
291	mov esi,path	291	mov esi,path
292	mov edi,pathlen	292	mov edi,pathlen
293	call refresh_data	293	call refresh_data
294		294
295	ret	295	ret
296	;*********************************************************************	296	;*********************************************************************
297	refresh_data:	297	refresh_data:
298	push esi	298	push esi
299	xor eax,eax	299	xor eax,eax
300	cld	300	cld
301	@@:	301	@@:
302	lodsb	302	lodsb
303	test eax,eax	303	test eax,eax
304	jnz @r	304	jnz @r
305	pop eax	305	pop eax
306	sub esi,eax	306	sub esi,eax
307	dec esi	307	dec esi
308	mov [edi],esi	308	mov [edi],esi
309	ret	309	ret
310	;*********************************************************************	310	;*********************************************************************
311	set_editbox_position_all:	311	set_editbox_position_all:
312	mov ebx,inname	312	mov ebx,inname
313	mov edi,edit1	313	mov edi,edit1
314	call set_editbox_position	314	call set_editbox_position
315		315
316	mov ebx,outname	316	mov ebx,outname
317	mov edi,edit2	317	mov edi,edit2
318	call set_editbox_position	318	call set_editbox_position
319		319
320	mov ebx,path	320	mov ebx,path
321	mov edi,edit3	321	mov edi,edit3
322	call set_editbox_position	322	call set_editbox_position
323	ret	323	ret
324	;*********************************************************************	324	;*********************************************************************
325	key:	325	key:
326	mcall 2	326	mcall 2
327		327
328	push dword edit1	328	push dword edit1
329	call [edit_box_key]	329	call [edit_box_key]
330		330
331	push dword edit2	331	push dword edit2
332	call [edit_box_key]	332	call [edit_box_key]
333		333
334	push dword edit3	334	push dword edit3
335	call [edit_box_key]	335	call [edit_box_key]
336		336
337	jmp still	337	jmp still
338	;*********************************************************************	338	;*********************************************************************
339	get_full_name:	339	get_full_name:
340	push esi	340	push esi
341	mov esi,path	341	mov esi,path
342	mov ecx,[esi-4]	342	mov ecx,[esi-4]
343	mov edi,fullname	343	mov edi,fullname
344	rep movsb	344	rep movsb
345	mov al,'/'	345	mov al,'/'
346	cmp [edi-1],al	346	cmp [edi-1],al
347	jz @f	347	jz @f
348		348
349	stosb	349	stosb
350	;--------------------------------------	350	;--------------------------------------
351	@@:	351	@@:
352	pop esi	352	pop esi
353	cmp [esi],al	353	cmp [esi],al
354	jnz @f	354	jnz @f
355		355
356	mov edi,fullname	356	mov edi,fullname
357	;--------------------------------------	357	;--------------------------------------
358	@@:	358	@@:
359	mov ecx,[esi-4]	359	mov ecx,[esi-4]
360	rep movsb	360	rep movsb
361	xor eax,eax	361	xor eax,eax
362	stosb	362	stosb
363	ret	363	ret
364	;*********************************************************************	364	;*********************************************************************
365	write_string:	365	write_string:
366	; in: esi=pointer, ecx=length	366	; in: esi=pointer, ecx=length
367	mov edx,[message_cur_pos]	367	mov edx,[message_cur_pos]
368	;--------------------------------------	368	;--------------------------------------
369	x1:	369	x1:
370	lea edi,[message_mem+edx]	370	lea edi,[message_mem+edx]
371	;--------------------------------------	371	;--------------------------------------
372	do_write_char:	372	do_write_char:
373	lodsb	373	lodsb
374	cmp al,10	374	cmp al,10
375	jz newline	375	jz newline
376		376
377	stosb	377	stosb
378	inc edx	378	inc edx
379	loop do_write_char	379	loop do_write_char
380	jmp x2	380	jmp x2
381	;---------------------------------------------------------------------	381	;---------------------------------------------------------------------
382	newline:	382	newline:
383	xor eax,eax	383	xor eax,eax
384	stosb	384	stosb
385	xchg eax,edx	385	xchg eax,edx
386	push ecx	386	push ecx
387	push eax	387	push eax
388	mov ecx,80	388	mov ecx,80
389	div ecx	389	div ecx
390	pop eax	390	pop eax
391	xchg eax,edx	391	xchg eax,edx
392	sub edx,eax	392	sub edx,eax
393	add edx,ecx	393	add edx,ecx
394	pop ecx	394	pop ecx
395	loop x1	395	loop x1
396	;--------------------------------------	396	;--------------------------------------
397	x2:	397	x2:
398	mov [message_cur_pos],edx	398	mov [message_cur_pos],edx
399	; update window	399	; update window
400	mcall 13,<6,414>,<54,222>,[color_table+20]	400	mcall 13,<6,414>,<54,222>,[color_table+20]
401	;--------------------------------------	401	;--------------------------------------
402	draw_messages:	402	draw_messages:
403	mov ebx,12 shl 16+60	403	mov ebx,12 shl 16+60
404	mov edi,message_mem	404	mov edi,message_mem
405	;--------------------------------------	405	;--------------------------------------
406	@@:	406	@@:
407	push edi	407	push edi
408	xor eax,eax	408	xor eax,eax
409	push 80	409	push 80
410	pop ecx	410	pop ecx
411	repnz scasb	411	repnz scasb
412	sub ecx,79	412	sub ecx,79
413	neg ecx	413	neg ecx
414	mov esi,ecx	414	mov esi,ecx
415	pop edi	415	pop edi
416	mcall 4,,[color_table+32],edi	416	mcall 4,,[color_table+32],edi
417	add ebx,10	417	add ebx,10
418	add edi,80	418	add edi,80
419	cmp edi,message_cur_pos	419	cmp edi,message_cur_pos
420	jb @b	420	jb @b
421		421
422	ret	422	ret
423	;*********************************************************************	423	;*********************************************************************
424	draw_window:	424	draw_window:
425	; start redraw	425	; start redraw
426	mcall 12,1	426	mcall 12,1
427		427
428	mcall 48,3,color_table,40	428	mcall 48,3,color_table,40
429	;--------------------------------------	429	;--------------------------------------
430	edit_boxes_set_sys_color edit1,editboxes_end,color_table	430	edit_boxes_set_sys_color edit1,editboxes_end,color_table
431	check_boxes_set_sys_color2 check1,check1_end,color_table	431	check_boxes_set_sys_color2 check1,check1_end,color_table
432	;--------------------------------------	432	;--------------------------------------
433	; define window	433	; define window
434	xor eax,eax	434	xor eax,eax
435	mov ecx,100 shl 16+306	435	mov ecx,100 shl 16+306
436	mov edx,[color_table+20]	436	mov edx,[color_table+20]
437	add edx,34000000h	437	add edx,34000000h
438	xor esi,esi	438	xor esi,esi
439	xor edi,edi	439	xor edi,edi
440	mcall ,<100,436>,,,,caption_str	440	mcall ,<100,436>,,,,caption_str
441	mcall 9,procinfo,-1	441	mcall 9,procinfo,-1
442		442
443	mov eax,[procinfo+70] ;status of window	443	mov eax,[procinfo+70] ;status of window
444	test eax,100b	444	test eax,100b
445	jne .end	445	jne .end
446	;--------------------------------------	446	;--------------------------------------
447	; draw lines and frame	447	; draw lines and frame
448	call draw_lines	448	call draw_lines
449	; draw buttons	449	; draw buttons
450	call draw_buttons	450	call draw_buttons
451	; draw messages	451	; draw messages
452	call draw_messages	452	call draw_messages
453	; draw editbox's	453	; draw editbox's
454	mov eax,[procinfo+42]	454	mov eax,[procinfo+42]
455	sub eax,65+72+10	455	sub eax,65+72+10
456	mov [edit1.width],eax	456	mov [edit1.width],eax
457	mov [edit2.width],eax	457	mov [edit2.width],eax
458	mov [edit3.width],eax	458	mov [edit3.width],eax
459		459
460	call draw_editbox	460	call draw_editbox
461	; end redraw	461	; end redraw
462	.end:	462	.end:
463	mcall 12,2	463	mcall 12,2
464	ret	464	ret
465	;*********************************************************************	465	;*********************************************************************
466	draw_editbox:	466	draw_editbox:
467	push dword edit1	467	push dword edit1
468	call [edit_box_draw]	468	call [edit_box_draw]
469		469
470	push dword edit2	470	push dword edit2
471	call [edit_box_draw]	471	call [edit_box_draw]
472		472
473	push dword edit3	473	push dword edit3
474	call [edit_box_draw]	474	call [edit_box_draw]
475		475
476	push dword check1	476	push dword check1
477	call [check_box_draw]	477	call [check_box_draw]
478	ret	478	ret
479	;*********************************************************************	479	;*********************************************************************
480	set_editbox_position:	480	set_editbox_position:
481	mov esi,ebx	481	mov esi,ebx
482	cld	482	cld
483	@@:	483	@@:
484	lodsb	484	lodsb
485	test al,al	485	test al,al
486	jne @r	486	jne @r
487	sub esi,ebx	487	sub esi,ebx
488	mov eax,esi	488	mov eax,esi
489	dec eax	489	dec eax
490	mov [edi+48], eax ;ed_size	490	mov [edi+48], eax ;ed_size
491	mov [edi+52], eax ;ed_pos	491	mov [edi+52], eax ;ed_pos
492	ret	492	ret
493	;*********************************************************************	493	;*********************************************************************
494	draw_lines:	494	draw_lines:
495	mov ecx,2 shl 16+12*3	495	mov ecx,2 shl 16+12*3
496	; draw frame for messages data	496	; draw frame for messages data
497	push ecx	497	push ecx
498	add ecx,50 shl 16+16	498	add ecx,50 shl 16+16
499	mcall 38,<3,423>,,[color_table+36]	499	mcall 38,<3,423>,,[color_table+36]

Subversion Repositories Kolibri OS

(root)/programs/other/kpack/trunk/kpack.asm @ 3946 – Rev 3177 → 3178