AB16-CCT4

* NAME: AB16-CCT4 DOC 70180658000 REV H PAGE 7

0285 00223 0 04 00237 STA DC03 0286 00224 0 06 00510 ADD =1 0287 00225 0 04 00240 STA DC04 0288 00226 -0 10 00456 MV01 JST* MOOV MOVE ONE THOUSAND 0289 00227 001000 OCT 1000 WORD BLOCK TEST SECTOR 0290 00230 0 000000 DC01 DAC ** FROM HERE 0291 00231 0 000000 DC02 DAC ** TO HERE 0292 00232 -0 10 00231 JST* DC02 GO TO TEST IN HIGHER SECTOR 0293 00233 140040 CRA 0294 00234 -0 04 00237 STA* DC03 0295 00235 -0 10 00456 JST* MOOV ZERO OUT SECTOR JUST TESTED 0296 00236 000777 OCT 777 'NO. OF WORDS 0297 00237 0 000000 DC03 DAC ** FROM 'HERE' 0298 00240 0 000000 DC04 DAC ** TO 'HERE' 0299 00241 0 02 00231 LDA DC02 0300 00242 0 06 00513 ADD ='1000 MODIFY FOR NEXT HIGHER SECTOR 0301 00243 0 12 00426 IRS CN01 DID WE TEST IN ALL THE SECTORS 0302 00244 0 01 00222 JMP MV01-4 NO, TEST IN THE NEXT SECTOR 0303 00245 0 02 00430 LDA PNT1 YES, MODIFY FOR NEXT 0304 00246 0 06 00513 ADD ='1000 TEST SECTOR TO BE EXECUTED 0305 00247 0 04 00430 STA PNT1 IN HIGHER SECTORS 0306 00250 0 12 00427 IRS CN02 DID WE FINISH ALL TEST SECTORS 0307 00251 0 01 00215 JMP NXMV NO, DO NEXT SECTOR 0308 * 0309 00252 0 02 00424 LDA EFL1 TEST EXT MODE FLAG 1 0310 00253 100040 SZE 0311 00254 0 01 00310 JMP MVEA IF SET, GO FOR TRANSFER TO '40 SECTOR 0312 00255 0 02 00425 LDA EFL2 TEST EXT FLAG 2 0313 00256 100040 SZE 0314 00257 0 01 00330 D20L JMP MVEB IF SET, GO TO LOWER HALF 0315 00260 0 10 00335 JST EOPI PASS COUNT TYPEOUT 0316 00261 0 01 00162 JMP STR2 REPEAT TESTS 0317 * 0318 * 0319 EXD 0320 00262 0 02 42747 RECY LDA CNT5+'40000 BRING THE CURRENT 0321 00263 0 04 02747 STA CNT5 PASS COUNT FROM UPPER 0322 00264 0 02 42750 LDA CNT5+'40001 BANK TO LOWER BANK 0323 00265 0 04 02750 STA CNT5+1 0324 LXD 0325 00266 000011 DXA 0326 00267 0 01 00270 JMP *+1 NORMAL ADDRESSING 0327 00270 0 10 00335 IN10 JST EOPI END OF PASS TYPE OUT 0328 00271 100010 SR2 IF SW.2 SET, HALT 0329 00272 000000 HLT 0330 00273 140040 CRA 0331 00274 0 04 00425 STA EFL2 0332 00275 0 02 00215 LDA NXMV MODIFY ADDRESS 0333 00276 0 07 00510 SUB =1 FOR 0334 00277 0 04 00215 STA NXMV LOWER BANK