.TITLE RKDRV
;
;
	.MCALL SCBDF$
	SCBDF$
;
FREEZE=100000
WORD1=10000
WORD2=20000
WORD3=40000
;
;
$RKTBL::.WORD RKINI
	.WORD RKCAN
	.WORD RKOUT
	.WORD RKPWF
;
;
RKINI:	CALL $GTPKT
	BCS RKPWF
 	MOV S.CSR(R4),R0
	BIS #170000,4(R0)
	BIC #FREEZE,4(R0)
 	BIC #WORD1,4(R0)
 	NOP
 	MOV 2(R0),-(SP)
 	CALL $PTWRD
	BIS #WORD1,4(R0)
 	BIC #WORD2,4(R0)
 	NOP
 	MOV 2(R0),-(SP)
 	CALL $PTWRD
	BIS #WORD2,4(R0)
 	BIC #WORD3,4(R0)
 	NOP
 	MOV 2(R0),-(SP)
 	CALL $PTWRD
	BIS #FREEZE!WORD3,4(R0)
	MOV #IS.SUC&377,R0
	MOV #6,R1
	CALL $IODON
	BR RKINI
;
;
RKPWF:	RETURN
;
$RKINP::
$RKOUT::RETURN
;
;
RKCAN:	RETURN
;
;
RKOUT:	RETURN
;
;
	.END