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' |
;--------------------------------------------------------------------- |