Previous Page Single Page Next Page  

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

1395 02733 101040 SNZ 1396 02734 0 01 02737 JMP TDG 1397 * 1398 02735 000000 HLT 1399 02736 0 01 02735 JMP *-1 VERY FATAL ERROR - CLOCK HAD NOT GONE TO 0 1400 * 1401 02737 0 02 00563 TDG LDA MCNT QUICK LIKE RESET THE CLOCK 1402 02740 0 04 00061 STA '61 1403 02741 14 0020 OCP '20 AND RESTART IT 1404 02742 0 02 00564 LDA MIN GET THE MIN COUNT 1405 02743 141206 AOA AND ADD TO IT 1406 02744 0 11 00636 CAS =60 1407 02745 000000 HLT 1408 02746 100000 SKP 1409 02747 0 01 02752 JMP *+3 ON OVERFLOW RESET IT AND 1410 02750 0 12 00560 IRS HRS ADD TO HOURS 1411 02751 140040 CRA 1412 02752 0 04 00564 STA MIN 1413 02753 0 10 04123 JST V$OD CONVERT TO ASCII DECIMAL 1414 02754 -0 003571 DAC* HRMN+4 1415 02755 0 02 03571 LDA HRMN+4 1416 02756 141140 ICL 1417 02757 0 11 00635 CAS ='240 1418 02760 0 01 02766 JMP TDH 1419 02761 100000 SKP CHANGE BLANK TO LEADING ZERO 1420 02762 0 01 02766 JMP TDH 1421 * 1422 02763 0 02 03571 LDA HRMN+4 1423 02764 0 05 00634 ERA ='10000 INVERT BIT FOUR 1424 02765 0 04 03571 STA HRMN+4 1425 * 1426 02766 0 02 00633 TDH LDA =A : PUT COLON BETWEEN 1427 02767 0 04 03570 STA HRMN+3 HOURS AND MINS 1428 02770 0 02 00560 LDA HRS 1429 02771 0 11 00632 CAS =24 IF HOURS OVERFLOW 1430 02772 000000 HLT THEN CLEAR TO ZERO 1431 02773 140040 CRA 1432 02774 0 04 00560 STA HRS 1433 02775 0 10 04123 JST V$OD CONVERT TO DECIMAL 1434 02776 0 003570 DAC HRMN+3 1435 02777 0 02 03567 LDA HRMN+2 1436 03000 141050 CAL 1437 03001 0 11 00631 CAS ='241 CHANGE LEADING BLANK 1438 03002 101000 NOP TO LEADING ZERO 1439 03003 0 01 03006 JMP *+3 1440 03004 0 02 00670 LDA =A 0 1441 03005 0 04 03567 STA HRMN+2 1442 * 1443 03006 0 10 02552 JST LFCR 1444 03007 0 10 02574 JST OPCO TYPE THE TIME
  Previous Page Single Page Next Page