.TITLE FBSET
;
;CALLING SEQUENCE:  CALL FBSET(IBUF)
;

FBSET::
	MOV	#3,R2 		;GET LUN
	JSR	PC,$FCHNL	;GET ADX OF FFDB IN R0
	BCS	10$		;IF CS, INVALID LUN
	MOV	2(R5),R1
	ADD	#14,R0
	MOV	(R1)+,(R0)+
	MOV	(R1)+,(R0)+
	MOV	(R1)+,(R0)+
	MOV	(R1)+,(R0)+
	MOV	(R1)+,(R0)+
	MOV	(R1)+,(R0)+
	MOV	(R1)+,(R0)+
	MOV	#-1,@2(R5)
10$:	RTS	PC
	.END