Subversion Repositories Kolibri OS

Rev

Rev 6392 | Rev 6459 | Go to most recent revision | Blame | Compare with Previous | 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 'proc32.inc'
  8. include 'macros.inc'
  9. purge section,mov,add,sub
  10.        
  11. include 'dll.inc'
  12.        
  13. public init_proclib as '_init_proclib_asm'
  14. ;;; Returns 0 on success. -1 on failure.
  15.  
  16. proc init_proclib
  17.        
  18.         mcall 68,11
  19.        
  20.         stdcall dll.Load, @IMPORT
  21.         test    eax, eax
  22.         jnz     error
  23.        
  24.         mov eax, 0
  25.         ret
  26.        
  27. error: 
  28.         mov eax, -1
  29.         ret
  30. endp   
  31.  
  32. @IMPORT:
  33. library lib_boxlib,     'proc_lib.obj'
  34.  
  35. import lib_boxlib, \
  36.         OpenDialog_init, 'OpenDialog_init' , \
  37.         OpenDialog_start, 'OpenDialog_start' , \
  38.         ColorDialog_init, 'ColorDialog_init' , \
  39.         ColorDialog_start, 'ColorDialog_start'
  40.        
  41. public OpenDialog_init as '_OpenDialog_init'
  42. public OpenDialog_start as '_OpenDialog_start'
  43.  
  44. public ColorDialog_init as '_ColorDialog_init'
  45. public ColorDialog_start as '_ColorDialog_start'
  46.