kolibrios/programs/cmm/lib/dll.h

//Asper
char a_libdir[43]  = "/sys/lib/\0";


//proc dll.Load, import_table:dword
int dll_Load(dword import_table)
{
                $mov     esi, import_table                                
  @next_lib:    $mov     edx, DSDWORD[esi]
                $or      edx,edx
                $jz      exit_
                $push    esi                
                $mov     esi,DSDWORD[esi+4] 
                $mov     edi,#a_libdir
                
                $push    edi
                $push    esi
                EAX=strlen(#a_libdir);
                $pop     esi
                $pop     edi
                $add     edi, eax //9
                
            @loc01: $lodsb
                $stosb
                $or      al,al
                $jnz     loc01

                                //IntToStr(EBX);
                                //$push edx    
                                //WriteDebug(#a_libdir);
                                //$pop edx
                //mcall   68,19,a_libdir
                $mov     eax, 68
                $mov     ebx, 19
                $mov     ecx,#a_libdir
                $int     0x40
                
                $or      eax,eax
                $jz      fail
                //stdcall dll.Link,eax,edx
                dll_Link(EAX, EDX);
                $push    eax
                $mov     eax, DSDWORD [eax]
                $cmp     DSDWORD [eax], 'lib_'
                $pop     eax
                //$jnz     loc02
                                //IntToStr(EBX);
                                //$push    eax
                                //WriteDebug(DSDWORD[EAX]);
                                //$pop     eax
                //stdcall dll.Init,[eax+4]
                //dll_Init(DSDWORD[EAX]); //dll_Init(DSDWORD[EAX+4]);
            @loc02:
                $pop     esi
                $add     esi,8
                $jmp     next_lib
  @exit_:        $xor     eax,eax
                return 0;
  @fail:        $add     esp,4
                $xor     eax,eax
                $inc     eax
                return -1;
}

//proc dll.Link, exp:dword,imp:dword
void dll_Link(dword exp, imp)
{
                $push    eax
                $mov     esi, imp
                $test    esi, esi
                $jz      done
  @next:        $lodsd
                $test    eax,eax
                $jz      done

                //stdcall dll.GetProcAddress,[exp],eax
                dll_GetProcAddress(exp,EAX);
                $or      eax,eax
                $jz      loc03

                $mov     DSDWORD[esi-4],eax
                $jmp     next
  @loc03: 
                $mov     DSDWORD[esp],0
  @done:        $pop     eax
}

//proc dll.Init, dllentry:dword
void dll_Init(dword dllentry)
{
                $pushad
                EAX=#mem_Alloc;
                EBX=#mem_Free;
                ECX=#mem_ReAlloc;
                EDX=#dll_Load;
                DSDWORD [dllentry+4] stdcall ();                
                $popad
}

//proc dll.GetProcAddress, exp:dword,sz_name:dword
dword dll_GetProcAddress(dword exp, sz_name)
{
                $push esi
                $mov     edx, exp
                $xor     eax,eax
  @next:        $or      edx,edx
                $jz      end_
                $cmp     edx,0
                $jz      end_
                strcmp(DSDWORD[EDX],sz_name);
                $test    eax,eax
                $jz      ok
                $add     edx,8
                $jmp     next
  @ok:
                $mov     eax, DSDWORD[edx+4]
  @end_:         
                $pop  esi
    return EAX;
}


int load_dll2(dword dllname, import_table, byte need_init)
{
   //dword dllentry=0;
// load DLL
        $mov     eax, 68
        $mov     ebx, 19
        ECX=dllname;
        $int     0x40
        $test    eax, eax
        $jz      exit01

// initialize import
        $mov     edx,eax
        ESI=import_table;

@import_loop01:
        $lodsd
        $test    eax,eax
        $jz      import_done01
        $push    edx
@import_find01:
        $mov     ebx,DSDWORD[EDX]
        $test    ebx, ebx
        $jz      exit01
        $push    eax
@nex101:
        $mov     cl,DSBYTE[EAX];
        $cmp     cl,DSBYTE[EBX];
        $jnz     import_find_next01
        $test    cl,cl
        $jz      import_found01
        $inc     eax
        $inc     ebx
        $jmp     nex101
@import_find_next01:
        $pop     eax
        $add     edx, 8
        $jmp     import_find01
@import_found01:
        $pop     eax
        $mov     eax,DSDWORD[edx+4]
        $mov     DSDWORD[esi-4],eax
        $pop     edx
       
        $jmp     import_loop01
@import_done01:
        IF (need_init) dll_Init(EDX);
        return 0;
@exit01:
        return -1;
}