Rev 6495 | Only display areas with differences | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 6495 | Rev 6535 | ||
|---|---|---|---|
| 1 | format coff |
1 | format coff |
| 2 | use32 ; Tell compiler to use 32 bit instructions |
2 | use32 ; Tell compiler to use 32 bit instructions |
| 3 | 3 | ||
| 4 | section '.init' code ; Keep this line before includes or GCC messes up call addresses |
4 | section '.init' code ; Keep this line before includes or GCC messes up call addresses |
| 5 | 5 | ||
| 6 | include '../../../programs/proc32.inc' |
6 | include '../../../programs/proc32.inc' |
| 7 | include '../../../programs/macros.inc' |
7 | include '../../../programs/macros.inc' |
| 8 | purge section,mov,add,sub |
8 | purge section,mov,add,sub |
| 9 | 9 | ||
| 10 | include '../../../programs/dll.inc' |
10 | include '../../../programs/dll.inc' |
| 11 | 11 | ||
| 12 | public init_proclib as '_kolibri_proclib_init' |
12 | public init_proclib as '_kolibri_proclib_init' |
| 13 | ;;; Returns 0 on success. -1 on failure. |
13 | ;;; Returns 0 on success. -1 on failure. |
| 14 | 14 | ||
| 15 | proc init_proclib |
15 | proc init_proclib |
| 16 | mcall 68,11 |
16 | pusha |
| - | 17 | mcall 68,11 |
|
| 17 | stdcall dll.Load, @IMPORT |
18 | stdcall dll.Load, @IMPORT |
| 18 | ret |
19 | popa |
| - | 20 | ret |
|
| 19 | endp |
21 | endp |
| 20 | 22 | ||
| 21 | @IMPORT: |
23 | @IMPORT: |
| 22 | library lib_boxlib, 'proc_lib.obj' |
24 | library lib_boxlib, 'proc_lib.obj' |
| 23 | 25 | ||
| 24 | import lib_boxlib, \ |
26 | import lib_boxlib, \ |
| 25 | OpenDialog_init, 'OpenDialog_init' , \ |
27 | OpenDialog_init, 'OpenDialog_init' , \ |
| 26 | OpenDialog_start, 'OpenDialog_start' , \ |
28 | OpenDialog_start, 'OpenDialog_start' , \ |
| 27 | ColorDialog_init, 'ColorDialog_init' , \ |
29 | ColorDialog_init, 'ColorDialog_init' , \ |
| 28 | ColorDialog_start, 'ColorDialog_start' |
30 | ColorDialog_start, 'ColorDialog_start' |
| 29 | 31 | ||
| 30 | public OpenDialog_init as '_OpenDialog_init' |
32 | public OpenDialog_init as '_OpenDialog_init' |
| 31 | public OpenDialog_start as '_OpenDialog_start' |
33 | public OpenDialog_start as '_OpenDialog_start' |
| 32 | 34 | ||
| 33 | public ColorDialog_init as '_ColorDialog_init' |
35 | public ColorDialog_init as '_ColorDialog_init' |
| 34 | public ColorDialog_start as '_ColorDialog_start' |
36 | public ColorDialog_start as '_ColorDialog_start' |