Subversion Repositories Kolibri OS

Rev

Blame | Last modification | View Log | RSS feed

  1.  
  2. format coff
  3. use32                                   ; Tell compiler to use 32 bit instructions
  4.  
  5. section '.init' code                    ; Keep this line before includes or GCC messes up call addresses
  6.  
  7. include '../../../programs/proc32.inc'
  8. include '../../../programs/macros.inc'
  9. purge section,mov,add,sub
  10.        
  11. include '../../../programs/dll.inc'
  12.        
  13. public init_msgbox as '_kolibri_msgbox_init'
  14. ;;; Returns 0 on success. -1 on failure.
  15.  
  16. proc init_msgbox
  17.         pusha
  18.         mcall 68,11
  19.         stdcall dll.Load, @IMPORT
  20.         popa
  21.         ret
  22. endp   
  23.  
  24. @IMPORT:
  25. library lib_boxlib,     'msgbox.obj'
  26.  
  27. import lib_boxlib, \
  28.         mb_create, 'mb_create' , \
  29.         mb_reinit, 'mb_reinit' , \
  30.         mb_setfunctions, 'mb_setfunctions'
  31.        
  32. public mb_create as '_msgbox_create'
  33. public mb_reinit as '_msgbox_reinit'
  34. public mb_setfunctions as '_msgbox_setfunctions'
  35.