forked from KolibriOS/kolibrios
* popc modified to use function 70 and standard header in function 0
* desktop modified to use function 70 * rsquare (level compression part) modified to use function 70 git-svn-id: svn://kolibrios.org@484 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Evgeny Grechnikov (Diamond)
parent
b192d9260a
commit
0f7aa4d574
269
programs/games/rsquare/trunk/MACROS.INC
Normal file
269
programs/games/rsquare/trunk/MACROS.INC
Normal file
@ -0,0 +1,269 @@
|
|||||||
|
; new application structure
|
||||||
|
macro meos_app_start
|
||||||
|
{
|
||||||
|
use32
|
||||||
|
org 0x0
|
||||||
|
|
||||||
|
db 'MENUET01'
|
||||||
|
dd 0x01
|
||||||
|
dd __start
|
||||||
|
dd __end
|
||||||
|
dd __memory
|
||||||
|
dd __stack
|
||||||
|
|
||||||
|
if used __params & ~defined __params
|
||||||
|
dd __params
|
||||||
|
else
|
||||||
|
dd 0x0
|
||||||
|
end if
|
||||||
|
|
||||||
|
dd 0x0
|
||||||
|
}
|
||||||
|
MEOS_APP_START fix meos_app_start
|
||||||
|
|
||||||
|
macro code
|
||||||
|
{
|
||||||
|
__start:
|
||||||
|
}
|
||||||
|
CODE fix code
|
||||||
|
|
||||||
|
macro data
|
||||||
|
{
|
||||||
|
__data:
|
||||||
|
}
|
||||||
|
DATA fix data
|
||||||
|
|
||||||
|
macro udata
|
||||||
|
{
|
||||||
|
if used __params & ~defined __params
|
||||||
|
__params:
|
||||||
|
db 0
|
||||||
|
__end:
|
||||||
|
rb 255
|
||||||
|
else
|
||||||
|
__end:
|
||||||
|
end if
|
||||||
|
__udata:
|
||||||
|
}
|
||||||
|
UDATA fix udata
|
||||||
|
|
||||||
|
macro meos_app_end
|
||||||
|
{
|
||||||
|
align 32
|
||||||
|
rb 2048
|
||||||
|
__stack:
|
||||||
|
__memory:
|
||||||
|
}
|
||||||
|
MEOS_APP_END fix meos_app_end
|
||||||
|
|
||||||
|
|
||||||
|
; macro for defining multiline text data
|
||||||
|
struc mstr [sstring]
|
||||||
|
{
|
||||||
|
forward
|
||||||
|
local ssize
|
||||||
|
virtual at 0
|
||||||
|
db sstring
|
||||||
|
ssize = $
|
||||||
|
end virtual
|
||||||
|
dd ssize
|
||||||
|
db sstring
|
||||||
|
common
|
||||||
|
dd -1
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
; strings
|
||||||
|
macro sz name,[data] { ; from MFAR [mike.dld]
|
||||||
|
common
|
||||||
|
if used name
|
||||||
|
label name
|
||||||
|
end if
|
||||||
|
forward
|
||||||
|
if used name
|
||||||
|
db data
|
||||||
|
end if
|
||||||
|
common
|
||||||
|
if used name
|
||||||
|
.size = $-name
|
||||||
|
end if
|
||||||
|
}
|
||||||
|
|
||||||
|
macro lsz name,[lng,data] { ; from MFAR [mike.dld]
|
||||||
|
common
|
||||||
|
if used name
|
||||||
|
label name
|
||||||
|
end if
|
||||||
|
forward
|
||||||
|
if (used name)&(lang eq lng)
|
||||||
|
db data
|
||||||
|
end if
|
||||||
|
common
|
||||||
|
if used name
|
||||||
|
.size = $-name
|
||||||
|
end if
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
; easy system call macro
|
||||||
|
macro mpack dest, hsrc, lsrc
|
||||||
|
{
|
||||||
|
if (hsrc eqtype 0) & (lsrc eqtype 0)
|
||||||
|
mov dest, (hsrc) shl 16 + lsrc
|
||||||
|
else
|
||||||
|
if (hsrc eqtype 0) & (~lsrc eqtype 0)
|
||||||
|
mov dest, (hsrc) shl 16
|
||||||
|
add dest, lsrc
|
||||||
|
else
|
||||||
|
mov dest, hsrc
|
||||||
|
shl dest, 16
|
||||||
|
add dest, lsrc
|
||||||
|
end if
|
||||||
|
end if
|
||||||
|
}
|
||||||
|
|
||||||
|
macro __mov reg,a,b { ; mike.dld
|
||||||
|
if (~a eq)&(~b eq)
|
||||||
|
mpack reg,a,b
|
||||||
|
else if (~a eq)&(b eq)
|
||||||
|
mov reg,a
|
||||||
|
end if
|
||||||
|
}
|
||||||
|
|
||||||
|
macro mcall a,b,c,d,e,f { ; mike.dld
|
||||||
|
__mov eax,a
|
||||||
|
__mov ebx,b
|
||||||
|
__mov ecx,c
|
||||||
|
__mov edx,d
|
||||||
|
__mov esi,e
|
||||||
|
__mov edi,f
|
||||||
|
int 0x40
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
; optimize the code for size
|
||||||
|
__regs fix <eax,ebx,ecx,edx,esi,edi,ebp,esp>
|
||||||
|
|
||||||
|
macro add arg1,arg2
|
||||||
|
{
|
||||||
|
if (arg2 eqtype 0)
|
||||||
|
if (arg2) = 1
|
||||||
|
inc arg1
|
||||||
|
else
|
||||||
|
add arg1,arg2
|
||||||
|
end if
|
||||||
|
else
|
||||||
|
add arg1,arg2
|
||||||
|
end if
|
||||||
|
}
|
||||||
|
|
||||||
|
macro sub arg1,arg2
|
||||||
|
{
|
||||||
|
if (arg2 eqtype 0)
|
||||||
|
if (arg2) = 1
|
||||||
|
dec arg1
|
||||||
|
else
|
||||||
|
sub arg1,arg2
|
||||||
|
end if
|
||||||
|
else
|
||||||
|
sub arg1,arg2
|
||||||
|
end if
|
||||||
|
}
|
||||||
|
|
||||||
|
macro mov arg1,arg2
|
||||||
|
{
|
||||||
|
if (arg1 in __regs) & ((arg2 eqtype 0) | (arg2 eqtype '0'))
|
||||||
|
if (arg2) = 0
|
||||||
|
xor arg1,arg1
|
||||||
|
else if (arg2) = 1
|
||||||
|
xor arg1,arg1
|
||||||
|
inc arg1
|
||||||
|
else if (arg2) = -1
|
||||||
|
or arg1,-1
|
||||||
|
else if (arg2) > -128 & (arg2) < 128
|
||||||
|
push arg2
|
||||||
|
pop arg1
|
||||||
|
else
|
||||||
|
mov arg1,arg2
|
||||||
|
end if
|
||||||
|
else
|
||||||
|
mov arg1,arg2
|
||||||
|
end if
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
macro struct name
|
||||||
|
{
|
||||||
|
virtual at 0
|
||||||
|
name name
|
||||||
|
sizeof.#name = $ - name
|
||||||
|
end virtual
|
||||||
|
}
|
||||||
|
|
||||||
|
; structures used in MeOS
|
||||||
|
struc process_information
|
||||||
|
{
|
||||||
|
.cpu_usage dd ? ; +0
|
||||||
|
.window_stack_position dw ? ; +4
|
||||||
|
.window_stack_value dw ? ; +6
|
||||||
|
.not_used1 dw ? ; +8
|
||||||
|
.process_name rb 12 ; +10
|
||||||
|
.memory_start dd ? ; +22
|
||||||
|
.used_memory dd ? ; +26
|
||||||
|
.PID dd ? ; +30
|
||||||
|
.x_start dd ? ; +34
|
||||||
|
.y_start dd ? ; +38
|
||||||
|
.x_size dd ? ; +42
|
||||||
|
.y_size dd ? ; +46
|
||||||
|
.slot_state dw ? ; +50
|
||||||
|
dw ? ; +52 - reserved
|
||||||
|
.client_left dd ? ; +54
|
||||||
|
.client_top dd ? ; +58
|
||||||
|
.client_width dd ? ; +62
|
||||||
|
.client_height dd ? ; +66
|
||||||
|
.wnd_state db ? ; +70
|
||||||
|
rb (1024-71)
|
||||||
|
}
|
||||||
|
struct process_information
|
||||||
|
|
||||||
|
struc system_colors
|
||||||
|
{
|
||||||
|
.frame dd ?
|
||||||
|
.grab dd ?
|
||||||
|
.grab_button dd ?
|
||||||
|
.grab_button_text dd ?
|
||||||
|
.grab_text dd ?
|
||||||
|
.work dd ?
|
||||||
|
.work_button dd ?
|
||||||
|
.work_button_text dd ?
|
||||||
|
.work_text dd ?
|
||||||
|
.work_graph dd ?
|
||||||
|
}
|
||||||
|
struct system_colors
|
||||||
|
|
||||||
|
|
||||||
|
; constants
|
||||||
|
|
||||||
|
; events
|
||||||
|
EV_IDLE = 0
|
||||||
|
EV_TIMER = 0
|
||||||
|
EV_REDRAW = 1
|
||||||
|
EV_KEY = 2
|
||||||
|
EV_BUTTON = 3
|
||||||
|
EV_EXIT = 4
|
||||||
|
EV_BACKGROUND = 5
|
||||||
|
EV_MOUSE = 6
|
||||||
|
EV_IPC = 7
|
||||||
|
EV_STACK = 8
|
||||||
|
|
||||||
|
; event mask bits for function 40
|
||||||
|
EVM_REDRAW = 1b
|
||||||
|
EVM_KEY = 10b
|
||||||
|
EVM_BUTTON = 100b
|
||||||
|
EVM_EXIT = 1000b
|
||||||
|
EVM_BACKGROUND = 10000b
|
||||||
|
EVM_MOUSE = 100000b
|
||||||
|
EVM_IPC = 1000000b
|
||||||
|
EVM_STACK = 10000000b
|
||||||
711
programs/games/rsquare/trunk/RSQUARE.ASM
Normal file
711
programs/games/rsquare/trunk/RSQUARE.ASM
Normal file
@ -0,0 +1,711 @@
|
|||||||
|
LEVELCONV equ 10
|
||||||
|
SQ equ 8
|
||||||
|
FLDSIZE equ 49
|
||||||
|
FLDSIZE2 equ FLDSIZE*8
|
||||||
|
DELAY equ 20
|
||||||
|
TICKS equ 10
|
||||||
|
LEV_START equ 1
|
||||||
|
MOBILITY equ 9;13
|
||||||
|
|
||||||
|
use32
|
||||||
|
org 0x0
|
||||||
|
|
||||||
|
db 'MENUET01' ; 8 byte id
|
||||||
|
dd 0x01 ; header version
|
||||||
|
dd run ; start of code
|
||||||
|
dd I_END ; size of image
|
||||||
|
dd stak+0x400 ; memory for app
|
||||||
|
dd stak+0x400 ; esp
|
||||||
|
dd 0x0 , 0x0 ; I_Param , I_Icon
|
||||||
|
include "lang.inc"
|
||||||
|
include "MACROS.INC"
|
||||||
|
;include "DEBUG.INC"
|
||||||
|
|
||||||
|
run:
|
||||||
|
if LEVELCONV eq 1
|
||||||
|
call compress_levels
|
||||||
|
jmp close
|
||||||
|
end if
|
||||||
|
mcall 3
|
||||||
|
mov cl,16
|
||||||
|
ror eax,cl
|
||||||
|
mov [generator],eax ; random generator from Tetris
|
||||||
|
reset:
|
||||||
|
mov [levptr],level
|
||||||
|
mov [levnum],LEV_START
|
||||||
|
if ~ LEV_START eq 1
|
||||||
|
mov ecx,[levnum]
|
||||||
|
dec ecx
|
||||||
|
mov esi,[levptr]
|
||||||
|
jecxz start
|
||||||
|
.lp:
|
||||||
|
movzx eax,word[esi]
|
||||||
|
and eax,0x7fff
|
||||||
|
add esi,eax ; limit
|
||||||
|
loop .lp
|
||||||
|
mov [levptr],esi
|
||||||
|
; sub esi,level
|
||||||
|
; dpd esi
|
||||||
|
end if
|
||||||
|
start:
|
||||||
|
mov ecx,[generator]
|
||||||
|
and ecx,0xff
|
||||||
|
.shuf:
|
||||||
|
call random
|
||||||
|
loop .shuf
|
||||||
|
xor eax,eax
|
||||||
|
and [locked],eax
|
||||||
|
and [captured],eax
|
||||||
|
mov [ticks],TICKS
|
||||||
|
mov [mode],-1
|
||||||
|
mov ebx,FLDSIZE
|
||||||
|
mov eax,[generator]
|
||||||
|
xor edx,edx
|
||||||
|
div ebx
|
||||||
|
mov cl,dl
|
||||||
|
call random
|
||||||
|
mov eax,[generator]
|
||||||
|
xor edx,edx
|
||||||
|
div ebx
|
||||||
|
mov ch,dl
|
||||||
|
xchg eax,ecx
|
||||||
|
movzx ecx,al
|
||||||
|
imul cx,bx
|
||||||
|
shr ax,8
|
||||||
|
add cx,ax
|
||||||
|
mov esi,[levptr]
|
||||||
|
mov [dot],ecx
|
||||||
|
call decompress_level
|
||||||
|
mov ebx,8
|
||||||
|
call nokey
|
||||||
|
red:
|
||||||
|
call draw_window
|
||||||
|
; and [event],0
|
||||||
|
|
||||||
|
still:
|
||||||
|
|
||||||
|
.flush:
|
||||||
|
mcall 2
|
||||||
|
test al,al
|
||||||
|
jz .flush
|
||||||
|
|
||||||
|
mov ebx,DELAY
|
||||||
|
mov eax,[levnum]
|
||||||
|
shr eax,1
|
||||||
|
sub ebx,eax
|
||||||
|
mov eax,23
|
||||||
|
cmp [mode],0
|
||||||
|
jl .wait
|
||||||
|
mov eax,10
|
||||||
|
.wait:
|
||||||
|
mcall
|
||||||
|
.evt:
|
||||||
|
mov ebx,8
|
||||||
|
test eax,eax
|
||||||
|
jne .ev_yes
|
||||||
|
dec [ticks]
|
||||||
|
jne still
|
||||||
|
; mov [ticks],TICKS
|
||||||
|
; cmp al,[event]
|
||||||
|
jmp key.ex
|
||||||
|
; and [event],al
|
||||||
|
; jmp still
|
||||||
|
.ev_yes:
|
||||||
|
cmp eax,2
|
||||||
|
je key
|
||||||
|
cmp eax,1 ; redraw request ?
|
||||||
|
je red
|
||||||
|
cmp eax,3 ; button in buffer ?
|
||||||
|
je button
|
||||||
|
key:
|
||||||
|
; mov [event],al
|
||||||
|
mcall 2
|
||||||
|
cmp ah,13
|
||||||
|
je button.mode
|
||||||
|
cmp ah,27
|
||||||
|
je button.mode
|
||||||
|
cmp [mode],-1
|
||||||
|
jne still
|
||||||
|
cmp ah,104
|
||||||
|
jne .nohelp
|
||||||
|
mov [mode],4
|
||||||
|
jmp red
|
||||||
|
.nohelp:
|
||||||
|
cmp ah,112
|
||||||
|
jne .nopau
|
||||||
|
mov [mode],3
|
||||||
|
jmp red
|
||||||
|
.nopau:
|
||||||
|
shr eax,8
|
||||||
|
; dpd eax
|
||||||
|
cmp eax,' '
|
||||||
|
je .ex
|
||||||
|
cmp eax,176
|
||||||
|
jb still
|
||||||
|
cmp eax,179
|
||||||
|
ja still
|
||||||
|
cmp [locked],0
|
||||||
|
jnz still
|
||||||
|
lea ebx,[eax-176]
|
||||||
|
.ex:
|
||||||
|
mov [ticks],TICKS
|
||||||
|
call nokey
|
||||||
|
call evolution
|
||||||
|
call red_field
|
||||||
|
jmp still
|
||||||
|
|
||||||
|
button: ; BUTTON - only close supported
|
||||||
|
mcall 17
|
||||||
|
cmp ah,2
|
||||||
|
jne close
|
||||||
|
mcall 8,,,2+1 shl 31
|
||||||
|
; mov [event],2
|
||||||
|
.mode:
|
||||||
|
mov [ticks],TICKS
|
||||||
|
mov al,[mode]
|
||||||
|
cmp al,1
|
||||||
|
je reset
|
||||||
|
cmp al,2
|
||||||
|
je reset
|
||||||
|
mov [mode],-1
|
||||||
|
test al,al
|
||||||
|
jnz .no0
|
||||||
|
inc [levnum]
|
||||||
|
jmp start
|
||||||
|
.no0:
|
||||||
|
jmp red
|
||||||
|
close:
|
||||||
|
or eax,-1
|
||||||
|
int 0x40
|
||||||
|
|
||||||
|
; *********************************************
|
||||||
|
; ******* WINDOW DEFINITIONS AND DRAW ********
|
||||||
|
; *********************************************
|
||||||
|
draw_window:
|
||||||
|
mov [ticks],TICKS
|
||||||
|
mcall 12,1
|
||||||
|
mcall 0,<100,FLDSIZE2+16>,<100,FLDSIZE2+38>,0x03008000
|
||||||
|
mcall 4,<8,8>,0x10ffffff,header,header.size
|
||||||
|
mov esi,ecx
|
||||||
|
if lang eq ru
|
||||||
|
mcall 47,0x20000,[levnum],<165,8>
|
||||||
|
else
|
||||||
|
mcall 47,0x20000,[levnum],<145,8>
|
||||||
|
end if
|
||||||
|
call red_field
|
||||||
|
cmp [mode],0
|
||||||
|
jl .edraw
|
||||||
|
mov ecx,(FLDSIZE2-20) shl 16+20
|
||||||
|
cmp [mode],4
|
||||||
|
jne .nohelp
|
||||||
|
mov ecx,100 shl 16+FLDSIZE2-35-100+38
|
||||||
|
.nohelp:
|
||||||
|
mcall 13,<5+8,FLDSIZE2-8>,,0xf5deb3;0xffff00
|
||||||
|
mcall 8,<FLDSIZE2-40,35>,<FLDSIZE2-18,15>,2,0xc0c000
|
||||||
|
mcall 4,<363,FLDSIZE2-20+6>,0x100000ff,msg_ok,2
|
||||||
|
mov ebx,(5+8+35)shl 16+FLDSIZE2-20+6
|
||||||
|
movzx ecx,[mode]
|
||||||
|
mov edx,messages+4
|
||||||
|
cmp ecx,4
|
||||||
|
jne .nxt
|
||||||
|
mov edx,desc+4
|
||||||
|
xor ecx,ecx
|
||||||
|
mov ebx,20 shl 16+110
|
||||||
|
.nxt:
|
||||||
|
mov esi,[edx-4]
|
||||||
|
jecxz .drw
|
||||||
|
dec ecx
|
||||||
|
lea edx,[edx+esi+4]
|
||||||
|
jmp .nxt
|
||||||
|
.drw:
|
||||||
|
cmp esi,-1
|
||||||
|
je .edraw
|
||||||
|
mcall ,,0x000000ff
|
||||||
|
mov ecx,1
|
||||||
|
add ebx,18
|
||||||
|
cmp [mode],4
|
||||||
|
je .nxt
|
||||||
|
.edraw:
|
||||||
|
mcall 12,2
|
||||||
|
ret
|
||||||
|
|
||||||
|
red_field:
|
||||||
|
mov edi,field
|
||||||
|
mov ebp,28 shl 16+SQ ; y
|
||||||
|
mov ecx,FLDSIZE
|
||||||
|
.lp1:
|
||||||
|
push ecx
|
||||||
|
mov ecx,FLDSIZE
|
||||||
|
mov ebx,8 shl 16+SQ ; x
|
||||||
|
.lp2:
|
||||||
|
push ecx
|
||||||
|
mov edx,0x8000
|
||||||
|
cmp byte[edi],0
|
||||||
|
je .zero
|
||||||
|
cmp byte[edi],2
|
||||||
|
jne .nored
|
||||||
|
mov edx,0xff0000
|
||||||
|
cmp [locked],0
|
||||||
|
jz .zero
|
||||||
|
mov edx,0xa00000
|
||||||
|
jmp .zero
|
||||||
|
.nored:
|
||||||
|
mov edx,0
|
||||||
|
.zero:
|
||||||
|
mcall 13,,ebp
|
||||||
|
inc edi
|
||||||
|
pop ecx
|
||||||
|
add ebx,8 shl 16
|
||||||
|
loop .lp2
|
||||||
|
pop ecx
|
||||||
|
add ebp,8 shl 16
|
||||||
|
loop .lp1
|
||||||
|
|
||||||
|
mov eax,[dot]
|
||||||
|
mov cl,FLDSIZE
|
||||||
|
div cl
|
||||||
|
|
||||||
|
; movzx ebx,ah
|
||||||
|
; shl ebx,19
|
||||||
|
; add ebx,8 shl 16+7
|
||||||
|
; movzx ecx,al
|
||||||
|
; shl ecx,19
|
||||||
|
; add ecx,28 shl 16+7
|
||||||
|
; push eax
|
||||||
|
; mcall 13,,,0xff
|
||||||
|
; pop eax
|
||||||
|
|
||||||
|
movzx ebx,ah
|
||||||
|
shl ebx,19
|
||||||
|
add ebx,8 shl 16
|
||||||
|
shld edx,ebx,16
|
||||||
|
add dx,SQ-1
|
||||||
|
mov bx,dx
|
||||||
|
movzx ecx,al
|
||||||
|
shl ecx,19
|
||||||
|
add ecx,28 shl 16
|
||||||
|
shld edx,ecx,16
|
||||||
|
add dx,SQ-1
|
||||||
|
mov cx,dx
|
||||||
|
mcall 38,,,0xffffff
|
||||||
|
ror ecx,16
|
||||||
|
mcall
|
||||||
|
ret
|
||||||
|
|
||||||
|
nokey:
|
||||||
|
xor eax,eax
|
||||||
|
mov edi,buff
|
||||||
|
mov ecx,FLDSIZE*FLDSIZE+3
|
||||||
|
push ecx edi
|
||||||
|
rep stosb
|
||||||
|
pop edi
|
||||||
|
;mov esi,field
|
||||||
|
mov edi,field
|
||||||
|
mov edx,FLDSIZE
|
||||||
|
pop ecx
|
||||||
|
.llp:
|
||||||
|
mov eax,2
|
||||||
|
repne scasb
|
||||||
|
jecxz .exx
|
||||||
|
and byte[edi-1],0
|
||||||
|
push ecx
|
||||||
|
lea eax,[edi-field-1]
|
||||||
|
div dl
|
||||||
|
call get_cell
|
||||||
|
mov byte[buff+ecx],2
|
||||||
|
pop ecx
|
||||||
|
loop .llp
|
||||||
|
.exx:
|
||||||
|
mov edi,field
|
||||||
|
mov esi,buff
|
||||||
|
mov ecx,FLDSIZE*FLDSIZE
|
||||||
|
.lp4:
|
||||||
|
lodsb
|
||||||
|
cmp al,2
|
||||||
|
jne .skip3
|
||||||
|
mov [edi],al
|
||||||
|
.skip3:
|
||||||
|
inc edi
|
||||||
|
loop .lp4
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
get_cell:
|
||||||
|
; ax - source cell [x][y]
|
||||||
|
; ebx - direction
|
||||||
|
; 4 2 5
|
||||||
|
; 0 . 3
|
||||||
|
; 6 1 7
|
||||||
|
; out - ecx cell ptr
|
||||||
|
|
||||||
|
push eax ebx
|
||||||
|
add ax,[ebx*2+dirs]
|
||||||
|
mov ebx,FLDSIZE
|
||||||
|
.c0:
|
||||||
|
cmp al,bl
|
||||||
|
jb .c1
|
||||||
|
sub al,bl
|
||||||
|
jmp .c0
|
||||||
|
.c1:
|
||||||
|
cmp ah,bl
|
||||||
|
jb .c2
|
||||||
|
sub ah,bl
|
||||||
|
jmp .c1
|
||||||
|
.c2:
|
||||||
|
movzx ecx,al
|
||||||
|
imul cx,bx
|
||||||
|
shr ax,8
|
||||||
|
add cx,ax
|
||||||
|
pop ebx eax
|
||||||
|
ret
|
||||||
|
|
||||||
|
evolution:
|
||||||
|
xor edi,edi
|
||||||
|
and [locked],edi
|
||||||
|
mov edx,FLDSIZE
|
||||||
|
mov ecx,FLDSIZE*FLDSIZE
|
||||||
|
.l1:
|
||||||
|
push ecx
|
||||||
|
mov eax,edi
|
||||||
|
div dl
|
||||||
|
mov ecx,8
|
||||||
|
xor ebx,ebx
|
||||||
|
mov word[neib],bx ; neighbour count
|
||||||
|
.l2:
|
||||||
|
push ecx
|
||||||
|
call get_cell
|
||||||
|
movzx esi,byte[field+ecx]
|
||||||
|
test esi,esi ; 0?
|
||||||
|
jz .skip2
|
||||||
|
inc byte[neib-1+esi]
|
||||||
|
.skip2:
|
||||||
|
inc ebx
|
||||||
|
pop ecx
|
||||||
|
loop .l2
|
||||||
|
mov cl,[neib]
|
||||||
|
add cl,[neib+1]
|
||||||
|
cmp cl,2
|
||||||
|
jne .no2
|
||||||
|
mov al,[field+edi]
|
||||||
|
jmp .writebuf
|
||||||
|
.no2:
|
||||||
|
xor al,al
|
||||||
|
cmp cl,3
|
||||||
|
jne .writebuf
|
||||||
|
inc al
|
||||||
|
mov cl,[neib+1]
|
||||||
|
cmp cl,[neib]
|
||||||
|
jb .writebuf
|
||||||
|
inc al
|
||||||
|
.writebuf:
|
||||||
|
mov [buff+edi],al
|
||||||
|
pop ecx
|
||||||
|
inc edi
|
||||||
|
loop .l1
|
||||||
|
|
||||||
|
mov esi,buff
|
||||||
|
mov edi,field
|
||||||
|
mov ecx,FLDSIZE*FLDSIZE
|
||||||
|
rep movsb
|
||||||
|
call square_check
|
||||||
|
call dot_move
|
||||||
|
ret
|
||||||
|
|
||||||
|
square_check:
|
||||||
|
mov ecx,FLDSIZE*FLDSIZE+3
|
||||||
|
mov edx,FLDSIZE
|
||||||
|
mov edi,field
|
||||||
|
xor eax,eax
|
||||||
|
pusha
|
||||||
|
and dword[cells],eax
|
||||||
|
and [locked],eax
|
||||||
|
.nored:
|
||||||
|
mov al,[edi]
|
||||||
|
inc edi
|
||||||
|
dec ecx
|
||||||
|
jecxz .ex1
|
||||||
|
test al,al
|
||||||
|
jz .nored
|
||||||
|
inc [cells-2+eax*2]
|
||||||
|
jmp .nored
|
||||||
|
.ex1:
|
||||||
|
mov ax,[cells+2]
|
||||||
|
cmp ax,[cells]
|
||||||
|
ja dot_move.next_lev
|
||||||
|
cmp [cells+2],4
|
||||||
|
je .sq_check
|
||||||
|
add esp,32
|
||||||
|
cmp [cells+2],0
|
||||||
|
jne .loc
|
||||||
|
mov [mode],1
|
||||||
|
mov dword[esp+4],red
|
||||||
|
.loc:
|
||||||
|
inc [locked]
|
||||||
|
ret
|
||||||
|
.sq_check:
|
||||||
|
popa
|
||||||
|
.nored2:
|
||||||
|
mov eax,2
|
||||||
|
repne scasb
|
||||||
|
jecxz .loc
|
||||||
|
lea eax,[edi-field-1]
|
||||||
|
div dl
|
||||||
|
xor dh,dh
|
||||||
|
push ecx
|
||||||
|
mov ebx,1
|
||||||
|
call get_cell
|
||||||
|
add dh,[field+ecx]
|
||||||
|
mov ebx,3
|
||||||
|
call get_cell
|
||||||
|
add dh,[field+ecx]
|
||||||
|
mov ebx,7
|
||||||
|
call get_cell
|
||||||
|
add dh,[field+ecx]
|
||||||
|
pop ecx
|
||||||
|
cmp dh,6
|
||||||
|
jne .nored2
|
||||||
|
ret
|
||||||
|
|
||||||
|
random:
|
||||||
|
mov eax, [generator]
|
||||||
|
sub eax,0x43ab45b5 ; next random number
|
||||||
|
ror eax,1
|
||||||
|
xor eax,0x32c4324f
|
||||||
|
ror eax,1
|
||||||
|
mov [generator],eax
|
||||||
|
ret
|
||||||
|
|
||||||
|
dot_move:
|
||||||
|
call random
|
||||||
|
mov eax,[generator]
|
||||||
|
xor edx,edx
|
||||||
|
mov ebx,MOBILITY
|
||||||
|
div ebx
|
||||||
|
cmp edx,8
|
||||||
|
jb .nostay
|
||||||
|
mov edx,16
|
||||||
|
.nostay:
|
||||||
|
mov ebx,edx
|
||||||
|
shr ebx,1
|
||||||
|
mov eax,[dot]
|
||||||
|
; dpd eax
|
||||||
|
mov cl,FLDSIZE
|
||||||
|
div cl
|
||||||
|
call get_cell
|
||||||
|
mov [dot],ecx
|
||||||
|
cmp byte[field+ecx],2
|
||||||
|
jne .nocap
|
||||||
|
inc [captured]
|
||||||
|
cmp [captured],2
|
||||||
|
jne .ex
|
||||||
|
.next_lev:
|
||||||
|
mov [mode],0
|
||||||
|
pop eax
|
||||||
|
mov eax,[levptr]
|
||||||
|
cmp word[eax],0
|
||||||
|
jne .nxt
|
||||||
|
mov [mode],2
|
||||||
|
.nxt:
|
||||||
|
mov dword[esp],red
|
||||||
|
ret
|
||||||
|
.nocap:
|
||||||
|
and [captured],0
|
||||||
|
.ex:
|
||||||
|
ret
|
||||||
|
|
||||||
|
if LEVELCONV eq 1
|
||||||
|
fileinfo:
|
||||||
|
|
||||||
|
dd 2
|
||||||
|
dd 0x0
|
||||||
|
dd 0x0
|
||||||
|
.fsize dd 10000
|
||||||
|
.ptr dd 0x20000
|
||||||
|
db '/RD/1/newlev.bin',0
|
||||||
|
|
||||||
|
macro flush
|
||||||
|
{
|
||||||
|
mov [edi],dh
|
||||||
|
inc edi
|
||||||
|
}
|
||||||
|
|
||||||
|
compress_levels:
|
||||||
|
mov esi,raw_level
|
||||||
|
mov edi,I_END
|
||||||
|
mov [fileinfo.ptr],edi
|
||||||
|
mov ecx,(raw_level_size-raw_level)/(FLDSIZE*FLDSIZE*4) ; 19
|
||||||
|
.lp1:
|
||||||
|
push ecx
|
||||||
|
mov ecx,FLDSIZE*FLDSIZE
|
||||||
|
mov ebx,edi
|
||||||
|
mov eax,[esi]
|
||||||
|
; movzx eax,byte[esi]
|
||||||
|
movzx edx,al
|
||||||
|
dpd edx
|
||||||
|
shl eax,15
|
||||||
|
stosw
|
||||||
|
.lp2:
|
||||||
|
lodsd ;lodsb
|
||||||
|
cmp al,0xd
|
||||||
|
jne .nored
|
||||||
|
flush
|
||||||
|
xor al,al
|
||||||
|
stosb
|
||||||
|
add esi,4
|
||||||
|
dec ecx
|
||||||
|
xor dh,dh
|
||||||
|
jmp .eloop
|
||||||
|
.nored:
|
||||||
|
cmp al,dl
|
||||||
|
jne .change
|
||||||
|
inc dh
|
||||||
|
cmp dh,0xff
|
||||||
|
jb .eloop
|
||||||
|
flush
|
||||||
|
xor dh,dh
|
||||||
|
jmp .eloop
|
||||||
|
.change:
|
||||||
|
flush
|
||||||
|
xor dl,1
|
||||||
|
mov dh,1
|
||||||
|
.eloop:
|
||||||
|
loop .lp2
|
||||||
|
flush
|
||||||
|
mov eax,edi
|
||||||
|
sub eax,ebx
|
||||||
|
add [ebx],ax
|
||||||
|
pop ecx
|
||||||
|
loop .lp1
|
||||||
|
xor eax,eax
|
||||||
|
stosw
|
||||||
|
sub edi,I_END
|
||||||
|
mov [fileinfo.fsize],edi
|
||||||
|
mcall 70,fileinfo
|
||||||
|
ret
|
||||||
|
|
||||||
|
raw_level:
|
||||||
|
file 'noname1.dat'
|
||||||
|
raw_level_size:
|
||||||
|
|
||||||
|
end if
|
||||||
|
|
||||||
|
decompress_level:
|
||||||
|
; esi - level begin
|
||||||
|
mov edi,field
|
||||||
|
movzx edx,word[esi]
|
||||||
|
xor ecx,ecx
|
||||||
|
mov eax,edx
|
||||||
|
and edx,0x7fff
|
||||||
|
add edx,esi ; limit
|
||||||
|
mov [levptr],edx
|
||||||
|
add esi,2
|
||||||
|
shr eax,15
|
||||||
|
.next:
|
||||||
|
cmp esi,edx
|
||||||
|
jae .exloop
|
||||||
|
movzx ebx,byte[esi]
|
||||||
|
inc esi
|
||||||
|
test ebx,ebx
|
||||||
|
jne .nored
|
||||||
|
rep stosb
|
||||||
|
xor al,1
|
||||||
|
mov word[edi],0x0202
|
||||||
|
add edi,2
|
||||||
|
jmp .next
|
||||||
|
.nored:
|
||||||
|
add ecx,ebx
|
||||||
|
cmp ebx,0xff
|
||||||
|
je .next
|
||||||
|
rep stosb
|
||||||
|
xor al,1
|
||||||
|
jmp .next
|
||||||
|
.exloop:
|
||||||
|
rep stosb
|
||||||
|
ret
|
||||||
|
|
||||||
|
; DATA AREA
|
||||||
|
|
||||||
|
FS1 equ (FLDSIZE-1)
|
||||||
|
dirs dw FS1 shl 8,\
|
||||||
|
1,\
|
||||||
|
FS1,\
|
||||||
|
1 shl 8,\
|
||||||
|
FS1 shl 8+FS1,\
|
||||||
|
1 shl 8+FS1,\
|
||||||
|
FS1 shl 8+1,\
|
||||||
|
1 shl 8+1,\
|
||||||
|
0
|
||||||
|
level:
|
||||||
|
file 'rlevels.bin'
|
||||||
|
|
||||||
|
msg_ok db 'OK'
|
||||||
|
if lang eq ru
|
||||||
|
header db 'Red Square - “஢¥ì h - <20>®¬®éì, p - <20> 㧠'
|
||||||
|
.size = $ - header
|
||||||
|
messages mstr 'Žâ«¨ç®! ‚ë ¯¥à¥å®¤¨â¥ á«¥¤ãî騩 ã஢¥ì.',\
|
||||||
|
'Šà áë¥ ª«¥âª¨ ã¨ç⮦¥ë. ‚ë ¯à®¨£à «¨.',\
|
||||||
|
'‚ë ¯à®è«¨ ¢á¥ ã஢¨. <EFBFBD>®§¤à ¢«ï¥¬!',\
|
||||||
|
'ˆ£à ¯à¨®áâ ®¢«¥ ...'
|
||||||
|
|
||||||
|
desc mstr ' ‚ë ¨£à ¥â¥ ªà áë¬ ª¢ ¤à ⨪®¬. –¥«ì ¨£àë - ¢ë¦¨âì á।¨',\
|
||||||
|
'à §¢¨¢ îé¨åáï ç¥àëå ª«¥â®ª. …᫨ ‚ ¬ 㤠áâáï ¯®©¬ âì ¡¥«ë©',\
|
||||||
|
'ªà¥á⨪, ‚ë ¯à®©¤¥â¥ ã஢¥ì.',\
|
||||||
|
' —â®¡ë ¯®©¬ âì ¡¥«ë© ªà¥á⨪, ® ¤®«¦¥ ¡ëâì ªàëâ ®¤®©',\
|
||||||
|
'¨§ ªà áëå ª«¥â®ª ¯à®â殮¨¨ 2 ¯®ª®«¥¨© ¯®¤àï¤.',\
|
||||||
|
' …᫨ ªà áë© ª¢ ¤à â à §àãè¥, íâ® ¥é¥ ¥ ¯à®¨£àëè. Œ®¦¥â',\
|
||||||
|
'¡ëâì, ‚ ¬ ¯®¢¥§¥â ¨ ¥á«¨ ¢ ¯à®æ¥áá¥ í¢®«î樨 ª®«¨ç¥á⢮ ‚ è¨å',\
|
||||||
|
'ªà áëå ª«¥â®ª á⠥⠡®«ìè¥, 祬 ç¥àëå, ã஢¥ì ¡ã¤¥â',\
|
||||||
|
"¯à®©¤¥.",\
|
||||||
|
'---',\
|
||||||
|
'„¦® •®àâ® Š®ãí© ¨§®¡à¥« ¯à¥ªà áãî ¨£àã. <EFBFBD>®ç⨠ª ¦¤ë©',\
|
||||||
|
'¯à®£à ¬¬¨áâ ç¨ ¥â á¢®î ¯à ªâ¨ªã á ¥¥. Ž¤ ª® ॠ«ìë¥',\
|
||||||
|
'¢®§¬®¦®á⨠í⮩ ¨£àë ¥é¥ ¯«®å® ¨§ãç¥ë.',\
|
||||||
|
'---',\
|
||||||
|
'Žà¨£¨ « ¨£àë ¯®¤ Win32 ¯¨á « ‚« ¤¨¬¨à <EFBFBD>ਢ «®¢, 2002',\
|
||||||
|
'‡ ¯à®£à ¬¬¨à®¢ « áᥬ¡«¥à¥ Willow, 2005'
|
||||||
|
else
|
||||||
|
header db 'Red Square - Level h - Help, p - Pause'
|
||||||
|
.size = $ - header
|
||||||
|
messages mstr 'Well done! You are on the next level',\
|
||||||
|
'Your red cells are vanished! Game over.',\
|
||||||
|
"You've completed the game. Congratulations!",\
|
||||||
|
'Game paused...'
|
||||||
|
|
||||||
|
desc mstr ' The main goal of the game for your red square is to stay',\
|
||||||
|
'alive going through the evolving black cells. If you manage to',\
|
||||||
|
'catch the white cross, you will pass the level.',\
|
||||||
|
' To catch the white cross, it must be covered by red cell',\
|
||||||
|
'during 2 generations.',\
|
||||||
|
" If your red square is corrupted, you haven't lost yet. You",\
|
||||||
|
'may have a luck, and if your red cells is developing and the',\
|
||||||
|
'quantity of black cells is bigger than that of black cells,',\
|
||||||
|
"you'll pass the level.",\
|
||||||
|
'---',\
|
||||||
|
'John Horton Conway has created a great game. Almost every',\
|
||||||
|
'programmer begins his professional work from it. But the real',\
|
||||||
|
'possibilities of this game have not discovered yet.',\
|
||||||
|
'---',\
|
||||||
|
'Original game under Win32 by Vladimir Privalov, 2002',\
|
||||||
|
'Programmed in assembly by Willow, 2005'
|
||||||
|
end if
|
||||||
|
I_END:
|
||||||
|
neib db ?,?
|
||||||
|
cells dw ?,?
|
||||||
|
mode db ?
|
||||||
|
levptr dd ?
|
||||||
|
levnum dd ?
|
||||||
|
reds dd ?
|
||||||
|
locked dd ?
|
||||||
|
generator dd ?
|
||||||
|
dot dd ?
|
||||||
|
ticks dd ?
|
||||||
|
captured dd ?
|
||||||
|
if LEVELCONV eq 1
|
||||||
|
os_work rb 4096
|
||||||
|
end if
|
||||||
|
field:
|
||||||
|
rb FLDSIZE*FLDSIZE
|
||||||
|
rd 1
|
||||||
|
buff:
|
||||||
|
rb FLDSIZE*FLDSIZE
|
||||||
|
stak:
|
||||||
4
programs/games/rsquare/trunk/build_en.bat
Normal file
4
programs/games/rsquare/trunk/build_en.bat
Normal file
@ -0,0 +1,4 @@
|
|||||||
|
@echo lang fix en >lang.inc
|
||||||
|
@fasm 3dcube2.asm 3dcube2
|
||||||
|
@erase lang.inc
|
||||||
|
@pause
|
||||||
4
programs/games/rsquare/trunk/build_ru.bat
Normal file
4
programs/games/rsquare/trunk/build_ru.bat
Normal file
@ -0,0 +1,4 @@
|
|||||||
|
@echo lang fix ru >lang.inc
|
||||||
|
@fasm 3dcube2.asm 3dcube2
|
||||||
|
@erase lang.inc
|
||||||
|
@pause
|
||||||
BIN
programs/games/rsquare/trunk/rlevels.bin
Normal file
BIN
programs/games/rsquare/trunk/rlevels.bin
Normal file
Binary file not shown.
@ -10,7 +10,6 @@
|
|||||||
;; ;;
|
;; ;;
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
include 'lang.inc'
|
|
||||||
version equ '0.1'
|
version equ '0.1'
|
||||||
|
|
||||||
use32
|
use32
|
||||||
@ -29,18 +28,21 @@ START: ; start of execution
|
|||||||
|
|
||||||
mov [file_start],0x100000
|
mov [file_start],0x100000
|
||||||
|
|
||||||
mov eax,58
|
mov eax,70
|
||||||
mov ebx,filel
|
mov ebx,filel
|
||||||
int 0x40
|
int 0x40
|
||||||
|
|
||||||
cmp eax,0
|
test eax,eax
|
||||||
jne notfound
|
jz @f
|
||||||
|
cmp eax,6
|
||||||
|
jnz notfound
|
||||||
|
@@:
|
||||||
add [file_start],ebx
|
add [file_start],ebx
|
||||||
notfound:
|
notfound:
|
||||||
|
|
||||||
mov edi,I_END
|
mov edi,I_END
|
||||||
mov ecx,60*120
|
mov ecx,60*120
|
||||||
mov eax,32
|
mov al,32
|
||||||
cld
|
cld
|
||||||
rep stosb
|
rep stosb
|
||||||
|
|
||||||
@ -98,14 +100,12 @@ save_file:
|
|||||||
|
|
||||||
pusha
|
pusha
|
||||||
|
|
||||||
mov edi,[file_start]
|
mov ebx,files
|
||||||
|
|
||||||
mov eax,[file_start]
|
mov eax,[file_start]
|
||||||
sub eax,0x100000
|
sub eax,0x100000
|
||||||
mov [files+8],eax
|
mov [ebx+12],eax
|
||||||
|
|
||||||
mov eax,58
|
mov eax,70
|
||||||
mov ebx,files
|
|
||||||
int 0x40
|
int 0x40
|
||||||
|
|
||||||
popa
|
popa
|
||||||
@ -230,9 +230,8 @@ button: ; button
|
|||||||
|
|
||||||
cmp ah,60
|
cmp ah,60
|
||||||
jne no_open
|
jne no_open
|
||||||
mov eax,19
|
mov eax, 70
|
||||||
mov ebx,tp
|
mov ebx, tinypad_start
|
||||||
mov ecx,pr
|
|
||||||
int 0x40
|
int 0x40
|
||||||
jmp still
|
jmp still
|
||||||
no_open:
|
no_open:
|
||||||
@ -816,21 +815,12 @@ draw_window:
|
|||||||
mov eax,0 ; draw window
|
mov eax,0 ; draw window
|
||||||
mov ebx,5*65536+435
|
mov ebx,5*65536+435
|
||||||
mov ecx,5*65536+232
|
mov ecx,5*65536+232
|
||||||
mov edx,[wcolor]
|
mov edx,0x13ffffff
|
||||||
add edx,0x03ffffff
|
mov edi,labelt
|
||||||
mov esi,0x80555599
|
|
||||||
mov edi,0x00ffffff
|
|
||||||
int 0x40
|
int 0x40
|
||||||
|
|
||||||
mov [old_status],300
|
mov [old_status],300
|
||||||
|
|
||||||
mov eax,4 ; label
|
|
||||||
mov ebx,9*65536+8
|
|
||||||
mov ecx,0x10ffffff
|
|
||||||
mov edx,labelt
|
|
||||||
mov esi,labellen-labelt
|
|
||||||
int 0x40
|
|
||||||
|
|
||||||
mov eax,8 ; button: open socket
|
mov eax,8 ; button: open socket
|
||||||
mov ebx,23*65536+22
|
mov ebx,23*65536+22
|
||||||
mov ecx,155*65536+10
|
mov ecx,155*65536+10
|
||||||
@ -838,14 +828,14 @@ draw_window:
|
|||||||
mov esi,0x44cc44
|
mov esi,0x44cc44
|
||||||
int 0x40
|
int 0x40
|
||||||
|
|
||||||
mov eax,8 ; button: close socket
|
; mov eax,8 ; button: close socket
|
||||||
mov ebx,295*65536+22
|
mov ebx,295*65536+22
|
||||||
mov ecx,155*65536+10
|
mov ecx,155*65536+10
|
||||||
mov edx,24
|
mov edx,24
|
||||||
mov esi,0xcc4444
|
mov esi,0xcc4444
|
||||||
int 0x40
|
int 0x40
|
||||||
|
|
||||||
mov eax,8 ; button: text entries
|
; mov eax,8 ; button: text entries
|
||||||
mov ebx,243*65536+8
|
mov ebx,243*65536+8
|
||||||
mov ecx,180*65536+8
|
mov ecx,180*65536+8
|
||||||
mov edx,51
|
mov edx,51
|
||||||
@ -857,7 +847,7 @@ draw_window:
|
|||||||
cmp edx,53
|
cmp edx,53
|
||||||
jbe newi
|
jbe newi
|
||||||
|
|
||||||
mov eax,8 ; open inbox
|
; mov eax,8 ; open inbox
|
||||||
mov ebx,295*65536+102
|
mov ebx,295*65536+102
|
||||||
mov ecx,190*65536+14
|
mov ecx,190*65536+14
|
||||||
mov edx,60
|
mov edx,60
|
||||||
@ -904,9 +894,9 @@ draw_server_data:
|
|||||||
mov esi,[rxs]
|
mov esi,[rxs]
|
||||||
dct:
|
dct:
|
||||||
pusha
|
pusha
|
||||||
mov cx,bx
|
mov ecx,ebx
|
||||||
shl ecx,16
|
shl ecx,16
|
||||||
mov cx,9
|
mov cl,9
|
||||||
mov eax,13
|
mov eax,13
|
||||||
mov ebx,10*65536
|
mov ebx,10*65536
|
||||||
mov bx,word [rxs]
|
mov bx,word [rxs]
|
||||||
@ -941,16 +931,18 @@ db ' User : < Open popc.txt '
|
|||||||
l3_text:
|
l3_text:
|
||||||
db ' Password : (not shown) < '
|
db ' Password : (not shown) < '
|
||||||
|
|
||||||
db 'x <- END MARKER, DONT DELETE '
|
db 'x' ; <- END MARKER, DONT DELETE
|
||||||
|
|
||||||
file_start dd 0x100000
|
file_start dd 0x100000
|
||||||
|
|
||||||
|
; max size is 0x100000 bytes, read to/write from 0x100000
|
||||||
files:
|
files:
|
||||||
dd 1,0,0,0x100000,0xd0000
|
dd 2,0,0,?,0x100000
|
||||||
db '/rd/1/popc.txt',0
|
db 0
|
||||||
|
dd pr
|
||||||
filel:
|
filel:
|
||||||
dd 0,0,10000/512,0x100000,0xd0000
|
dd 0,0,0,0x100000,0x100000
|
||||||
db '/rd/1/popc.txt',0
|
pr db '/rd/1/popc.txt',0
|
||||||
|
|
||||||
ip db 192,168,1,200
|
ip db 192,168,1,200
|
||||||
|
|
||||||
@ -973,14 +965,16 @@ command_position dd 0
|
|||||||
counter dd 0
|
counter dd 0
|
||||||
|
|
||||||
numtext db ' '
|
numtext db ' '
|
||||||
wcolor dd 0x000000
|
labelt db 'POP client v ',version,0
|
||||||
labelt db 'POP client v ',version
|
|
||||||
labellen:
|
|
||||||
scroll: dd 1,8
|
scroll: dd 1,8
|
||||||
|
|
||||||
tp: db 'TINYPAD '
|
tinypad_start:
|
||||||
pr: db 'POPC TXT',0
|
dd 7
|
||||||
|
dd 0
|
||||||
|
dd pr
|
||||||
|
dd 0
|
||||||
|
dd 0
|
||||||
|
db '/RD/1/TINYPAD',0
|
||||||
|
|
||||||
getmail:
|
getmail:
|
||||||
db 'user xyz ',13,10
|
db 'user xyz ',13,10
|
||||||
|
|||||||
@ -15,11 +15,13 @@
|
|||||||
dd START ; start address
|
dd START ; start address
|
||||||
dd I_END ; file size
|
dd I_END ; file size
|
||||||
dd 28000h ; memory
|
dd 28000h ; memory
|
||||||
dd 28000h ; stack pointer (0x10000+ - work area for os)
|
dd 10000h ; stack pointer
|
||||||
dd 0,0 ; parameters, reserved
|
dd 0,0 ; parameters, reserved
|
||||||
|
|
||||||
include 'lang.inc'
|
include 'lang.inc'
|
||||||
include 'macros.inc'
|
include 'macros.inc'
|
||||||
|
include 'kglobals.inc'
|
||||||
|
include 'unpacker.inc'
|
||||||
;******************************************************************************
|
;******************************************************************************
|
||||||
|
|
||||||
|
|
||||||
@ -141,16 +143,13 @@ still:
|
|||||||
mov ebx,1
|
mov ebx,1
|
||||||
mov ecx,1
|
mov ecx,1
|
||||||
int 0x40
|
int 0x40
|
||||||
mov eax,48
|
jmp doapply
|
||||||
mov ebx,0
|
|
||||||
mov ecx,0
|
|
||||||
int 0x40
|
|
||||||
jmp still
|
|
||||||
no_3d:
|
no_3d:
|
||||||
|
|
||||||
cmp ah,15 ; set flat buttons
|
cmp ah,15 ; set flat buttons
|
||||||
jne no_flat
|
jne no_flat
|
||||||
mcall 48, 1, 0
|
mcall 48, 1, 0
|
||||||
|
doapply:
|
||||||
mcall 48, 0, 0
|
mcall 48, 0, 0
|
||||||
jmp still
|
jmp still
|
||||||
no_flat:
|
no_flat:
|
||||||
@ -163,10 +162,7 @@ still:
|
|||||||
mov ecx,color_table
|
mov ecx,color_table
|
||||||
mov edx,10*4
|
mov edx,10*4
|
||||||
int 0x40
|
int 0x40
|
||||||
mov eax,48
|
jmp doapply
|
||||||
mov ebx,0
|
|
||||||
mov ecx,0
|
|
||||||
int 0x40
|
|
||||||
no_apply:
|
no_apply:
|
||||||
|
|
||||||
cmp ah,17 ; load skin file
|
cmp ah,17 ; load skin file
|
||||||
@ -275,43 +271,50 @@ draw_cursor:
|
|||||||
|
|
||||||
|
|
||||||
load_file:
|
load_file:
|
||||||
pushad
|
xor eax, eax
|
||||||
|
mov ebx, read_info
|
||||||
mov [read_info.mode] ,0
|
mov dword [ebx], eax ; subfunction: read
|
||||||
mov [read_info.start_block],0
|
mov dword [ebx+4], eax ; offset (low dword)
|
||||||
mov [read_info.blocks] ,1
|
mov dword [ebx+8], eax ; offset (high dword)
|
||||||
mov [read_info.address] ,color_table
|
mov dword [ebx+12], 40 ; read colors file: 4*10 bytes
|
||||||
mov [read_info.workarea] ,0x10000
|
mov dword [ebx+16], color_table ; address
|
||||||
mcall 58, read_info
|
mcall 70
|
||||||
|
ret
|
||||||
; call draw_colours
|
|
||||||
|
|
||||||
popad
|
|
||||||
ret
|
|
||||||
|
|
||||||
load_skin_file:
|
load_skin_file:
|
||||||
pushad
|
xor eax, eax
|
||||||
|
mov ebx, read_info
|
||||||
|
mov dword [ebx], eax ; subfunction: read
|
||||||
|
mov dword [ebx+4], eax ; offset (low dword)
|
||||||
|
mov dword [ebx+8], eax ; offset (high dword)
|
||||||
|
mov dword [ebx+12], 32*1024 ; read: max 32 KBytes
|
||||||
|
mov dword [ebx+16], 0x10000 ; address
|
||||||
|
mcall 70
|
||||||
|
|
||||||
mov [read_info.mode] ,0
|
mov esi, 0x10000
|
||||||
mov [read_info.start_block],0
|
|
||||||
mov [read_info.blocks] ,64
|
|
||||||
mov [read_info.address] ,0x20000
|
|
||||||
mov [read_info.workarea] ,0x10000
|
|
||||||
mcall 58, read_info
|
|
||||||
|
|
||||||
cmp dword[0x20000+SKIN_HEADER.ident],'SKIN'
|
cmp dword [esi], 'KPCK'
|
||||||
jne @f
|
jnz notpacked
|
||||||
|
cmp dword [esi+4], 32*1024 ; max 32 KBytes
|
||||||
|
ja doret
|
||||||
|
push 0x20000
|
||||||
|
push esi
|
||||||
|
call unpack
|
||||||
|
mov esi, 0x20000
|
||||||
|
notpacked:
|
||||||
|
|
||||||
|
cmp dword[esi+SKIN_HEADER.ident],'SKIN'
|
||||||
|
jne doret
|
||||||
|
|
||||||
|
mov edi,0x18000
|
||||||
|
mov ecx,0x8000/4
|
||||||
|
rep movsd
|
||||||
|
|
||||||
mov esi,fname
|
mov esi,fname
|
||||||
mov edi,skin_info.fname
|
mov edi,skin_info.fname
|
||||||
mov ecx,257
|
mov ecx,257
|
||||||
rep movsb
|
rep movsb
|
||||||
|
|
||||||
mov esi,0x20000
|
|
||||||
mov edi,0x18000
|
|
||||||
mov ecx,0x8000/4
|
|
||||||
rep movsd
|
|
||||||
|
|
||||||
mov ebp,0x18000
|
mov ebp,0x18000
|
||||||
mov esi,[ebp+SKIN_HEADER.params]
|
mov esi,[ebp+SKIN_HEADER.params]
|
||||||
add esi,ebp
|
add esi,ebp
|
||||||
@ -319,24 +322,20 @@ load_skin_file:
|
|||||||
mov edi,color_table
|
mov edi,color_table
|
||||||
mov ecx,10
|
mov ecx,10
|
||||||
rep movsd
|
rep movsd
|
||||||
@@:
|
doret:
|
||||||
|
|
||||||
popad
|
|
||||||
ret
|
ret
|
||||||
|
|
||||||
|
|
||||||
save_file:
|
save_file:
|
||||||
pushad
|
mov ebx, write_info
|
||||||
|
mov dword [ebx], 2 ; subfunction: write
|
||||||
mov [write_info.mode] ,1
|
and dword [ebx+4], 0 ; (reserved)
|
||||||
mov [write_info.bytes2write],10*4
|
and dword [ebx+8], 0 ; (reserved)
|
||||||
mov [write_info.address] ,color_table
|
mov dword [ebx+12], 10*4 ; bytes to write
|
||||||
mov [write_info.workarea] ,0x10000
|
mov dword [ebx+16], color_table ; address
|
||||||
mcall 58, write_info
|
mcall 70
|
||||||
|
ret
|
||||||
popad
|
|
||||||
ret
|
|
||||||
|
|
||||||
|
|
||||||
read_string:
|
read_string:
|
||||||
|
|
||||||
@ -357,7 +356,7 @@ read_string:
|
|||||||
int 0x40
|
int 0x40
|
||||||
cmp eax,2
|
cmp eax,2
|
||||||
jne read_done
|
jne read_done
|
||||||
mov eax,2
|
; mov eax,2
|
||||||
int 0x40
|
int 0x40
|
||||||
shr eax,8
|
shr eax,8
|
||||||
cmp eax,13
|
cmp eax,13
|
||||||
@ -381,8 +380,7 @@ read_string:
|
|||||||
|
|
||||||
read_done:
|
read_done:
|
||||||
|
|
||||||
mov ecx, fname
|
mov ecx, fname+88
|
||||||
add ecx, 88
|
|
||||||
sub ecx, edi
|
sub ecx, edi
|
||||||
mov eax, 0
|
mov eax, 0
|
||||||
cld
|
cld
|
||||||
@ -1041,8 +1039,12 @@ end if
|
|||||||
|
|
||||||
color dd 0
|
color dd 0
|
||||||
|
|
||||||
|
IncludeIGlobals
|
||||||
|
|
||||||
I_END:
|
I_END:
|
||||||
|
|
||||||
|
IncludeUGlobals
|
||||||
|
|
||||||
read_info:
|
read_info:
|
||||||
.mode dd ? ; read
|
.mode dd ? ; read
|
||||||
.start_block dd ? ; first block
|
.start_block dd ? ; first block
|
||||||
|
|||||||
59
programs/system/desktop/trunk/kglobals.inc
Normal file
59
programs/system/desktop/trunk/kglobals.inc
Normal file
@ -0,0 +1,59 @@
|
|||||||
|
;------------------------------------------------------------------
|
||||||
|
; use "iglobal" for inserting initialized global data definitions.
|
||||||
|
;------------------------------------------------------------------
|
||||||
|
macro iglobal {
|
||||||
|
IGlobals equ IGlobals,
|
||||||
|
macro __IGlobalBlock { }
|
||||||
|
|
||||||
|
macro iglobal_nested {
|
||||||
|
IGlobals equ IGlobals,
|
||||||
|
macro __IGlobalBlock \{ }
|
||||||
|
|
||||||
|
;-------------------------------------------------------------
|
||||||
|
; use 'uglobal' for inserting uninitialized global definitions.
|
||||||
|
; even when you define some data values, these variables
|
||||||
|
; will be stored as uninitialized data.
|
||||||
|
;-------------------------------------------------------------
|
||||||
|
macro uglobal {
|
||||||
|
UGlobals equ UGlobals,
|
||||||
|
macro __UGlobalBlock { }
|
||||||
|
|
||||||
|
macro uglobal_nested {
|
||||||
|
UGlobals equ UGlobals,
|
||||||
|
macro __UGlobalBlock \{ }
|
||||||
|
|
||||||
|
endg fix } ; Use endg for ending iglobal and uglobal blocks.
|
||||||
|
endg_nested fix \}
|
||||||
|
|
||||||
|
macro IncludeIGlobals{
|
||||||
|
macro IGlobals dummy,[n] \{ __IGlobalBlock
|
||||||
|
purge __IGlobalBlock \}
|
||||||
|
match I, IGlobals \{ I \} }
|
||||||
|
|
||||||
|
|
||||||
|
macro IncludeUGlobals{
|
||||||
|
macro UGlobals dummy,[n] \{
|
||||||
|
\common
|
||||||
|
\local begin, size
|
||||||
|
begin = $
|
||||||
|
virtual at $
|
||||||
|
\forward
|
||||||
|
__UGlobalBlock
|
||||||
|
purge __UGlobalBlock
|
||||||
|
\common
|
||||||
|
size = $ - begin
|
||||||
|
end virtual
|
||||||
|
rb size
|
||||||
|
\}
|
||||||
|
match U, UGlobals \{ U \} }
|
||||||
|
|
||||||
|
macro IncludeAllGlobals {
|
||||||
|
IncludeIGlobals
|
||||||
|
IncludeUGlobals
|
||||||
|
}
|
||||||
|
|
||||||
|
iglobal
|
||||||
|
endg
|
||||||
|
|
||||||
|
uglobal
|
||||||
|
endg
|
||||||
504
programs/system/desktop/trunk/unpacker.inc
Normal file
504
programs/system/desktop/trunk/unpacker.inc
Normal file
@ -0,0 +1,504 @@
|
|||||||
|
; 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
|
||||||
|
|
||||||
|
uglobal
|
||||||
|
align 4
|
||||||
|
unpack.p rd unpack.LZMA_BASE_SIZE + (unpack.LZMA_LIT_SIZE shl (unpack.lc+unpack.lp))
|
||||||
|
unpack.code_ dd ?
|
||||||
|
unpack.range dd ?
|
||||||
|
unpack.rep0 dd ?
|
||||||
|
unpack.rep1 dd ?
|
||||||
|
unpack.rep2 dd ?
|
||||||
|
unpack.rep3 dd ?
|
||||||
|
unpack.previousByte db ?
|
||||||
|
endg
|
||||||
Loading…
Reference in New Issue
Block a user