173200 042120 ;.ASCII PD RP03/RM03 BOOT 173202 000042 ; ;offset to next device 173204 000261 ;SEC ;show no diags to run 173206 012700 ;MOV #0,R0 ;clear all RMER1 flags 173210 000000 ; 173212 012701 >------>;MOV #176714,R1 ;address of RMER1->R1 173214 176714 ^ ; 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 ;Must be 173000 173226 000340 ^ v v ;.WORD 000340 ;Must be 000340 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 ;seek, go bits for RMCS1 173240 000005 ^ v ; 173242 000425 ^ v <--;BR 173316 ;go start the load 173244 042102 ^ v v ;.ASCII BD ;device name 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 #176700,R1 ;point R1 to 1st register 173260 176700 ^ 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 ;read, go bits for RMCS1 173274 000071 ^ v v ; 173276 012711 ^ v v ;MOV #21,(R1) ;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 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 ;wait for READY bit 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 ;show 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 word