home *** CD-ROM | disk | FTP | other *** search
-
- EQU LIB_VECTSIZE 6
- EQU LIB_RESERVED 4
- EQU LIB_BASE (-LIB_VECTSIZE)
- EQU LIB_USERDEF (LIB_BASE-(LIB_RESERVED*LIB_VECTSIZE))
- EQU LIB_NONSTD (LIB_USERDEF)
-
- EQU LIB_OPEN (-6)
- EQU LIB_CLOSE (-12)
- EQU LIB_EXPUNGE (-18)
- EQU LIB_EXTFUNC (-24)
-
- {s Library
- struct 14 lib_Node ( { Node=14;exec/nodes )
- BYTE lib_Flags
- BYTE lib_pad
- WORD lib_NegSize
- WORD lib_PosSize
- WORD lib_Version
- WORD lib_Revision
- APTR lib_IdString
- LONG lib_Sum
- WORD lib_OpenCnt
- s}
-
- EQU LIBF_SUMMING (1<<0)
- EQU LIBF_CHANGED (1<<1)
- EQU LIBF_SUMUSED (1<<2)
- EQU LIBF_DELEXP (1<<3)
-
-
- >Exec -396 (r A1 r) AddLibrary (s lib -- )
- >Exec ^ -402 (r A1 r) RemLibrary (s lib -- err )
- \\ >Exec -414 (r A1 r) CloseLibrary (s lib -- )
- \\ >Exec ^ -552 (r A1 D0 r) OpenLibrary (s name vers -- lib )
- >Exec -426 (r A1 r) SumLibrary (s lib -- )
- >Exec ^ -084 (r A2 A1 A0 D1 D0 r) MakeLibrary
- (s init struct vectos segList codeSize -- library )
-
- >Exec ^ -420 (r A1 A0 D0 r) SetFunction (s lib foffs fentry -- o'fentry )
- >Exec ^ -090 (r A2 A1 A0 r) MakeFunctions
- (s funcDispBase functionArray target -- tablesize )
-
-