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
 
	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
 
	mov	eax,[check1+32]
	test	eax,10b
	jnz	@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_color 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 2273	Rev 2673
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	call clear_messages	64	call clear_messages
65	; set default path = /RD/1/	65	; set default path = /RD/1/
66	mov esi,defpath	66	mov esi,defpath
67	mov edi,path	67	mov edi,path
68	mov [edi-4],dword 6	68	mov [edi-4],dword 6
69	movsw	69	movsw
70	movsd	70	movsd
71	; get system window info	71	; get system window info
72	mcall 48,3,color_table,40	-
73	;--------------------------------------	-
74	edit_boxes_set_sys_color edit1,editboxes_end,color_table	-
75	check_boxes_set_sys_color check1,check1_end,color_table	-
76	;--------------------------------------	-
77	xor eax,eax	72	xor eax,eax
78	cmp [params],al	73	cmp [params],al
79	je default	74	je default
80		75
81	mov edi,path	76	mov edi,path
82	mov esi,params	77	mov esi,params
83	call copy_1	78	call copy_1
84		79
85	sub esi,2	80	sub esi,2
86	std	81	std
87	@@:	82	@@:
88	lodsb	83	lodsb
89	dec edi	84	dec edi
90	cmp al,byte '/'	85	cmp al,byte '/'
91	jnz @r	86	jnz @r
92		87
93	mov [edi-1],byte 0	88	mov [edi-1],byte 0
94	mov edi,inname	89	mov edi,inname
95	add esi,2	90	add esi,2
96	push esi	91	push esi
97	call copy_1	92	call copy_1
98	pop esi	93	pop esi
99	mov edi,outname	94	mov edi,outname
100	call copy_1	95	call copy_1
101	;---------------------------------------------------------------------	96	;---------------------------------------------------------------------
102	call set_editbox_position_all	97	call set_editbox_position_all
103	;---------------------------------------------------------------------	98	;---------------------------------------------------------------------
104	call draw_window	99	call draw_window
105	call pack	100	call pack
106	jmp OD_initialization	101	jmp OD_initialization
107	;*********************************************************************	102	;*********************************************************************
108	default:	103	default:
109	mov esi,definoutname	104	mov esi,definoutname
110	mov edi,esi	105	mov edi,esi
111	xor ecx,ecx	106	xor ecx,ecx
112	xor eax,eax	107	xor eax,eax
113	dec ecx	108	dec ecx
114	repnz scasb	109	repnz scasb
115	not ecx	110	not ecx
116	dec ecx	111	dec ecx
117	mov [innamelen],ecx	112	mov [innamelen],ecx
118	push ecx	113	push ecx
119	push esi	114	push esi
120	mov edi,inname	115	mov edi,inname
121	rep movsb	116	rep movsb
122	pop esi	117	pop esi
123	pop ecx	118	pop ecx
124	mov [outnamelen],ecx	119	mov [outnamelen],ecx
125	mov edi,outname	120	mov edi,outname
126	rep movsb	121	rep movsb
127	;---------------------------------------------------------------------	122	;---------------------------------------------------------------------
128	call set_editbox_position_all	123	call set_editbox_position_all
129	;---------------------------------------------------------------------	124	;---------------------------------------------------------------------
130	OD_initialization:	125	OD_initialization:
131	;OpenDialog initialisation	126	;OpenDialog initialisation
132	push dword OpenDialog_data	127	push dword OpenDialog_data
133	call [OpenDialog_Init]	128	call [OpenDialog_Init]
134	;---------------------------------------------------------------------	129	;---------------------------------------------------------------------
135	red:	130	red:
136	call draw_window	131	call draw_window
137	;--------------------------------------	132	;--------------------------------------
138	still:	133	still:
139	mcall 10	134	mcall 10
140	dec eax	135	dec eax
141	jz red	136	jz red
142		137
143	dec eax	138	dec eax
144	jz key	139	jz key
145		140
146	dec eax	141	dec eax
147	jz button	142	jz button
148		143
149	push dword edit1	144	push dword edit1
150	call [edit_box_mouse]	145	call [edit_box_mouse]
151		146
152	push dword edit2	147	push dword edit2
153	call [edit_box_mouse]	148	call [edit_box_mouse]
154		149
155	push dword edit3	150	push dword edit3
156	call [edit_box_mouse]	151	call [edit_box_mouse]
157		152
158	push dword check1	153	push dword check1
159	call [check_box_mouse]	154	call [check_box_mouse]
160		155
161	jmp still	156	jmp still
162	;*********************************************************************	157	;*********************************************************************
163	tell_compress_mess:	158	tell_compress_mess:
164	push compressing_len	159	push compressing_len
165	pop ecx	160	pop ecx
166	mov esi,compressing_str	161	mov esi,compressing_str
167	call write_string	162	call write_string
168	ret	163	ret
169	;*********************************************************************	164	;*********************************************************************
170	clear_mess_and_displogo:	165	clear_mess_and_displogo:
171	call refresh_editbox_data	166	call refresh_editbox_data
172	; clear messages	167	; clear messages
173	call clear_messages	168	call clear_messages
174	; display logo	169	; display logo
175	mov esi,info_str	170	mov esi,info_str
176	push info_len	171	push info_len
177	pop ecx	172	pop ecx
178	call write_string	173	call write_string
179	ret	174	ret
180	;*********************************************************************	175	;*********************************************************************
181	clear_messages:	176	clear_messages:
182	xor eax,eax	177	xor eax,eax
183	mov ecx,80*20/4+1	178	mov ecx,80*20/4+1
184	mov edi,message_mem	179	mov edi,message_mem
185	rep stosd	180	rep stosd
186	ret	181	ret
187	;*********************************************************************	182	;*********************************************************************
188	exit:	183	exit:
189	xor eax,eax	184	xor eax,eax
190	dec eax	185	dec eax
191	mcall	186	mcall
192	;*********************************************************************	187	;*********************************************************************
193	button:	188	button:
194	; button pressed	189	; button pressed
195	mcall 17	190	mcall 17
196	xchg al,ah	191	xchg al,ah
197	cmp al,7	192	cmp al,7
198	jz but7	193	jz but7
199		194
200	dec eax	195	dec eax
201	jz exit	196	jz exit
202		197
203	dec eax	198	dec eax
204	jnz nopack	199	jnz nopack
205		200
206	mov eax,[check1+32]	201	mov eax,[check1+32]
207	test eax,10b	202	test eax,10b
208	jnz @f	203	jnz @f
209		204
210	call pack	205	call pack
211	jmp still	206	jmp still
212	;---------------------------------------------------------------------	207	;---------------------------------------------------------------------
213	@@:	208	@@:
214	call kerpack	209	call kerpack
215	jmp still	210	jmp still
216	;---------------------------------------------------------------------	211	;---------------------------------------------------------------------
217	nopack:	212	nopack:
218	dec eax	213	dec eax
219	jnz nounpack	214	jnz nounpack
220		215
221	call unpack	216	call unpack
222	jmp still	217	jmp still
223	;---------------------------------------------------------------------	218	;---------------------------------------------------------------------
224	but7:	219	but7:
225	call clear_messages	220	call clear_messages
226	; display logo	221	; display logo
227	mov esi,info_str	222	mov esi,info_str
228	push info_len	223	push info_len
229	pop ecx	224	pop ecx
230	call write_string	225	call write_string
231	; display info	226	; display info
232	mov esi,usage_str	227	mov esi,usage_str
233	mov ecx,usage_len	228	mov ecx,usage_len
234	call write_string	229	call write_string
235	jmp still	230	jmp still
236	;---------------------------------------------------------------------	231	;---------------------------------------------------------------------
237	nounpack:	232	nounpack:
238	dec eax	233	dec eax
239	jnz still	234	jnz still
240		235
241	call OpenDialog_start	236	call OpenDialog_start
242	jmp still	237	jmp still
243	;*********************************************************************	238	;*********************************************************************
244	OpenDialog_start:	239	OpenDialog_start:
245	mov esi,path	240	mov esi,path
246	mov edi,temp_dir_pach	241	mov edi,temp_dir_pach
247	call copy_1	242	call copy_1
248		243
249	push dword OpenDialog_data	244	push dword OpenDialog_data
250	call [OpenDialog_Start]	245	call [OpenDialog_Start]
251	cmp [OpenDialog_data.status],1	246	cmp [OpenDialog_data.status],1
252	jne @f	247	jne @f
253		248
254	mov esi,filename_area	249	mov esi,filename_area
255	mov edi,inname	250	mov edi,inname
256	call copy_1	251	call copy_1
257		252
258	mov esi,filename_area	253	mov esi,filename_area
259	mov edi,outname	254	mov edi,outname
260	call copy_1	255	call copy_1
261		256
262	mov esi,temp_dir_pach	257	mov esi,temp_dir_pach
263	mov edi,path	258	mov edi,path
264	call copy_1	259	call copy_1
265		260
266	call refresh_editbox_data	261	call refresh_editbox_data
267		262
268	call set_editbox_position_all	263	call set_editbox_position_all
269		264
270	call draw_editbox	265	call draw_editbox
271	@@:	266	@@:
272	ret	267	ret
273	;*********************************************************************	268	;*********************************************************************
274	copy_1:	269	copy_1:
275	xor eax,eax	270	xor eax,eax
276	cld	271	cld
277	@@:	272	@@:
278	lodsb	273	lodsb
279	stosb	274	stosb
280	test eax,eax	275	test eax,eax
281	jnz @r	276	jnz @r
282	ret	277	ret
283	;*********************************************************************	278	;*********************************************************************
284	refresh_editbox_data:	279	refresh_editbox_data:
285	mov esi,inname	280	mov esi,inname
286	mov edi,innamelen	281	mov edi,innamelen
287	call refresh_data	282	call refresh_data
288		283
289	mov esi,outname	284	mov esi,outname
290	mov edi,outnamelen	285	mov edi,outnamelen
291	call refresh_data	286	call refresh_data
292		287
293	mov esi,path	288	mov esi,path
294	mov edi,pathlen	289	mov edi,pathlen
295	call refresh_data	290	call refresh_data
296		291
297	ret	292	ret
298	;*********************************************************************	293	;*********************************************************************
299	refresh_data:	294	refresh_data:
300	push esi	295	push esi
301	xor eax,eax	296	xor eax,eax
302	cld	297	cld
303	@@:	298	@@:
304	lodsb	299	lodsb
305	test eax,eax	300	test eax,eax
306	jnz @r	301	jnz @r
307	pop eax	302	pop eax
308	sub esi,eax	303	sub esi,eax
309	dec esi	304	dec esi
310	mov [edi],esi	305	mov [edi],esi
311	ret	306	ret
312	;*********************************************************************	307	;*********************************************************************
313	set_editbox_position_all:	308	set_editbox_position_all:
314	mov ebx,inname	309	mov ebx,inname
315	mov edi,edit1	310	mov edi,edit1
316	call set_editbox_position	311	call set_editbox_position
317		312
318	mov ebx,outname	313	mov ebx,outname
319	mov edi,edit2	314	mov edi,edit2
320	call set_editbox_position	315	call set_editbox_position
321		316
322	mov ebx,path	317	mov ebx,path
323	mov edi,edit3	318	mov edi,edit3
324	call set_editbox_position	319	call set_editbox_position
325	ret	320	ret
326	;*********************************************************************	321	;*********************************************************************
327	key:	322	key:
328	mcall 2	323	mcall 2
329		324
330	push dword edit1	325	push dword edit1
331	call [edit_box_key]	326	call [edit_box_key]
332		327
333	push dword edit2	328	push dword edit2
334	call [edit_box_key]	329	call [edit_box_key]
335		330
336	push dword edit3	331	push dword edit3
337	call [edit_box_key]	332	call [edit_box_key]
338		333
339	jmp still	334	jmp still
340	;*********************************************************************	335	;*********************************************************************
341	get_full_name:	336	get_full_name:
342	push esi	337	push esi
343	mov esi,path	338	mov esi,path
344	mov ecx,[esi-4]	339	mov ecx,[esi-4]
345	mov edi,fullname	340	mov edi,fullname
346	rep movsb	341	rep movsb
347	mov al,'/'	342	mov al,'/'
348	cmp [edi-1],al	343	cmp [edi-1],al
349	jz @f	344	jz @f
350		345
351	stosb	346	stosb
352	;--------------------------------------	347	;--------------------------------------
353	@@:	348	@@:
354	pop esi	349	pop esi
355	cmp [esi],al	350	cmp [esi],al
356	jnz @f	351	jnz @f
357		352
358	mov edi,fullname	353	mov edi,fullname
359	;--------------------------------------	354	;--------------------------------------
360	@@:	355	@@:
361	mov ecx,[esi-4]	356	mov ecx,[esi-4]
362	rep movsb	357	rep movsb
363	xor eax,eax	358	xor eax,eax
364	stosb	359	stosb
365	ret	360	ret
366	;*********************************************************************	361	;*********************************************************************
367	write_string:	362	write_string:
368	; in: esi=pointer, ecx=length	363	; in: esi=pointer, ecx=length
369	mov edx,[message_cur_pos]	364	mov edx,[message_cur_pos]
370	;--------------------------------------	365	;--------------------------------------
371	x1:	366	x1:
372	lea edi,[message_mem+edx]	367	lea edi,[message_mem+edx]
373	;--------------------------------------	368	;--------------------------------------
374	do_write_char:	369	do_write_char:
375	lodsb	370	lodsb
376	cmp al,10	371	cmp al,10
377	jz newline	372	jz newline
378		373
379	stosb	374	stosb
380	inc edx	375	inc edx
381	loop do_write_char	376	loop do_write_char
382	jmp x2	377	jmp x2
383	;---------------------------------------------------------------------	378	;---------------------------------------------------------------------
384	newline:	379	newline:
385	xor eax,eax	380	xor eax,eax
386	stosb	381	stosb
387	xchg eax,edx	382	xchg eax,edx
388	push ecx	383	push ecx
389	push eax	384	push eax
390	mov ecx,80	385	mov ecx,80
391	div ecx	386	div ecx
392	pop eax	387	pop eax
393	xchg eax,edx	388	xchg eax,edx
394	sub edx,eax	389	sub edx,eax
395	add edx,ecx	390	add edx,ecx
396	pop ecx	391	pop ecx
397	loop x1	392	loop x1
398	;--------------------------------------	393	;--------------------------------------
399	x2:	394	x2:
400	mov [message_cur_pos],edx	395	mov [message_cur_pos],edx
401	; update window	396	; update window
402	mcall 13,<6,414>,<54,222>,[color_table+20]	397	mcall 13,<6,414>,<54,222>,[color_table+20]
403	;--------------------------------------	398	;--------------------------------------
404	draw_messages:	399	draw_messages:
405	mov ebx,12 shl 16+60	400	mov ebx,12 shl 16+60
406	mov edi,message_mem	401	mov edi,message_mem
407	;--------------------------------------	402	;--------------------------------------
408	@@:	403	@@:
409	push edi	404	push edi
410	xor eax,eax	405	xor eax,eax
411	push 80	406	push 80
412	pop ecx	407	pop ecx
413	repnz scasb	408	repnz scasb
414	sub ecx,79	409	sub ecx,79
415	neg ecx	410	neg ecx
416	mov esi,ecx	411	mov esi,ecx
417	pop edi	412	pop edi
418	mcall 4,,[color_table+32],edi	413	mcall 4,,[color_table+32],edi
419	add ebx,10	414	add ebx,10
420	add edi,80	415	add edi,80
421	cmp edi,message_cur_pos	416	cmp edi,message_cur_pos
422	jb @b	417	jb @b
423		418
424	ret	419	ret
425	;*********************************************************************	420	;*********************************************************************
426	draw_window:	421	draw_window:
427	; start redraw	422	; start redraw
428	mcall 12,1	423	mcall 12,1
-		424
-		425	mcall 48,3,color_table,40
-		426	;--------------------------------------
-		427	edit_boxes_set_sys_color edit1,editboxes_end,color_table
-		428	check_boxes_set_sys_color check1,check1_end,color_table
429	;--------------------------------------	429	;--------------------------------------
430	; define window	430	; define window
431	xor eax,eax	431	xor eax,eax
432	mov ecx,100 shl 16+306	432	mov ecx,100 shl 16+306
433	mov edx,[color_table+20]	433	mov edx,[color_table+20]
434	add edx,34000000h	434	add edx,34000000h
435	xor esi,esi	435	xor esi,esi
436	xor edi,edi	436	xor edi,edi
437	mcall ,<100,436>,,,,caption_str	437	mcall ,<100,436>,,,,caption_str
438	mcall 9,procinfo,-1	438	mcall 9,procinfo,-1
439		439
440	mov eax,[procinfo+70] ;status of window	440	mov eax,[procinfo+70] ;status of window
441	test eax,100b	441	test eax,100b
442	jne .end	442	jne .end
443	;--------------------------------------	443	;--------------------------------------
444	; draw lines and frame	444	; draw lines and frame
445	call draw_lines	445	call draw_lines
446	; draw buttons	446	; draw buttons
447	call draw_buttons	447	call draw_buttons
448	; draw messages	448	; draw messages
449	call draw_messages	449	call draw_messages
450	; draw editbox's	450	; draw editbox's
451	mov eax,[procinfo+42]	451	mov eax,[procinfo+42]
452	sub eax,65+72+10	452	sub eax,65+72+10
453	mov [edit1.width],eax	453	mov [edit1.width],eax
454	mov [edit2.width],eax	454	mov [edit2.width],eax
455	mov [edit3.width],eax	455	mov [edit3.width],eax
456		456
457	call draw_editbox	457	call draw_editbox
458	; end redraw	458	; end redraw
459	.end:	459	.end:
460	mcall 12,2	460	mcall 12,2
461	ret	461	ret
462	;*********************************************************************	462	;*********************************************************************
463	draw_editbox:	463	draw_editbox:
464	push dword edit1	464	push dword edit1
465	call [edit_box_draw]	465	call [edit_box_draw]
466		466
467	push dword edit2	467	push dword edit2
468	call [edit_box_draw]	468	call [edit_box_draw]
469		469
470	push dword edit3	470	push dword edit3
471	call [edit_box_draw]	471	call [edit_box_draw]
472		472
473	push dword check1	473	push dword check1
474	call [check_box_draw]	474	call [check_box_draw]
475	ret	475	ret
476	;*********************************************************************	476	;*********************************************************************
477	set_editbox_position:	477	set_editbox_position:
478	mov esi,ebx	478	mov esi,ebx
479	cld	479	cld
480	@@:	480	@@:
481	lodsb	481	lodsb
482	test al,al	482	test al,al
483	jne @r	483	jne @r
484	sub esi,ebx	484	sub esi,ebx
485	mov eax,esi	485	mov eax,esi
486	dec eax	486	dec eax
487	mov [edi+48], eax ;ed_size	487	mov [edi+48], eax ;ed_size
488	mov [edi+52], eax ;ed_pos	488	mov [edi+52], eax ;ed_pos
489	ret	489	ret
490	;*********************************************************************	490	;*********************************************************************
491	draw_lines:	491	draw_lines:
492	mov ecx,2 shl 16+12*3	492	mov ecx,2 shl 16+12*3
493	; draw frame for messages data	493	; draw frame for messages data
494	push ecx	494	push ecx
495	add ecx,50 shl 16+16	495	add ecx,50 shl 16+16

Subversion Repositories Kolibri OS

(root)/programs/other/kpack/trunk/kpack.asm – Rev 2273 → 2673