.TITLE	MF07..	DIAGNOSTIC FDB DUMP PROCEDURE
	.IDENT	/MF07../
;
;
;
F$DIAG::				;FDB DIAGNOSTIC DUMPER
;
;		ENTRY CONDITIONS
;		NONE
;
;		EXIT CONDITIONS
;		DATA DISPLAYED ONLY
;
;
	PTEXT <<CR><LF>"ENTER RETURN TO START FDB DUMP">
	SAVE R0
	INPUT
	UNSAVE R0
	MOV F$FDB,R4			;HOLD BASE ADDRESS
	PTEXT <<ESC><72.><ESC><74.>"FDB DUMP PROGRAMME"<CR><LF><LF>>
	DMPOFF F.HIBK,4
	DMPOFF F.EFBK,4
	DMPOFF F.NRBD,4
	NEWLINE
	DMPOFF F.BKDS,4
	DMPOFF F.RCNM,4
	DMPOFF F.URBD,4
	NEWLINE
	DMPOFF F.BKVB,4
	DMPOFF F.VBN,4
	NEWLINE
	DMPOFF F.RSIZ,2
	DMPOFF F.FFBY,2
	DMPOFF F.BKST,2
	DMPOFF F.BKDN,2
	NEWLINE
	DMPOFF F.OVBS,2
	DMPOFF F.NREC,2
	DMPOFF F.EOBB,2
	DMPOFF F.CNTG,2
	NEWLINE
	DMPOFF F.STBK,2
	DMPOFF F.ALOC,2
	DMPOFF F.BDB,2
	DMPOFF F.SPDV,2
	NEWLINE
	DMPOFF F.DSPT,2
	DMPOFF F.DFNB,2
	DMPOFF F.VBSZ,2
	DMPOFF F.BBFS,2
	NEWLINE
	DMPOFF F.ACTL,2
	DMPOFF F.SEQN,2
	NEWLINE
	DMPOFF F.RTYP,1
	DMPOFF F.RATT,1
	DMPOFF F.RACC,1
	DMPOFF F.RCTL,1
	NEWLINE
	DMPOFF F.LUN,1
	DMPOFF F.FACC,1
	DMPOFF F.BKEF,1
	DMPOFF F.EFN,1
	NEWLINE
	DMPOFF F.BKP1,1
	DMPOFF F.ERR,1,DEC
	DMPOFF F.ERR+1,1
	DMPOFF F.MBCT,1
	DMPOFF F.MBC1,1
	NEWLINE
	DMPOFF F.MBFG,1
	DMPOFF F.BGBC,1
	DMPOFF F.SPUN,1
	DMPOFF F.CHR,1
	NEWLINE
;
FNB:				;THIS LABLE JUST TO ENABLE LOCAL SYMBOLS
	PTEXT <<CR><LF>"FILENAME SECTION"<CR><LF>>
	ADD #F.FNB,R4		;HOLD FILENAME BLOCK ADDRESS
	DMPOFF N.FID,6
	DMPOFF N.DID,6
	NEWLINE
	DMPOFF N.FNAM,6,R50
	DMPOFF N.DID,6,ASC
	NEWLINE
	DMPOFF N.FTYP,2
	DMPOFF N.FTYP,2,R50
	DMPOFF N.FVER,2
	DMPOFF N.STAT,2
	NEWLINE
	DMPOFF N.NEXT,2
	DMPOFF N.DVNM,2,ASC
	DMPOFF N.UNIT,2
	NEWLINE
	MOV N.STAT(R4),R4	;HOLD STATUS BITS
	DMPBIT NB.VER
	DMPBIT NB.TYP
	DMPBIT NB.NAM
	DMPBIT NB.SVR
	DMPBIT NB.STP
	DMPBIT NB.SNM
	NEWLINE
	DMPBIT NB.DIR
	DMPBIT NB.DEV
	DMPBIT NB.SD1
	DMPBIT NB.SD2
	NEWLINE
;
;
DFNB:				;LABEL TO ALLOW LOCAL SYMBOLS
	PTEXT <<CR><LF>"DEFAULT FILENAME SECTION"<CR><LF>>
	MOV #F$DFNB,R4		;HOLD DEFAULT FILENAME BLOCK ADDRESS
	DMPOFF N.FID,6
	DMPOFF N.DID,6
	NEWLINE
	DMPOFF N.FNAM,6,R50
	DMPOFF N.DID,6,ASC
	NEWLINE
	DMPOFF N.FTYP,2
	DMPOFF N.FTYP,2,R50
	DMPOFF N.FVER,2
	DMPOFF N.STAT,2
	NEWLINE
	DMPOFF N.NEXT,2
	DMPOFF N.DVNM,2,ASC
	DMPOFF N.UNIT,2
	NEWLINE
	ADD #N.STAT,R4		;HOLD STATUS BITS ADDRESS
	MOV N.STAT(R4),R4	;HOLD STATUS BITS
	DMPBIT NB.VER
	DMPBIT NB.TYP
	DMPBIT NB.NAM
	DMPBIT NB.SVR
	DMPBIT NB.STP
	DMPBIT NB.SNM
	NEWLINE
	DMPBIT NB.DIR
	DMPBIT NB.DEV
	DMPBIT NB.SD1
	DMPBIT NB.SD2
	NEWLINE
;
	RETURN
;
;
;
;
	.END
;
;
;