kolibrios-gitea/contrib/C_Layer/ASM/loadproclib.asm

46 lines
1000 B
NASM
Raw Normal View History

format coff
use32 ; Tell compiler to use 32 bit instructions
section '.init' code ; Keep this line before includes or GCC messes up call addresses
include '../../../programs/proc32.inc'
include '../../../programs/macros.inc'
purge section,mov,add,sub
include '../../../programs/dll.inc'
public init_proclib as '_init_proclib_asm'
;;; Returns 0 on success. -1 on failure.
proc init_proclib
mcall 68,11
stdcall dll.Load, @IMPORT
test eax, eax
jnz error
mov eax, 0
ret
error:
mov eax, -1
ret
endp
@IMPORT:
library lib_boxlib, 'proc_lib.obj'
import lib_boxlib, \
OpenDialog_init, 'OpenDialog_init' , \
OpenDialog_start, 'OpenDialog_start' , \
ColorDialog_init, 'ColorDialog_init' , \
ColorDialog_start, 'ColorDialog_start'
public OpenDialog_init as '_OpenDialog_init'
public OpenDialog_start as '_OpenDialog_start'
public ColorDialog_init as '_ColorDialog_init'
public ColorDialog_start as '_ColorDialog_start'