; do not touch "purge mov"!!!
purge mov ; for the correct patch of loader
; do not touch "purge mov"!!!
;*********************************************************************
;die_with_err:
; pop esi
;@@:
; lodsb
; test al,al
; jz @f
; mov cl,al
; mcall 63,1
; jmp @b
;*********************************************************************
;@@:
; mcall 63,,13
; mcall ,,10
; mcall -1
;*********************************************************************
kerpack:
call clear_mess_and_displogo
mov ecx,200*1024*3+6A8000h
mcall 68,12
mov [infile],eax
mov [infile3],eax
add eax,200*1024
mov [inbuftmp],eax
add eax,200*1024
mov [outfile],eax
add eax,200*1024
mov [workmem],eax
mov esi,inname
call get_full_name
mov [insize3],200*1024 ; max size of input file
mcall 70,fn70_read
cmp eax,6
jz read_ok
;--------------------------------------
read_err:
; call die_with_err
; db 'KerPack: cannot load kernel.mnt',0
mov esi,errload_str
push errload_len
pop ecx
call write_string
jmp read_ok.exit
;*********************************************************************
read_ok:
mov [insize3],ebx
mov edi,[infile]
add edi,[insize3]
cmp dword [edi-8],dword 'KERN'
jnz .lzma_set_dict_size
cmp dword [edi-4],dword 'PACK'
jnz .lzma_set_dict_size
;--------------------------------------
mov esi,already_str
push already_len
pop ecx
call write_string
jmp read_ok.exit
;*********************************************************************
.not_kernel:
mov esi,notkernel_str
push notkernel_len
pop ecx
call write_string
jmp read_ok.exit
;*********************************************************************
.lzma_set_dict_size:
push 18
call lzma_set_dict_size
; find jump to 32-bit code
; mov edi,infile - 1
mov edi,[infile]
mov eax,edi
add eax,[insize3]
dec edi
;--------------------------------------
@@:
cmp eax,edi
je .not_kernel
inc edi
cmp dword [edi],0xE88EE08E ; mov fs,ax/mov gs,ax
jnz @b
cmp dword [edi+4],0x00BCD08E ; mov ss,ax/mov esp,00xxxxxx
jnz @b
add edi,11
mov [inptr],edi
sub edi,[infile] ; infile
mov [indelta],edi
lea eax,[ebx+0x10000]
mov dword [loader_patch3+2],eax
sub ebx,edi
mov [insize1],ebx
call preprocess_calltrick3
mov al,[cti]
mov [loader_patch5-1],al
mov eax,[ctn]
mov [loader_patch4+1],eax
mov eax,[inptr]
; add eax, outfile - infile + loader_size - 5
add eax,[outfile]
sub eax,[infile]
add eax,loader_size - 5
push eax
call tell_compress_mess
pop eax
push [workmem] ;workmem
push [insize1]
push eax
push [inptr]
call lzma_compress
add eax, loader_size-5
mov [loader_patch1+6],eax
add eax,[indelta]
mov [outsize3],eax
mov eax,[indelta]
; mov ecx,dword [eax + outfile + loader_size - 4]
mov ecx,eax
add ecx,[outfile]
mov ecx,[ecx + loader_size - 4]
bswap ecx
mov [loader_patch2+4],ecx
add eax, 0x10000
mov [loader_patch1+1],eax
mov esi,[infile] ;infile
mov edi,[outfile] ;outfile
mov ecx,[indelta]
rep movsb
mov esi,loader_start
mov ecx,loader_size
rep movsb
mov eax,[outfile]
add eax,[outsize3]
mov [eax],dword 'KERN'
mov [eax+4],dword 'PACK'
add dword [outsize3],8
mov eax,[outsize3]
mov ecx,100
mul ecx
div [insize3]
aam
xchg al,ah
add ax,'00'
mov [ratio],ax
mov esi,done_str
push done_len
pop ecx
call write_string
mov eax,[outfile]
mov [outfile3],eax
mov esi,outname
call get_full_name
mcall 70,fn70_write
test eax,eax
jz .exit ;@f
; call die_with_err
; db 'KerPack: cannot save kernel.mnt',0
mov esi,outfileerr_str
push outfileerr_len
pop ecx
call write_string
;*********************************************************************
.exit:
; call die_with_err
; db 'KerPack: all is OK',0
call return_memory
ret
;*********************************************************************
preprocess_calltrick3:
; input preprocessing
mov edi,ct1
xor eax,eax
push edi
mov ecx,256/4
rep stosd
pop edi
mov ecx,ebx
mov esi,[inptr]
mov ebx,[inbuftmp] ;inbuftmp
xchg eax,edx
;--------------------------------------
input_pre3:
lodsb
;--------------------------------------
@@:
cmp al,0Fh
jnz ip3
dec ecx
jz input_pre_done3
lodsb
cmp al,80h
jb @b
cmp al,90h
jb @f
;--------------------------------------
ip3:
sub al,0E8h
cmp al,1
ja input_pre_cont3
;--------------------------------------
@@:
cmp ecx,5
jb input_pre_done3
lodsd
add eax,esi
sub eax,[inptr]
cmp eax,[insize1]
jae xxx3
cmp eax,1000000h
jae xxx3
sub ecx,4
xchg al,ah
rol eax,16
xchg al,ah
mov [esi-4],eax
inc edx
mov [ebx],esi
add ebx,4
jmp input_pre_cont3
;*********************************************************************
xxx3:
sub esi,4
movzx eax,byte [esi]
mov byte [eax+edi],1
;--------------------------------------
input_pre_cont3:
loop input_pre3
;--------------------------------------
input_pre_done3:
mov [ctn],edx
xor eax,eax
mov ecx,256
repnz scasb
jnz pack_calltrick_done
not cl
mov [cti],cl
;--------------------------------------
@@:
cmp ebx,[inbuftmp] ;inbuftmp
jz pack_calltrick_done
sub ebx,4
mov eax,[ebx]
mov [eax-4],cl
jmp @b
;*********************************************************************
pack_calltrick_done:
ret
;*********************************************************************
include 'loader_lzma.inc'
;*********************************************************************