173000	042113		;.ASCII	KD			RK05/RK11
	173002	000026		;	??
	173004	000261		;SEC			;DON'T RET TO CONSOLE UCODE
	173006	012700		;MOV	#0,R0		;SET TO CLEAR
	173010	000000		;
	173012	012701	>------>;MOV	#177404,R1	;ADDRESS OF RKCS->R1
	173014	177404	^	;
	173016	010704	^	;MOV	PC,R4		;POINT RETRIES HERE
	173020	103057	^ <-----;BCC	173160		;BR IF MUST RET TO UCODE
	173022	000426	^ v  v--;BR	173100		;ELSE...
	173024	173006	^ v  v  ;.WORD	173006		;POWER-UP VECTOR
	173026	000340	^ v  v  ;.WORD	000340		;POWER-UP PRIORITY
	173030	042124	^ v  v  ;.ASCII	TD			TC11 DECTAPE
	173032	000146	^ v  v  ;	???
	173034	000261	^ v  v  ;SEC			;DON'T RET TO CONSOLE UCODE
	173036	012700	^ v  v  ;MOV	#0,R0		;SET TO UNIT 0
	173040	000000	^ v  v  ;
	173042	012701	^ v  v  ;MOV	#177342,R1	;ADDRESS OF TCCM->R1
	173044	177342	^ v  v  ;
	173046	010704	^ v  v  ;MOV	PC,R4		;POINT RETRIES HERE
	173050	103043	^ v<----;BCC	173160		;BR IF MUST RET TO UCODE
	173052	010003	^ v  v  ;MOV	R0,R3		;UNIT # -> R3
	173054	000303	^ v  v  ;SWAB	R3		;PUT IN UPPER BYTE
	173056	010311	^ v  v  ;MOV	R3,(R1)		;LOAD TCCM C UNIT
	173060	052711	^ v  v  ;BIS	#004003,(R1)	;SET REWIND TO READ BLOCK 0
	173062	004003	^ v  v  ;
	173064	005711	^ v  v >;TST	(R1)		;CHECK TCCM
	173066	100376	^ v  v ^;BPL	173064		;LOOK FOR END ZONE 
	173070	005761	^ v  v  ;TST	-2(R1)		;TEST RKER/TCST
	173072	177776	^ v  v  ;
	173074	010311	^ v  v  ;MOV	R3,(R1)		;GET UNIT BACK IN TCCM
	173076	000410	^ v <---;BR	173120		;JOIN COMBINED CODE
	173100	010003	^ v v>->;MOV	R0,R3		;FOR RK, GET UNIT IN R3
	173102	000241	^ v v   ;CLC			;RET TO CON UCODE IF FAIL
	173104	006003	^ v v   ;ROR	R3		;ROTATE UNIT # -> TOP
	173106	006003	^ v v   ;ROR	R3		;3 BITS OF R3
	173110	006003	^ v v   ;ROR	R3
	173112	006003	^ v v   ;ROR	R3
	173114	010361	^ v v   ;MOV	R3,6(R1)	;LOAD RKDA
	173116	000006	^ v v   ;
	173120	012761	^ v --->;MOV	#177000,2(R1)	;LOAD RKWC/TCWC
	173122	177000	^ v     ;
	173124	000002	^ v     ;
	173126	052703	^ v     ;BIS	#5,R3		;SET FUNCTION BITS FOR XFER
	173130	000005	^ v     ;
	173132	010311	^ v     ;MOV	R3,(R1)		;LOAD RKCS/TCCM
	173134	105711	^ v  >->;TSTB	(R1)		;CHECK STATUS
	173136	100376	^ v  ^-<;BPL	173134		;LOOP TILL READY
	173140	005711	^ v     ;TST	(R1)		;CHECK ERRORS
	173142	100003	^ v  <--;BPL	173152		;BR IF NONE
	173144	000005	^ v  v  ;RESET			;DO BUS RESET
	173146	000164	^ v  v  ;JMP	2(R4)		;TRY A RETRY
	173150	000002	^ v  v  ;
	173152	042711	^ v  >->;BIC	#000377,(R1)	;CLEAR ANY COMMAND BITS
	173154	000377	^ v     ;
	173156	005007	^ v     ;CLR	PC		;AND GO TO WORD 0 OF CORE
	173160	000137	^ >---->;JMP	@#165564	;RETURN TO CONSOLE UCODE
	173162	165564	^	;
	173164	000261	^	;SETC			;SHOW NO RET TO UCODE
	173166	012700	^	;MOV	#2,R0		;
	173170	000002	^	;
	173172	000707	^<------;BR	173012		;TRY AGAIN
	173174	000000		;
	173176	124650		;.WORD	124650		;CRC