|##########|
|#MAGIC   #|CLABLLID
|#PROJECT #|""
|#PATHS   #|"StdProject"
|#FLAGS   #|xx---x--x----xx-----------------
|#USERSW  #|--------------------------------
|#USERMASK#|--------------------------------
|#SWITCHES#|x-xx-x----------
|##########|
DEFINITION MODULE PotgoResource;
(* $A- *)
FROM Exec     IMPORT LibraryPtr;
FROM Hardware IMPORT PotFlags,PotFlagSet;
FROM System   IMPORT Regs;

VAR
  PotgoBase : LibraryPtr;

LIBRARY  PotgoBase  BY -6
  PROCEDURE AllocPotBits(bits     IN D0 : PotFlagSet):PotFlagSet;

LIBRARY  PotgoBase  BY -12
  PROCEDURE FreePotBits(allocated IN D0 : PotFlagSet);

LIBRARY  PotgoBase  BY -18
  PROCEDURE WritePotgo(word       IN D0  : PotFlagSet;
                       mask       IN D1  : PotFlagSet);

GROUP
  All  = PotgoBase,AllocPotBits,FreePotBits,WritePotgo,PotFlags,PotFlagSet;

END PotgoResource.