	.TITLE	USRTB
	.IDENT	/01.00/

	.MCALL	HWDDF$,SCBDF$,UCBDF$,CLKDF$
	UCBDF$	,,TTDEF		;DEFINE UCB OFFSETS

;
;DEVICE DATABASE
;
$USRTB::
.DC0:
.IIF	DF	LD$HD	$HDTBL=0
 	.WORD	.DC1		;D.LNK
	.WORD	.HD0		;D.UCB
	.ASCII	/HD/		;D.NAM
	.BYTE	0,HDH		;D.UNIT
	.WORD	HDND-HDST	;D.UCBL
	.WORD	$HDTBL		;D.DSP
.IF	DF	A$$CPS
	.WORD	177037,30,0,177000,377,0,0,377	;D.MSK
.IFF
	.WORD	160037,30,160000,0,7,0,1,6	;D.MSK
.ENDC
.IF	DF	L$$DRV
	.WORD	0		;D.PCB
.ENDC

;
;HD UCB'S
;
HDST=.
.IF	DF	E$$DVC
	.WORD	0,0		;U.IOC
	.BYTE	8.,5		;U.ERSL, U.ERHL
	.BYTE	0,0		;U.ERSC, U.ERHC
.ENDC
.IF 	DF	M$$MUP
	.WORD	0		;U.OWN
.ENDC
.HD0::
	.WORD	.DC0		;U.DCB
	.WORD	.-2		;U.RED
	.BYTE	UC.ALG!UC.NPR!UC.PWF!1,US.MNT	;U.CTL, U.STS
	.BYTE	0,0		;U.UNIT,
	.WORD	DV.DIR!DV.MNT!DV.F11!DV.MSD	;U.CW1
	.WORD	0		;U.CW2
	.WORD	1600.		;U.CW3
	.WORD	512.		;U.CW4
	.WORD	$HD0		;U.SCB
	.WORD	0,0,0,0,0,0	;
HDND=.

.IF	DF	E$$DVC
	.WORD	0,0		;U.IOC
	.BYTE	8.,5		;U.ERSL, U.ERHL
	.BYTE	0,0		;U.ERSC, U.ERHC
.ENDC
.IF 	DF	M$$MUP
	.WORD	0		;U.OWN
.ENDC
.HD1::
	.WORD	.DC0		;U.DCB
	.WORD	.-2		;U.RED
	.BYTE	UC.ALG!UC.NPR!UC.PWF!1,US.MNT	;U.CTL, U.STS
	.BYTE	1,0		;U.UNIT,
	.WORD	DV.DIR!DV.MNT!DV.F11!DV.MSD	;U.CW1
	.WORD	0		;U.CW2
	.WORD	1600.		;U.CW3
	.WORD	512.		;U.CW4
	.WORD	$HD0		;U.SCB
	.WORD	0,0,0,0,0,0	;

.IF	DF	E$$DVC
	.WORD	0,0		;U.IOC
	.BYTE	8.,5		;U.ERSL, U.ERHL
	.BYTE	0,0		;U.ERSC, U.ERHC
.ENDC
.IF 	DF	M$$MUP
	.WORD	0		;U.OWN
.ENDC
.HD2::
	.WORD	.DC0		;U.DCB
	.WORD	.-2		;U.RED
	.BYTE	UC.ALG!UC.NPR!UC.PWF!1,US.MNT	;U.CTL, U.STS
	.BYTE	2,0		;U.UNIT,
	.WORD	DV.DIR!DV.MNT!DV.F11!DV.MSD	;U.CW1
	.WORD	0		;U.CW2
	.WORD	1600.		;U.CW3
	.WORD	512.		;U.CW4
	.WORD	$HD0		;U.SCB
	.WORD	0,0,0,0,0,0	;

.IF	DF	E$$DVC
	.WORD	0,0		;U.IOC
	.BYTE	8.,5		;U.ERSL, U.ERHL
	.BYTE	0,0		;U.ERSC, U.ERHC
.ENDC
.IF 	DF	M$$MUP
	.WORD	0		;U.OWN
.ENDC
.HD3::
	.WORD	.DC0		;U.DCB
	.WORD	.-2		;U.RED
	.BYTE	UC.ALG!UC.NPR!UC.PWF!1,US.MNT	;U.CTL, U.STS
	.BYTE	3,0		;U.UNIT,
	.WORD	DV.DIR!DV.MNT!DV.F11!DV.MSD	;U.CW1
	.WORD	0		;U.CW2
	.WORD	1600.		;U.CW3
	.WORD	512.		;U.CW4
	.WORD	$HD0		;U.SCB
	.WORD	0,0,0,0,0,0	;

