.TITLE	VERNUM
	.IDENT	/UPPSAL/
	.PSECT	VERNUM
;
;	AUTHOR	B-E TAPPER
;
; REVISION HISTORY:
;	IDENT	DATE		WHO			REASON
;
;	UPPSAL	85-08-22	B TAPPER		URUPPF\RANDE
;
;	CALLING SEQUENCE: CALL VERNUM(ILUN,UTVER,IERR)
;				ILUN=LUN WITH FILE
;				IERR= 	0 	OK
;					-1  	DEVICE TABLE NOT FOUND
;				UTVER=OCTAL VERSION NUMBER
;	FUNCTIONAL DESCRIPTION:
;	GETS VERNUM OF OPEN FILE ON ILUN
;
DVFDB	=14	; OFFSET TO FDB (FROM DSPOOL.MAC)
;
	.MCALL	NBOF$L,FDOF$L
	.MCALL	CALL,RETURN
;
	NBOF$L
	FDOF$L
VERNUM::
	CLR	R4		;IERR = 0
;
;
	MOV	@2(R5),R2	; GET LUN
	MOV	#$OTSVA,R3	;EB: POINT AT OTS IMPURE AREA
	CALL	$FCHNL		; GET FDB TABLE ADRESS
	MOV	R0,R1		; USED TO BE IN R1 .....
;
	TST	R1		;FOUND ?
	BNE	12$		;YES
	JMP	92$		;EB: NO - ERROR
12$:
	ADD	#DVFDB,R1	;POINT AT FDB (FROM DSPOOL)
	ADD	#F.FNB,R1	;POINT TO ADRESS OF FNB
	MOV	N.FVER(R1),UTVER
	BR	90$
;
92$:	DEC	R4		;IERR = -1 FDB NOT FOUND
	BR	90$
;
90$:
;
	MOV	UTVER,@4(R5)	; GIVE VERSION NUMBER
	MOV	R4,@6(R5)	; GIVE RETURN CODE TO IERR
	RETURN
;
UTVER:	.WORD	0
	.END