unit Gameport;

INTERFACE
uses Exec;


type
	pGamePortTrigger = ^tGamePortTrigger;
	tGamePortTrigger = record
		gpt_Keys: word;
		gpt_Timeout: word;
		gpt_XDelta: word;
		gpt_YDelta: word;
		end;



const
	GPCT_NOCONTROLLER = 0;
	GPTB_DOWNKEYS = 0;
	GPD_ASKCTYPE = $A;
	GPTF_DOWNKEYS = 1;
	GPCT_ABSJOYSTICK = 3;
	GPD_SETCTYPE = $B;
	GPCT_ALLOCATED = $FFFFFFFF;
	GPCT_RELJOYSTICK = 2;
	GPD_ASKTRIGGER = $C;
	GPDERR_SETCTYPE = 1;
	GPTB_UPKEYS = 1;
	GPD_SETTRIGGER = $D;
	GPTF_UPKEYS = 2;
	GPD_READEVENT = 9;
	GPCT_MOUSE = 1;


IMPLEMENTATION
end.