AB16-CCT4

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

1430 02542 000000 HLT ERROR 1431 02543 0 02 02761 TBNE LDA =-'1 ALL ONES IS THEN ADDED WITH 1432 02544 0 03 02561 ANA TBBY RANDOM DATA AND RESULTS 1433 02545 0 05 02561 ERA TBBY SHOULD BE ORIGINAL DATA 1434 02546 101040 SNZ TEST FOR ERROR 1435 02547 0 01 02551 JMP TBBD 1436 02550 000000 HLT ERROR 1437 02551 0 02 02557 TBBD LDA TBBS INITIALIZE FOR NEXT PASS 1438 02552 0 13 02560 IMA TBBT ** 1439 02553 0 04 02557 STA TBBS ** 1440 02554 0 12 00000 IRS 0 INCREMENT INDEX 1441 02555 0 01 02527 JMP ANAB AND RETURN 1442 02556 -0 01 02521 JMP* ANAA RETURN 1443 * 1444 02557 125252 TBBS OCT 125252 1445 02560 052525 TBBT OCT 52525 1446 02561 000000 TBBY BSZ 1 1447 * 1448 * 1449 * 1450 * 1451 * ROUTINE T006 CAS 1452 * THIS ROUTINE CHECKS FOR PROPER 1453 * SKIPPING IN ALL THREE CONDITIONS 1454 * 1455 02562 000006 OCT 6 TEST NO. 1456 02563 0 000000 CASA DAC ** CAS TEST 1457 02564 0 02 02562 LDA *-2 LOAD TEST NO. 1458 02565 0 04 00777 STA '777 STORE AT '777 1459 02566 101000 NOP KILL TEST LOCATION 1460 02567 140040 CRA 1461 02570 0 04 00000 STA 0 INITIALIZE 1462 02571 0 02 00455 LDA CNTY INITIALIZE TEST COUNT 1463 02572 0 04 02622 STA CASX ** 1464 02573 1 02 01000 CASB LDA 512,1 CAS CHECK FOR EQUAL 1465 02574 1 11 01000 CAS 512,1 ** 1466 02575 000000 HLT ERROR 1467 02576 0 01 02600 JMP *+2 OK 1468 02577 000000 HLT ERROR 1469 02600 141206 AOA CAS CHECK WITH A GREATER VALUE 1470 02601 0 11 02757 CAS ='100000 ELIMINATE VARIABLE DATA 1471 02602 0 01 02604 JMP *+2 IF EQUAL TO 77777 1472 02603 0 01 02616 JMP CASN ** 1473 02604 1 11 01000 CAS 512,1 1474 02605 0 01 02610 JMP *+3 1475 02606 000000 HLT ERROR 1476 02607 000000 HLT ERROR 1477 02610 0 07 02756 SUB =2 CAS CHECK WITH A SMALLER VALUE 1478 02611 100001 SRC VALUE 1479 02612 0 01 02616 JMP CASN