forked from KolibriOS/kolibrios
576 lines
11 KiB
NASM
576 lines
11 KiB
NASM
; 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 ;memf
|
||
dd stacktop
|
||
dd params
|
||
dd cur_dir_path
|
||
;---------------------------------------------------------------------
|
||
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
|
||
|
||
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
|
||
mcall 48,3,color_table,40
|
||
inc ebx
|
||
mcall
|
||
mov [skinheight],eax
|
||
jmp default
|
||
; check command line
|
||
mov esi,params
|
||
mov [esi+100h],byte 0
|
||
;--------------------------------------
|
||
parse_opt:
|
||
call skip_spaces
|
||
test al,al
|
||
jz default
|
||
|
||
mov edi,inname
|
||
call copy_name
|
||
test al,al
|
||
jz outeqin
|
||
|
||
mov edi,outname
|
||
call copy_name
|
||
test al,al
|
||
jnz default
|
||
;--------------------------------------
|
||
doit:
|
||
call draw_window
|
||
call pack
|
||
jmp still
|
||
;---------------------------------------------------------------------
|
||
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
|
||
;--------------------------------------
|
||
outeqin:
|
||
mov ecx,256/4+1
|
||
mov esi,inname-4
|
||
mov edi,outname-4
|
||
rep movsd
|
||
jmp doit
|
||
;---------------------------------------------------------------------
|
||
default:
|
||
|
||
load_libraries l_libs_start,load_lib_end
|
||
cmp eax,-1
|
||
je exit
|
||
|
||
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
|
||
;---------------------------------------------------------------------
|
||
; mov edi,fname_buf
|
||
; mov esi,path4
|
||
; call copy_1
|
||
|
||
;OpenDialog initialisation
|
||
push dword OpenDialog_data
|
||
call [OpenDialog_Init]
|
||
;---------------------------------------------------------------------
|
||
call set_editbox_position_all
|
||
;---------------------------------------------------------------------
|
||
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]
|
||
|
||
jmp still
|
||
;*********************************************************************
|
||
button:
|
||
; button pressed
|
||
mcall 17
|
||
xchg al,ah
|
||
cmp al,7
|
||
jz but7
|
||
|
||
dec eax
|
||
jz exit
|
||
|
||
dec eax
|
||
jnz nopack
|
||
|
||
call pack
|
||
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:
|
||
push dword OpenDialog_data
|
||
call [OpenDialog_Start]
|
||
cmp [OpenDialog_data.status],1
|
||
jne @f
|
||
|
||
mov esi,filename_area
|
||
mov edi,inname
|
||
call copy_1
|
||
sub edi,inname
|
||
mov [innamelen],edi
|
||
|
||
mov esi,filename_area
|
||
mov edi,outname
|
||
call copy_1
|
||
sub edi,outname
|
||
mov [outnamelen],edi
|
||
|
||
mov esi,temp_dir_pach
|
||
mov edi,path
|
||
call copy_1
|
||
sub edi,path
|
||
dec edi
|
||
mov [pathlen],edi
|
||
|
||
call set_editbox_position_all
|
||
|
||
call draw_editbox
|
||
@@:
|
||
ret
|
||
;*********************************************************************
|
||
copy_1:
|
||
xor eax,eax
|
||
cld
|
||
@@:
|
||
lodsb
|
||
stosb
|
||
test eax,eax
|
||
jnz @r
|
||
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
|
||
;*********************************************************************
|
||
onenter:
|
||
; cmp [curedit],inname
|
||
; jnz @f
|
||
|
||
push 2
|
||
pop eax
|
||
jmp nounpack
|
||
;*********************************************************************
|
||
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
|
||
mov ecx,[skinheight]
|
||
shl ecx,16
|
||
add ecx,3700DEh
|
||
mcall 13,<9,417>,,[color_table+20]
|
||
;--------------------------------------
|
||
draw_messages:
|
||
mov ebx,[skinheight]
|
||
add ebx,3Ch+12*10000h
|
||
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
|
||
mov edi,[skinheight]
|
||
;--------------------------------------
|
||
; define window
|
||
xor eax,eax
|
||
mov ecx,100 shl 16+286
|
||
add ecx,edi
|
||
mov edx,[color_table+20]
|
||
add edx,13000000h
|
||
; push edi
|
||
xor esi,esi
|
||
mcall ,<100,435>,,,,fullname ;temp_dir_pach ;caption_str
|
||
; pop edi
|
||
mcall 9,procinfo,-1
|
||
;--------------------------------------
|
||
; draw lines and frame
|
||
call draw_lines
|
||
; draw buttons
|
||
call draw_bittons
|
||
; infile, outfile, path strings
|
||
; call draw_strings
|
||
; draw messages
|
||
call draw_messages
|
||
; draw editbox's
|
||
mov eax,[procinfo+42]
|
||
sub eax,65+72+10
|
||
mov [edit1.width],eax ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||
mov [edit2.width],eax
|
||
mov [edit3.width],eax
|
||
|
||
call draw_editbox
|
||
; end redraw
|
||
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]
|
||
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 edi,[skinheight]
|
||
; lines - horizontal
|
||
; mov ebx,8 shl 16+352
|
||
; mov ecx,edi
|
||
; shl ecx,16
|
||
; or ecx,edi
|
||
; add ecx,2 shl 16+2
|
||
; mcall 38,,,[color_table+36]
|
||
; mov esi,3
|
||
;@@:
|
||
; add ecx,12 shl 16+12
|
||
; mcall
|
||
; dec esi
|
||
; jnz @r
|
||
;--------------------------------------
|
||
; lines - vertical
|
||
; sub ecx,36 shl 16
|
||
; mcall ,<8,8>
|
||
; add ebx,52 shl 16+52
|
||
; mcall
|
||
; add ebx,292 shl 16+292
|
||
; mcall
|
||
;--------------------------------------
|
||
mov edi,[skinheight]
|
||
mov ecx,edi
|
||
shl ecx,16
|
||
or ecx,edi
|
||
add ecx,2 shl 16+2+12*3
|
||
; add ecx,12*3
|
||
; draw frame for messages data
|
||
push ecx
|
||
add ecx,52 shl 16+16
|
||
mcall 38,<8,425>,,[color_table+36]
|
||
add ecx,224*(1 shl 16+1)
|
||
mcall
|
||
sub cx,224
|
||
mcall ,<8,8>
|
||
mcall ,<426,426>
|
||
pop ecx
|
||
ret
|
||
;*********************************************************************
|
||
draw_bittons:
|
||
; define compress button
|
||
mov cx,18
|
||
mcall 8,<354,72>,,2,[color_table+36]
|
||
; uncompress button
|
||
add ecx,18 shl 16
|
||
inc edx
|
||
mcall
|
||
add ecx,-12h+0Ah+140000h
|
||
; question button
|
||
push esi
|
||
mov dl,7
|
||
mcall ,<417,9>
|
||
shr ecx,16
|
||
lea ebx,[ecx+1A40002h]
|
||
mcall 4,,[color_table+28],aQuestion,1
|
||
; mov al,8
|
||
pop esi
|
||
; define settings buttons
|
||
; mov ebx,9 shl 16+50
|
||
lea ecx,[edi+2]
|
||
add ecx,16*2
|
||
shl ecx,16
|
||
mov cx,13
|
||
; push 4
|
||
; pop edx
|
||
;--------------------------------------
|
||
;@@:
|
||
; mcall
|
||
; add ecx,12 shl 16
|
||
; inc edx
|
||
; cmp edx,6
|
||
; jbe @b
|
||
mcall 8,<9,50>,,4
|
||
; text on settings buttons
|
||
lea ebx,[edi+5+0C0000h]
|
||
mov al,4
|
||
mov ecx,[color_table+28]
|
||
push buttons1names
|
||
pop edx
|
||
push 8
|
||
pop esi
|
||
;--------------------------------------
|
||
@@:
|
||
mcall
|
||
add edx,esi
|
||
add ebx,16
|
||
cmp [edx-6],byte ' '
|
||
jnz @b
|
||
; text on compress and decompress buttons
|
||
lea ebx,[edi+8+1720000h]
|
||
or ecx,80000000h
|
||
mcall ,,,aCompress
|
||
lea ebx,[edi+1Ah+16A0000h]
|
||
mcall ,,,aDecompress
|
||
ret
|
||
;*********************************************************************
|
||
copy_name:
|
||
lea edx,[edi+256]
|
||
;--------------------------------------
|
||
@@:
|
||
lodsb
|
||
cmp al,' '
|
||
jbe copy_name_done
|
||
|
||
stosb
|
||
cmp edi,edx
|
||
jb @b
|
||
;--------------------------------------
|
||
@@:
|
||
lodsb
|
||
cmp al,' '
|
||
ja @b
|
||
;--------------------------------------
|
||
copy_name_done:
|
||
dec esi
|
||
sub edx,256
|
||
sub edi,edx
|
||
mov [edx-4],edi
|
||
;--------------------------------------
|
||
skip_spaces:
|
||
lodsb
|
||
cmp al,0
|
||
jz @f
|
||
|
||
cmp al,' '
|
||
jbe skip_spaces
|
||
;--------------------------------------
|
||
@@:
|
||
dec esi
|
||
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'
|
||
;---------------------------------------------------------------------
|
||
;initialized variables and constants
|
||
include 'const_var.inc'
|
||
;---------------------------------------------------------------------
|
||
IM_END:
|
||
;---------------------------------------------------------------------
|
||
;uninitialized data
|
||
include 'data.inc'
|
||
;---------------------------------------------------------------------
|
||
I_END:
|
||
;--------------------------------------------------------------------- |