(*
**	Cyclone Modula-2 Interface module:
**	$VER: potgo.h 36.0 (13.4.90)
**	Includes Release 40.15
**
**	potgo resource name
**
**	(C) Copyright 1986-1993 Commodore-Amiga, Inc.
**	    All Rights Reserved
**
**      Interface module by Marcel Timmermans
**      (C) Copyright 1995-1996 Marcel Timmermans
**          All Rights Reserved
*)

(*$ Implementation- *)
DEFINITION MODULE Potgo;

FROM SYSTEM   IMPORT ADDRESS;
FROM Hardware IMPORT PotFlags,PotFlagSet;

IMPORT Reg;

CONST
 potgoName="potgo.resource";

TYPE
 PotgoBits   = PotFlags;
 PotgoBitSet = PotFlagSet;

PROCEDURE AllocPotBits(potgo{Reg.A6}:ADDRESS;bits{Reg.D0}:PotgoBitSet):PotgoBitSet; CODE -6;

PROCEDURE FreePotBits(potgo{Reg.A6}:ADDRESS;allocated{Reg.D0}:PotgoBitSet); CODE -12;

PROCEDURE WritePotgo(potgo{Reg.A6}:ADDRESS;word{Reg.D0}:PotgoBitSet;
                     mask{Reg.D1}:PotgoBitSet); CODE -18;

END Potgo.
