.TITLE	GINUAB	GIN FOR USER ACCOUNT BLOCK FROM FORTRAN
	.IDENT	/01.01/
;
;	FORTRAN CALL -- CALL GINUAB(BLOCK,ISTAT)
;
;		INPUTS: NONE
;		OUTPUTS: 124 BYTE BLOCK RECEIVES USER ACCOUNT BLOCK
;			 ISTAT RECEIVES $DSW
;
	.MCALL	GIN$S
;
GINUAB::
	GIN$S	#GI.UAB,2(R5),#62.,#0,#0; TRY THE GIN DIRECTIVE
	MOV	$DSW,@4(R5)		; RETURN DSW
	RTS	PC
;
	.END