Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 1712 → Rev 1713

/programs/other/kpack/trunk/kpack.asm
1,5 → 1,10
; kpack = Kolibri Packer
;---------------------------------------------------------------------
; 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
142,8 → 147,29
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
169,9 → 195,17
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
416,10 → 450,15
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:
508,6 → 547,9
;lzma_decompress:
include 'lzma_decompress.inc'
;---------------------------------------------------------------------
;kerpack code:
include 'kerpack.inc'
;---------------------------------------------------------------------
;initialized variables and constants
include 'const_var.inc'
;---------------------------------------------------------------------