home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 032.lha / include / resources / disk.g < prev    next >
Encoding:
Text File  |  1987-05-17  |  1.4 KB  |  61 lines
  1. /* requires prior inclusion of "exec/libraries.g" */
  2.  
  3. type
  4.     List_t = unknown 14,
  5.     Message_t = unknown 20,
  6.     Interrupt_t = unknown 22,
  7.     Library_t = unknown 34,
  8.  
  9.     DiscResourceUnit_t = struct {
  10.     Message_t dru_Message;
  11.     Interrupt_t dru_DiscBlock, dru_DiscSync, dru_Index;
  12.     },
  13.  
  14.     DiscResource_t = struct {
  15.     Library_t dr_Library;
  16.     *DiscResourceUnit dr_Current;
  17.     ushort dr_Flags, dr_pad;
  18.     *Library_t dr_SysLib, dr_CiaResource;
  19.     [4]ulong dr_UnitID;
  20.     List_t dr_Waiting;
  21.     Interrupt_t dr_DiscBlock, dr_DiscSync, dr_Index;
  22.     };
  23.  
  24. ushort
  25.     DRB_ALLOC0    = 0,
  26.     DRB_ALLOC1    = 1,
  27.     DRB_ALLOC2    = 2,
  28.     DRB_ALLOC3    = 3,
  29.     DRB_ACTIVE    = 7,
  30.  
  31.     DRF_ALLOC0    = 1 << DRB_ALLOC0,
  32.     DRF_ALLOC1    = 1 << DRB_ALLOC1,
  33.     DRF_ALLOC2    = 1 << DRB_ALLOC2,
  34.     DRF_ALLOC3    = 1 << DRB_ALLOC3,
  35.     DRF_ACTIVE    = 1 << DRB_ACTIVE;
  36.  
  37. uint DSKDMAOFF = 0x4000;
  38.  
  39. *char DISKNAME = "disk.resource";
  40.  
  41. int
  42.     DR_ALLOCUNIT    = LIB_BASE - 0 * LIB_VECTSIZE,
  43.     DR_FREEUNIT     = LIB_BASE - 1 * LIB_VECTSIZE,
  44.     DR_GETUNIT        = LIB_BASE - 2 * LIB_VECTSIZE,
  45.     DR_GIVEUNIT     = LIB_BASE - 3 * LIB_VECTSIZE,
  46.     DR_GETUNITID    = LIB_BASE - 4 * LIB_VECTSIZE,
  47.  
  48.     DR_LASTCOM        = DR_GIVEUNIT;
  49.  
  50. ulong
  51.     DRT_AMIGA        = 0x00000000,
  52.     DRT_37422D2S    = 0x55555555,
  53.     DRT_EMPTY        = 0xFFFFFFFF;
  54.  
  55. extern
  56.     AllocUnit(ulong unitNum)bool,
  57.     FreeUnit(ulong unitNum)void,
  58.     GetUnit(*DiskResourceUnit_t unitPointer)*DiskResourceUnit,
  59.     GetUnitId(ulong unitNum)ulong,
  60.     GiveUnit()void;
  61.