/programs/other/kpack/trunk/packpoc.inc |
---|
1,24 → 1,6 |
;********************************************************************* |
pack: |
call refresh_editbox_data |
; clear messages |
call clear_messages |
; display logo |
mov esi,info_str |
push info_len |
pop ecx |
call write_string |
; load input file |
mov esi,inname |
call get_full_name |
mov ebx,fn70block |
mov [ebx],dword 5 |
and [ebx+4],dword 0 |
and [ebx+8],dword 0 |
and [ebx+12],dword 0 |
mov [ebx+16],dword file_attr |
mcall 70 |
test eax,eax |
call displogo_and_readfile |
jz inopened |
;--------------------------------------------------------------------- |
infileerr: |
154,10 → 136,8 |
call lzma_set_dict_size |
;-------------------------------------- |
no_lzma_setds: |
push compressing_len |
pop ecx |
mov esi,compressing_str |
call write_string |
call tell_compress_mess |
mov esi,[outfile1] |
mov edi,[outfile2] |
movsd |