KlbrInWin src uploaded
git-svn-id: svn://kolibrios.org@2292 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Kirill Lipatov (Leency)
parent
a29fff6025
commit
6cfca28b78
7834
programs/emulator/KlbrInWin/I40EMUL.INC
Normal file
7834
programs/emulator/KlbrInWin/I40EMUL.INC
Normal file
File diff suppressed because it is too large
Load Diff
6359
programs/emulator/KlbrInWin/KlbrInWin.asm
Normal file
6359
programs/emulator/KlbrInWin/KlbrInWin.asm
Normal file
File diff suppressed because it is too large
Load Diff
BIN
programs/emulator/KlbrInWin/KlbrInWin.ico
Normal file
BIN
programs/emulator/KlbrInWin/KlbrInWin.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 19 KiB |
BIN
programs/emulator/KlbrInWin/config.RES
Normal file
BIN
programs/emulator/KlbrInWin/config.RES
Normal file
Binary file not shown.
1509
programs/emulator/KlbrInWin/config.asm
Normal file
1509
programs/emulator/KlbrInWin/config.asm
Normal file
File diff suppressed because it is too large
Load Diff
80
programs/emulator/KlbrInWin/config.ini
Normal file
80
programs/emulator/KlbrInWin/config.ini
Normal file
@ -0,0 +1,80 @@
|
||||
[Disk]
|
||||
# path to ramdisk, must end with '\'
|
||||
RamDisk=
|
||||
|
||||
# hard disks:
|
||||
# there may be up to 4 physical harddisks,
|
||||
# each may contain 1 or more partitions (but no more than 255)
|
||||
# (sysfunction 18::11 returns this number as byte)
|
||||
# 255 should be enough :-)
|
||||
# Syntax:
|
||||
# hd<i>n = number of partitions for /hd<i>, 0 <= i <= 3
|
||||
# hd<i>_<j> = Win32 path for /hd<i>/<j>, 0 <= i <= 3, 1 <= j <= hd<i>n
|
||||
# must end with '\'; ',readonly' string may follow
|
||||
# (j is represented in decimal system)
|
||||
# (if harddisk /hd<i> is used, all partitions /hd<i>/<j> must be defined)
|
||||
|
||||
[Main]
|
||||
# skin file name
|
||||
Skin=orqua.skn
|
||||
|
||||
# first font must be 9*0x100 bytes, second 10*0x100 bytes
|
||||
Font1=char.mt
|
||||
Font2=char2.mt
|
||||
|
||||
# DO NOT MODIFY THIS PARAMETER UNLESS YOU KNOW WHAT ARE YOU DOING!!!
|
||||
# if this parameter is not empty,
|
||||
# on NT/2k/XP+ administrator rights are required
|
||||
# enables i/o ports for function 46
|
||||
# all ports from this parameter can be reserved with fn46,
|
||||
# and (after reservation) may be accessed via in/out.
|
||||
# DO NOT ADD SYSTEM CRITICAL PORTS!!!
|
||||
# USE THIS PARAMETER ONLY AT YOUR OWN RISK!!!
|
||||
# note that Menuet/Kolibri reserves ports 0-FF for system use
|
||||
# syntax: EnablePorts=port1 port2beg-port2end port3 ...
|
||||
# (when range is used, both begin and end are included)
|
||||
# example (only for syntax demonstration!!!): EnablePorts=A3 B1 92-9f 70-74 269
|
||||
# total length of parameter string is limited to 1024 chars (must be enough :) )
|
||||
EnablePorts=
|
||||
|
||||
# boolean parameters (true/false)
|
||||
# if at least one of these parameters is true,
|
||||
# on NT/2k/XP+ administrator rights are required
|
||||
|
||||
# enables function 68.3
|
||||
AllowReadMSR=false
|
||||
# enables function 62
|
||||
AllowReadPCI=false
|
||||
|
||||
# do not unload driver when exiting
|
||||
KeepLoadedDriver=false
|
||||
|
||||
[Questions]
|
||||
# on set background question
|
||||
# 0=ask, 1=set permanently, 2=set temporarily, 3=don't set
|
||||
SetBgr=0
|
||||
|
||||
[sys_setup]
|
||||
# kernel global variable sound_flag
|
||||
# 0=playnote sound on, 1=off (it is for 55::55 function only)
|
||||
sound_flag=0
|
||||
# 0=min (no sound), 127=max
|
||||
sound_vol=10
|
||||
|
||||
# kernel global variable syslang (see functions 21::5, 26::5)
|
||||
# 1=eng 2=fi 3=ger 4=ru
|
||||
syslang=1
|
||||
|
||||
# kernel global variable keyboard (see functions 21::2::9, 26::2::9)
|
||||
# 1=eng 2=fi 3=ger 4=ru
|
||||
# Note that this definition doesn't affect keymap tables,
|
||||
# it only sets variable for functions above
|
||||
# (in Kolibri application @panel/setup changes keymap tables)
|
||||
keyboard=1
|
||||
|
||||
[DirectScreenAccess]
|
||||
# bits per pixel, currently supported 0 (=disable), 24, 32
|
||||
ColorDepth=32
|
||||
# When the program first accesses [gs:N] data, the snapshot is created.
|
||||
# Other accesses within InvalidateTime milliseconds use this snapshot.
|
||||
DSAInvalidateTime=200
|
||||
21
programs/emulator/KlbrInWin/config_resource.inc
Normal file
21
programs/emulator/KlbrInWin/config_resource.inc
Normal file
@ -0,0 +1,21 @@
|
||||
IDD_DIALOG1 = 101
|
||||
IDI_ICON1 = 103
|
||||
IDC_RAMDISK = 1001
|
||||
IDC_RAMDISK_BROWSE = 1002
|
||||
IDC_PARTITION = 1003
|
||||
IDC_HD_DEV = 1004
|
||||
IDC_HD_PART = 1005
|
||||
IDC_ADD_PARTITION = 1006
|
||||
IDC_DEL_PARTITION = 1007
|
||||
IDC_PARTITION_BROWSE = 1008
|
||||
IDC_CHECK1 = 1009
|
||||
IDC_SKIN = 1010
|
||||
IDC_SKIN_BROWSE = 1011
|
||||
IDC_FONT1 = 1012
|
||||
IDC_FONT1_BROWSE = 1013
|
||||
IDC_FONT2 = 1014
|
||||
IDC_FONT2_BROWSE = 1015
|
||||
IDC_EMPTY_EXT = 1016
|
||||
IDC_NOTEMPTY_EXT = 1017
|
||||
IDC_EXTENSIONS = 1018
|
||||
IDC_PATH_STRING = 1019
|
||||
238
programs/emulator/KlbrInWin/kiw0.asm
Normal file
238
programs/emulator/KlbrInWin/kiw0.asm
Normal file
@ -0,0 +1,238 @@
|
||||
; kiw0.sys - KlbrInWin ring-0 component
|
||||
; (c) diamond, 2006, 2007, 2008
|
||||
; Cb-n#%li.-# @l$i Lkbnbe
|
||||
DRIVER_VERSION = 1
|
||||
format PE native
|
||||
section '.text' code data readable writable executable
|
||||
;section '.text' code readable executable
|
||||
entry start
|
||||
start:
|
||||
push eax
|
||||
push esp
|
||||
push 0
|
||||
push 0
|
||||
push 22h ; FILE_DEVICE_UNKNOWN
|
||||
push devname
|
||||
push 0
|
||||
push dword [esp+20h]
|
||||
call [IoCreateDevice]
|
||||
pop ecx
|
||||
test eax, eax
|
||||
js .ret
|
||||
push ecx
|
||||
push devname
|
||||
push symlinkname
|
||||
call [IoCreateSymbolicLink]
|
||||
pop ecx
|
||||
test eax, eax
|
||||
jns @f
|
||||
push eax
|
||||
push ecx
|
||||
call [IoDeleteDevice]
|
||||
pop eax
|
||||
jmp .ret
|
||||
@@:
|
||||
mov eax, [esp+4]
|
||||
mov dword [eax+38h], DispatchCreateClose
|
||||
mov dword [eax+40h], DispatchCreateClose
|
||||
mov dword [eax+70h], DispatchControl
|
||||
mov dword [eax+34h], DriverUnload
|
||||
push 'kiw0'
|
||||
push 2000h
|
||||
push 0
|
||||
call [ExAllocatePoolWithTag]
|
||||
mov [oldiomap], eax
|
||||
push eax
|
||||
push 1
|
||||
call [Ke386QueryIoAccessMap]
|
||||
xor eax, eax
|
||||
.ret:
|
||||
ret 8
|
||||
|
||||
DriverUnload:
|
||||
push symlinkname
|
||||
call [IoDeleteSymbolicLink]
|
||||
mov eax, [esp+4]
|
||||
push dword [eax+4]
|
||||
call [IoDeleteDevice]
|
||||
push [oldiomap]
|
||||
push 1
|
||||
call [Ke386SetIoAccessMap]
|
||||
push [oldiomap]
|
||||
call [ExFreePool]
|
||||
ret 4
|
||||
|
||||
DispatchCreateClose:
|
||||
mov ecx, [esp+8]
|
||||
xor edx, edx
|
||||
mov [ecx+18h], edx
|
||||
mov [ecx+1Ch], edx
|
||||
call [IofCompleteRequest]
|
||||
xor eax, eax
|
||||
ret 8
|
||||
|
||||
DispatchControl:
|
||||
mov ecx, [esp+8]
|
||||
mov eax, [ecx+60h]
|
||||
cmp dword [eax+0Ch], 0x222000
|
||||
jz .readmsr
|
||||
cmp dword [eax+0Ch], 0x222004
|
||||
jz .readpci
|
||||
cmp dword [eax+0Ch], 0x222008
|
||||
jz .getversion
|
||||
cmp dword [eax+0Ch], 0x22203C
|
||||
jnz .invreq
|
||||
cmp dword [eax+8], 2000h
|
||||
jnz .invreq
|
||||
push ecx
|
||||
push dword [ecx+0Ch]
|
||||
push 1
|
||||
call [Ke386SetIoAccessMap]
|
||||
push 1
|
||||
call [IoGetCurrentProcess]
|
||||
push eax
|
||||
call [Ke386IoSetAccessProcess]
|
||||
str ax
|
||||
sub esp, 6
|
||||
sgdt [esp]
|
||||
pop cx
|
||||
pop ecx
|
||||
movzx eax, ax
|
||||
mov dh, [eax+ecx+7]
|
||||
mov dl, [eax+ecx+4]
|
||||
shl edx, 16
|
||||
mov dx, [eax+ecx+2]
|
||||
mov word [edx+66h], 88h
|
||||
pop ecx
|
||||
xor eax, eax
|
||||
mov [ecx+1Ch], eax
|
||||
jmp .ret
|
||||
.getversion:
|
||||
cmp dword [eax+4], 4
|
||||
jnz .invreq
|
||||
mov eax, [ecx+0Ch]
|
||||
mov dword [eax], DRIVER_VERSION
|
||||
mov dword [ecx+1Ch], 4
|
||||
jmp .ret0
|
||||
.readmsr:
|
||||
cmp dword [eax+8], 4
|
||||
jnz .invreq
|
||||
cmp dword [eax+4], 9
|
||||
jnz .invreq
|
||||
push ecx
|
||||
mov ecx, [ecx+0Ch]
|
||||
mov byte [ecx+8], 0 ; assume OK
|
||||
; rdmsr may throw exception
|
||||
push .exception_handler
|
||||
push dword [fs:0]
|
||||
mov [fs:0], esp
|
||||
push ecx
|
||||
mov ecx, [ecx]
|
||||
rdmsr
|
||||
pop ecx
|
||||
mov [ecx], eax
|
||||
mov [ecx+4], edx
|
||||
.msr_common:
|
||||
pop dword [fs:0]
|
||||
pop ecx
|
||||
pop ecx
|
||||
mov dword [ecx+1Ch], 9
|
||||
.ret0:
|
||||
xor eax, eax
|
||||
jmp .ret
|
||||
.invreq2:
|
||||
pop ecx
|
||||
.invreq:
|
||||
mov eax, 0xC0000010 ; STATUS_INVALID_DEVICE_REQUEST
|
||||
.ret:
|
||||
push eax
|
||||
mov [ecx+18h], eax
|
||||
xor edx, edx
|
||||
call [IofCompleteRequest]
|
||||
pop eax
|
||||
ret 8
|
||||
.exception_handler:
|
||||
mov eax, [esp+12]
|
||||
mov dword [eax+0xB8], .no_msr
|
||||
xor eax, eax
|
||||
ret
|
||||
.no_msr:
|
||||
pop ecx
|
||||
mov byte [ecx+8], 1
|
||||
jmp .msr_common
|
||||
.readpci:
|
||||
cmp dword [eax+8], 4
|
||||
jnz .invreq
|
||||
cmp dword [eax+4], 4
|
||||
jnz .invreq
|
||||
push ecx
|
||||
mov ecx, [ecx+0Ch]
|
||||
movzx eax, byte [ecx]
|
||||
cmp al, 2
|
||||
ja .invreq2
|
||||
jb @f
|
||||
inc eax
|
||||
@@:
|
||||
test byte [ecx+2], al
|
||||
jnz .readpci.unaligned
|
||||
inc eax
|
||||
push eax
|
||||
push eax ; Length
|
||||
movzx eax, byte [ecx+2]
|
||||
push eax ; Offset
|
||||
push ecx ; Buffer
|
||||
movzx eax, byte [ecx+3]
|
||||
ror al, 3
|
||||
push eax ; SlotNumber
|
||||
movzx eax, byte [ecx+1]
|
||||
push eax ; BusNumber
|
||||
push 4 ; PCIConfiguration
|
||||
or dword [ecx], -1
|
||||
call [HalGetBusDataByOffset]
|
||||
pop edx
|
||||
pop ecx
|
||||
mov dword [ecx+1Ch], edx
|
||||
jmp .ret0
|
||||
.readpci.unaligned:
|
||||
or dword [ecx], -1
|
||||
pop ecx
|
||||
mov dword [ecx+1Ch], 4
|
||||
jmp .ret0
|
||||
|
||||
include 'd:\program files\fasm\fasmw16723\include\win32a.inc'
|
||||
data import
|
||||
library ntoskrnl,'ntoskrnl.exe',hal,'hal.dll'
|
||||
import ntoskrnl, \
|
||||
IoCreateDevice, 'IoCreateDevice', \
|
||||
IoCreateSymbolicLink, 'IoCreateSymbolicLink', \
|
||||
IoDeleteDevice, 'IoDeleteDevice', \
|
||||
IoDeleteSymbolicLink, 'IoDeleteSymbolicLink', \
|
||||
IoGetCurrentProcess, 'IoGetCurrentProcess', \
|
||||
Ke386QueryIoAccessMap, 'Ke386QueryIoAccessMap', \
|
||||
Ke386SetIoAccessMap, 'Ke386SetIoAccessMap', \
|
||||
Ke386IoSetAccessProcess, 'Ke386IoSetAccessProcess', \
|
||||
IofCompleteRequest, 'IofCompleteRequest', \
|
||||
ExAllocatePoolWithTag, 'ExAllocatePoolWithTag', \
|
||||
ExFreePool, 'ExFreePool'
|
||||
import hal, HalGetBusDataByOffset, 'HalGetBusDataByOffset'
|
||||
end data
|
||||
|
||||
str1 db 'control code 0x%X',13,10,0
|
||||
str2 db 'kiw0 loaded',13,10,0
|
||||
|
||||
devname:
|
||||
dw 12*2
|
||||
dw 13*2
|
||||
dd @f
|
||||
@@ du '\Device\kiw0',0
|
||||
symlinkname:
|
||||
dw 16*2
|
||||
dw 17*2
|
||||
dd @f
|
||||
@@ du '\DosDevices\kiw0',0
|
||||
|
||||
data fixups
|
||||
end data
|
||||
|
||||
;section '.data' data readable writable
|
||||
oldiomap dd ?
|
||||
492
programs/emulator/KlbrInWin/unpacker.inc
Normal file
492
programs/emulator/KlbrInWin/unpacker.inc
Normal file
@ -0,0 +1,492 @@
|
||||
; void __stdcall unpack(void* packed_data, void* unpacked_data);
|
||||
unpack:
|
||||
pushad
|
||||
mov esi, [esp+32+4]
|
||||
mov edi, [esp+32+8]
|
||||
mov eax, [esi+8]
|
||||
and al, 0xC0
|
||||
cmp al, 0xC0
|
||||
jz .failed
|
||||
mov eax, [esi+8]
|
||||
push eax
|
||||
add esi, 12
|
||||
and al, not 0xC0
|
||||
dec eax
|
||||
jz .lzma
|
||||
.failed:
|
||||
pop eax
|
||||
popad
|
||||
ret 8
|
||||
.lzma:
|
||||
call .lzma_unpack
|
||||
.common:
|
||||
pop eax
|
||||
test al, 0x80
|
||||
jnz .ctr1
|
||||
test al, 0x40
|
||||
jz .ok
|
||||
lodsd
|
||||
mov ecx, eax
|
||||
jecxz .ok
|
||||
mov dl, [esi]
|
||||
mov esi, [esp+32+8]
|
||||
.c1:
|
||||
lodsb
|
||||
sub al, 0E8h
|
||||
cmp al, 1
|
||||
ja .c1
|
||||
cmp byte [esi], dl
|
||||
jnz .c1
|
||||
lodsd
|
||||
; "bswap eax" is not supported on i386
|
||||
shr ax, 8
|
||||
ror eax, 16
|
||||
xchg al, ah
|
||||
sub eax, esi
|
||||
add eax, [esp+32+8]
|
||||
mov [esi-4], eax
|
||||
loop .c1
|
||||
.ok:
|
||||
popad
|
||||
ret 8
|
||||
.ctr1:
|
||||
lodsd
|
||||
mov ecx, eax
|
||||
jecxz .ok
|
||||
mov dl, [esi]
|
||||
mov esi, [esp+32+8]
|
||||
.c2:
|
||||
lodsb
|
||||
@@:
|
||||
cmp al, 0xF
|
||||
jnz .f
|
||||
lodsb
|
||||
cmp al, 80h
|
||||
jb @b
|
||||
cmp al, 90h
|
||||
jb @f
|
||||
.f:
|
||||
sub al, 0E8h
|
||||
cmp al, 1
|
||||
ja .c2
|
||||
@@:
|
||||
cmp byte [esi], dl
|
||||
jnz .c2
|
||||
lodsd
|
||||
shr ax, 8
|
||||
ror eax, 16
|
||||
xchg al, ah
|
||||
sub eax, esi
|
||||
add eax, [esp+32+8]
|
||||
mov [esi-4], eax
|
||||
loop .c2
|
||||
jmp .ok
|
||||
|
||||
.lzma_unpack:
|
||||
|
||||
.pb = 2 ; pos state bits
|
||||
.lp = 0 ; literal pos state bits
|
||||
.lc = 3 ; literal context bits
|
||||
.posStateMask = ((1 shl .pb)-1)
|
||||
.literalPosMask = ((1 shl .lp)-1)
|
||||
|
||||
.kNumPosBitsMax = 4
|
||||
.kNumPosStatesMax = (1 shl .kNumPosBitsMax)
|
||||
|
||||
.kLenNumLowBits = 3
|
||||
.kLenNumLowSymbols = (1 shl .kLenNumLowBits)
|
||||
.kLenNumMidBits = 3
|
||||
.kLenNumMidSymbols = (1 shl .kLenNumMidBits)
|
||||
.kLenNumHighBits = 8
|
||||
.kLenNumHighSymbols = (1 shl .kLenNumHighBits)
|
||||
|
||||
.LenChoice = 0
|
||||
.LenChoice2 = 1
|
||||
.LenLow = 2
|
||||
.LenMid = (.LenLow + (.kNumPosStatesMax shl .kLenNumLowBits))
|
||||
.LenHigh = (.LenMid + (.kNumPosStatesMax shl .kLenNumMidBits))
|
||||
.kNumLenProbs = (.LenHigh + .kLenNumHighSymbols)
|
||||
|
||||
.kNumStates = 12
|
||||
.kNumLitStates = 7
|
||||
.kStartPosModelIndex = 4
|
||||
.kEndPosModelIndex = 14
|
||||
.kNumFullDistances = (1 shl (.kEndPosModelIndex/2))
|
||||
.kNumPosSlotBits = 6
|
||||
.kNumLenToPosStates = 4
|
||||
.kNumAlignBits = 4
|
||||
.kAlignTableSize = (1 shl .kNumAlignBits)
|
||||
.kMatchMinLen = 2
|
||||
|
||||
.IsMatch = 0
|
||||
.IsRep = (.IsMatch + (.kNumStates shl .kNumPosBitsMax))
|
||||
.IsRepG0 = (.IsRep + .kNumStates)
|
||||
.IsRepG1 = (.IsRepG0 + .kNumStates)
|
||||
.IsRepG2 = (.IsRepG1 + .kNumStates)
|
||||
.IsRep0Long = (.IsRepG2 + .kNumStates)
|
||||
.PosSlot = (.IsRep0Long + (.kNumStates shl .kNumPosBitsMax))
|
||||
.SpecPos = (.PosSlot + (.kNumLenToPosStates shl .kNumPosSlotBits))
|
||||
.Align_ = (.SpecPos + .kNumFullDistances - .kEndPosModelIndex)
|
||||
.Lencoder = (.Align_ + .kAlignTableSize)
|
||||
.RepLencoder = (.Lencoder + .kNumLenProbs)
|
||||
.Literal = (.RepLencoder + .kNumLenProbs)
|
||||
|
||||
.LZMA_BASE_SIZE = 1846 ; must be ==Literal
|
||||
.LZMA_LIT_SIZE = 768
|
||||
|
||||
.kNumTopBits = 24
|
||||
.kTopValue = (1 shl .kNumTopBits)
|
||||
|
||||
.kNumBitModelTotalBits = 11
|
||||
.kBitModelTotal = (1 shl .kNumBitModelTotalBits)
|
||||
.kNumMoveBits = 5
|
||||
|
||||
push edi
|
||||
; int state=0;
|
||||
xor ebx, ebx
|
||||
mov [.previousByte], bl
|
||||
; unsigned rep0=1,rep1=1,rep2=1,rep3=1;
|
||||
mov eax, 1
|
||||
mov edi, .rep0
|
||||
stosd
|
||||
stosd
|
||||
stosd
|
||||
stosd
|
||||
; int len=0;
|
||||
; result=0;
|
||||
mov ecx, .Literal + (.LZMA_LIT_SIZE shl (.lc+.lp))
|
||||
mov eax, .kBitModelTotal/2
|
||||
mov edi, .p
|
||||
rep stosd
|
||||
; RangeDecoderInit
|
||||
; rd->ExtraBytes = 0
|
||||
; rd->Buffer = stream
|
||||
; rd->BufferLim = stream+bufferSize
|
||||
; rd->Range = 0xFFFFFFFF
|
||||
pop edi
|
||||
mov ebp, [esi-8] ; dest_length
|
||||
add ebp, edi ; ebp = destination limit
|
||||
lodsd
|
||||
; rd->code_ = eax
|
||||
mov [.code_], eax
|
||||
or [.range], -1
|
||||
.main_loop:
|
||||
cmp edi, ebp
|
||||
jae .main_loop_done
|
||||
mov edx, edi
|
||||
and edx, .posStateMask
|
||||
mov eax, ebx
|
||||
shl eax, .kNumPosBitsMax+2
|
||||
lea eax, [.p + .IsMatch*4 + eax + edx*4]
|
||||
call .RangeDecoderBitDecode
|
||||
jc .1
|
||||
movzx eax, [.previousByte]
|
||||
if .literalPosMask
|
||||
mov ah, dl
|
||||
and ah, .literalPosMask
|
||||
end if
|
||||
shr eax, 8-.lc
|
||||
imul eax, .LZMA_LIT_SIZE*4
|
||||
add eax, .p+.Literal*4
|
||||
cmp ebx, .kNumLitStates
|
||||
jb .literal
|
||||
xor edx, edx
|
||||
sub edx, [.rep0]
|
||||
mov dl, [edi + edx]
|
||||
call .LzmaLiteralDecodeMatch
|
||||
jmp @f
|
||||
.literal:
|
||||
call .LzmaLiteralDecode
|
||||
@@:
|
||||
mov [.previousByte], al
|
||||
stosb
|
||||
mov al, bl
|
||||
cmp bl, 4
|
||||
jb @f
|
||||
mov al, 3
|
||||
cmp bl, 10
|
||||
jb @f
|
||||
mov al, 6
|
||||
@@: sub bl, al
|
||||
jmp .main_loop
|
||||
.1:
|
||||
lea eax, [.p + .IsRep*4 + ebx*4]
|
||||
call .RangeDecoderBitDecode
|
||||
jnc .10
|
||||
lea eax, [.p + .IsRepG0*4 + ebx*4]
|
||||
call .RangeDecoderBitDecode
|
||||
jc .111
|
||||
mov eax, ebx
|
||||
shl eax, .kNumPosBitsMax+2
|
||||
lea eax, [.p + .IsRep0Long*4 + eax + edx*4]
|
||||
call .RangeDecoderBitDecode
|
||||
jc .1101
|
||||
cmp bl, 7
|
||||
setae bl
|
||||
lea ebx, [9 + ebx + ebx]
|
||||
xor edx, edx
|
||||
sub edx, [.rep0]
|
||||
mov al, [edi + edx]
|
||||
stosb
|
||||
mov [.previousByte], al
|
||||
jmp .main_loop
|
||||
.111:
|
||||
lea eax, [.p + .IsRepG1*4 + ebx*4]
|
||||
call .RangeDecoderBitDecode
|
||||
mov eax, [.rep1]
|
||||
jnc .l3
|
||||
.l1:
|
||||
lea eax, [.p + .IsRepG2*4 + ebx*4]
|
||||
call .RangeDecoderBitDecode
|
||||
mov eax, [.rep2]
|
||||
jnc .l2
|
||||
xchg [.rep3], eax
|
||||
.l2:
|
||||
push [.rep1]
|
||||
pop [.rep2]
|
||||
.l3:
|
||||
xchg eax, [.rep0]
|
||||
mov [.rep1], eax
|
||||
.1101:
|
||||
mov eax, .p + .RepLencoder*4
|
||||
call .LzmaLenDecode
|
||||
cmp bl, 7
|
||||
setc bl
|
||||
adc bl, bl
|
||||
xor bl, 3
|
||||
add bl, 8
|
||||
jmp .repmovsb
|
||||
.10:
|
||||
mov eax, [.rep0]
|
||||
xchg eax, [.rep1]
|
||||
xchg eax, [.rep2]
|
||||
xchg eax, [.rep3]
|
||||
cmp bl, 7
|
||||
setc bl
|
||||
adc bl, bl
|
||||
xor bl, 3
|
||||
add bl, 7
|
||||
mov eax, .p + .Lencoder*4
|
||||
call .LzmaLenDecode
|
||||
mov eax, .kNumLenToPosStates-1
|
||||
cmp eax, ecx
|
||||
jb @f
|
||||
mov eax, ecx
|
||||
@@:
|
||||
push ecx
|
||||
mov ecx, .kNumPosSlotBits
|
||||
shl eax, cl
|
||||
shl eax, 2
|
||||
add eax, .p+.PosSlot*4
|
||||
call .RangeDecoderBitTreeDecode
|
||||
mov [.rep0], ecx
|
||||
cmp ecx, .kStartPosModelIndex
|
||||
jb .l6
|
||||
push ecx
|
||||
mov eax, ecx
|
||||
and eax, 1
|
||||
shr ecx, 1
|
||||
or eax, 2
|
||||
dec ecx
|
||||
shl eax, cl
|
||||
mov [.rep0], eax
|
||||
pop edx
|
||||
cmp edx, .kEndPosModelIndex
|
||||
jae .l5
|
||||
sub eax, edx
|
||||
shl eax, 2
|
||||
add eax, .p + (.SpecPos - 1)*4
|
||||
call .RangeDecoderReverseBitTreeDecode
|
||||
add [.rep0], ecx
|
||||
jmp .l6
|
||||
.l5:
|
||||
sub ecx, .kNumAlignBits
|
||||
call .RangeDecoderDecodeDirectBits
|
||||
mov ecx, .kNumAlignBits
|
||||
shl eax, cl
|
||||
add [.rep0], eax
|
||||
mov eax, .p+.Align_*4
|
||||
call .RangeDecoderReverseBitTreeDecode
|
||||
add [.rep0], ecx
|
||||
.l6:
|
||||
pop ecx
|
||||
inc [.rep0]
|
||||
jz .main_loop_done
|
||||
.repmovsb:
|
||||
add ecx, .kMatchMinLen
|
||||
push esi
|
||||
mov esi, edi
|
||||
sub esi, [.rep0]
|
||||
rep movsb
|
||||
pop esi
|
||||
mov al, [edi-1]
|
||||
mov [.previousByte], al
|
||||
jmp .main_loop
|
||||
.main_loop_done:
|
||||
ret
|
||||
|
||||
.RangeDecoderBitDecode:
|
||||
; in: eax->prob
|
||||
; out: CF=bit; destroys eax
|
||||
push edx
|
||||
mov edx, [.range]
|
||||
shr edx, .kNumBitModelTotalBits
|
||||
imul edx, [eax]
|
||||
cmp [.code_], edx
|
||||
jae .ae
|
||||
mov [.range], edx
|
||||
mov edx, .kBitModelTotal
|
||||
sub edx, [eax]
|
||||
shr edx, .kNumMoveBits
|
||||
add [eax], edx
|
||||
clc
|
||||
.n:
|
||||
lahf
|
||||
cmp [.range], .kTopValue
|
||||
jae @f
|
||||
shl [.range], 8
|
||||
shl [.code_], 8
|
||||
lodsb
|
||||
mov byte [.code_], al
|
||||
@@:
|
||||
sahf
|
||||
pop edx
|
||||
ret
|
||||
.ae:
|
||||
sub [.range], edx
|
||||
sub [.code_], edx
|
||||
mov edx, [eax]
|
||||
shr edx, .kNumMoveBits
|
||||
sub [eax], edx
|
||||
stc
|
||||
jmp .n
|
||||
|
||||
.RangeDecoderDecodeDirectBits:
|
||||
; in: ecx=numTotalBits
|
||||
; out: eax=result; destroys edx
|
||||
xor eax, eax
|
||||
.l:
|
||||
shr [.range], 1
|
||||
shl eax, 1
|
||||
mov edx, [.code_]
|
||||
sub edx, [.range]
|
||||
jb @f
|
||||
mov [.code_], edx
|
||||
or eax, 1
|
||||
@@:
|
||||
cmp [.range], .kTopValue
|
||||
jae @f
|
||||
shl [.range], 8
|
||||
shl [.code_], 8
|
||||
push eax
|
||||
lodsb
|
||||
mov byte [.code_], al
|
||||
pop eax
|
||||
@@:
|
||||
loop .l
|
||||
ret
|
||||
|
||||
.LzmaLiteralDecode:
|
||||
; in: eax->probs
|
||||
; out: al=byte; destroys edx
|
||||
push ecx
|
||||
mov ecx, 1
|
||||
@@:
|
||||
push eax
|
||||
lea eax, [eax+ecx*4]
|
||||
call .RangeDecoderBitDecode
|
||||
pop eax
|
||||
adc cl, cl
|
||||
jnc @b
|
||||
.LzmaLiteralDecode.ret:
|
||||
mov al, cl
|
||||
pop ecx
|
||||
ret
|
||||
.LzmaLiteralDecodeMatch:
|
||||
; in: eax->probs, dl=matchByte
|
||||
; out: al=byte; destroys edx
|
||||
push ecx
|
||||
mov ecx, 1
|
||||
.LzmaLiteralDecodeMatch.1:
|
||||
add dl, dl
|
||||
setc ch
|
||||
push eax
|
||||
lea eax, [eax+ecx*4+0x100*4]
|
||||
call .RangeDecoderBitDecode
|
||||
pop eax
|
||||
adc cl, cl
|
||||
jc .LzmaLiteralDecode.ret
|
||||
xor ch, cl
|
||||
test ch, 1
|
||||
mov ch, 0
|
||||
jnz @b
|
||||
jmp .LzmaLiteralDecodeMatch.1
|
||||
|
||||
.LzmaLenDecode:
|
||||
; in: eax->prob, edx=posState
|
||||
; out: ecx=len
|
||||
push eax
|
||||
add eax, .LenChoice*4
|
||||
call .RangeDecoderBitDecode
|
||||
pop eax
|
||||
jnc .0
|
||||
push eax
|
||||
add eax, .LenChoice2*4
|
||||
call .RangeDecoderBitDecode
|
||||
pop eax
|
||||
jc @f
|
||||
mov ecx, .kLenNumMidBits
|
||||
shl edx, cl
|
||||
lea eax, [eax + .LenMid*4 + edx*4]
|
||||
call .RangeDecoderBitTreeDecode
|
||||
add ecx, .kLenNumLowSymbols
|
||||
ret
|
||||
@@:
|
||||
add eax, .LenHigh*4
|
||||
mov ecx, .kLenNumHighBits
|
||||
call .RangeDecoderBitTreeDecode
|
||||
add ecx, .kLenNumLowSymbols + .kLenNumMidSymbols
|
||||
ret
|
||||
.0:
|
||||
mov ecx, .kLenNumLowBits
|
||||
shl edx, cl
|
||||
lea eax, [eax + .LenLow*4 + edx*4]
|
||||
.RangeDecoderBitTreeDecode:
|
||||
; in: eax->probs,ecx=numLevels
|
||||
; out: ecx=length; destroys edx
|
||||
push ebx
|
||||
mov edx, 1
|
||||
mov ebx, edx
|
||||
@@:
|
||||
push eax
|
||||
lea eax, [eax+edx*4]
|
||||
call .RangeDecoderBitDecode
|
||||
pop eax
|
||||
adc dl, dl
|
||||
add bl, bl
|
||||
loop @b
|
||||
sub dl, bl
|
||||
pop ebx
|
||||
mov ecx, edx
|
||||
ret
|
||||
.RangeDecoderReverseBitTreeDecode:
|
||||
; in: eax->probs,ecx=numLevels
|
||||
; out: ecx=length; destroys edx
|
||||
push ebx ecx
|
||||
mov edx, 1
|
||||
xor ebx, ebx
|
||||
@@:
|
||||
push eax
|
||||
lea eax, [eax+edx*4]
|
||||
call .RangeDecoderBitDecode
|
||||
lahf
|
||||
adc edx, edx
|
||||
sahf
|
||||
rcr ebx, 1
|
||||
pop eax
|
||||
loop @b
|
||||
pop ecx
|
||||
rol ebx, cl
|
||||
mov ecx, ebx
|
||||
pop ebx
|
||||
ret
|
||||
Loading…
Reference in New Issue
Block a user