AB16-CCT4

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

2447 * 2448 * 2449 * 2450 * SUBROUTINE T073 LRR 2451 * 2452 04322 000073 OCT 73 TEST NO. 2453 04323 0 000000 LRRA DAC ** LRR TEST 2454 04324 0 02 04322 LDA *-2 STORE TEST NO. 2455 04325 0 04 00777 STA '777 AT '777 2456 04326 101000 NOP KILL TEST LOCATION 2457 04327 0 02 00455 LDA CNTY 2458 04330 0 04 04407 STA SXTX INITIALIZE TEST COUNT 2459 04331 0 02 04371 LRRB LDA LRRS STORE LRR INST 2460 04332 0 04 04374 STA SFTT IN THE SHIFT ROUTINE 2461 04333 0 02 04770 LDA =-15 INITIALIZE SHIFT 2462 04334 0 04 00000 STA 0 COUNT TO 15 2463 04335 1 02 00673 LRRC LDA TSTV,1 TEST LRR INST USING 2464 04336 0 04 04414 STA SFZZ A FLOATING ZERO PATTERN 2465 04337 0 04 04413 STA SFYY 2466 04340 0 02 00673 LDA TSTV 2467 04341 000201 IAB '77777 IN B REG 2468 04342 0 02 00673 LDA TSTV '77777 IN A REG 2469 04343 0 10 04372 JST SHXT TO SHIFT AND CHECK ROUTINE 2470 04344 1 02 00631 LDA SKND,1 TEST WITH FLOATING ONE PATTERN 2471 04345 0 04 04414 STA SFZZ 2472 04346 0 04 04413 STA SFYY 2473 04347 0 02 00631 LDA SKND 2474 04350 000201 IAB '100000 IN B REG 2475 04351 0 02 00631 LDA SKND '100000 IN A REG 2476 04352 0 10 04372 JST SHXT TO SHIFT AND CHECK ROUTINE 2477 04353 1 02 00651 LDA SKNE,1 2478 04354 0 04 04414 STA SFZZ 2479 04355 0 04 04413 STA SFYY 2480 04356 0 02 00651 LDA SKNE '125252 PATTERN 2481 04357 000201 IAB IN B REG 2482 04360 0 02 00651 LDA SKNE '125252 IN A REG 2483 04361 0 10 04372 JST SHXT TO SHIFT AND CHECK ROUTINE 2484 04362 0 12 00000 IRS 0 USED ALL SHIFTS 2485 04363 0 01 04367 JMP LRRG NO, MODIFY AND TEST AGAIN 2486 04364 0 12 04407 IRS SXTX ARE WE DONE 2487 04365 0 01 04331 JMP LRRB NO, TEST MORE 2488 04366 -0 01 04323 JMP* LRRA RETURN 2489 * 2490 04367 0 12 04374 LRRG IRS SFTT MODIFY SHIFT COUNT 2491 04370 0 01 04335 JMP LRRC 2492 * 2493 04371 0402 61 LRRS LRR 15 2494 * 2495 * 2496 *