Previous File Previous Page Single Page Next Page Next File

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

1650 02712 100001 SRC SKIP IF B = 0 1651 02713 0 06 02720 ADD T1IM 1652 02714 0 12 02721 IRS T2IM 1653 02715 0 01 02711 JMP IM10 1654 02716 0410 62 LLL 14 1655 02717 -0 01 02703 JMP* IM00 RETURN, RESULT IN A 1656 02720 0 00 00000 T1IM PZE 0 1657 02721 0 00 00000 T2IM PZE 0 1658 * 1659 * 1660 02722 0 000000 NF00 DAC ** CONSTRUCT EXTERNAL NAME 1661 02723 0 02 02730 LDA K80 ENTRY FOR FORTRAN GENERATER 1662 02724 0 04 00570 STA NAMF 1663 02725 0 02 02731 LDA K81 SUBROUTINE CALLS, 1664 02726 0 04 00572 STA NAMF+2 1665 02727 -0 01 02722 JMP* NF00 1666 02730 143244 K80 BCI 1,F$ 1667 02731 120240 K81 BCI 1, 1668 02732 000001 KM92 DEC 1 001 = INT 1669 02733 000002 DEC 2 010 = REA 1670 02734 000001 DEC 1 011 = LOG 1671 02735 000000 DEC 0 - - 1672 02736 000004 DEC 4 101 = CPX 1673 02737 000003 DEC 3 110 = DSL 1674 02740 000003 OCT 3 111 = HOL 1675 * 1676 * 1677 02741 0 000000 BLNK DAC ** CLEAR A 3/36 1678 02742 0 10 03007 JST SAV AREA TO ZEROS 1679 02743 -0 02 02741 LDA* BLNK 1680 02744 0 04 00000 STA XR 1681 02745 140040 CRA CLEAR 3 WORDS OF MEMORY 1682 02746 1 04 00001 STA 1,1 PARAMETER INPUT ADDRESS TO 0 1683 02747 1 04 00002 STA 2,1 1684 02750 1 04 00000 STA 0,1 1685 02751 0 10 03016 JST RST 1686 02752 0 12 02741 IRS BLNK 1687 02753 -0 01 02741 JMP* BLNK EXIT 1688 * 1689 * 1690 02754 0 000000 MOV3 DAC ** MOVE 3-WORDS 1691 02755 0 02 01475 LDA TID TO TEMO STORE 1692 02756 0 04 02347 STA DNX1 1693 02757 0 02 01476 LDA TID+1 1694 02760 0 04 02350 STA DNX1+1 1695 02761 0 02 01477 LDA TID+2 1696 02762 0 04 02351 STA DNX1+2 1697 02763 -0 01 02754 JMP* MOV3 1698 * 1699 *
Previous File Previous Page Single Page Next Page Next File