home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / DVD!OMA2.DMS / in.adf / Include1.3.LHA / Include1.3 / exec / libraries.i < prev    next >
Encoding:
Text File  |  1994-10-12  |  1.1 KB  |  72 lines
  1.  IFND EXEC_LIBRARIES_I
  2. EXEC_LIBRARIES_I EQU 1
  3.  
  4.  IFND EXEC_TYPES_I
  5.  INCLUDE "exec/types.i"
  6.  ENDC
  7.  IFND EXEC_NODES_I
  8.  INCLUDE "exec/nodes.i"
  9.  ENDC
  10.  
  11. LIB_VECTSIZE equ 6
  12. LIB_RESERVED equ 4
  13. LIB_BASE equ $FFFFFFFA
  14. LIB_USERDEF equ LIB_BASE-(LIB_RESERVED*LIB_VECTSIZE)
  15. LIB_NONSTD equ LIB_USERDEF
  16.  
  17. LIBINIT MACRO
  18.  IFC '\1',''
  19. COUNT_LIB SET LIB_USERDEF
  20.  ELSE
  21. COUNT_LIB SET \1
  22.  ENDC
  23.  ENDM
  24.  
  25. LIBDEF MACRO
  26. \1 EQU COUNT_LIB
  27. COUNT_LIB SET COUNT_LIB-LIB_VECTSIZE
  28.  ENDM
  29.  
  30.  LIBINIT LIB_BASE
  31.  LIBDEF LIB_OPEN
  32.  LIBDEF LIB_CLOSE
  33.  LIBDEF LIB_EXPUNGE
  34.  LIBDEF LIB_EXTFUNC
  35.  
  36.  RSRESET
  37. LIB rs.b LN_SIZE
  38. LIB_FLAGS rs.b 1
  39. LIB_pad rs.b 1
  40. LIB_NEGSIZE rs 1
  41. LIB_POSSIZE rs 1
  42. LIB_VERSION rs 1
  43. LIB_REVISION rs 1
  44. LIB_IDSTRING rs.l 1
  45. LIB_SUM rs.l 1
  46. LIB_OPENCNT rs 1
  47. LIB_SIZE rs.b 0
  48.  
  49.  BITDEF LIB,SUMMING,0
  50.  BITDEF LIB,CHANGED,1
  51.  BITDEF LIB,SUMUSED,2
  52.  BITDEF LIB,DELEXP,3
  53.  
  54. CALLLIB MACRO
  55.  IFGT NARG-1
  56.  FAIL !!! CALLLIB MACRO - too many arguments !!!
  57.  ENDC
  58.  JSR \1(A6)
  59.  ENDM
  60.  
  61. LINKLIB MACRO
  62.  IFGT NARG-2
  63.  FAIL !!! LINKLIB MACRO - too many arguments !!!
  64.  ENDC
  65.  MOVE.L A6,-(SP)
  66.  MOVE.L \2,A6
  67.  CALLLIB \1
  68.  MOVE.L (SP)+,A6
  69.  ENDM
  70.  
  71.  ENDC
  72.