5 PACKAGE 3 5 CONTAINS PACKAGE 1 5 PLUS THE FOLLOWING 5 ROUTINES 5 E00AC EXPONENTIAL SUBROUTINE 5 E00AB LOG SUBROUTINE 1 E00AI STD ARTHX AI1 ADD 1833 24 1786 1789 2 AI1 STL ARTHG 1789 20 1794 1799 3 LDD ARTHB 1799 69 1802 1805 4 RAM 8002 STORE ACC 1802 67 8002 1767 5 STL ARTHF POWER 1767 20 1772 1894 6 SML ARTHE 1894 18 1902 1759 7 SLT 0001 1759 35 0001 1766 8 NZU AI12 FIND MAX 1766 44 1773 1771 9 LDD AI3A 1771 69 1774 1777 10 SRT 0005 POWER 1777 30 0005 1790 11 SDA AI3 SET EXPNNTS 1790 22 1793 1796 12 BMI AI2 AND THEN 1796 46 1899 1754 13 RAM ARTHE PERFORM 1899 67 1902 1817 14 STL ARTHF ADDITION 1817 20 1772 1776 15 RAL ARTHH 1776 65 1788 1943 16 LDD ARTHM AI3 1943 69 1824 1793 17 AI3 SRT 0000 AI3B 1793 30 0000 1811 18 AI3A SRT 0000 AI3B 1774 30 0000 1811 19 AI3B ALO 8001 AI5 1811 15 8001 1770 20 AI2 RAL ARTHM 1754 65 1824 1779 21 LDD ARTHH AI3 1779 69 1788 1793 22 AI5 RAU 8002 CLEAR ARTHE 1770 60 8002 1780 23 STL ARTHE ARTHS TO SCALE 1780 20 1902 1762 24 AI12 BMI AI13 1773 46 1778 1828 25 RAL ARTHG AI10 1778 65 1794 1904 26 AI13 RAL ACC ARTHX 1828 65 0000 1786 27 ARTHB STD ARTHY BREAK UP EXP 1805 24 1808 1826 28 SLT 0008 AND MANTISSA 1826 35 0008 1996 29 STL ARTHE STORE POWER 1996 20 1902 1755 30 RAU 8003 AND MANTISSA 1755 60 8003 1763 31 SLT 0001 OF LOWER 1763 35 0001 1769 32 STU ARTHM 1769 21 1824 1997 33 RAU ACC 1997 60 0000 1855 34 SRT 0002 STORE POWER 1855 30 0002 1761 35 SLO 8002 AND MANTISSA 1761 16 8002 1819 36 SLT 0001 OF ACC 1819 35 0001 1775 37 ALO 8001 1775 15 8001 1783 38 STU ARTHH ARTHY 1783 21 1788 1808 39 ARTHS SCT 0000 NORMALIZE 1762 36 0000 1782 40 BOV AI6 BRNCH IF ZRO 1782 47 1942 1787 41 STL ARTHG SHIFT COUNT 1787 20 1794 1797 42 RAL 8003 ROUND ON 1797 65 8003 1905 43 SRD 0002 NINTH DIGIT 1905 31 0002 1813 44 SLT 0002 CHECK FOR 1813 35 0002 1869 45 STL ARTHM ROUNDOFF 1869 20 1824 1877 46 NZU AI7 AI8 OVERFLOW 1877 44 1831 1834 47 AI8 RAM 8003 AND 1834 67 8003 1841 48 SML ARTHG CORRECT IF 1841 18 1794 1800 49 ALO AJ2 NECESSARY 1800 15 1903 1822 50 SLT 0008 1822 35 0008 1791 51 RAL 8002 1791 65 8002 1849 52 AML ARTHE 1849 17 1902 1757 53 ALO ARTHF 1757 15 1772 1827 54 BMI AI11A PWR TOO SMAL 1827 46 1752 1781 55 NZU AI11 PWR TOO LRGE 1781 44 1785 1836 56 SLT 0002 1836 35 0002 1893 57 STU ACC1 1893 21 1998 1901 58 RAL ARTHM 1901 65 1824 1829 59 BMI AI9 COMBINE 1829 46 1944 1995 60 SLO ACC1 AI10 1944 16 1998 1904 61 AI10 STL ACC ARTHX AND 1904 20 0000 1786 62 AI9 ALO ACC1 AI10 1995 15 1998 1904 63 AI7 SRT 0001 ADJUST 1831 30 0001 1792 64 STL ARTHM 1792 20 1824 1927 65 SLT 0001 AI8 1927 35 0001 1834 66 AI6 RAL 8003 AI10 1942 65 8003 1904 67 E00AJ STD ARTHX MULTIPLY 1832 24 1786 1839 68 LDD ARTHB 1839 69 1852 1805 69 RAM 8002 ACC POWER 1852 67 8002 1867 70 SLO AJ1 MINUS 48 1867 16 1820 1825 71 STL ARTHF 1825 20 1772 1875 72 RAU ARTHH 1875 60 1788 1756 73 MPY ARTHM ARTHS 1756 19 1824 1762 74 E00AG STD ARTHX AG1 DIVIDE 1830 24 1786 1889 75 AG1 LDD ARTHB IS DIVISOR 1889 69 1842 1805 76 NZU AG3 ZER0 1842 44 1812 1846 77 RSM 8002 DIVISOR 1812 68 8002 1821 78 ALO AG2 POWER MINUS 1821 15 1876 1895 79 STL ARTHF 49 1895 20 1772 1768 80 RAU ARTHM SH1FT 1768 60 1824 1879 81 SRT 0001 DIVIDEND 1879 30 0001 1885 82 DVR ARTHH DO DIVIDE 1885 64 1788 1803 83 RAU 8002 ARTHS 1803 60 8002 1762 84 E00AO STD ARTHX DIV REVERSE 1882 24 1786 1989 85 STL ACC2 1989 20 1843 1896 86 RAL ACC 1896 65 0000 1810 87 LDD ACC2 1810 69 1843 1897 88 STD ACC AG1 1897 24 0000 1889 89 E00AF STD ACC6 FL0AT TO LWR 1947 24 1858 1911 90 LDD AE4 E00AE AND ACC 1911 69 1925 1928 91 AE4 STL ACC ACC6 1925 20 0000 1858 92 E00AE STD ARTHX FLOAT TO LWR 1928 24 1786 1840 93 RAU 8002 ONLY 1840 60 8002 1753 94 SCT 0000 NORMALIZE 1753 36 0000 1975 95 STL ACC3 1975 20 1881 1784 96 BOV AD1 ZER0 CHECK 1784 47 1851 1890 97 RAL 8003 1890 65 8003 1798 98 SRD 0002 ROUND FOR 1798 31 0002 1807 99 SLT 0002 PLACING EXP 1807 35 0002 1764 100 NZU AE6 CHECK ROUND 1764 44 1818 1891 101 LDD 8003 OVERFLOW 1818 69 8003 1874 102 SRT 0001 1874 30 0001 1884 103 ALO 8001 AE6 1884 15 8001 1891 104 AE6 BMI AE2 INSERT 1891 46 1844 1845 105 ALO AJ3 AE5 EXP0NENT 1845 15 1848 1804 106 AE2 SLO AJ3 AE5 1844 16 1848 1804 107 AE5 SLO ACC3 ARTHX 1804 16 1881 1786 108 E00TH STD ARTHX FIX L0WER 1932 24 1786 1990 109 SLT 0008 TO LOWER 1990 35 0008 1859 110 STU ARTHM 1859 21 1824 1878 111 RAM 8002 TEST EXP 1878 67 8002 1887 112 SLO AJ5 STORE ZER0 1887 16 1940 1945 113 BMI AD1 IF LESS THAN 1945 46 1851 1850 114 SLO AJ4 50 ALARM 1850 16 1853 1758 115 BMI AD3 1F GRTR THAN 1758 46 1861 1862 116 SRT 0004 59 1861 30 0004 1921 117 ALO AR7 1921 15 1924 1929 118 LDD AD2A MODIFY 1929 69 1835 1838 119 SDA AD2 SHIFT 1838 22 1991 1971 120 RAL ARTHM 1971 65 1824 1930 121 SLT 0002 AD2 1930 35 0002 1991 122 AD1 RAL 8003 ARTHX STORE ZERO 1851 65 8003 1786 123 AD2 SRT 0000 ARTHX SHIFT C0NST 1991 30 0000 1786 124 AD2A SRT 0000 ARTHX 1835 30 0000 1786 125 AD3 LDD ARTHX 3031 FIX ALARM 1862 69 1786 3031 126 AG3 LDD ARTHX 3061 DIVIDE ALARM 1846 69 1786 3061 127 AI11 LDD ARTHX 3081 SCALE ALARM 1785 69 1786 3081 128 AI11A HLT 1081 AI6 1752 01 1081 1942 129 AG2 49 0000 0000 1876 49 0000 0000 130 AJ1 48 0000 0000 1820 48 0000 0000 131 AJ2 00 0000 0001 1903 00 0000 0001 132 AJ3 00 0000 0059 1848 00 0000 0059 133 AJ4 10 0000 0000 1853 10 0000 0000 134 AJ5 50 0000 0000 1940 50 0000 0000 135 E00AQ STD J0001 AQ1 READ 1974 24 1977 1880 136 AQ1 RD1 1976 AQ3 1880 70 1976 1898 137 AQ3 RAM P0001 AQ3A 1898 67 1951 1806 138 AQ3B RAM P0001 AQ3A CHECK FOR 1892 67 1951 1806 139 AQ3A NZE AQ8 LAST WORD 1806 45 1860 1837 140 LDD AQ5 AQ4 ON CARD 1860 69 1863 1816 141 AQ4 STD ACC4 1816 24 1870 1873 142 AUP 8003 READ IN 1873 10 8003 1931 143 SRT 0004 LABEL FOR 1931 30 0004 1941 144 SIA ACC5 PRESENT 1941 23 1795 1948 145 SLO 8001 VARIABLE 1948 16 8001 1856 146 ALO 8002 GET I Y 0R C 1856 15 1809 8002 147 RAU 0000 ADDRESS FROM 1809 60 0000 1987 was RAU A000 - 00 0000 0000 146 AUP ACC5 ABCON DICT 1987 10 1795 1949 149 SLT 0004 ACC4 GENERATE 1949 35 0004 1870 150 AQ5 AUP AQ7 1NSTRUCTION 1863 10 1866 1857 151 ALO P0010 1857 15 1960 1965 152 ALO 8002 GET AND 1965 15 1968 8002 153 LDD P0002 8003 STORE WORD 1968 69 1952 8003 154 AQ7 STD 0000 1866 24 0000 1907 155 RAL P0010 INCREMENT 1907 65 1960 1915 156 ALO AQ9 WORD COUNT 1915 15 1918 1854 157 STL P0010 1854 20 1960 1963 158 ALO AQ3B 8002 1963 15 1892 8002 159 AQ8 RAL P0001 CHECK FOR 1837 65 1951 1765 160 BMI J0001 AQ1 LAST CARD 1765 46 1977 1880 161 E00AR STD P0005 PUNCH 0UT 1801 24 1955 1908 162 STU J0003 1908 21 1979 1935 163 SIA P0008 STORE STMNT 1935 23 1958 1912 164 STU J0004 NUMBER 1912 21 1980 1886 165 SDA P0004 STORE WORD 1886 22 1954 1909 166 SLO 8001 COUNT 1909 16 8001 1917 167 NZE AR10 AR9 TEST ZERO 1917 45 1920 1872 168 AR10 STU J0005 STMT NUMBER 1920 21 1981 1814 169 STD J0006 SET PUNCH 1814 24 1982 1972 170 STD J0007 BAND TO 1972 24 1983 1864 171 STD J0008 ZEROES 1864 24 1984 1888 172 STD P0010 AR3 SET COUNTER 1888 24 1960 1913 173 AR3 RAL P0004 1913 65 1954 1910 174 SLO AR7 1910 16 1924 1936 175 BMI AR8 TEST WORD 1936 46 1994 1992 176 STL P0004 AR4 COUNT 1992 20 1954 1865 177 AR4 ALO 8002 GET WORD 1865 15 1868 8002 178 RAL P0000 LABEL FROM 1868 65 1950 1914 179 AUP 8003 PUNCH CONSTS 1914 10 8003 1922 180 SLT 0001 1922 35 0001 1938 181 SDA P0007 MODIFY LABEL 1938 22 1957 1961 182 SLO 8001 1961 16 8001 1919 183 SRT 0001 1919 30 0001 1926 184 ALO P0007 1926 15 1957 1962 185 SLT 0004 INSERT STMNT 1962 35 0004 1923 186 ALO P0008 NUMBER 1923 15 1958 1964 187 AUP P0010 1964 10 1960 1916 188 AUP 8003 1916 10 1969 8003 189 STL J0001 STORE LABEL 1969 20 1977 1988 190 RAL 8002 FOR PUNCHING 1988 65 8002 1900 191 LDD AQ4 MODIFY LABEL 1900 69 1906 1816 192 AUP AR6 INTO DRUM 1906 10 1966 1934 193 ALO P0010 LOC IN READ 1934 15 1960 1967 194 ALO 8003 GET WORD 1967 15 1970 8003 195 STD J0002 STORE IN 1970 24 1978 1993 196 RAL P0010 PUNCH BAND 1993 65 1960 1815 197 ALO AQ9 1815 15 1918 1973 196 STL P0010 AR3 1973 20 1960 1913 199 AR6 LDD 0000 8002 1966 69 0000 8002 200 AR7 00 0001 0000 1924 00 0001 0000 201 AR8 PCH J0001 P0005 PUNCH 1994 71 1977 1955 202 AR9 RAL 8000 IF STMT NMBR 1872 65 8000 1937 203 BMI AR10 P0005 ZRO PCH ONLY 1937 46 1920 1955 204 AQ9 00 0002 0000 IF 8000 NEG 1918 00 0002 0000 205 J0010 80 0000 8800 CONTROL CNST 1986 80 0000 8800 206 1976 RAM 1951 READ 1976 67 1951 1744 207 AUP 8003 UP TO 1744 10 8003 1741 208 SLT 0004 SEVEN 1741 35 0004 1748 209 SDA P0009 CONTIGUOUS 1748 22 1959 1737 210 SRT 0004 VARIABLES 1737 30 0004 1746 211 LDD AQ4 PER CARD 1746 69 1750 1816 212 RAL 8003 1750 65 8003 1749 213 AUP P0009 1749 10 1959 1740 214 ALO 8001 1740 15 8001 1751 215 AUP AQ9B 1751 10 1738 1742 216 ALO AQ10 AQ11 1742 15 1745 1735 217 AQ11 SUP AQ9B 1735 11 1738 1743 218 NZU AQ8 1743 44 1747 1837 219 AUP 8001 1747 10 8001 1736 220 SUP AR7 1736 11 1924 1739 221 SLO 8001 8003 1739 16 8001 8003 222 AQ9B LDD 1952 8002 1738 69 1952 8002 223 AQ10 STD 0000 AQ11 1745 24 0000 1735 224 E00AC STD ACC6 EXPONENTIAL 1705 24 1858 1711 225 NZE AC5 IS ARGUMENT 1711 45 1715 1710 226 SLT 0008 ZERO 1715 35 0008 1683 227 STU ARTHH IF NOT LET 1683 21 1788 1692 228 RSM 8002 N BE MANTSA 1692 68 8002 1701 229 ALO AC3 X BE POWER 1701 15 1704 1709 230 BMI AC4 1S X GRTR 1709 46 1663 1713 231 SLT 0001 THAN TWO 1713 35 0001 1719 232 NZU AC5 OR LESS THAN 1719 44 1710 1724 233 SRT 0005 MINUS EIGHT 1724 30 0005 1687 234 ALO AC6 IF X WITHIN 1687 15 1690 1695 235 STL ARTHD BOUNDS GEN 1695 20 1665 1718 236 RAU ARTHH INT AND 1718 60 1788 1693 237 SRT 0006 ARTHD FRACT PARTS 1693 30 0006 1665 238 AC3 51 0000 0000 OF ARGUMENT 1704 51 0000 0000 239 AC6 SRT 0000 IS ARG NEG 1690 30 0000 1684 240 BMI AC8 IF SO INT IS 1684 46 1689 1702 241 STU ARTHD AC1 INT MINUS 1 1702 21 1665 1685 242 AC8 SUP AJ2 AND FRACT IS 1689 11 1903 1707 243 STU ARTHD FRACT PLUS 1 1707 21 1665 1668 244 RAL 8002 1668 65 8002 1677 245 ALO AC2 AC1 1677 15 1680 1685 246 AC2 99 9999 9999 1680 99 9999 9999 247 AC1 STL ARTHH 1685 20 1788 1694 248 RAU 8002 1694 60 8002 1703 249 MPY AC18 GENERATE 1703 19 1706 1708 250 RAU 8003 1708 60 8003 1716 251 AUP AC17 POLYNOMIAL 1716 10 1720 1686 252 MPY ARTHH 1686 19 1788 1691 253 RAU 8003 APPROXIM 1691 60 8003 1661 254 AUP AC16 ATION 1661 10 1666 1682 255 MPY ARTHH 1682 19 1788 1696 256 RAU 8003 FOR 1696 60 8003 1712 257 AUP AC15 1712 10 1717 1678 258 MPY ARTHH EXPONENTIAL 1678 19 1788 1650 259 RAU 8003 1650 60 8003 1714 260 AUP AC14 1714 10 1667 1679 261 MPY ARTHH 1679 19 1788 1698 262 RAU 8003 1698 60 8003 1655 263 AUP AC13 1655 10 1660 1676 264 MPY ARTHH 1676 19 1788 1652 265 RAU 8003 1652 60 8003 1659 266 AUP AC12 1659 10 1664 1672 267 MPY ARTHH SQUARE 1672 19 1788 1673 268 RAU 8003 RESULT 1673 60 8003 1700 269 AUP AJ4 SCALE AND 1700 10 1853 1671 270 MPY 8003 FLOAT THEN 1671 19 8003 1657 271 SRT 0001 EXIT 1657 30 0001 1688 272 STU ACC2 1688 21 1843 1697 273 RAU AC19 1697 60 1651 1656 274 AUP ARTHD 1656 10 1665 1933 A274 BMI ACC6 1933 46 1858 1669 275 SRT 0002 1669 30 0002 1675 276 NZU AC21 1675 44 1674 1681 277 AUP ACC2 1681 10 1843 1699 278 SRT 0008 ACC6 1699 30 0008 1858 279 AC4 RAL ARTHH 1663 65 1788 1653 280 BMI AC21 1653 46 1625 1674 281 RAL 8003 ACC6 1625 65 8003 1858 282 AC5 RAL AC20 ACC6 ARGMNT ZERO 1710 65 1627 1858 283 AC21 LDD ACC6 3021 ALARM STOP 1674 69 1858 3021 284 1 AC10 00 0000 0001 1903 00 0000 0001 AC10 same as AJ3 285 1 AC11 10 0000 0000 1853 10 0000 0000 286 AC12 11 5129 2776 1664 11 5129 2776 287 AC13 06 6273 0884 1660 06 6273 0884 288 AC14 02 5439 3575 1667 02 5439 3575 289 AC15 00 7295 1737 1717 00 7295 1737 290 AC16 00 1742 1120 1666 00 1742 1120 291 AC17 00 0255 4918 1720 00 0255 4918 292 AC18 00 0093 2643 1706 00 0093 2643 293 AC19 00 0000 0050 1651 00 0000 0050 294 AC20 10 0000 0050 1627 10 0000 0050 295 E00AB NZE AB10 IS ARG ZERO 1638 45 1662 1632 296 STD ARTHD 1662 24 1665 1670 297 BMI AB10 IS ARG NEG 1670 46 1632 1624 298 SLT 0008 1624 35 0008 1643 299 STL ARTHE STORE POWER 1643 20 1902 1658 300 RAU 8003 FORM Z 1658 60 8003 1615 301 AUP AB1 EQUAL ARG 1615 10 1618 1623 302 STU ACC3 MINUS ROOT 1623 21 1881 1635 303 SUP AB2 TEN OVER ARG 1635 11 1723 1728 304 DVR ACC3 PLUS ROOT 1728 64 1881 1731 305 STL ARTHX TEN 1731 20 1786 1639 306 RAU 8002 1639 60 8002 1647 307 MPY 8001 Z SQUARE 1647 19 8001 1721 308 STU ACC3 1721 21 1881 1636 309 RAU 8003 GENERATE 1636 60 8003 1644 310 MPY AB7 1644 19 1648 1654 311 RAU 8003 POLYNOMIAL 1654 60 8003 1614 312 AUP AB6 1614 10 1617 1726 313 MPY ACC3 APPROXIMATN 1726 19 1881 1730 314 RAU 8003 1730 60 8003 1640 315 AUP AB5 1640 10 1649 1727 316 MPY ACC3 1727 19 1881 1613 317 RAU 8003 1613 60 8003 1616 318 AUP AB4 1616 10 1619 1628 319 MPY ACC3 1628 19 1881 1633 320 RAU 8003 1633 60 8003 1641 321 AUP AB3 1641 10 1645 1733 322 MPY ARTHX 1733 19 1786 1722 323 RAL 8003 1722 65 8003 1729 324 ALO AB8 1729 15 1732 1637 325 SRT 0002 1637 30 0002 1646 326 ALO ARTHE ADD POWER 1646 15 1902 1725 327 SLO AB8 1725 16 1732 1642 328 SRD 0002 ROUND 1642 31 0002 1620 329 RAU 8002 1620 60 8002 1734 330 SCT 0000 NORMALIZE 1734 36 0000 1621 331 BOV AB12 1621 47 1631 1626 332 BMI AB13 1626 46 1629 1630 333 SUP AB9 AB11 ADJUST 1629 11 1634 1622 334 AB11 SUP 8002 AB12 POWER 1622 11 8002 1631 335 AB12 RAL 8003 ARTHD 1631 65 8003 1665 336 AB13 AUP AB9 AB11 1630 10 1634 1622 337 AB10 LDD ARTHD 3011 ALARM 1632 69 1665 3011 338 AB1 00 3162 2780 1618 00 3162 2780 339 AB2 00 6324 5560 1723 00 6324 5560 340 AB3 86 8591 7180 1645 86 8591 7180 341 AB4 28 9335 5240 1619 28 9335 5240 342 AB5 17 7522 0710 1649 17 7522 0710 343 AB6 09 4376 4760 1617 09 4376 4760 344 AB7 19 1337 7140 1648 19 1337 7140 345 AB8 50 0000 0000 1732 50 0000 0000 346 AB9 00 0000 0053 1634 00 0000 0053 1 VARS ARTHD 00 0000 0000 1665 00 0000 0000 ARTHX 00 0000 0000 1786 00 0000 0000 ARTHG 00 0000 0000 1794 00 0000 0000 ARTHF 00 0000 0000 1772 00 0000 0000 ARTHE 00 0000 0000 1902 00 0000 0000 ARTHH 00 0000 0000 1788 00 0000 0000 ARTHM 00 0000 0000 1824 00 0000 0000 ARTHY 00 0000 0000 1808 00 0000 0000 ACC 00 0000 0000 0000 00 0000 0000 ACC1 00 0000 0000 1998 00 0000 0000 ACC2 00 0000 0000 1843 00 0000 0000 ACC3 00 0000 0000 1881 00 0000 0000 ACC4 00 0000 0000 1870 00 0000 0000 ACC5 00 0000 0000 1795 00 0000 0000 ACC6 00 0000 0000 1858 00 0000 0000 J0001 00 0000 0000 1977 00 0000 0000 J0002 00 0000 0000 1978 00 0000 0000 J0003 00 0000 0000 1979 00 0000 0000 J0004 00 0000 0000 1980 00 0000 0000 J0005 00 0000 0000 1981 00 0000 0000 J0006 00 0000 0000 1982 00 0000 0000 J0007 00 0000 0000 1983 00 0000 0000 J0008 00 0000 0000 1984 00 0000 0000 P0000 00 0000 0000 1950 00 0000 0000 P0001 00 0000 0000 1951 00 0000 0000 P0002 00 0000 0000 1952 00 0000 0000 P0004 00 0000 0000 1954 00 0000 0000 P0005 00 0000 0000 1955 00 0000 0000 P0007 00 0000 0000 1957 00 0000 0000 P0008 00 0000 0000 1958 00 0000 0000 P0009 00 0000 0000 1959 00 0000 0000 P0010 00 0000 0000 1960 00 0000 0000