|##########|
|#MAGIC   #|CLABLLJM
|#PROJECT #|"IMPORTALL"
|#PATHS   #|"StdProject"
|#FLAGS   #|xx-x-x--x-----x-----------------
|#USERSW  #|--------------------------------
|#USERMASK#|--------------------------------
|#SWITCHES#|x-xx-x----------
|##########|
DEFINITION MODULE MiscResource;
(* $A- *)
FROM Exec    IMPORT Resource;
FROM System  IMPORT Regs;

TYPE
  ResourceTypes      = (serialPort,serialBits,parallelPort,
                        parallelBits);
  MiscResource       = RECORD OF Resource;
                         allocArray : ARRAY ResourceTypes OF ANYPTR
                       END;
  MiscResourcePtr    = POINTER TO MiscResource;

VAR
  MiscBase  : MiscResourcePtr;

LIBRARY MiscBase BY -6
  PROCEDURE AllocMiscResource(    unitNum IN D0  : LONGINT;
                              REF name    IN A1  : STRING):ANYPTR;

LIBRARY MiscBase BY -12
  PROCEDURE FreeMiscResource(unitNum IN D0  : LONGINT);

GROUP
  All   = ResourceTypes,MiscResource,MiscResourcePtr,MiscBase,
          AllocMiscResource,FreeMiscResource;

END MiscResource.