35 lines
781 B
NASM
35 lines
781 B
NASM
|
|
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_msgbox as '_kolibri_msgbox_init'
|
|
;;; Returns 0 on success. -1 on failure.
|
|
|
|
proc init_msgbox
|
|
pusha
|
|
mcall 68,11
|
|
stdcall dll.Load, @IMPORT
|
|
popa
|
|
ret
|
|
endp
|
|
|
|
@IMPORT:
|
|
library lib_boxlib, 'msgbox.obj'
|
|
|
|
import lib_boxlib, \
|
|
mb_create, 'mb_create' , \
|
|
mb_reinit, 'mb_reinit' , \
|
|
mb_setfunctions, 'mb_setfunctions'
|
|
|
|
public mb_create as '_msgbox_create'
|
|
public mb_reinit as '_msgbox_reinit'
|
|
public mb_setfunctions as '_msgbox_setfunctions'
|