| 0,0 → 1,160 |
|---|
| ;----------------------------------------------------------------------------- |
| 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 |