mirror of
https://github.com/KolibriOS/kolibrios.git
synced 2024-12-13 10:27:12 +03:00
440 lines
9.1 KiB
PHP
440 lines
9.1 KiB
PHP
; @RCHER macros and messages
|
||
; Written in pure assembler by Ivushkin Andrey aka Willow
|
||
|
||
macro stop
|
||
{
|
||
if SYS eq win & NO_STOPS eq 0
|
||
int3
|
||
end if
|
||
}
|
||
|
||
macro wait
|
||
{
|
||
if ~ SYS eq win
|
||
local .nodrw,.ex
|
||
pusha
|
||
mcall 10
|
||
cmp eax,1
|
||
jne .nodrw
|
||
call draw_window
|
||
.nodrw:
|
||
mcall 17
|
||
.ex:
|
||
popa
|
||
end if
|
||
}
|
||
|
||
macro rbits dest,cnt
|
||
{
|
||
if ~ cnt eq
|
||
mov ecx,cnt
|
||
end if
|
||
if dest eq 0
|
||
xor eax,eax
|
||
else
|
||
mov eax,dest
|
||
end if
|
||
call read_bits
|
||
}
|
||
|
||
|
||
macro rep_err cond_ok, result, msg
|
||
{
|
||
local .m
|
||
j#cond_ok .m
|
||
if ~ msg eq
|
||
Msg msg
|
||
end if
|
||
mov edx,result
|
||
jmp .err
|
||
.m:
|
||
}
|
||
|
||
macro memcpy_esi dest, count,_add
|
||
{
|
||
push esi
|
||
if ~ _add eq
|
||
add esi,_add
|
||
end if
|
||
mov edi,dest
|
||
mov ecx,count
|
||
rep movsb
|
||
pop esi
|
||
}
|
||
|
||
DebugPrint:
|
||
; in: edx-asciiz string ptr
|
||
pusha
|
||
if SYS eq win
|
||
mov ecx,255
|
||
xor eax,eax
|
||
mov edi,edx
|
||
repne scasb
|
||
sub edi,edx
|
||
dec edi
|
||
invoke WriteConsole,[cons],edx,edi,cparam1,NULL
|
||
else
|
||
call debug_outstr
|
||
end if
|
||
popa
|
||
ret
|
||
|
||
macro DebugPrintDec
|
||
{
|
||
if SYS eq win
|
||
call int2str
|
||
mov edx,os_work
|
||
call DebugPrint
|
||
else
|
||
call debug_outdec
|
||
end if
|
||
}
|
||
|
||
macro Newline
|
||
{
|
||
if SYS eq win
|
||
pusha
|
||
invoke WriteConsole,[cons],cr_lf,2,cparam1,NULL
|
||
popa
|
||
else
|
||
newline
|
||
end if
|
||
}
|
||
|
||
Msgcall:
|
||
; edx - msg number
|
||
pusha
|
||
movzx edx,word[strs+edx*2]
|
||
add edx,msgs
|
||
call DebugPrint
|
||
popa
|
||
ret
|
||
|
||
macro Msg num
|
||
{
|
||
if ~ num eq edx
|
||
mov edx,num
|
||
end if
|
||
call Msgcall
|
||
}
|
||
|
||
MSG_COUNT=0
|
||
macro str_table [str]
|
||
{
|
||
forward
|
||
local label
|
||
dw label-msgs
|
||
common
|
||
msgs:
|
||
forward
|
||
label db str,0
|
||
MSG_COUNT=MSG_COUNT+1
|
||
}
|
||
|
||
|
||
|
||
strs:
|
||
if language eq ru
|
||
str_table \
|
||
<'*** @RCHER - Deflate Unpacker ***',13,10>,\ ;0
|
||
<'*** Copyright Wiland Inc., 2005 ***',13,10>,\ ;1
|
||
'” ©«®¢ ¢ à娢¥: ',\ ;2
|
||
<'End of Directory ¤®á⨣ãâ',13,10>,\ ;3
|
||
'<27>¥â ä ©« á â ª¨¬ ®¬¥à®¬',\ ;4
|
||
<'FindByNumber ŽŠ',13,10>,\ ;5
|
||
<'<27>¥¢¥àë© ID ¡«®ª • ää¬ ',13,10>,\ ;6
|
||
<'Žè¨¡ª ¢ ª®¤ å • ää¬ !',13,10>,\ ;7
|
||
<13,10,'<27> áç¥â â ¡«¨æë CRC32',13,10>,\ ;8
|
||
'.',\ ;9
|
||
'Adler32',\ ;10
|
||
'CRC32',\ ;11
|
||
<'‡ ¢¥à襮.',13,10>,\ ;12
|
||
<'” ©« ¨¬¥¥â ã«¥¢ãî ¤«¨ã, à ᯠª®¢ª ®â¬¥¥ .',13,10>,\ ;13
|
||
<'‘âà ï ¤«¨ ä ©« -¨áâ®ç¨ª . Žè¨¡ª ¢ ¨¬¥¨? Žâ¬¥ .',13,10>,\ ;14
|
||
<'<27>¥ GZIP à娢',13,10>,\ ;15
|
||
<'‘«¨èª®¬ ¡®«ì让 à §¬¥à ¢ë室®£® ä ©« ',13,10>,\ ;16
|
||
<"Žè¨¡ª ¯à¨ à ᯠª®¢ª¥.",13,10>,\ ; 17
|
||
<'<27>¥ à¨á㮪 PNG',13,10>,\ ; 18
|
||
<13,10,'*¤'>,\ ;19
|
||
<13,10,'*á'>,\ ;20
|
||
'<27>¥®¦¨¤ ë© ª®¥æ ¡«®ª®¢ IDAT',\ ;21
|
||
'„¥ä¨«ìâà æ¨ï:',\ ;22
|
||
'”¨«ìâàë: None ',\ ;23
|
||
' Sub ',\ ;24
|
||
' Up ',\ ;25
|
||
' Avg ',\ ;26
|
||
' Paeth ',\ ;27
|
||
' Žè¨¡®ª: ',\ ;28
|
||
<'—¥à¥ááâà®çë© PNG',13,10>,\ ;29
|
||
<'<27>«®ª ¡¥§ ᦠâ¨ï',13,10>,\ ;30
|
||
<'’¨¯ 梥⠥ ¯®¤¤¥à¦¨¢ ¥âáï',13,10>,\ ;31
|
||
<'‚¢¥¤¨â¥ ¯ à®«ì ¤«ï § è¨ä஢ ®£® ä ©« :',13,10>,\ ;32
|
||
<'<27>®¨áª ä ©« ...',13,10>,\ ;33
|
||
'<27>¥ ¬®¤ã«ì SFX',\ ;34
|
||
' ¥¢¥à ! ',\ ;35
|
||
' OK: ',\ ;36
|
||
<'‡ ¯¨áì OUT.TXT',13,10>,\ ;37
|
||
' ',\ ;38
|
||
<'<27>®¤£®â®¢ª ¨§®¡à ¦¥¨ï...',13,10>,\ ;39
|
||
<'“ª ¦¨â¥ "R" ¤«ï ®¡à ¡®âª¨ áëàëå ¤ ëå. Žâ¬¥ .',13,10>,\ ;40
|
||
<'<27>¥ å¢ â ¥â ¯ ¬ïâ¨! Žâ¬¥ .',13,10>,\ ; 41
|
||
' ',\ ;
|
||
' ',\ ;
|
||
' ',\ ;
|
||
' ',\ ;
|
||
' ',\ ;
|
||
' ',\ ;
|
||
' ',\ ;
|
||
' ',\ ;
|
||
' <- ¥¨§¢¥áâë© ¬¥â®¤ ᦠâ¨ï',\ ;50
|
||
' <- § è¨ä஢ ',\ ;51
|
||
<'<27>¥ ZIP à娢',13,10> ; 52
|
||
else
|
||
str_table \
|
||
<'*** @RCHER - Deflate Unpacker ***',13,10>,\ ;0
|
||
<'*** Copyright Wiland Inc., 2005 ***',13,10>,\ ;1
|
||
'Files in archive: ',\ ;2
|
||
<'End of Directory reached',13,10>,\ ;3
|
||
'No file has this number',\ ;4
|
||
<'FindByNumber succeded',13,10>,\ ;5
|
||
<'Invalid Huffman block ID',13,10>,\ ;6
|
||
<'Error while getting Huffman codes!',13,10>,\ ;7
|
||
<13,10,'Rebuilding CRC32 table',13,10>,\ ;8
|
||
'.',\ ;9
|
||
'Adler32',\ ;10
|
||
'CRC32',\ ;11
|
||
<'Job finished.',13,10>,\ ;12
|
||
<'File of zero length, unpacking aborted.',13,10>,\ ;13
|
||
<'Source file has strange length, may be missing? Abort.',13,10>,\ ;14
|
||
<'Not a GZIP archive',13,10>,\ ;15
|
||
<'Destination file is too large for now',13,10>,\ ;16
|
||
<"Can't unpack content.",13,10>,\ ; 17
|
||
<'Not a PNG image',13,10>,\ ; 18
|
||
<13,10,'*d'>,\ ;19
|
||
<13,10,'*s'>,\ ;20
|
||
'Unexpected end of IDAT chunks',\ ;21
|
||
'Unfiltering:',\ ;22
|
||
'Filters: None ',\ ;23
|
||
' Sub ',\ ;24
|
||
' Up ',\ ;25
|
||
' Avg ',\ ;26
|
||
' Paeth ',\ ;27
|
||
' Invalid ',\ ;28
|
||
<'Interlaced PNG',13,10>,\ ;29
|
||
<'Stored block',13,10>,\ ;30
|
||
<'Color type not supported',13,10>,\ ;31
|
||
<'Enter password for encrypted file:',13,10>,\ ;32
|
||
<'Searching for file...',13,10>,\ ;33
|
||
'Not a SFX module',\ ;34
|
||
' error! ',\ ;35
|
||
' OK: ',\ ;36
|
||
<'Creating OUT.TXT',13,10>,\ ;37
|
||
' ',\ ;38
|
||
<'Preparing bitmap...',13,10>,\ ;39
|
||
<'Specify "R" to force raw data. Abort.',13,10>,\ ;40
|
||
<'Not enough memory! Abort.',13,10>,\ ;
|
||
' ',\ ;
|
||
' ',\ ;
|
||
' ',\ ;
|
||
' ',\ ;
|
||
' ',\ ;
|
||
' ',\ ;
|
||
' ',\ ;
|
||
' ',\ ;
|
||
' <- unknown compression method',\ ;50
|
||
' <- encrypted',\ ;51
|
||
<'Not a ZIP archive',13,10> ; 52
|
||
end if
|
||
|
||
macro opendialog redproc,openoff,erroff,path
|
||
{
|
||
local new_d, get_loops, dlg_pid_get, DLGPID, num_of_proc
|
||
local run_fileinfo, param
|
||
local getmesloop, loox, mred, mkey, mbutton, mgetmes
|
||
local dlg_is_work, ready
|
||
;
|
||
; STEP 1 Run SYSXTREE with parametrs MYPID 4 bytes in dec,
|
||
; 1 byte space, 1 byte type of dialog (O - Open ,S - Save)
|
||
;
|
||
|
||
cld
|
||
;; mov esi,path
|
||
mov edi,path
|
||
xor eax,eax
|
||
mov ecx,(1024+16)/4
|
||
rep stosd
|
||
|
||
;mov [get_loops],0
|
||
mov [dlg_pid_get],0
|
||
|
||
; Get my PID in dec format 4 bytes
|
||
mcall 9,os_work,-1
|
||
|
||
; convert eax bin to param dec
|
||
mov eax,dword [os_work+30] ;offset of myPID
|
||
mov edi,param+4-1 ;offset to 4 bytes
|
||
mov ecx,4
|
||
mov ebx,10
|
||
cld
|
||
new_d:
|
||
xor edx,edx
|
||
div ebx
|
||
add dl,'0'
|
||
mov [edi],dl
|
||
dec edi
|
||
loop new_d
|
||
|
||
; write 1 byte space to param
|
||
mov [param+4],byte 32 ;Space for next parametr
|
||
; and 1 byte type of dialog to param
|
||
mov [param+5],byte 'O' ;Get Open dialog (Use 'S' for Save dialog)
|
||
|
||
;
|
||
; STEP2 prepare IPC area for get messages
|
||
;
|
||
|
||
; prepare IPC area
|
||
mov [path],dword 0
|
||
mov [path+4],dword 8
|
||
|
||
; define IPC memory
|
||
mov eax,60
|
||
mov ebx,1 ; define IPC
|
||
mov ecx,path ; offset of area
|
||
mov edx,1024+16 ; size
|
||
mcall
|
||
|
||
mcall 40,1000111b
|
||
;
|
||
; STEP 3 run SYSTEM XTREE with parameters
|
||
;
|
||
|
||
mcall 70,run_fileinfo
|
||
|
||
call redproc
|
||
|
||
mov [get_loops],0
|
||
getmesloop:
|
||
mov eax,23
|
||
mov ebx,50 ;0.5 sec
|
||
mcall
|
||
dec eax
|
||
jz mred
|
||
dec eax
|
||
jz mkey
|
||
dec eax
|
||
jz mbutton
|
||
cmp al, 7-3
|
||
jz mgetmes
|
||
|
||
; Get number of procces
|
||
mcall 9,os_work,-1
|
||
mov ebp,eax
|
||
|
||
loox:
|
||
mcall 9,os_work,ebp
|
||
mov eax,[DLGPID]
|
||
cmp dword[os_work+30],eax ;IF Dialog find
|
||
je dlg_is_work ;jmp to dlg_is_work
|
||
dec ebp
|
||
jnz loox
|
||
|
||
jmp erroff
|
||
|
||
dlg_is_work:
|
||
cmp word[os_work+50],word 9 ;If slot state 9 - dialog is terminated
|
||
je erroff ;TESTODP2 terminated too
|
||
|
||
cmp [dlg_pid_get],dword 1
|
||
je getmesloop
|
||
inc [get_loops]
|
||
cmp [get_loops],4 ;2 sec if DLG_PID not get, TESTOP2 terminated
|
||
jae erroff
|
||
jmp getmesloop
|
||
|
||
mred:
|
||
call redproc
|
||
jmp getmesloop
|
||
mkey:
|
||
mcall 2 ; read (eax=2)
|
||
jmp getmesloop
|
||
mbutton:
|
||
mov eax,17 ; get id
|
||
mcall
|
||
cmp ah,1 ; button id=1 ?
|
||
jne getmesloop
|
||
mov eax,-1 ; close this program
|
||
mcall
|
||
mgetmes:
|
||
; If dlg_pid_get then second message get jmp to still
|
||
cmp [dlg_pid_get],dword 1
|
||
je ready
|
||
|
||
; First message is number of PID SYSXTREE dialog
|
||
|
||
; convert PID dec to PID bin
|
||
movzx eax,byte [path+16]
|
||
sub eax,48
|
||
imul eax,10
|
||
movzx ebx,byte [path+16+1]
|
||
add eax,ebx
|
||
sub eax,48
|
||
imul eax,10
|
||
movzx ebx,byte [path+16+2]
|
||
add eax,ebx
|
||
sub eax,48
|
||
imul eax,10
|
||
movzx ebx,byte [path+16+3]
|
||
add eax,ebx
|
||
sub eax,48
|
||
mov [DLGPID],eax
|
||
|
||
; Claear and prepare IPC area for next message
|
||
mov [path],dword 0
|
||
mov [path+4],dword 8
|
||
mov [path+8],dword 0
|
||
mov [path+12],dword 0
|
||
mov [path+16],dword 0
|
||
|
||
; Set dlg_pid_get for get next message
|
||
mov [dlg_pid_get],dword 1
|
||
call redproc ;show DLG_PID
|
||
jmp getmesloop
|
||
|
||
ready:
|
||
;
|
||
; The second message get
|
||
; Second message is 1024 bytes path to SAVE/OPEN file
|
||
; shl path string on 16 bytes
|
||
;
|
||
cld
|
||
mov esi,path+16
|
||
mov edi,path
|
||
mov ecx,1024/4
|
||
rep movsd
|
||
mov [edi],byte 0
|
||
|
||
jmp openoff
|
||
|
||
|
||
; DATA AREA
|
||
get_loops dd 0
|
||
dlg_pid_get dd 0
|
||
DLGPID dd 0
|
||
|
||
param:
|
||
dd 0 ; My dec PID
|
||
dd 0,0 ; Type of dialog
|
||
|
||
run_fileinfo:
|
||
dd 7
|
||
dd 0
|
||
dd param
|
||
dd 0
|
||
dd 0
|
||
;run_filepath
|
||
db '/sys/SYSXTREE',0
|
||
|
||
}
|
||
|