.TITLE	USRTB
	.IDENT	/X1/
;
;
	.MCALL	DEVDF$,HWDDF$
	DEVDF$
	HWDDF$
$USRTB::
			;**CAMAC DRIVER
CMDCB:	.WORD	BHDCB,.CM0
	.ASCII	/CM/
	.BYTE	0,1
	.WORD	CMND-CMST,$CMTBL
	.WORD	137,33,0,0
	.WORD	0,0,0,0
;UNIT CONTROL BLOCKS
.CM0::
CMST=.
	.WORD	CMDCB,.-2
	.BYTE	UC.ALG!UC.PWF!UC.KIL!<UC.LGH&1>,0
	.BYTE	0,US.RED
	.WORD	0,0,0,50.,CMSCB,0
	.BLKW	2
	.BLKW	1
	.WORD	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
CMND=.
.CM1::	.WORD	CMDCB,.-2
	.BYTE	UC.ALG!UC.PWF!UC.NPR!<UC.LGH&1>,0
	.BYTE	1,US.RED
	.WORD	0,0,0,50.,CMSCB,0
	.BLKW	2
	.BLKW	1
	.WORD	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
;
;
	.ASECT
.=270
	.WORD	$CMIN2,PR7!0
	.WORD	$CMIN1,PR7!0
;
	.PSECT
;
;
CMSCB::	.WORD	0,.-2
	.BYTE	PR4,270/4
	.BYTE	0,2
	.BYTE	0,0
	.WORD	166000
	.BLKW	1
	.BLKW	4
;
;
;
			;**BLACK HOLE-ABSORBS EVERYTHING SENT
			;**           TO IT
BHDCB:	.WORD	0
	.WORD	.BH0
	.ASCII	/BH/
	.BYTE	0,0
	.WORD	BHND-BHST
	.WORD	1
	.WORD	160037,0,160037,0,7,0,7,0
;BLACK HOLE UNIT CONTROL BLOCK
.BH0::
BHST=.
	.WORD	BHDCB
	.WORD	.-2
	.BYTE	0,0
	.BYTE	0,0
	.WORD	DV.REC
	.WORD	0
	.WORD	0
	.WORD	80.
	.WORD	BHSCB
	.WORD	0,0,0,0
BHND=.
;BLACK HOLE HAS NO INTERRUPT VECTORS
;BLACK HOLE STATUS CONTROL BLOCK
BHSCB:
	.WORD	0
	.WORD	.-2
	.BYTE	0,0
	.BYTE	0,0
	.WORD	.BH0+U.CW3	;HARMLESS PSEUDO CSR ADR.
	.WORD	0,0,0,0,0
	.END