Subversion Repositories Kolibri OS

Rev

Rev 1702 | Rev 2207 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1702 Rev 1713
Line 1... Line 1...
1 
; kpack = Kolibri Packer
 1 
; kpack = Kolibri Packer
2 
;---------------------------------------------------------------------
 2 
;---------------------------------------------------------------------
- 
 
 3 
; version:	0.20
- 
 
 4 
; last update:  07/12/2010
- 
 
 5 
; changed by:   Marat Zakiyanov aka Mario79, aka Mario
- 
 
 6 
; changes:      Added code for packing the kernel.mnt
- 
 
 7 
;---------------------------------------------------------------------
3 
; version:	0.15
 8 
; version:	0.15
4 
; last update:  06/11/2010
 9 
; last update:  06/11/2010
5 
; changed by:   Marat Zakiyanov aka Mario79, aka Mario
 10 
; changed by:   Marat Zakiyanov aka Mario79, aka Mario
6 
; changes:      1) Window Y=4, B=1
 11 
; changes:      1) Window Y=4, B=1
7 
;               2) Refresh lenght of data after Editbox editing
 12 
;               2) Refresh lenght of data after Editbox editing
Line 140... Line 145...
140 
	call	[edit_box_mouse]
 145 
	call	[edit_box_mouse]
Line 141... Line 146...
141 
 
 146 
 
142 
	push	dword edit3
 147 
	push	dword edit3
Line -... Line 148...
- 
 
 148 
	call	[edit_box_mouse]
- 
 
 149 
 
- 
 
 150 
	push	dword check1
143 
	call	[edit_box_mouse]
 151 
	call	[check_box_mouse]
144 
 
 152
- 
 
 153 
	jmp	still
- 
 
 154 
;*********************************************************************
- 
 
 155 
tell_compress_mess:
- 
 
 156 
	push	compressing_len
- 
 
 157 
	pop	ecx
- 
 
 158 
	mov	esi,compressing_str
- 
 
 159 
	call	write_string
- 
 
 160 
	ret
- 
 
 161 
;*********************************************************************
- 
 
 162 
clear_mess_and_displogo:
- 
 
 163 
	call	refresh_editbox_data
- 
 
 164 
; clear messages
- 
 
 165 
	call	clear_messages
- 
 
 166 
; display logo
- 
 
 167 
	mov	esi,info_str
- 
 
 168 
	push	info_len
- 
 
 169 
	pop	ecx
- 
 
 170 
	call	write_string
145 
	jmp	still
 171 
	ret
146 
;*********************************************************************
 172 
;*********************************************************************
147 
clear_messages:
 173 
clear_messages:
148 
	xor	eax,eax
 174 
	xor	eax,eax
149 
	mov	ecx,80*20/4+1
 175 
	mov	ecx,80*20/4+1
Line 167... Line 193...
167 
	jz	exit
 193 
	jz	exit
Line 168... Line 194...
168 
 
 194 
 
169 
	dec	eax
 195 
	dec	eax
Line -... Line 196...
- 
 
 196 
	jnz	nopack
- 
 
 197 
 
- 
 
 198 
	mov	eax,[check1+32]
- 
 
 199 
	test	eax,10b
170 
	jnz	nopack
 200 
	jnz	@f
171 
 
 201 
 
172 
	call	pack
 202 
	call	pack
- 
 
 203 
	jmp	still
- 
 
 204 
;---------------------------------------------------------------------
- 
 
 205 
@@:
- 
 
 206 
	call	kerpack
173 
	jmp	still
 207 
	jmp	still
174 
;---------------------------------------------------------------------
 208 
;---------------------------------------------------------------------
175 
nopack:
 209 
nopack:
Line 176... Line 210...
176 
	dec	eax
 210 
	dec	eax
Line 414... Line 448...
414 
	ret
 448 
	ret
415 
;*********************************************************************
 449 
;*********************************************************************
416 
draw_editbox:
 450 
draw_editbox:
417 
	push	dword edit1
 451 
	push	dword edit1
418 
	call	[edit_box_draw]
 452 
	call	[edit_box_draw]
- 
 
 453
419 
	push	dword edit2
 454 
	push	dword edit2
420 
	call	[edit_box_draw]
 455 
	call	[edit_box_draw]
- 
 
 456
421 
	push	dword edit3
 457 
	push	dword edit3
422 
	call	[edit_box_draw]
 458 
	call	[edit_box_draw]
- 
 
 459
- 
 
 460 
	push	dword check1
- 
 
 461 
	call	[check_box_draw]
423 
	ret
 462 
	ret
424 
;*********************************************************************
 463 
;*********************************************************************
425 
set_editbox_position:
 464 
set_editbox_position:
426 
	mov	esi,ebx
 465 
	mov	esi,ebx
427 
	cld
 466 
	cld
Line 506... Line 545...
506 
include 'lzma_set_dict_size.inc'
 545 
include 'lzma_set_dict_size.inc'
507 
;---------------------------------------------------------------------
 546 
;---------------------------------------------------------------------
508 
;lzma_decompress:
 547 
;lzma_decompress:
509 
include	'lzma_decompress.inc'
 548 
include	'lzma_decompress.inc'
510 
;---------------------------------------------------------------------
 549 
;---------------------------------------------------------------------
- 
 
 550 
;kerpack code:
- 
 
 551 
include	'kerpack.inc'
- 
 
 552 
;---------------------------------------------------------------------
511 
;initialized variables and constants
 553 
;initialized variables and constants
512 
include 'const_var.inc'
 554 
include 'const_var.inc'
513 
;---------------------------------------------------------------------
 555 
;---------------------------------------------------------------------
514 
IM_END:
 556 
IM_END:
515 
;---------------------------------------------------------------------
 557 
;---------------------------------------------------------------------