home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 224a.lha / Includes / resources / disk < prev    next >
Encoding:
Text File  |  1989-04-08  |  1.5 KB  |  63 lines
  1.  
  2. {s DiscResourceUnit
  3.     struct  20 dru_Message      ( { Message=20;exec/ports )
  4.     struct  22 dru_DiscBlock    ( { Interrupt=22;exec/interrupts )
  5.     struct  22 dru_DiscSync
  6.     struct  22 dru_Index
  7.    s}
  8.  
  9. {s DiscResource
  10.     struct  34 dr_Library       ( { Library=34;exec/libraries )
  11.     APTR    dr_Current
  12.     BYTE    dr_Flags
  13.     BYTE    dr_pad
  14.     APTR    dr_SysLib
  15.     APTR    dr_CiaResource
  16.     LONGS   4 dr_UnitID
  17.     struct  14 dr_Waiting       ( { List=14;exec/lists )
  18.     struct  22 dr_DiscBlock     ( { Interrupt=22;exec/interrupts )
  19.     struct  22 dr_DiscSync
  20.     struct  22 dr_Index
  21.    s}
  22.  
  23. EQU  DRB_ALLOC0    0
  24. EQU  DRF_ALLOC0    (1<<0)
  25. EQU  DRB_ALLOC1    1
  26. EQU  DRF_ALLOC1    (1<<1)
  27. EQU  DRB_ALLOC2    2
  28. EQU  DRF_ALLOC2    (1<<2)
  29. EQU  DRB_ALLOC3    3
  30. EQU  DRF_ALLOC3    (1<<3)
  31. EQU  DRB_ACTIVE    7
  32. EQU  DRF_ACTIVE    (1<<7)
  33.  
  34.  
  35. EQU  DSKDMAOFF     $4000
  36.  
  37.  
  38. \\        LIBINIT LIB_BASE
  39. \\        LIBDEF  DR_ALLOCUNIT
  40. \\        LIBDEF  DR_FREEUNIT
  41. \\        LIBDEF  DR_GETUNIT
  42. \\        LIBDEF  DR_GIVEUNIT
  43. \\        LIBDEF  DR_GETUNITID
  44.  
  45.  
  46. EQU  DRT_AMIGA           $00000000
  47. EQU  DRT_37422D2S        $55555555
  48. EQU  DRT_EMPTY           $FFFFFFFF
  49.  
  50.  
  51. : DISKNAME   " disk.resource"  drop  ;
  52.  
  53. libindex: >Disk
  54.  
  55. \\   check the following routines out, i'm not sure of calling sequence
  56.  
  57. >Disk ^ -6  (r D0 r) AllocUnit  (s Unit# -- fl )
  58. >Disk   -12 (r D0 r) FreeUnit   (s unit# -- )
  59. >Disk ^ -18 (r A1 r) GetUnit    (s unitpointer -- lastdriver )
  60. >Disk   -24 (r    r) GiveUnit   (s -- )
  61. >Disk ^ -30 (r D0 r) GetUnitID  (s unit# -- idtype )
  62.  
  63.