.IF	DF	E$$DVC
	.WORD	0,0		;U.IOC
	.BYTE	8.,5		;U.ERSL, U.ERHL
	.BYTE	0,0		;U.ERSC, U.ERHC
.ENDC
.IF 	DF	M$$MUP
	.WORD	0		;U.OWN
.ENDC
.HD4::
	.WORD	.DC0		;U.DCB
	.WORD	.-2		;U.RED
	.BYTE	UC.ALG!UC.NPR!UC.PWF!1,US.MNT	;U.CTL, U.STS
	.BYTE	4,0		;U.UNIT,
	.WORD	DV.DIR!DV.MNT!DV.F11!DV.MSD	;U.CW1
	.WORD	0		;U.CW2
	.WORD	1600.		;U.CW3
	.WORD	512.		;U.CW4
	.WORD	$HD0		;U.SCB
	.WORD	0,0,0,0,0,0	;

.IF	DF	E$$DVC
	.WORD	0,0		;U.IOC
	.BYTE	8.,5		;U.ERSL, U.ERHL
	.BYTE	0,0		;U.ERSC, U.ERHC
.ENDC
.IF 	DF	M$$MUP
	.WORD	0		;U.OWN
.ENDC
.HD5::
	.WORD	.DC0		;U.DCB
	.WORD	.-2		;U.RED
	.BYTE	UC.ALG!UC.NPR!UC.PWF!1,US.MNT	;U.CTL, U.STS
	.BYTE	5,0		;U.UNIT,
	.WORD	DV.DIR!DV.MNT!DV.F11!DV.MSD	;U.CW1
	.WORD	0		;U.CW2
	.WORD	1600.		;U.CW3
	.WORD	512.		;U.CW4
	.WORD	$HD0		;U.SCB
	.WORD	0,0,0,0,0,0	;

.IF	DF	E$$DVC
	.WORD	0,0		;U.IOC
	.BYTE	8.,5		;U.ERSL, U.ERHL
	.BYTE	0,0		;U.ERSC, U.ERHC
.ENDC
.IF 	DF	M$$MUP
	.WORD	0		;U.OWN
.ENDC
.HD6::
	.WORD	.DC0		;U.DCB
	.WORD	.-2		;U.RED
	.BYTE	UC.ALG!UC.NPR!UC.PWF!1,US.MNT	;U.CTL, U.STS
	.BYTE	6,0		;U.UNIT,
	.WORD	DV.DIR!DV.MNT!DV.F11!DV.MSD	;U.CW1
	.WORD	0		;U.CW2
	.WORD	1600.		;U.CW3
	.WORD	512.		;U.CW4
	.WORD	$HD0		;U.SCB
	.WORD	0,0,0,0,0,0	;

.IF	DF	E$$DVC
	.WORD	0,0		;U.IOC
	.BYTE	8.,5		;U.ERSL, U.ERHL
	.BYTE	0,0		;U.ERSC, U.ERHC
.ENDC
.IF 	DF	M$$MUP
	.WORD	0		;U.OWN
.ENDC
.HD7::
	.WORD	.DC0		;U.DCB
	.WORD	.-2		;U.RED
	.BYTE	UC.ALG!UC.NPR!UC.PWF!1,US.MNT	;U.CTL, U.STS
	.BYTE	7,0		;U.UNIT,
	.WORD	DV.DIR!DV.MNT!DV.F11!DV.MSD	;U.CW1
	.WORD	0		;U.CW2
	.WORD	1600.		;U.CW3
	.WORD	512.		;U.CW4
	.WORD	$HD0		;U.SCB
	.WORD	0,0,0,0,0,0	;

HDH=7

;
;HD SCB'S
;
.IF	DF	E$$DVC
	.BYTE	2,0		;S.RCNT, S.ROFF
	.BLKW	2		;S.BMSV, S.BMSK
.ENDC
$HD0::
	.WORD	0,.-2		;S.LHD
	.BYTE	0,0/4		;S.PRI, C.VCT
	.BYTE	0,6		;S.CTM, S.ITM
	.BYTE	0*2,0		;S.CON, S,STS
	.WORD	177720		;S.CSR
	.WORD	0		;S.PKT
	.WORD	0,0,0,0		;S.FRK
.IF	DF	L$$DRV & M$$MGE
	.WORD	0		;S.MPR XXX
.ENDC
.IF	DF	M$$EXT
	.BLKW	6
.ENDC

.DC1=0

	.END
                                                                                                                                                                                                                                                                                                                                                                                                                    