home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / resources / disk.h < prev    next >
Encoding:
Text File  |  1994-07-25  |  1.6 KB  |  73 lines
  1. {$if not def RESOURCES_DISK_H} CONST RESOURCES_DISK_H=0;
  2.  
  3. { ******************************************************************
  4.   ** KickPascal-Include-Datei "resources/disk.h" zu Kickstart 3.0 **
  5.   ****************************************************************** }
  6.  
  7. TYPE p_DiscResourceUnit = ^DiscResourceUnit;
  8. TYPE p_DiscResource = ^DiscResource;
  9.  
  10. {$if not def EXEC_LISTS_H;incl "exec/lists.h";endif}
  11. {$if not def EXEC_PORTS_H;incl "exec/ports.h";endif}
  12. {$if not def EXEC_INTERRUPTS_H;incl "exec/interrupts.h";endif}
  13. {$if not def EXEC_LIBRARIES_H;incl "exec/libraries.h";endif}
  14.  
  15. TYPE DiscResourceUnit = RECORD
  16.  dru_Message   : Message;
  17.  dru_DiscBlock : Interrupt;
  18.  dru_DiscSync  : Interrupt;
  19.  dru_Index     : Interrupt;
  20. END;
  21.  
  22. TYPE DiscResource = RECORD
  23.  dr_Library     : _Library;
  24.  dr_Current     : p_DiscResourceUnit;
  25.  dr_Flags       : Byte;
  26.  dr_pad         : Byte;
  27.  dr_SysLib      : p_Library;
  28.  dr_CiaResource : p_Library;
  29.  dr_UnitID      : ARRAY[0..3] OF Long;
  30.  dr_Waiting     : List;
  31.  dr_DiscBlock   : Interrupt;
  32.  dr_DiscSync    : Interrupt;
  33.  dr_Index       : Interrupt;
  34.  dr_CurrTask    : p_Task;
  35. END;
  36.  
  37. CONST
  38.  DRB_ALLOC0 = 0;
  39.  DRB_ALLOC1 = 1;
  40.  DRB_ALLOC2 = 2;
  41.  DRB_ALLOC3 = 3;
  42.  DRB_ACTIVE = 7;
  43.  
  44.  DRF_ALLOC0 = $1;
  45.  DRF_ALLOC1 = $2;
  46.  DRF_ALLOC2 = $4;
  47.  DRF_ALLOC3 = $8;
  48.  DRF_ACTIVE = $80;
  49.  
  50. CONST DSKDMAOFF = $4000;
  51.  
  52.  
  53.  
  54. CONST DISKNAME = "disk.resource";
  55.  
  56. CONST
  57.  DR_ALLOCUNIT  = $FFFFFFFA;
  58.  DR_FREEUNIT   = $FFFFFFF4;
  59.  DR_GETUNIT    = $FFFFFFEE;
  60.  DR_GIVEUNIT   = $FFFFFFE8;
  61.  DR_GETUNITID  = $FFFFFFE2;
  62.  DR_READUNITID = $FFFFFFDC;
  63.  
  64.  DR_LASTCOMM   = DR_READUNITID;
  65.  
  66. CONST
  67.  DRT_AMIGA    = $00000000;
  68.  DRT_37422D2S = $55555555;
  69.  DRT_EMPTY    = $FFFFFFFF;
  70.  DRT_150RPM   = $AAAAAAAA;
  71.  
  72. {$endif}
  73.