0 1 0 1 0 1 0 1 0 0 2 1 0 0 1 3 0 1 0 1 ;.ASCII KD RK05/RK11 4 0 1 1 0 5 0 0 0 1 6 1 1 0 0 7 0 0 0 1 ; ?? 10 0 0 0 0 11 1 0 1 1 12 1 1 0 1 13 0 0 0 1 ;SEC ;DON'T RET TO CONSOLE UCODE 14 0 0 0 1 15 1 1 0 0 16 1 0 0 0 17 0 0 0 0 ;MOV #0,R0 ;SET TO CLEAR 20 0 0 0 0 21 0 0 0 0 22 1 1 0 0 23 0 0 0 1 ; 24 0 0 0 1 25 1 1 0 0 26 1 0 0 1 27 0 0 0 0 >------>;MOV #177404,R1 ;ADDRESS OF RKCS->R1 30 0 1 0 1 31 0 0 0 0 32 0 0 1 0 33 1 1 1 0 ^ ; 34 0 1 0 1 35 1 1 0 0 36 1 1 0 0 37 0 0 0 0 ^ ;MOV PC,R4 ;POINT RETRIES HERE 40 1 1 1 0 41 0 0 1 0 42 1 0 1 1 43 1 0 0 1 ^ <-----;BCC 173160 ;BR IF MUST RET TO UCODE 44 0 1 1 1 45 0 0 0 1 46 1 1 0 0 47 0 0 0 1 ^ v v--;BR 173100 ;ELSE... 50 0 1 1 0 51 0 0 0 0 52 1 0 1 0 53 1 1 1 0 ^ v v ;.WORD 173006 ;POWER-UP VECTOR 54 0 0 0 0 55 1 1 1 0 56 1 1 0 0 57 0 0 0 1 ^ v v ;.WORD 000340 ;POWER-UP PRIORITY 60 0 1 0 0 61 0 1 0 1 62 1 0 0 0 63 0 1 0 1 ^ v v ;.ASCII TD TC11 DECTAPE 64 0 1 1 0 65 0 1 1 0 66 1 1 0 0 67 0 0 0 1 ^ v v ; ??? 70 0 0 0 0 71 1 0 1 1 72 1 1 0 1 73 0 0 0 1 ^ v v ;SEC ;DON'T RET TO CONSOLE UCODE 74 0 0 0 1 75 1 1 0 0 76 1 0 0 0 77 0 0 0 0 ^ v v ;MOV #0,R0 ;SET TO UNIT 0 100 0 0 0 0 101 0 0 0 0 102 1 1 0 0 103 0 0 0 1 ^ v v ; 104 0 0 0 1 105 1 1 0 0 106 1 0 0 1 107 0 0 0 0 ^ v v ;MOV #177342,R1 ;ADDRESS OF TCCM->R1 110 0 0 1 0 111 1 1 1 0 112 0 0 1 0 113 1 1 1 0 ^ v v ; 114 0 1 0 1 115 1 1 0 0 116 1 1 0 0 117 0 0 0 0 ^ v v ;MOV PC,R4 ;POINT RETRIES HERE 120 0 0 1 0 121 0 0 1 0 122 1 0 1 1 123 1 0 0 1 ^ v<----;BCC 173160 ;BR IF MUST RET TO UCODE 124 0 0 1 0 125 0 0 0 0 126 1 1 0 1 127 0 0 0 0 ^ v v ;MOV R0,R3 ;UNIT # -> R3 130 0 0 1 0 131 1 1 0 0 132 1 1 0 1 133 0 0 0 1 ^ v v ;SWAB R3 ;PUT IN UPPER BYTE 134 1 0 0 0 135 1 1 0 0 136 1 1 0 1 137 0 0 0 0 ^ v v ;MOV R3,(R1) ;LOAD TCCM C UNIT 140 1 0 0 1 141 1 1 0 0 142 1 0 0 1 143 0 1 0 0 ^ v v ;BIS #004003,(R1) ;SET REWIND TO READ BLOCK 0 144 0 0 1 0 145 0 0 0 0 146 0 1 0 1 147 0 0 0 1 ^ v v ; 150 1 0 0 1 151 1 1 0 0 152 0 1 1 1 153 0 0 0 1 ^ v v >;TST (R1) ;CHECK TCCM 154 1 1 1 0 155 1 1 1 1 156 1 1 0 0 157 1 0 0 1 ^ v v ^;BPL 173064 ;LOOK FOR END ZONE 160 0 0 0 1 161 1 1 1 1 162 0 1 1 1 163 0 0 0 1 ^ v v ;TST -2(R1) ;TEST RKER/TCST 164 1 1 1 1 165 1 1 1 1 166 0 0 1 0 167 1 1 1 0 ^ v v ; 170 1 0 0 0 171 1 1 0 0 172 1 1 0 1 173 0 0 0 0 ^ v v ;MOV R3,(R1) ;GET UNIT BACK IN TCCM 174 1 0 0 1 175 0 0 0 0 176 1 1 0 0 177 0 0 0 1 ^ v <---;BR 173120 ;JOIN COMBINED CODE 200 0 0 1 0 201 0 0 0 0 202 1 1 0 1 203 0 0 0 0 ^ v v>->;MOV R0,R3 ;FOR RK, GET UNIT IN R3 204 0 0 0 0 205 1 0 1 0 206 1 1 0 1 207 0 0 0 1 ^ v v ;CLC ;RET TO CON UCODE IF FAIL 210 0 0 1 0 211 0 0 0 0 212 0 0 0 1 213 0 0 0 1 ^ v v ;ROR R3 ;ROTATE UNIT # -> TOP 214 0 0 1 0 215 0 0 0 0 216 0 0 0 1 217 0 0 0 1 ^ v v ;ROR R3 ;3 BITS OF R3 220 0 0 1 0 221 0 0 0 0 222 0 0 0 1 223 0 0 0 1 ^ v v ;ROR R3 224 0 0 1 0 225 0 0 0 0 226 0 0 0 1 227 0 0 0 1 ^ v v ;ROR R3 230 0 0 0 0 231 1 1 1 1 232 1 1 0 1 233 0 0 0 0 ^ v v ;MOV R3,6(R1) ;LOAD RKDA 234 0 1 1 0 235 0 0 0 0 236 1 1 0 0 237 0 0 0 1 ^ v v ; 240 0 0 0 1 241 1 1 1 1 242 1 0 0 1 243 0 0 0 0 ^ v --->;MOV #177000,2(R1) ;LOAD RKWC/TCWC 244 0 0 0 0 245 0 0 0 0 246 0 0 1 0 247 1 1 1 0 ^ v ; 250 0 0 1 0 251 0 0 0 0 252 1 1 0 0 253 0 0 0 1 ^ v ; 254 0 0 1 1 255 1 1 0 0 256 1 0 0 1 257 0 1 0 0 ^ v ;BIS #5,R3 ;SET FUNCTION BITS FOR XFER 260 0 1 0 0 261 0 0 0 0 262 1 1 0 1 263 0 0 0 1 ^ v ; 264 1 0 0 0 265 1 1 0 0 266 1 1 0 1 267 0 0 0 0 ^ v ;MOV R3,(R1) ;LOAD RKCS/TCCM 270 1 0 0 1 271 1 1 0 0 272 0 1 1 1 273 1 0 0 1 ^ v >->;TSTB (R1) ;CHECK STATUS 274 1 1 1 0 275 1 1 1 1 276 1 1 0 0 277 1 0 0 1 ^ v ^-<;BPL 173134 ;LOOP TILL READY 300 1 0 0 1 301 1 1 0 0 302 0 1 1 1 303 0 0 0 1 ^ v ;TST (R1) ;CHECK ERRORS 304 0 0 1 0 305 0 0 0 0 306 1 1 0 1 307 1 0 0 1 ^ v <--;BPL 173152 ;BR IF NONE 310 0 1 0 0 311 0 0 0 0 312 1 1 0 1 313 0 0 0 1 ^ v v ;RESET ;DO BUS RESET 314 0 1 0 0 315 0 1 1 1 316 1 1 0 0 317 0 0 0 1 ^ v v ;JMP 2(R4) ;TRY A RETRY 320 0 0 1 0 321 0 0 0 0 322 1 1 0 0 323 0 0 0 1 ^ v v ; 324 1 0 0 1 325 1 1 0 0 326 1 0 0 1 327 0 1 0 1 ^ v >->;BIC #000377,(R1) ;CLEAR ANY COMMAND BITS 330 1 1 1 0 331 1 1 1 1 332 1 1 0 1 333 0 0 0 1 ^ v ; 334 0 1 1 0 335 0 0 0 0 336 0 1 1 1 337 0 0 0 1 ^ v ;CLR PC ;AND GO TO WORD 0 OF CORE 340 1 1 1 0 341 0 1 0 1 342 1 1 0 1 343 0 0 0 1 ^ >---->;JMP @#165564 ;RETURN TO CONSOLE UCODE 344 0 1 0 1 345 0 1 1 1 346 0 1 1 0 347 1 1 1 1 ^ ; 350 0 0 0 0 351 1 0 1 1 352 1 1 0 1 353 0 0 0 1 ^ ;SETC ;SHOW NO RET TO UCODE 354 0 0 0 1 355 1 1 0 0 356 1 0 0 0 357 0 0 0 0 ^ ;MOV #2,R0 ; 360 0 0 1 0 361 0 0 0 0 362 1 1 0 0 363 0 0 0 1 ^ ; 364 0 1 1 1 365 1 1 0 0 366 1 1 0 1 367 0 0 0 1 ^<------;BR 173012 ;TRY AGAIN 370 0 0 0 0 371 0 0 0 0 372 1 1 0 0 373 0 0 0 1 ; 374 1 0 0 1 375 1 0 1 0 376 0 1 0 0 377 1 0 1 1 ; ??? 0 0 0 0 0 1 0 1 0 1 2 1 0 0 0 3 0 1 0 1 ;.ASCII PD RM03 BOOT 4 0 0 1 0 5 0 0 1 0 6 1 1 0 0 7 0 0 0 1 ; ? 10 0 0 0 0 11 1 0 1 1 12 1 1 0 1 13 0 0 0 1 ;SEC ;DON'T RET TO CONSOLE UCODE 14 0 0 0 1 15 1 1 0 0 16 1 0 0 0 17 0 0 0 0 ;MOV #0,R0 ;SET TO CLEAR ALL RMER1 FLAGS 20 0 0 0 0 21 0 0 0 0 22 1 1 0 0 23 0 0 0 1 ; 24 0 0 0 1 25 1 1 0 0 26 1 0 0 1 27 0 0 0 0 >------>;MOV #176714,R1 ;ADDRESS OF RMER1->R1 30 1 1 0 1 31 1 1 0 0 32 0 0 0 0 33 1 1 1 0 ^ ; 34 0 1 0 1 35 1 1 0 0 36 1 1 0 0 37 0 0 0 0 ^ ;MOV PC,R4 ;POINT RETRIES HERE 40 0 0 0 0 41 0 0 1 1 42 1 0 1 0 43 1 0 0 1 ^ <-----;BCC 173362 ;BR IF MUST RET TO UCODE 44 0 0 1 1 45 0 0 0 0 46 1 1 0 0 47 0 0 0 1 ^ v <--;BR 173230 ;OTHERWISE... 50 0 0 0 0 51 0 0 0 0 52 1 0 1 0 53 1 1 1 0 ^ v v ;.WORD 173000 ;POWER-UP VECTOR 54 0 0 0 0 55 1 1 1 0 56 1 1 0 0 57 0 0 0 1 ^ v v ;.WORD 000340 ;POWER-UP PRIORITY 60 0 0 1 0 61 0 0 0 0 62 1 1 0 1 63 0 0 0 0 ^ v -->;MOV R0,R3 ;RMER1 FLAGS->R3 64 0 0 1 0 65 1 1 0 0 66 1 1 0 1 67 0 0 0 1 ^ v ;SWAB R3 ;PUT IN UPPER BYTE 70 1 0 0 0 71 1 1 0 0 72 1 1 0 1 73 0 0 0 0 ^ v ;MOV R3,(R1) 74 0 0 1 1 75 1 1 0 0 76 1 0 0 0 77 0 0 0 0 ^ v ;MOV #5,R2 ;SET SEEK,GO BITS FOR RMCS1 100 0 1 0 0 101 0 0 0 0 102 1 1 0 1 103 0 0 0 1 ^ v ; 104 0 1 0 1 105 0 0 0 1 106 1 1 0 1 107 0 0 0 1 ^ v <--;BR 173316 ;GO START THE LOAD 110 0 0 1 0 111 0 1 0 0 112 1 0 0 0 113 0 1 0 1 ^ v v ;.ASCII BD 114 1 0 1 0 115 0 1 0 1 116 1 1 0 0 117 0 0 0 1 ^ v v ; ??? 120 0 0 0 0 121 1 0 1 1 122 1 1 0 1 123 0 0 0 1 ^ v v ;SEC ;DON'T RET TO CONSOLE UCODE 124 0 0 0 1 125 1 1 0 0 126 1 0 0 0 127 0 0 0 0 ^ v v ;MOV #0,R0 ;START WITH UNIT 0 130 0 0 0 0 131 0 0 0 0 132 1 1 0 0 133 0 0 0 1 ^ v v ; 134 0 0 0 1 135 1 1 0 0 136 1 0 0 1 137 0 0 0 0 ^ v v ;MOV #176700,R1 ;POINT R1 TO FIRST REGISTER 140 0 0 0 1 141 1 1 0 0 142 0 0 0 0 143 1 1 1 0 ^ v v ; 144 0 1 0 1 145 1 1 0 0 146 1 1 0 0 147 0 0 0 0 ^ v v ;MOV PC,R4 ;POINT RETRIES HERE 150 1 1 1 0 151 0 0 0 1 152 1 0 1 0 153 1 0 0 1 ^ v<----;BCC 173362 ;BR IF NO ERROR 154 0 0 0 0 155 0 0 1 1 156 1 1 0 1 157 0 0 0 0 ^ v v ;MOV R0,10(R1) ;SET UNIT BITS IN RMCS2 160 1 0 0 0 161 0 0 0 0 162 1 1 0 0 163 0 0 0 1 ^ v v ; 164 0 0 1 1 165 1 1 0 0 166 1 0 0 0 167 0 0 0 0 ^ v v ;MOV #71,R2 ;SET READ,GO BITS FOR RMCS1 170 1 0 0 0 171 0 0 1 1 172 1 1 0 1 173 0 0 0 1 ^ v v ; 174 1 0 0 1 175 1 1 0 0 176 1 0 0 1 177 0 0 0 0 ^ v v ;MOV #21,(R1) v ;SET READ-IN PRESET 200 0 0 0 0 201 0 0 0 1 202 1 1 0 1 203 0 0 0 1 ^ v v ; 204 0 0 0 1 205 1 1 1 1 206 1 0 0 1 207 0 0 0 0 ^ v v ;MOV #14000,32(R1) ;SET FMT,ECI BITS IN RMOF 210 0 0 0 0 211 0 0 0 0 212 0 1 0 0 213 0 0 0 0 ^ v v ; 214 1 0 1 0 215 0 0 0 1 216 1 1 0 0 217 0 0 0 1 ^ v v ; 220 0 0 0 0 221 0 1 1 1 222 0 0 0 1 223 0 0 0 0 ^ v v ;MOV 16(R1),16(R1) ;CLEAR ANY DRIVE ATA BIT 224 1 1 1 0 225 0 0 0 0 226 1 1 0 0 227 0 0 0 1 ^ v v ; 230 1 1 1 0 231 0 0 0 0 232 1 1 0 0 233 0 0 0 1 ^ v v ; 234 0 0 0 1 235 1 1 1 1 236 1 0 0 1 237 0 0 0 0 ^ v -->;MOV #177000,2(R1) ;SET 1K BYTES IN WORD COUNT 240 0 0 0 0 241 0 0 0 0 242 0 0 1 0 243 1 1 1 0 ^ v ; 244 0 0 1 0 245 0 0 0 0 246 1 1 0 0 247 0 0 0 1 ^ v ; 250 0 0 1 0 251 0 1 0 0 252 1 1 1 1 253 0 0 0 0 ^ v ;MOV (R1),R3 ;GET RMCS1 254 0 0 1 1 255 1 1 0 0 256 1 0 0 1 257 0 1 0 1 ^ v ;BIC #377,R3 ;CLEAR LOWER BYTE 260 1 1 1 0 261 1 1 1 1 262 1 1 0 1 263 0 0 0 1 ^ v ; 264 0 0 1 0 265 1 0 0 0 266 1 1 0 1 267 0 1 0 0 ^ v ;BIS R2,R3 ;SET SEEK AND GO BITS 270 1 0 0 0 271 1 1 0 0 272 1 1 0 1 273 0 0 0 0 ^ v ;MOV R3,(R1) ;GET RMCS1 IN R1 274 1 0 0 1 275 1 1 0 0 276 0 1 1 1 277 1 0 0 1 ^ v -->;TSTB (R1) ;CHECK READY BIT 300 1 1 1 0 301 1 1 1 1 302 1 1 0 0 303 1 0 0 1 ^ v ^--;BPL 173336 ;LOOP TIL READY BIT COMES BACK ON 304 1 0 0 1 305 1 1 0 0 306 0 1 1 1 307 0 0 0 1 ^ v ;TST (R1) ;CHECK SPEC COND BIT 310 0 0 1 0 311 0 0 0 0 312 1 1 0 1 313 1 0 0 1 ^ v <--;BPL 173354 ;BR IF OK 314 0 1 0 0 315 0 0 0 0 316 1 1 0 1 317 0 0 0 1 ^ v v ;RESET ;ELSE DO UNIBUS RESET 320 0 1 0 0 321 0 1 1 1 322 1 1 0 0 323 0 0 0 1 ^ v v ;JMP 2(R4) ;AND DO FULL RETRY 324 0 0 1 0 325 0 0 0 0 326 1 1 0 0 327 0 0 0 1 ^ v v ; 330 1 0 0 1 331 1 1 0 0 332 1 0 0 1 333 0 1 0 1 ^ v -->;BIC #377,(R1) ;CLEAR COMMAND & INT ENABLE 334 1 1 1 0 335 1 1 1 1 336 1 1 0 1 337 0 0 0 1 ^ v ; 340 0 1 1 0 341 0 0 0 0 342 0 1 1 1 343 0 0 0 1 ^ v ;CLR PC 344 1 1 1 0 345 0 1 0 1 346 1 1 0 1 347 0 0 0 1 ^ ----->;JMP 165564 ;GO BACK TO CONSOLE UCODE 350 0 1 0 1 351 0 1 1 1 352 0 1 1 0 353 1 1 1 1 ^ ; 354 0 0 0 0 355 1 0 1 1 356 1 1 0 1 357 0 0 0 1 ^ ;SEC ;SET TO RET TO CONSOLE UCODE 360 0 0 0 1 361 1 1 0 0 362 1 0 0 0 363 0 0 0 0 ^ ;MOV #1,R0 ;WITH 1 IN R1 364 0 0 0 0 365 0 0 0 0 366 1 1 0 1 367 0 0 0 1 ^ ; ;DO FULL RETRY 370 0 1 1 1 371 1 1 0 0 372 1 1 0 0 373 0 0 0 1 ^<------;BR 173212 374 1 0 1 1 375 1 0 0 0 376 1 1 1 0 377 1 0 0 0 ;MOV (SP),(R2) ;??? 0 0 1 0 0 1 0 1 0 0 2 1 0 0 0 3 0 1 0 1 ;.ASCII DD DECTAPE II 4 1 1 1 0 5 0 1 1 1 6 1 1 0 0 7 0 0 0 1 ; ? 10 0 0 0 0 11 1 0 1 1 12 1 1 0 1 13 0 0 0 1 ;SEC ;DON'T RET TO CONSOLE UCODE 14 0 0 0 1 15 1 1 0 0 16 1 0 0 0 17 0 0 0 0 ;MOV #0,R0 20 0 0 0 0 21 0 0 0 0 22 1 1 0 0 23 0 0 0 1 ; 24 0 0 0 1 25 1 1 0 0 26 1 0 0 1 27 0 0 0 0 >------>;MOV #176500,R1 ;POINT R1-> TU58 RCSR 30 0 0 0 1 31 0 1 0 0 32 0 0 0 0 33 1 1 1 0 ^ ; 34 0 1 0 1 35 1 1 0 0 36 1 1 0 0 37 0 0 0 0 ^ ;MOV #103054,R4 40 1 1 0 0 41 0 0 1 0 42 1 0 1 0 43 1 0 0 1 ^ ; 44 0 0 1 1 45 0 0 0 0 46 1 1 0 0 47 0 0 0 1 ^ <--;BR 173430 50 0 0 0 0 51 0 0 0 0 52 1 0 1 0 53 1 1 1 0 ^ v ;.WORD 173000 ;POWER-UP VECTOR 54 0 0 0 0 55 1 1 1 0 56 1 1 0 0 57 0 0 0 1 ^ v ;.WORD 000340 ;POWER-UP PRIORITY 60 0 1 1 1 61 1 1 0 0 62 1 0 0 0 63 0 0 0 0 ^ >->;MOV #002000,SP 64 0 0 0 0 65 0 0 0 0 66 1 0 0 0 67 0 0 0 1 ^ ; 70 0 1 0 0 71 0 0 0 0 72 0 1 1 0 73 0 0 0 1 ^ ;CLR R4 74 0 0 1 1 75 1 1 0 0 76 1 0 0 0 77 0 0 0 0 ^ ;MOV ##176504,R2 ;POINT R2 -> TU58 XCSR 100 0 1 0 1 101 0 1 0 0 102 0 0 0 0 103 1 1 1 0 ^ ; 104 1 0 1 0 105 1 0 0 0 106 0 1 1 0 107 0 0 0 1 ^ ;INC (R2) ;TURN ON BREAK BIT 110 0 0 1 0 111 0 0 0 0 112 0 1 1 1 113 0 0 0 1 ^ ;CLR R3 ;SEND 2 NULL CHARACTERS 114 0 1 1 1 115 1 1 1 1 116 0 1 0 1 117 0 0 0 1 ^ ;JSR PC,173520 120 0 1 1 0 121 0 0 1 0 122 1 1 0 0 123 0 0 0 1 ^ ; 124 1 0 1 0 125 0 0 0 0 126 0 1 1 0 127 0 0 0 1 ^ ;CLR (R2) ;CLEAR BREAK BIT 130 1 1 1 1 131 1 1 0 1 132 0 1 1 1 133 0 0 0 1 ^ ;TST @#176502 ;CHECK FOR RECEIVER ERROR 134 0 0 1 1 135 0 1 0 0 136 0 0 0 0 137 1 1 1 0 ^ ; 140 0 0 1 1 141 1 1 0 0 142 1 0 0 1 143 0 0 0 0 ^ ;MOV #004004,R3 ;SEND 2 INIT'S 144 0 1 0 0 145 0 0 0 0 146 0 1 0 0 147 0 0 0 1 ^ ; 150 0 1 1 1 151 1 1 1 1 152 0 1 0 1 153 0 0 0 1 ^ ;JSR PC,173524 154 1 1 0 0 155 0 0 0 1 156 1 1 0 0 157 0 0 0 1 ^ ; 160 0 0 1 0 161 0 0 0 0 162 1 1 0 1 163 0 0 0 0 ^ ;MOV R0,R3 ;BUFFER START -> R3 164 0 1 1 1 165 1 1 1 1 166 0 1 0 1 167 0 0 0 1 ^ ;JSR PC,173526 ;SEND TO TU58 170 1 0 0 0 171 0 0 0 1 172 1 1 0 0 173 0 0 0 1 ^ ; 174 0 0 1 0 175 0 0 0 0 176 0 1 1 1 177 0 0 0 1 ^ ;CLR R3 ;POINT R3 -> WORD 0 OF CORE 200 1 0 0 1 201 1 1 0 0 202 0 1 1 1 203 1 0 0 1 ^ >-->->;TSTB (R1) ;CHECK RCSR 204 1 1 1 0 205 1 1 1 1 206 1 1 0 0 207 1 0 0 1 ^ ^ ^-<;BPL 173500 ;LOOP TILL DONE BIT SETS 210 0 0 1 1 211 1 1 0 1 212 1 0 1 1 213 1 0 0 0 ^ ^ ;MOVB @#176502,(R3)+ ;TRANSFER AN INCOMING BYTE 214 0 0 1 1 215 0 1 0 0 216 0 0 0 0 217 1 1 1 0 ^ ^ ; 220 0 0 1 1 221 1 1 0 0 222 1 0 0 1 223 0 0 1 1 ^ ^ ;CMP #1000,R3 ;FILLED BUFFER YET ? 224 0 0 0 0 225 0 0 0 0 226 1 1 1 0 227 0 0 0 1 ^ ^ ; 230 1 0 0 0 231 1 1 1 1 232 1 1 1 1 233 1 0 0 1 ^ ^----<;BHI 173500 ;LOOP IF NOT 234 0 1 1 0 235 0 0 0 0 236 0 1 1 1 237 0 0 0 1 ^ ;CLR PC ;GO TO WORD 0 OF CORE 240 1 1 1 1 241 1 1 0 0 242 0 1 0 1 243 0 0 0 1 ^ ; 244 1 1 1 1 245 1 1 0 0 246 0 1 0 1 247 0 0 0 1 ^ ; 250 1 1 1 1 251 1 1 0 0 252 0 1 0 1 253 0 0 0 1 ^ ; 254 1 0 1 1 255 1 1 0 0 256 0 1 1 0 257 1 0 0 1 ^ -->;TSTB (R2) ;CHECK XCSR 260 1 1 1 0 261 1 1 1 1 262 1 1 0 0 263 1 0 0 1 ^ ^-<;BPL 173526 ;LOOP TILL DONE BIT SETS 264 1 1 1 0 265 1 1 0 1 266 1 1 0 1 267 1 0 0 0 ^ ;MOV R3,@#176506 ;LOAD OUTPUT BYTE 270 0 1 1 1 271 0 1 0 0 272 0 0 0 0 273 1 1 1 0 ^ ; 274 0 0 1 0 275 1 1 0 0 276 1 1 0 1 277 0 0 0 1 ^ ;SWAB R3 ;SWITCH BYTESFOR NEXT CALL 300 0 1 1 0 301 1 0 0 0 302 1 1 0 1 303 0 0 0 1 ^ ;RTS PC ;AND RETURN 304 0 0 0 0 305 1 0 1 1 306 1 1 0 1 307 0 0 0 1 ^ ;SEC 310 0 0 0 1 311 1 1 0 0 312 1 0 0 0 313 0 0 0 0 ^ ;MOV #000001,R0 314 0 0 0 0 315 0 0 0 0 316 1 1 0 1 317 0 0 0 1 ^ ; 320 0 0 0 1 321 1 1 0 1 322 1 1 0 0 323 0 0 0 1 ^-------;BR 173412 ;TRY AGAIN 324 1 1 1 0 325 0 1 0 1 326 1 1 0 1 327 0 0 0 1 ;JMP @#165564 ;RET TO CONSOLE UCODE 330 0 1 0 1 331 0 1 1 1 332 0 1 1 0 333 1 1 1 1 ; 334 0 0 0 0 335 0 0 0 0 336 1 1 0 0 337 0 0 0 1 ; 340 0 0 0 0 341 0 0 0 0 342 1 1 0 0 343 0 0 0 1 ; 344 0 0 0 0 345 0 0 0 0 346 1 1 0 0 347 0 0 0 1 ; 350 0 0 0 0 351 0 0 0 0 352 1 1 0 0 353 0 0 0 1 ; 354 0 0 0 0 355 0 0 0 0 356 1 1 0 0 357 0 0 0 1 ; 360 0 0 0 0 361 0 0 0 0 362 1 1 0 0 363 0 0 0 1 ; 364 0 0 0 0 365 0 0 0 0 366 1 1 0 0 367 0 0 0 1 ; 370 0 0 0 0 371 0 0 0 0 372 1 1 0 0 373 0 0 0 1 ; 374 0 1 0 0 375 0 0 0 1 376 0 1 1 1 377 1 0 1 1 ; 0 0 1 0 1 1 0 1 0 1 2 0 0 0 0 3 0 1 0 1 ;.ASCII MT TU10/TM11 4 1 1 1 0 5 0 1 1 1 6 1 1 0 0 7 0 0 0 1 ; ? 10 0 0 0 0 11 1 0 1 1 12 1 1 0 1 13 0 0 0 1 ;SEC ;DON'T RET TO CONSOLE UCODE 14 0 0 0 1 15 1 1 0 0 16 1 0 0 0 17 0 0 0 0 ;MOV #000000,R0 ;SELECT UNIT 0 20 0 0 0 0 21 0 0 0 0 22 1 1 0 0 23 0 0 0 1 ; 24 0 0 0 1 25 1 1 0 0 26 1 0 0 1 27 0 0 0 0 >---->;MOV #172522,R1 ;ADDRESS OF MTC -> R1 30 0 0 1 1 31 0 1 0 1 32 1 0 0 0 33 1 1 1 0 ^ ; 34 0 1 0 1 35 1 1 0 0 36 1 1 0 0 37 0 0 0 0 ^ ;MOV #103054,R4 40 1 1 0 0 41 0 0 1 0 42 1 0 1 0 43 1 0 0 1 ^ ; 44 1 0 0 1 45 0 0 0 0 46 1 1 0 1 47 0 0 0 1 ^ <--;BR 173646 50 0 0 0 0 51 0 0 0 0 52 1 0 1 0 53 1 1 1 0 ^ v ;.WORD 173000 ;POWER-UP VECTOR 54 0 0 0 0 55 1 1 1 0 56 1 1 0 0 57 0 0 0 1 ^ v ;.WORD 000340 ;POWER-UP PRIORITY 60 0 0 0 1 61 1 1 0 0 62 1 0 0 0 63 0 0 0 0 ^ v ;MOV #000001,R0 ;SELECT UNIT 1 64 0 0 0 0 65 0 0 0 0 66 1 1 0 1 67 0 0 0 1 ^ v ; 70 0 1 1 1 71 1 1 1 1 72 1 1 0 0 73 0 0 0 1 ^<---<;BR 173612 74 0 0 0 1 75 1 1 0 0 76 1 0 0 0 77 0 0 0 0 ^ v ;MOV #000001,R0 ;SELECT UNIT 1 100 0 0 0 0 101 0 0 0 0 102 1 1 0 1 103 0 0 0 1 ^ v ; 104 0 0 0 0 105 1 0 1 1 106 1 1 0 1 107 0 0 0 1 ^ v ;SEC ;DON'T RET TO CONSOLE UCODE 110 0 0 1 1 111 1 1 1 1 112 1 1 0 0 113 0 0 0 1 ^<---<;BR 173612 114 0 0 1 0 115 0 0 0 0 116 1 1 0 1 117 0 0 0 0 ^ >->;MOV R0,R3 ;UNIT # -> R3 120 0 0 1 0 121 1 1 0 0 122 1 1 0 1 123 0 0 0 1 ^ ;SWAB R3 ;PUT IN UPPER BYTE 124 1 0 0 0 125 1 1 0 0 126 1 1 0 1 127 0 0 0 0 ^ ;MOV R3,(R1) ;LOAD MTC WITH UNIT # 130 0 0 0 0 131 0 0 1 1 132 0 0 0 1 133 0 0 0 1 ^ >->;ROR -2(R1) ;GET TUR BIT OF MTS 134 1 1 1 1 135 1 1 1 1 136 0 0 1 0 137 1 1 1 0 ^ ^ ; 140 1 1 0 0 141 1 1 1 1 142 1 0 1 1 143 1 0 0 1 ^ ^-<;BCC 173654 ;LOOP UNTIL TUR BIT SETS 144 1 0 0 1 145 1 1 0 0 146 1 0 0 1 147 0 1 0 0 ^ ;BIS #060017,(R1) ;SET 800BPI,REWIND,GO 150 1 1 1 0 151 0 0 0 0 152 1 1 0 1 153 0 1 1 1 ^ ; 154 1 0 0 1 155 1 1 0 0 156 0 1 1 1 157 1 0 0 1 ^ >->;TSTB (R1) ;CHECK FOR CU READY BIT 160 1 1 1 0 161 1 1 1 1 162 1 1 0 0 163 1 0 0 1 ^ ^-<;BPL 173666 ;LOOP TILL DONE 164 0 0 0 1 165 1 1 1 1 166 1 0 0 1 167 0 0 0 0 ^ ;MOV #-1,2(R1) ;LOAD MTBRC 170 1 1 1 1 171 1 1 1 1 172 0 0 1 1 173 1 1 1 0 ^ ; 174 0 0 1 0 175 0 0 0 0 176 1 1 0 0 177 0 0 0 1 ^ ; 200 1 0 0 1 201 1 1 0 0 202 1 0 0 1 203 1 0 0 0 ^ ;MOV #11,(R1) ;SET SPACE FWD,GO 204 1 0 0 0 205 0 0 0 0 206 1 1 0 1 207 0 0 0 1 ^ ; 210 1 0 0 1 211 1 1 0 0 212 0 1 1 1 213 1 0 0 1 ^ >->;TSTB (R1) ;CHECK FOR CU READY BIT 214 1 1 1 0 215 1 1 1 1 216 1 1 0 0 217 1 0 0 1 ^ ^-<;BPL 173704 ;LOOP TILL CU READY SETS 220 1 0 0 1 221 1 1 0 0 222 0 1 1 1 223 0 0 0 1 ^ ;TST (R1) ;CHECK ERROR BIT 224 1 1 0 1 225 0 0 0 0 226 1 1 0 1 227 1 0 0 1 ^ v--;BMI 173746 ;BR IF ERROR OCCURRED 230 0 0 0 1 231 1 1 1 1 232 1 0 0 1 233 0 0 0 0 ^ v ;MOV #177000,2(R1) ;SET 1K IN MTBRC 234 0 0 0 0 235 0 0 0 0 236 0 0 1 0 237 1 1 1 0 ^ v ; 240 0 0 1 0 241 0 0 0 0 242 1 1 0 0 243 0 0 0 1 ^ v ; 244 0 0 1 0 245 0 1 0 0 246 1 1 1 1 247 0 0 0 0 ^ v ;MOV (R1),R3 ;GET MTC 250 0 0 1 1 251 1 1 0 0 252 1 0 0 1 253 0 1 0 1 ^ v ;BIC #377,R3 ;CLEAR PREVIOUS COMMAND 254 1 1 1 0 255 1 1 1 1 256 1 1 0 1 257 0 0 0 1 ^ v ; 260 0 0 1 1 261 1 1 0 0 262 1 0 0 1 263 1 1 0 0 ^ v ;BISB #3,R3 ;SET READ,GO BITS 264 0 0 1 0 265 0 0 0 0 266 1 1 0 1 267 0 0 0 1 ^ v ; 270 1 0 0 0 271 1 1 0 0 272 1 1 0 1 273 0 0 0 0 ^ v ;MOV R3,(R1) ;AND PUT BACK IN MTC 274 1 0 0 1 275 1 1 0 0 276 0 1 1 1 277 1 0 0 1 ^ v >;TSTB (R1) ;WAIT FOR CU READY BIT 300 1 1 1 0 301 1 1 1 1 302 1 1 0 0 303 1 0 0 1 ^ v ^;BPL 173736 ;LOOP TILL CU READY SETS 304 1 0 0 1 305 1 1 0 0 306 0 1 1 1 307 0 0 0 1 ^ v ;TST (R1) ;CHECK FOR ERROR 310 0 1 0 0 311 0 0 0 0 312 1 1 0 0 313 1 0 0 1 v-------;BPL 173756 ;BR IF OK 314 0 1 0 0 315 0 0 0 0 316 1 1 0 1 317 0 0 0 1 v ^ >->;RESET ;DO UNIBUS RESET 320 0 0 0 1 321 1 1 0 1 322 1 1 0 0 323 0 0 0 1 v ^----<;BR 173612 ;TRY AGAIN 324 1 1 1 0 325 0 1 0 1 326 1 1 0 1 327 0 0 0 1 v ;JMP 165564 ;RET TO CONSOLE UCODE 330 0 1 0 1 331 0 1 1 1 332 0 1 1 0 333 1 1 1 1 v ; 334 1 0 0 1 335 1 1 0 0 336 1 0 0 1 337 0 1 0 1 >------>;BIC #377,(R1) ;CLEAR ANY COMMAND IN MTC 340 1 1 1 0 341 1 1 1 1 342 1 1 0 1 343 0 0 0 1 ; 344 0 1 1 0 345 0 0 0 0 346 0 1 1 1 347 0 0 0 1 ;CLR PC ;GO TO WORD 0 OF CORE 350 0 0 0 0 351 0 0 0 0 352 1 1 0 0 353 0 0 0 1 ; 354 0 0 0 0 355 0 0 0 0 356 1 1 0 0 357 0 0 0 1 ; 360 0 0 0 0 361 0 0 0 0 362 1 1 0 0 363 0 0 0 1 ; 364 0 0 0 0 365 0 0 0 0 366 1 1 0 0 367 0 0 0 1 ; 370 0 0 0 0 371 0 0 0 0 372 1 1 0 0 373 0 0 0 1 ; 374 0 1 1 1 375 0 1 0 1 376 1 1 1 0 377 0 0 1 1 ;