include 'proc32.inc' format MS COFF public _http_init public _http_get@16 public _http_receive@4 public _http_free@4 section '.text' align 16 ;void* __fastcall getprocaddr(export, name) align 4 getprocaddress: push esi push edi xor eax, eax test ecx, ecx ; If hlib = 0 then goto .end jz .end .next: cmp [ecx], dword 0 ; If end of export table then goto .end jz .end xor eax, eax mov esi, [ecx] mov edi, edx ; name .next_: lodsb scasb jne .fail or al, al jnz .next_ jmp .ok .fail: add ecx, 8 jmp .next .ok: mov eax, [ecx + 4] ; return address .end: pop edi pop esi ret ;void fastcall dll_link(export, import) align 4 dll_link: push esi push ecx mov esi, edx test esi, esi jz .done .next: mov edx, [esi] test edx, edx jz .done mov ecx, [esp] call getprocaddress test eax, eax jz .done mov [esi], eax add esi, 4 jmp .next .done: pop ecx pop esi ret align 4 dll_load: push ebp push esi push edi mov ebp, [esp+16] .next_lib: mov edx, [ebp] test edx, edx jz .exit mov esi, [ebp+4] mov edi, s_libdir.fname @@: lodsb stosb test al, al jnz @b mov eax, 68 mov ebx, 19 mov ecx, s_libdir int 0x40 test eax, eax jz .fail mov ecx, eax call dll_link mov eax, [ecx] cmp dword[eax], 'lib_' jnz @f mov esi, [ecx+4] pushad mov eax, mem.Alloc mov ebx, mem.Free mov ecx, mem.ReAlloc mov edx, dll_load call esi popad @@: add ebp, 8 jmp .next_lib .exit: pop edi pop esi pop ebp xor eax, eax ret 4 .fail: pop edi pop esi pop ebx inc eax ret 4 align 4 _http_init: push @IMPORT call dll_load ret align 4 _http_get@16: jmp [HTTP_get] align 4 _http_receive@4: jmp [HTTP_receive] align 4 _http_free@4: jmp [HTTP_free] proc mem.Alloc, size push ebx ecx mov ecx, [size] mov eax, 68 mov ebx, 12 int 0x40 pop ecx ebx ret endp ;----------------------------------------------------------------------------- proc mem.ReAlloc, mptr, size push ebx ecx edx mov ecx, [size] test ecx, ecx jz @f @@: mov edx, [mptr] test edx, edx jz @f @@: mov eax, 68 mov ebx, 20 int 0x40 test eax, eax jz @f @@: pop edx ecx ebx ret endp ;----------------------------------------------------------------------------- proc mem.Free, mptr push ebx ecx mov ecx,[mptr] test ecx,ecx jz @f @@: mov eax, 68 mov ebx, 13 int 0x40 pop ecx ebx ret endp section '.data' align 16 ; ------------------------- macro library [lname,fname] { forward dd __#lname#_library_table__,__#lname#_library_name__ common dd 0 forward align 4 __#lname#_library_name__ db fname,0 } macro import lname,[name,sname] { common align 4 __#lname#_library_table__: forward if used name name dd __#name#_import_name__ end if common dd 0 forward if used name align 4 __#name#_import_name__ db sname,0 end if } align 4 @IMPORT: library lib_http, 'http.obj' import lib_http, \ HTTP_get, 'get', \ HTTP_receive, 'receive', \ HTTP_free, 'free' s_libdir: db '/sys/lib/' .fname rb 32