AB16-CCT4

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

0335 * 0336 * 0337 00300 0 12 00424 EA01 IRS EFL1 SET EXT MODE FLAG 1 0338 00301 0 02 00506 IN07 LDA =-26 (LDA =-24 IF CP IS 716) - SET UP TO TEST 0339 00302 0 04 00465 STA HSCT IN THE FIRST '37 SECTORS 0340 00303 0 02 00464 LDA HISC INITIALIZE TO TEST IN SECTORS HIGHER 0341 00304 0 07 00505 IN05 SUB ='45 THAN '45 (OR '47 IF CP IS 716) 0342 00305 140407 TCA 0343 00306 0 04 00466 STA HSCT+1 0344 00307 0 01 00162 JMP STR2 GO TO MAIN TEST ROUTINE 0345 * 0346 * 0347 00310 140040 MVEA CRA G0-TO-UPPER-MEMORY ROUTINE 0348 00311 0 04 00424 STA EFL1 RESET EXT MODE FLAG 1 0349 00312 0 12 00425 IRS EFL2 SET EXT FLAG 2 0350 00313 0 12 00215 IRS NXMV MODIFY ADDR FOR UPPER BANK 0351 00314 0 02 00504 LDA ='140063 0352 00315 0 04 00063 STA '63 0353 00316 000013 EXA 0354 00317 -0 10 00456 JST* MOOV MOVE THE TESTS TO 40TH SECTOR 0355 00320 006000 IN06 OCT 6000 ('10000 IF CP IS 716) 0356 00321 000000 OCT 0 0357 00322 0 040000 DAC '40000 0358 EXD 0359 00323 0 01 40325 JMP MVEB+'37775 HERE IT GOES TO 40TH SECTOR 0360 LXD 0361 * 0362 * 0363 00324 0 005733 D20K DAC S47R ADDRESS OF ROUTINE TO MODIFY PROGRAM 0364 * IF CP IS 716 AND MEMORY 20K. 0365 00325 000011 DXA 0366 00326 0 01 00327 JMP *+1 NORMAL MODE 0367 00327 -0 01 00324 JMP* D20K TEST IF CP IS 716 AND MEMORY IS 20K 0368 00330 000013 MVEB EXA GO-TO-LOWER-MEMORY ROUTINE 0369 00331 0 02 00334 LDA *+3 0370 00332 0 03 00507 ANA ='176777 STRIP THE SECTOR BIT 0371 00333 0 04 00334 STA *+1 0372 00334 0 01 00262 JMP RECY HERE IT GOES TO ZERO SECTOR 0373 * 0374 * 0375 * 0376 * 0377 * END OF PASS ROUTINE 0378 * 0379 00335 0 000000 EOPI DAC ** END-OF-PASS ROUT. 0380 00336 0 02 00435 LDA PCRT 0381 00337 0 04 00434 STA CNTX 0382 00340 0 10 00347 JST ST5 0383 00341 0 01 00343 JMP *+2 0384 00342 0 10 00347 JST ST5