home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Devpac Amiga 1 / Lowe_DevpacAmiga1.adf / include / exec / libraries.i < prev    next >
Encoding:
Text File  |  1987-11-09  |  1.2 KB  |  92 lines
  1.     IFND    EXEC_LIBRARIES_I
  2. EXEC_LIBRARIES_I    SET 1
  3.  
  4.     IFND    EXEC_NODES_I
  5.     INCLUDE    "exec/nodes.i"        for LN_SIZE
  6.     ENDC    !EXEC_NODES_I
  7.  
  8.  
  9.  
  10. LIB_VECTSIZE    EQU    6
  11. LIB_RESERVED    EQU    4
  12. LIB_BASE    EQU    $FFFFFFFA
  13. LIB_USERDEF    EQU    LIB_BASE-(LIB_RESERVED*LIB_VECTSIZE)
  14. LIB_NONSTD    EQU    LIB_USERDEF
  15.  
  16.  
  17.  
  18. LIBINIT    MACRO
  19.     IFC       '\1',''
  20. COUNT_LIB    SET     LIB_USERDEF
  21.     ENDC
  22.     IFNC    '\1',''
  23. COUNT_LIB    SET       \1
  24.     ENDC
  25.     ENDM
  26.  
  27.  
  28.  
  29. LIBDEF    MACRO
  30. \1    EQU     COUNT_LIB
  31. COUNT_LIB    SET     COUNT_LIB-LIB_VECTSIZE
  32.     ENDM
  33.  
  34.  
  35.  
  36.     LIBINIT LIB_BASE
  37.  
  38.     LIBDEF  LIB_OPEN
  39.     LIBDEF  LIB_CLOSE
  40.     LIBDEF  LIB_EXPUNGE
  41.     LIBDEF  LIB_EXTFUNC    reserved
  42.  
  43.  
  44.  
  45.     rsset    LN_SIZE
  46. LIB_FLAGS    rs.b    1
  47. LIB_pad    rs.b    1
  48. LIB_NEGSIZE    rs.w    1
  49. LIB_POSSIZE    rs.w    1
  50. LIB_VERSION    rs.w    1
  51. LIB_REVISION    rs.w    1
  52. LIB_IDSTRING    rs.l    1
  53. LIB_SUM    rs.l    1
  54. LIB_OPENCNT    rs.w    1
  55. LIB_SIZE    rs.w    0
  56.  
  57.  
  58.  
  59. LIBB_SUMMING    equ    0
  60. LIBF_SUMMING    equ    1<<0
  61. LIBB_CHANGED    equ    1
  62. LIBF_CHANGED    equ    1<<1
  63. LIBB_SUMUSED    equ    2
  64. LIBF_SUMUSED    equ    1<<2
  65. LIBB_DELEXP    equ    3
  66. LIBF_DELEXP    equ    1<<3
  67.  
  68.  
  69.  
  70.  
  71. CALLLIB    MACRO
  72.     IFGT NARG-1
  73.     FAIL    !!! CALLLIB MACRO - too many arguments !!!
  74.     ENDC
  75.     JSR     \1(A6)
  76.     ENDM
  77.  
  78.  
  79.  
  80. LINKLIB    MACRO
  81.     IFGT NARG-2
  82.     FAIL    !!! LINKLIB MACRO - too many arguments !!!
  83.     ENDC
  84.     MOVE.L  A6,-(SP)
  85.     MOVE.L  \2,A6
  86.     CALLLIB \1
  87.     MOVE.L  (SP)+,A6
  88.     ENDM
  89.  
  90.     ENDC    !EXEC_LIBRARIES_I
  91.  
  92.