forked from KolibriOS/kolibrios
161 lines
4.6 KiB
PHP
161 lines
4.6 KiB
PHP
|
;-----------------------------------------------------------------------------
|
||
|
|
proc mem.Alloc size ;/////////////////////////////////////////////////////////
|
||
|
|
;-----------------------------------------------------------------------------
|
||
|
|
push ebx ecx
|
||
|
|
mov eax,[size]
|
||
|
|
lea ecx,[eax+4+4095]
|
||
|
|
and ecx, not 4095
|
||
|
|
mcall 68,12
|
||
|
|
test eax, eax
|
||
|
|
jz @f
|
||
|
|
add ecx,-4
|
||
|
|
mov [eax],ecx
|
||
|
|
add eax,4
|
||
|
|
@@:
|
||
|
|
pop ecx ebx
|
||
|
|
ret
|
||
|
|
endp
|
||
|
|
|
||
|
|
;-----------------------------------------------------------------------------
|
||
|
|
proc mem.ReAlloc mptr,size;///////////////////////////////////////////////////
|
||
|
|
;-----------------------------------------------------------------------------
|
||
|
|
push ebx ecx esi edi eax
|
||
|
|
mov eax,[mptr]
|
||
|
|
mov ebx,[size]
|
||
|
|
or eax,eax
|
||
|
|
jz @f
|
||
|
|
lea ecx,[ebx+4+4095]
|
||
|
|
and ecx,not 4095
|
||
|
|
add ecx,-4
|
||
|
|
cmp ecx,[eax-4]
|
||
|
|
je .exit
|
||
|
|
@@: mov eax,ebx
|
||
|
|
call mem.Alloc
|
||
|
|
xchg eax,[esp]
|
||
|
|
or eax,eax
|
||
|
|
jz .exit
|
||
|
|
mov esi,eax
|
||
|
|
xchg eax,[esp]
|
||
|
|
mov edi,eax
|
||
|
|
mov ecx,[esi-4]
|
||
|
|
cmp ecx,[edi-4]
|
||
|
|
jbe @f
|
||
|
|
mov ecx,[edi-4]
|
||
|
|
@@: add ecx,3
|
||
|
|
shr ecx,2
|
||
|
|
cld
|
||
|
|
rep movsd
|
||
|
|
xchg eax,[esp]
|
||
|
|
call mem.Free
|
||
|
|
.exit:
|
||
|
|
pop eax edi esi ecx ebx
|
||
|
|
ret
|
||
|
|
endp
|
||
|
|
|
||
|
|
;-----------------------------------------------------------------------------
|
||
|
|
proc mem.Free mptr ;//////////////////////////////////////////////////////////
|
||
|
|
;-----------------------------------------------------------------------------
|
||
|
|
mov eax,[mptr]
|
||
|
|
or eax,eax
|
||
|
|
jz @f
|
||
|
|
push ebx ecx
|
||
|
|
lea ecx,[eax-4]
|
||
|
|
mcall 68,13
|
||
|
|
pop ecx ebx
|
||
|
|
@@: ret
|
||
|
|
endp
|
||
|
|
|
||
|
|
|
||
|
|
proc dll.Load, import_table:dword
|
||
|
|
mov esi,[import_table]
|
||
|
|
.next_lib: mov edx,[esi]
|
||
|
|
or edx,edx
|
||
|
|
jz .exit
|
||
|
|
push esi
|
||
|
|
mov esi,[esi+4]
|
||
|
|
mov edi,s_libdir.fname
|
||
|
|
@@: lodsb
|
||
|
|
stosb
|
||
|
|
or al,al
|
||
|
|
jnz @b
|
||
|
|
mcall 68,19,s_libdir
|
||
|
|
or eax,eax
|
||
|
|
jz .fail
|
||
|
|
stdcall dll.Link,eax,edx
|
||
|
|
stdcall dll.Init,[eax+4]
|
||
|
|
pop esi
|
||
|
|
add esi,8
|
||
|
|
jmp .next_lib
|
||
|
|
.exit: xor eax,eax
|
||
|
|
ret
|
||
|
|
.fail: add esp,4
|
||
|
|
xor eax,eax
|
||
|
|
inc eax
|
||
|
|
ret
|
||
|
|
endp
|
||
|
|
|
||
|
|
proc dll.Link, exp:dword,imp:dword
|
||
|
|
push eax
|
||
|
|
mov esi,[imp]
|
||
|
|
test esi,esi
|
||
|
|
jz .done
|
||
|
|
.next: lodsd
|
||
|
|
test eax,eax
|
||
|
|
jz .done
|
||
|
|
stdcall dll.GetProcAddress,[exp],eax
|
||
|
|
or eax,eax
|
||
|
|
jz @f
|
||
|
|
mov [esi-4],eax
|
||
|
|
jmp .next
|
||
|
|
@@: mov dword[esp],0
|
||
|
|
.done: pop eax
|
||
|
|
ret
|
||
|
|
endp
|
||
|
|
|
||
|
|
proc dll.Init, dllentry:dword
|
||
|
|
pushad
|
||
|
|
mov eax,mem.Alloc
|
||
|
|
mov ebx,mem.Free
|
||
|
|
mov ecx,mem.ReAlloc
|
||
|
|
mov edx,dll.Load
|
||
|
|
stdcall [dllentry]
|
||
|
|
popad
|
||
|
|
ret
|
||
|
|
endp
|
||
|
|
|
||
|
|
proc dll.GetProcAddress, exp:dword,sz_name:dword
|
||
|
|
mov edx,[exp]
|
||
|
|
xor eax,eax
|
||
|
|
.next: or edx,edx
|
||
|
|
jz .end
|
||
|
|
cmp dword[edx],0
|
||
|
|
jz .end
|
||
|
|
stdcall strcmp,[edx],[sz_name]
|
||
|
|
test eax,eax
|
||
|
|
jz .ok
|
||
|
|
add edx,8
|
||
|
|
jmp .next
|
||
|
|
.ok: mov eax,[edx+4]
|
||
|
|
.end: ret
|
||
|
|
endp
|
||
|
|
|
||
|
|
proc strcmp, str1:dword,str2:dword
|
||
|
|
push esi edi
|
||
|
|
mov esi,[str1]
|
||
|
|
mov edi,[str2]
|
||
|
|
xor eax,eax
|
||
|
|
@@: lodsb
|
||
|
|
scasb
|
||
|
|
jne .fail
|
||
|
|
or al,al
|
||
|
|
jnz @b
|
||
|
|
jmp .ok
|
||
|
|
.fail: or eax,-1
|
||
|
|
.ok: pop edi esi
|
||
|
|
ret
|
||
|
|
endp
|
||
|
|
|
||
|
|
s_libdir:
|
||
|
|
db '/sys/lib/'
|
||
|
|
.fname rb 32
|