AB16-12T3

* NAME: AB16-12T3 DOC 70181010000 REV F PAGE 34

1452 * 1453 * CALIBRATE CPU CLOCK AGAINST SWEEP SECOND HAND 1454 * 1455 03014 0 02 02043 CCPU LDA RETC ALLOW ANY PENDING 1456 03015 0 10 02056 JST SIL RUPT TO FLUSH THRU TO 1457 03016 000401 ENB CCA 1458 03017 101000 NOP 1459 03020 101000 NOP 1460 03021 001001 INH 1461 03022 100000 SKP IF NO RUPT SKIP THE DAC 1462 03023 0 000000 CCA DAC ** PI RUPT COMES HERE 1463 * 1464 03024 0 02 02044 LDA RETD SET FOR START BUTTON RUPT 1465 03025 0 04 00063 STA '63 TO CCB 1466 * 1467 03026 0 02 00630 LDA ='5007 FIRST NOP GOES HERE 1468 03027 0 04 00574 STA TEMP 1469 03030 0 35 00627 LDX =-492 500-(7+1) NOP'S 1470 03031 0 02 00675 LDA ='101000 NOP 1471 03032 -0 04 00574 STA* TEMP 1472 03033 0 12 00574 IRS TEMP FILL NOP'S INTO SECTOR 5 FOR 1473 03034 0 12 00000 IRS 0 492 LOCATIONS TO GIVE TOTAL 1474 03035 0 01 03032 JMP *-3 OF 500 LOCATIONS USED IN LOOP 1475 * 1476 03036 0 10 02574 CCD JST OPCO ASK FOR EXPECTED NANOSEC 1477 03037 0 003747 DAC MESH 1478 03040 0 10 02140 JST PACK INPUT UP TO 4 DEC DIGITS 1479 03041 0 02 00566 LDA NEWL OR SKIP NEXT 3 LOCATIONS 1480 03042 0 10 02257 JST DCO 1481 03043 0 04 00550 STA EXNS 1482 03044 0 02 00550 LDA EXNS NOW TEST THE EXPECTED 1483 03045 0 11 00705 CAS =1600 TO LIMITS OF 400 AND 1600 1484 03046 0 01 03036 JMP CCD TOO BIG 1485 03047 101000 NOP 1486 03050 0 11 00626 CAS =400 OPERATOR THINKS TEST STARTED 1487 03051 101000 NOP WITH HIS CAR RET OR PERIOD 1488 03052 100000 SKP 1489 03053 0 01 03036 JMP CCD TOO SMALL 1490 * 1491 03054 140040 CRA 1492 03055 000201 IAB 1493 03056 140040 CRA 1494 03057 0 01 05000 JMP SEC5 GO TO WAIT FOR RUPT 1495 * 1496 03060 0 000000 CCB DAC ** HERE AFTER ONE MIN 1497 03061 0401 74 LRS 4 NOW HAVE DOUBLE PREC COUNT 1498 03062 100040 SZE IN RANGE 60,000 TO 300,000 1499 03063 000000 HLT **** STILL OUT OF RANGE 1500 * 1501 03064 000201 IAB NOW IN RANGE 3700 TO 19,000