173200	042120		;.ASCII	PD			RP03/RM03 BOOT
	173202	000042		;			;OFFSET TO NEXT DEVICE
	173204	000261		;SEC			;SHOW NO DIAGS
 	173206	012700		;MOV	#0,R0		;SET TO CLEAR ALL RMER1 FLAGS
	173210	000000		;
	173212	012701	>------>;MOV	#176614,R1	;ADDRESS OF RMER1->R1
	173214	176614	^	;
	173216	010704	^	;MOV	PC,R4		;POINT RETRIES HERE
	173220	103060	^ <-----;BCC	173362		;BR IF MUST RET TO UCODE
	173222	000402	^ v  <--;BR	173230		;OTHERWISE...
	173224	173000	^ v  v  ;.WORD	173000		;POWER-UP VECTOR
	173226	000340	^ v  v  ;.WORD	000340		;POWER-UP PRIORITY
	173230	010003	^ v  -->;MOV	R0,R3		;RMER1 FLAGS->R3
	173232	000303	^ v     ;SWAB	R3		;PUT IN UPPER BYTE
	173234	010311	^ v     ;MOV	R3,(R1)
	173236	012702	^ v     ;MOV	#5,R2		;SET SEEK,GO BITS FOR RMCS1
	173240	000005	^ v     ;
	173242	000425	^ v  <--;BR	173316		;GO START THE LOAD
	173244	042102	^ v  v  ;.ASCII	BD
	173246	000132	^ v  v  ;			;OFFSET TO NEXT DEVICE
	173250	000261	^ v  v  ;SEC			;SHOW NO DIAGS RUN
	173252	012700	^ v  v  ;MOV	#0,R0		;START WITH UNIT 0
	173254	000000	^ v  v  ;
	173256	012701	^ v  v  ;MOV	#176600,R1	;POINT R1 TO FIRST REGISTER
	173260	176600	^ v  v  ;
	173262	010704	^ v  v  ;MOV	PC,R4		;POINT RETRIES HERE
	173264	103036	^ v<----;BCC	173362		;BR IF NO ERROR
	173266	010061	^ v  v  ;MOV	R0,10(R1)	;SET UNIT BITS IN RMCS2
	173270	000010	^ v  v  ;
	173272	012702	^ v  v  ;MOV	#71,R2		;SET READ,GO BITS FOR RMCS1
	173274	000071	^ v  v  ;
	173276	012711	^ v  v  ;MOV	#21,(R1)  v     ;SET READ-IN PRESET
	173300	000021	^ v  v  ;
	173302	012761	^ v  v  ;MOV	#14000,32(R1)	;SET FMT,ECI BITS IN RMOF
	173304	014000	^ v  v  ;
	173306	000032	^ v  v  ;
	173310	016161	^ v  v  ;MOV	16(R1),16(R1)	;CLEAR ANY DRIVE ATA BIT
	173312	000016	^ v  v  ;
	173314	000016	^ v  v  ;
	173316	012761	^ v  -->;MOV	#177000,2(R1)	;SET 1K BYTES IN WORD COUNT
	173320	177000	^ v     ;
	173322	000002	^ v     ;
	173324	011103	^ v     ;MOV	(R1),R3		;GET RMCS1
	173326	042703	^ v     ;BIC	#377,R3		;CLEAR LOWER BYTE
	173330	000377	^ v     ;
	173332	050203	^ v     ;BIS	R2,R3		;SET SEEK AND GO BITS
	173334	010311	^ v     ;MOV	R3,(R1)		;GET RMCS1 IN R1
	173336	105711	^ v  -->;TSTB	(R1)		;CHECK READY BIT
	173340	100376	^ v  ^--;BPL	173336		;LOOP TIL READY BIT COMES BACK ON
	173342	005711	^ v     ;TST	(R1)		;CHECK SPEC COND BIT
	173344	100003	^ v  <--;BPL	173354		;BR IF OK
	173346	000005	^ v  v  ;RESET			;ELSE DO UNIBUS RESET
	173350	000164	^ v  v  ;JMP	2(R4)		;AND DO FULL RETRY
	173352	000002	^ v  v  ;
	173354	042711	^ v  -->;BIC	#377,(R1)	;CLEAR COMMAND & INT ENABLE
	173356	000377	^ v     ;
	173360	005007	^ v     ;CLR	PC
	173362	000137	^ ----->;JMP	165564		;GO BACK TO CONSOLE UCODE
	173364	165564	^	;
	173366	000261	^	;SEC			;SET TO RET TO CONSOLE UCODE
	173370	012700	^	;MOV	#1,R0		;WITH 1 IN R1
	173372	000001	^	;			;DO FULL RETRY
	173374	000706	^<------;BR	173212
	173376	111612		;CRC CHARACTER