home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / development / clusterdemo.dms / clusterdemo.adf / Modules.lha / modules / txt / MiscResource.def < prev    next >
Encoding:
Text File  |  1994-05-25  |  1.0 KB  |  38 lines
  1. |##########|
  2. |#MAGIC   #|CLABLLJM
  3. |#PROJECT #|"IMPORTALL"
  4. |#PATHS   #|"StdProject"
  5. |#FLAGS   #|xx-x-x--x-----x-----------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|x-xx-x----------
  9. |##########|
  10. DEFINITION MODULE MiscResource;
  11. (* $A- *)
  12. FROM Exec    IMPORT Resource;
  13. FROM System  IMPORT Regs;
  14.  
  15. TYPE
  16.   ResourceTypes      = (serialPort,serialBits,parallelPort,
  17.                         parallelBits);
  18.   MiscResource       = RECORD OF Resource;
  19.                          allocArray : ARRAY ResourceTypes OF ANYPTR
  20.                        END;
  21.   MiscResourcePtr    = POINTER TO MiscResource;
  22.  
  23. VAR
  24.   MiscBase  : MiscResourcePtr;
  25.  
  26. LIBRARY MiscBase BY -6
  27.   PROCEDURE AllocMiscResource(    unitNum IN D0  : LONGINT;
  28.                               REF name    IN A1  : STRING):ANYPTR;
  29.  
  30. LIBRARY MiscBase BY -12
  31.   PROCEDURE FreeMiscResource(unitNum IN D0  : LONGINT);
  32.  
  33. GROUP
  34.   All   = ResourceTypes,MiscResource,MiscResourcePtr,MiscBase,
  35.           AllocMiscResource,FreeMiscResource;
  36.  
  37. END MiscResource.
  38.