home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 224a.lha / Includes / exec / libraries < prev    next >
Encoding:
Text File  |  1989-04-08  |  1.2 KB  |  44 lines

  1.  
  2. EQU LIB_VECTSIZE    6
  3. EQU LIB_RESERVED    4
  4. EQU LIB_BASE        (-LIB_VECTSIZE)
  5. EQU LIB_USERDEF     (LIB_BASE-(LIB_RESERVED*LIB_VECTSIZE))
  6. EQU LIB_NONSTD      (LIB_USERDEF)
  7.  
  8. EQU LIB_OPEN        (-6)
  9. EQU LIB_CLOSE       (-12)
  10. EQU LIB_EXPUNGE     (-18)
  11. EQU LIB_EXTFUNC     (-24)
  12.  
  13. {s Library
  14.     struct  14 lib_Node         ( { Node=14;exec/nodes )
  15.     BYTE    lib_Flags
  16.     BYTE    lib_pad
  17.     WORD    lib_NegSize
  18.     WORD    lib_PosSize
  19.     WORD    lib_Version
  20.     WORD    lib_Revision
  21.     APTR    lib_IdString
  22.     LONG    lib_Sum
  23.     WORD    lib_OpenCnt
  24.    s}
  25.  
  26. EQU LIBF_SUMMING    (1<<0)
  27. EQU LIBF_CHANGED    (1<<1)
  28. EQU LIBF_SUMUSED    (1<<2)
  29. EQU LIBF_DELEXP     (1<<3)
  30.  
  31.  
  32. >Exec   -396 (r A1       r) AddLibrary   (s lib -- )
  33. >Exec ^ -402 (r A1       r) RemLibrary   (s lib -- err )
  34. \\ >Exec   -414 (r A1       r) CloseLibrary (s lib -- )
  35. \\ >Exec ^ -552 (r A1 D0    r) OpenLibrary  (s name vers -- lib )
  36. >Exec   -426 (r A1       r) SumLibrary   (s lib -- )
  37. >Exec ^ -084 (r A2 A1 A0 D1 D0 r) MakeLibrary
  38.                    (s init struct vectos segList codeSize -- library )
  39.  
  40. >Exec ^ -420 (r A1 A0 D0 r) SetFunction  (s lib foffs fentry -- o'fentry )
  41. >Exec ^ -090 (r A2 A1 A0 r) MakeFunctions
  42.                    (s funcDispBase functionArray target -- tablesize )
  43.  
  44.