C210-001-6601 (FRTN) 3C NO.180463000 REV. D

* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 34

1600 02646 0 07 00720 SUB K102 1601 02647 101040 SNZ 1602 02650 -0 01 02644 JMP* TA00 1603 02651 0 10 03116 JST ER00 1604 02652 147322 BCI 1,NR ITEM NOT A RELATIVE VARIABLE 1605 * 1606 * 1607 * 1608 * 1609 * 1610 * 1611 * 1612 * 1613 02653 0 000000 AD3 DAC ** ADD TWO THREE WORD INTEGERS, 1614 02654 0 02 01475 LDA TID 1615 02655 0 06 02347 ADD DNX1 1616 02656 140320 CSA 1617 02657 0 04 01475 STA TID 1618 02660 0 02 01476 LDA TID+1 1619 02661 141216 ACA 1620 02662 0 06 02350 ADD DNX1+1 1621 02663 140320 CSA 1622 02664 0 04 01476 STA TID+1 1623 02665 0 02 01477 LDA TID+2 1624 02666 141216 ACA 1625 02667 0 06 02351 ADD DNX1+2 1626 02670 0 04 01477 STA TID+2 1627 02671 -0 01 02653 JMP* AD3 1628 * 1629 * 1630 * *********************** 1631 * *ASSIGN INDEX REGISTER* 1632 * *********************** 1633 * 1634 02672 0 000000 STXA DAC ** 1635 02673 0 02 00040 LDA A 1636 02674 0 04 00000 STA 0 1637 02675 -0 01 02672 JMP* STXA 1638 02676 0 000000 STXI DAC ** 1639 02677 0 02 00041 LDA I 1640 02700 0 04 00000 STA 0 1641 02701 -0 01 02676 JMP* STXI 1642 02702 000016 K153 OCT 16 1643 02703 0 000000 IM00 DAC ** 1644 02704 0 04 02720 STA T1IM MULTIPLY A BY B 1645 02705 0 02 00737 LDA K120 =-15 1646 02706 0 04 02721 STA T2IM 1647 02707 140040 CRA 1648 02710 140200 RCB C BIT = 0 1649 02711 0400 77 IM10 LRL 1 LOW BIT OF B INTO C