Subversion Repositories Kolibri OS

		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

		push	eax

		mov	eax, [eax]

		cmp	dword [eax], 'lib_'

		pop	eax

		jnz	@f

		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

		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

		pushad

		mov	eax,mem.Alloc

		mov	ebx,mem.Free

		mov	ecx,mem.ReAlloc

		mov	edx,dll.Load

		stdcall [dllentry]

		popad

		ret

endp

		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

		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

  db '/sys/lib/'

  .fname rb 32