******************************************************************************
* GPI Control Structure.  Completely private.

ID_GPI =	"GP"

GPV1 =	((ID_GPI<<16)|00)

  STRUCTURE	GP,0
	ULONG	GP_VERSION       ;VERSION.
	ULONG	GP_Stats         ;Private.
	APTR	GP_Segment       ;DOS Segment.
	APTR	GP_Functions     ;Function table.
	APTR	GP_FunctionList  ;List of function pointers.
	ULONG	GP_TableSize     ;Size of the function table.
	UWORD	GP_ID            ;Number of the GPI associated with this struct.
	LABEL	GP_SIZEOF

******************************************************************************
* Command table for GPI instructions.

    STRUCTURE	GPI_COMMANDS,0	;Command table.
	WORD	GPI_SETPREFS
	WORD	GPI_FREEPREFS
	WORD	GPI_OPEN
	WORD	GPI_CLOSE
	WORD	GPI_EXPUNGE
	LABEL	GPI_SIZEOF

FUNC	MACRO
	dc.w	\1
	dc.l	\2
	ENDM