; GSTAT.MAC -- PLUG STATISICS BLOCK ADDRESS
; AUTHOR:  J. LEONARD
; DATE WRITTEN:  08-MAY-78
;
	.NLIST	TOC		;TBL OF CONTENTS NOT WANTED
;
	.TITLE	GSTAT
;
	.ENABL	AMA		;NO PC-REL ADDRS
;
	.MCALL	FDOF$L
;
	.GLOBL	$FCHNL,NAM$	;SUBRS CALLED
	.GLOBL	$OTSV		;OTS IMPURE PTR ADDR
	FDOF$L
;
;
; CALL:
;     CALL GSTAT (LUN, STBLK)
; WHERE:
;	LUN	= FILE'S LOGICAL UNIT
;	STBLK	= I*2 STAT BLOCK, 5 WORDS LONG
;
D.FDB	=	14		;OFFSET TO FDB FROM FFDB
;
;
GSTAT::
	MOV	#GSTATN,R0	;NAME TO TRACE BK
	MOV	(R0)+,R4
	MOV	(R0)+,-(SP)	;PUSH (R0)+ ONTO STACK
	JSR	R4,NAM$		;TRACEBACK CHAIN
	TST	(R5)+		;DITCH NARGS
	MOV	@(R5)+,R2	;GET LUN
	MOV	@#$OTSV,R3	;OTS IMPURE ADDR
	JSR	PC,$FCHNL	;GET DEVT ENTRY ADDR
	ADD	#D.FDB,R0	;LUN'S FDB ADDR
;
	MOV	(R5),F.STBK(R0)	;MOVE IN STBLK ADDR TO FDB
;
	RTS	PC		;RETURN TO CALLER
;
GSTATN:	.RAD50	/GSTAT /	;TRACE NAME
;
	.END