;
;	General Information Directive (GIN$).
;
	.MACRO	GIN$	SFCN,P1,P2,P3,P4,P5,P6,P7,P8,P9
	.MCALL	OFF$,GFN$
	.IF NDF	$$$GLB
	GFN$
	.NARG	$$$N
$$$I=$$$N
	.BYTE	169.,$$$N+1
	.IRP	$$$PRM,<SFCN,P1,P2,P3,P4,P5,P6,P7,P8,P9>
	.IF EQ	$$$I
	.MEXIT
	.IFF
$$$I=$$$I-1
	.ENDC
	.WORD	$$$PRM
	.ENDR
	.ENDC
	.IF NDF	G.INSF
	.NLIST
	.IRP	X,<,<G.INSF,2>,<G.IP01,2>,<G.IP02,2>,<G.IP03,2>>
	OFF$	X
	.ENDM
	.IRP	X,<<G.IP04,2>,<G.IP05,2>,<G.IP06,2>>
	OFF$	X
	.ENDR
	.IRP	X,<<G.IP07,2>,<G.IP08,2>,<G.IP09,2>>
	OFF$	X
	.ENDR
	.ENDC
	.ENDM	GIN$
;
;	Macro to define various GIN$ subfunction codes.
;
	.MACRO	GFN$
GI.GAS=0	; Get assigned device name.
GI.UIC=1	; Get system, library, current, protection, & login UIC's.
GI.DEF=2	; Set task default UIC.
GI.FMK=3	; Get feature mask words, base level, and version.
GI.QMC=4	; Queue an MCR command line.
GI.UAB=5	; Get user account block.
GI.DEV=6	; Get device information.
GI.SPR=7.	; Set task privilege.
GI.REN=8.	; Rename current task name.
GI.APR=9.	; Get task APR's.
GI.TSK=10.	; Find task and return task information.
GI.SPM=11.	; Set performance monitor parameters.
GI.CFG=12.	; Get system configuration table (for Professional).
GI.SSN=13.	; Get system serial number (for Professional).
	.ENDM