AB16-12T3

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

1345 02661 101000 NOP 1346 * 1347 02662 0 10 02574 JST OPCO ASK FOR MINUTES 1348 02663 0 003556 DAC MNMS 1349 02664 0 10 02140 JST PACK INPUT PACKED WORD OR SKIP 3 1350 02665 0 02 00566 LDA NEWL FETCH PACKED 1351 02666 0 10 02257 JST DCO CONVERT TO BINARY 1352 02667 0 04 00564 STA MIN 1353 02670 0 02 00564 LDA MIN CHECK FOR MIN LIMITS OF 0 TO 59 1354 02671 100400 SPL 1355 02672 0 01 02646 JMP TDD TOO SMALL 1356 02673 0 11 00640 CAS =59 1357 02674 0 01 02646 JMP TDD TOO BIG 1358 02675 101000 NOP 1359 * 1360 02676 0 10 02552 JST LFCR ACKNUOLEDGE GOOD VALUES 1361 02677 0 02 00544 LDA DCPS 1362 02700 0 11 00637 CAS =546 RESULT OF (60 * DCPS) MUST BE 1363 02701 0 01 02704 JMP *+3 LESS THAN 32767 1364 02702 101000 NOP IF NOT THEN SCALE FREQUENCY UNTIL IT IS 1365 02703 0 01 02707 JMP TDE GOOD 1366 * 1367 02704 0 10 02574 JST OPCO TYPE 1368 02705 0 003523 DAC MESF 'FREQ TOO HIGH' 1369 02706 0 01 01123 JMP BYOM AND GO BACK FOR NEW FREQ PARAM 1370 * 1371 02707 0 10 02317 TDE JST MPY FREQ TIMES 60 SECONDS PER MINUTE 1372 02710 0 000636 DAC =60 1373 02711 000201 IAB MAKE RESULT SINGLE PRECISION INTEGER 1374 02712 140407 TCA NEG 1375 02713 0 04 00563 STA MCNT AND STORE FOR USE IN LOCATION '61 1376 * 1377 02714 0 02 00671 LDA =1 SET CLOCK MASK 1378 02715 74 0020 SMK '20 1379 02716 0 02 00563 LDA MCNT SET CLOCK 1380 02717 0 04 00061 STA '61 1381 02720 14 0020 OCP '20 CLEAR RUPT AND START CLOCK 1382 02721 000401 ENB ASK FOR RUPT AT END 1383 * 1384 02722 100002 TDF SR4 1385 02723 -0 01 02624 JMP* TDAY RETURN IF SWITCH 4 IS SET 1386 02724 0 02 00061 LDA '61 SHOW THE CLOCK VALUE 1387 02725 100040 SZE ZERI IS AN ERROR 1388 02726 0 01 02722 JMP TDF GOOD - WAIT SOME MORE 1389 * 1390 02727 14 0220 OCP '220 STOP CLOCK 1391 02730 000000 HLT 1392 02731 0 01 02730 JMP *-1 VERY FATAL ERROR - NO RUPT ON GOING TO 0 1393 * 1394 02732 0 02 00061 TDC LDA '61 RUPTS COME HERE VIA INT1 AND RETO