; GATTR.MAC -- GET FILE ATTRIBUTES
; AUTHOR:  J. LEONARD
; DATE WRITTEN:  09-AUG-79
;
	.NLIST	TOC		;TBL OF CONTENTS NOT WANTED
;
	.TITLE	GATTR
	.SBTTL	MODIFY FDB
;
	.ENABL	AMA		
;
	.MCALL	FDOF$L
;
	.GLOBL	$FCHNL,NAM$	
	.GLOBL	$OTSV		;OTS IMPURE PTR ADDR
	FDOF$L
;
;
; CALL:
;     CALL GATTR (LUN, IFRTYP, IFRATT)
; WHERE:
;	LUN	= FILE'S LOGICAL UNIT
;	IFRTYP	= RECORD TYPE BYTE BUT RETURNED AS I*2
;	IFRATT	= RECORD ATTRIBUTES (I*2)
;
D.FDB	=	14		;OFFSET TO FDB FROM FFDB
;
FBY	=	0		;FIRST FREE BYTE IN LAST BLOCK
;
GATTR::
	MOV	#GATTRN,R0	;NAME TO TRACE BK
	MOV	(R0)+,R4
	MOV	(R0)+,-(SP)	
	JSR	R4,NAM$		;TRACEBACK CHAIN
	TST	(R5)+		
	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
;
	CLR	@(R5)
	CLR	@2(R5)
	MOVB	F.RTYP(R0),@(R5)	; RECORD TYPE
	MOVB	F.RATT(R0),@2(R5)	; ATTRIBUTES
;
;
	RTS	PC		;RETURN TO CALLER
;
GATTRN:	.RAD50	/GATTR /	;TRACE NAME
;
	.END