.title	jtntauthm
; Copyright (c) 1993, 1994 Glenn C. Everhart
; All Rights Reserved
; Glenn C. Everhart
	.library /sys$library:lib.mlb/
	$fabdef
	$namdef
	$acedef
	$atrdef
	$fibdef
;
	.if	ndf,evax
	.macro .jsb_entry
;entry
	.endm
	.endc
	.globl	getfiddid
	.entry	getfiddid,^m<r2,r3,r4,r5>
; Get FID and return to arg 2 buffer. Arg1 = fab addr
	movl	4(ap),r2	;get fab address
	movl	fab$l_nam(r2),r3	;get nam blk address
	movl	8(ap),r4		;output pid address
	movab	nam$w_fid(r3),r3	;point at 6 bytes of fid
	movl	(r3)+,(r4)+		;store fid
	movw	(r3)+,(r4)+		;(6 bytes)
	movl	12(ap),r4		;get did
	movw	(r3)+,(r4)+		;(6 bytes)
	movl	(r3)+,(r4)+		;store did
	ret
	.end