forked from KolibriOS/kolibrios
44 lines
936 B
C
44 lines
936 B
C
|
:int load_dll3(dword dllname, import_table)
|
||
|
|
{
|
||
|
|
EAX = 68;
|
||
|
|
EBX = 19;
|
||
|
|
ECX = dllname;
|
||
|
|
$int 0x40
|
||
|
|
IF(EAX==0) GOTO exit3;
|
||
|
|
|
||
|
|
EDX = EAX;
|
||
|
|
ESI = import_table;
|
||
|
|
|
||
|
|
@import_loop3:
|
||
|
|
$lodsd
|
||
|
|
IF(EAX==0) GOTO import_done3;
|
||
|
|
$push edx
|
||
|
|
@import_find3:
|
||
|
|
EBX = DSDWORD[EDX];
|
||
|
|
IF(EBX==0) GOTO exit3;
|
||
|
|
$push eax
|
||
|
|
@next3:
|
||
|
|
CL = DSBYTE[EAX];
|
||
|
|
$cmp CL,DSBYTE[EBX];
|
||
|
|
$jnz import_find_next3
|
||
|
|
IF (CL==0) GOTO import_found3;
|
||
|
|
EAX++;
|
||
|
|
EBX++;
|
||
|
|
goto next3;
|
||
|
|
@import_find_next3:
|
||
|
|
$pop eax
|
||
|
|
EDX = EDX + 8;
|
||
|
|
goto import_find3;
|
||
|
|
@import_found3:
|
||
|
|
$pop ebx
|
||
|
|
EAX = DSDWORD[EDX+4];
|
||
|
|
DSDWORD[ESI-4] = EAX;
|
||
|
|
$pop edx
|
||
|
|
|
||
|
|
goto import_loop3;
|
||
|
|
@import_done3:
|
||
|
|
return 0;
|
||
|
|
@exit3:
|
||
|
|
return -1;
|
||
|
|
}
|