AB16-12T3

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

1502 03065 0 04 00571 STA RECT REAL COUNT 1503 * 1504 03066 0 02 00553 LDA FCTR+1 DIV C0UNT INTO 1505 03067 000201 IAB 7,500,000 FOR NANOSECONDS 1506 03070 0 02 00552 LDA FCTR 1507 03071 0 10 02426 JST DIV 1508 03072 0 000571 DAC RECT EXPECT RESULT TO BE 1509 03073 000000 HLT IN RANGE 400 TO 1600 APX 1510 * 1511 03074 0411 77 LLS 1 NOW ROUND UP 1512 03075 100001 SRC TEST OF OVERFLOW 1513 03076 000000 HLT **** OUT OF RANGE 1514 03077 141206 AOA ADD TRIAL 1515 03100 0401 77 LRS 1 AND MOVE BACK 1516 * 1517 03101 0 04 00572 STA RENS NOW A HAS REAL NANOSEC 1518 03102 0 10 04123 JST V$OD GET IT READY TO TYPE 1519 03103 0 003764 DAC MESI+6 AS INTEGER 1520 * 1521 03104 0 02 00572 LDA RENS NOW TAKE DIFERENCE 1522 03105 0 07 00550 SUB EXNS 1523 03106 100400 SPL MAKE IT POSITIVE 1524 03107 140407 TCA 1525 03110 0 10 02317 JST MPY AND MULTIPLY IT BY 1000 1526 03111 0 000625 DAC =1000 1527 * 1528 03112 0 10 02426 JST DIV DIV BY EXPECTED VALUE 1529 03113 0 000550 DAC EXNS 1530 03114 000000 HLT 1531 * 1532 03115 0411 77 LLS 1 ROUND UP 1533 03116 141206 AOA 1534 03117 0401 77 LRS 1 1535 * 1536 03120 0 04 00574 STA TEMP TENTHS OF PER-CENT IN A REG 1537 03121 0 10 04123 JST V$OD PUT IT INTO MESSAGE 1538 03122 -0 003771 DAC* MESJ+3 1539 03123 0 02 03771 LDA MESJ+3 1540 03124 141240 ICR MOVE RIGHT MOST DIGIT 1541 03125 0 05 00635 ERA ='240 TO RIGHT ONE PLACE 1542 03126 0 04 03772 STA MESJ+4 1543 03127 0 02 03771 LDA MESJ+3 1544 03130 141140 ICL IF SECOND DIGIT (UNITS) IS 1545 03131 0 11 00635 CAS ='240 BLANK THEN FORCE IT TO 1546 03132 100000 SKP A ZERO 1547 03133 0 06 00706 ADD ='20 1548 03134 141240 ICR PUT IT BACK TO LEFT 1549 03135 0 05 00667 ERA ='256 AND STICK IN A DEC POINT 1550 03136 0 04 03771 STA MESJ+3 1551 *