.TITLE RKTAB
	.MCALL DCBDF$,HWDDF$
	DCBDF$
	HWDDF$
;
;
$RKDAT::
$RKDCB::.WORD 0			;LINK TO NEXT DCB
	.WORD .RK0		;POINTER TO FIRST UCB
	.ASCII /RK/		;DEVICE NAME
	.BYTE 0,0		;LOW, HIGH UNIT
	.WORD RKND-RKST		;LENGTH OF EACH UCB IN BYTES
	.WORD $RKTBL		;POINTER TO DRIVER DISPATCH TABLE
	.WORD 35		;LEGAL FUNCTION MASK CODES: KIL,RLB,ATT,DET
	.WORD 30		;CONTROL FUNCTIONS
	.WORD 0			;NOOP FUNCTIONS
	.WORD 0			;ACP FUNCTIONS
	.WORD 4			;LEGAL FUNCTION MASK CODES: RVB
	.WORD 0			;CONTROL
	.WORD 0			;NOOP
	.WORD 4			;ACP
	.WORD 0			;LOADABLE DRIVER PCB ADDRESS
;
;
RKST=.
	.WORD 0			;LOGON UIC
	.WORD 0			;OWNING TERMINAL UCB ADDRESS
.RK0::	.WORD $RKDCB		;POINTER TO DCB
	.WORD .-2		;REDIRECT POINTER
	.BYTE 0,0		;PASS CONTROL ON ATT/DET (0=NO), UNIT STATUS
	.BYTE 0,0		;PHYSICAL UNIT NUMBER, UNIT STATUS EXTENSION
	.WORD DV.REC		;1ST DEVICE CHARACTERISTICS WORD (REC. OR. DEV.)
	.WORD 0			;2ND DEV CHAR WORD
	.WORD 0			;3RD DEV CHAR WORD
	.WORD 6			;4TH DEV CHAR WORD (DEFAULT BUFFER SIZE)
	.WORD $RKSCB		;POINTER TO SCB
	.WORD 0			;TCB ADDRESS OF ATTACHED TASK
	.BLKW 1			;RELOCATION BIAS OF BUFFER OF CURRENT I/O
	.BLKW 1			;ADDRESS OF BUFFER OF CURRENT I/O REQUEST
	.BLKW 1			;BYTE COUNT OF CURRENT I/O REQUEST
RKND=.
;
;
;
;
$RKSCB::.WORD 0			;CONTROLLER I/O QUEUE LISTHEAD (FIRST ENTRY)
	.WORD .-2		;			       (LAST ENTRY)
	.BYTE PR5,360/4		;DEVICE PRI, INTERRUPT VECTOR ADDRESS/4
	.BYTE 0,4		;CURRENT AND INITIAL TIMEOUT COUNTS
	.BYTE 0,0		;CONTROLLER INDEX AND STATUS
	.WORD 167760		;ADDRESS OF CONTROL STATUS REGISTER
	.BLKW 1			;ADDRESS OF CURRENT I/O PACKET
	.BLKW 5			;FORK BLOCK ALLOCATION
$RKEND::
;
;
	.END