173600	046524		;.ASCII	MT			TU10/TM11
	173602	000176		;	?
	173604	000261		;SEC			;DON'T RET TO CONSOLE UCODE
	173606	012700		;MOV	#000000,R0	;SELECT UNIT 0
	173610	000000		;
	173612	012701	  >---->;MOV	#172522,R1	;ADDRESS OF MTC -> R1
	173614	172522	  ^     ;
	173616	010704	  ^     ;MOV	#103054,R4
	173620	103054	  ^     ;
	173622	000411	  ^  <--;BR	173646
	173624	173000	  ^  v  ;.WORD	173000		;POWER-UP VECTOR
	173626	000340	  ^  v  ;.WORD	000340		;POWER-UP PRIORITY
	173630	012700	  ^  v  ;MOV	#000001,R0	;SELECT UNIT 1
	173632	000001	  ^  v  ;
	173634	000766	  ^<---<;BR	173612
	173636	012700	  ^  v  ;MOV	#000001,R0	;SELECT UNIT 1
	173640	000001	  ^  v  ;
	173642	000261	  ^  v  ;SEC			;DON'T RET TO CONSOLE UCODE
	173644	000762	  ^<---<;BR	173612
	173646	010003	  ^  >->;MOV	R0,R3		;UNIT # -> R3
	173650	000303	  ^     ;SWAB	R3		;PUT IN UPPER BYTE
	173652	010311	  ^     ;MOV	R3,(R1)		;LOAD MTC WITH UNIT #
	173654	006061	  ^  >->;ROR	-2(R1)		;GET TUR BIT OF MTS
	173656	177776	  ^  ^  ;
	173660	103375	  ^  ^-<;BCC	173654		;LOOP UNTIL TUR BIT SETS
	173662	052711	  ^     ;BIS	#060017,(R1)	;SET 800BPI,REWIND,GO
	173664	060017	  ^     ;
	173666	105711	  ^  >->;TSTB	(R1)		;CHECK FOR CU READY BIT
	173670	100376	  ^  ^-<;BPL	173666		;LOOP TILL DONE
	173672	012761	  ^     ;MOV	#-1,2(R1)	;LOAD MTBRC
	173674	177777	  ^     ;
	173676	000002	  ^     ;
	173700	112711	  ^     ;MOV	#11,(R1)	;SET SPACE FWD,GO
	173702	000011	  ^     ;
	173704	105711	  ^  >->;TSTB	(R1)		;CHECK FOR CU READY BIT
	173706	100376	  ^  ^-<;BPL	173704		;LOOP TILL CU READY SETS
	173710	005711	  ^     ;TST	(R1)		;CHECK ERROR BIT
	173712	100415	  ^  v--;BMI	173746		;BR IF ERROR OCCURRED
	173714	012761	  ^  v  ;MOV	#177000,2(R1)	;SET 1K IN MTBRC
	173716	177000	  ^  v  ;
	173720	000002	  ^  v  ;
	173722	011103	  ^  v  ;MOV	(R1),R3		;GET MTC
	173724	042703	  ^  v  ;BIC	#377,R3		;CLEAR PREVIOUS COMMAND
	173726	000377	  ^  v  ;
	173730	152703	  ^  v  ;BISB	#3,R3		;SET READ,GO BITS
	173732	000003	  ^  v  ;
	173734	010311	  ^  v  ;MOV	R3,(R1)		;AND PUT BACK IN MTC
	173736	105711	  ^  v >;TSTB	(R1)		;WAIT FOR CU READY BIT
	173740	100376	  ^  v ^;BPL	173736		;LOOP TILL CU READY SETS
	173742	005711	  ^  v  ;TST	(R1)		;CHECK FOR ERROR
	173744	100004	v-------;BPL	173756		;BR IF OK
	173746	000005	v ^  >->;RESET			;DO UNIBUS RESET
	173750	000720	v ^----<;BR	173612		;TRY AGAIN
	173752	000137	v       ;JMP	165564		;RET TO CONSOLE UCODE
	173754	165564	v       ;
	173756	042711	>------>;BIC	#377,(R1)	;CLEAR ANY COMMAND IN MTC
	173760	000377		;
	173762	005007		;CLR	PC		;GO TO WORD 0 OF CORE
	173764	000000		;
	173766	000000		;
	173770	000000		;
	173772	000000		;
	173774	000000		;
	173776	021526		;.WORD	021526		;CRC