       5                        PACKAGE 4   IS                                             
       5                        PACKAGE 2                                                  
       5                            PLUS                                                    
       5                   LOG AND EXPONENTIAL                                             
       5                       SUBROUTINES                                                 
   6        E00AI    STD  ARTHX  AI1     ADD             1833    24  1786  1789        
   7        AI1      STL  ARTHG                          1789    20  1794  1799        
   8                 LDD         ARTHB                   1799    69  1802  1805        
   9                 RAM   8002          STORE ACC       1802    67  8002  1767        
  10                 STL  ARTHF          POWER           1767    20  1772  1894        
  11                 SML  ARTHE                          1894    18  1902  1759        
  12                 SLT   0001                          1759    35  0001  1766        
  13                 NZU  AI12           FIND MAX        1766    44  1773  1771        
  14                 LDD  AI3A                           1771    69  1774  1777        
  15                 SRT   0005          POWER           1777    30  0005  1790        
  16                 SDA  AI3            SET EXPNNTS     1790    22  1793  1796        
  17                 BMI         AI2     AND THEN        1796    46  1899  1754        
  18                 RAM  ARTHE            PERFORM       1899    67  1902  1817        
  19                 STL  ARTHF           ADDITION       1817    20  1772  1776        
  20                 RAL  ARTHH                          1776    65  1788  1943        
  21                 LDD  ARTHM  AI3                     1943    69  1824  1793        
  22        AI3      SRT   0000  AI3B                    1793    30  0000  1811        
  23        AI3A     SRT   0000  AI3B                    1774    30  0000  1811        
  24        AI3B     ALO   8001  AI5                     1811    15  8001  1770        
  25        AI2      RAL  ARTHM                          1754    65  1824  1779        
  26                 LDD  ARTHH  AI3                     1779    69  1788  1793        
  27        AI5      RAU   8002          CLEAR ARTHE     1770    60  8002  1780        
  28                 STL  ARTHE  ARTHS   TO SCALE        1780    20  1902  1762        
  29        AI12     BMI         AI13                    1773    46  1778  1828        
  30                 RAL  ARTHG  AI10                    1778    65  1794  1904        
  31        AI13     RAL  ACC    ARTHX                   1828    65  0000  1786        
  32        ARTHB    STD  ARTHY          BREAK UP EXP    1805    24  1808  1826        
  33                 SLT   0008          AND MANTISSA    1826    35  0008  1996        
  34                 STL  ARTHE          STORE POWER     1996    20  1902  1755        
  35                 RAU   8003          AND MANTISSA    1755    60  8003  1763        
  36                 SLT   0001          OF LOWER        1763    35  0001  1769        
  37                 STU  ARTHM                          1769    21  1824  1997        
  38                 RAU  ACC                            1997    60  0000  1855        
  39                 SRT   0002          STORE POWER     1855    30  0002  1761        
  40                 SLO   8002          AND MANTISSA    1761    16  8002  1819        
  41                 SLT   0001          OF ACC          1819    35  0001  1775        
  42                 ALO   8001                          1775    15  8001  1783        
  43                 STU  ARTHH  ARTHY                   1783    21  1788  1808        
  44        ARTHS    SCT   0000          NORMALIZE       1762    36  0000  1782        
  45                 BOV  AI6            BRNCH IF ZRO    1782    47  1942  1787        
  46                 STL  ARTHG          SHIFT COUNT     1787    20  1794  1797        
  47                 RAL   8003          ROUND ON        1797    65  8003  1905        
  48                 SRD   0002          NINTH DIGIT     1905    31  0002  1813        
  49                 SLT   0002          CHECK FOR       1813    35  0002  1869        
  50                 STL  ARTHM          ROUNDOFF        1869    20  1824  1877        
  51                 NZU  AI7    AI8     OVERFLOW        1877    44  1831  1834        
  52        AI8      RAM   8003             AND          1834    67  8003  1841        
  53                 SML  ARTHG          CORRECT IF      1841    18  1794  1800        
  54                 ALO  AJ2            NECESSARY       1800    15  1903  1822          
  55                 SLT   0008                          1822    35  0008  1791          
  56                 RAL   8002                          1791    65  8002  1849          
  57                 AML  ARTHE                          1849    17  1902  1757          
  58                 ALO  ARTHF                          1757    15  1772  1827          
  59                 BMI  AI11A          PWR TOO SMAL    1827    46  1752  1781          
  60                 NZU  AI11           PWR TOO LRGE    1781    44  1785  1836          
  61                 SLT   0002                          1836    35  0002  1893          
  62                 STU  ACC1                           1893    21  1998  1901          
  63                 RAL  ARTHM                          1901    65  1824  1829          
  64                 BMI         AI9     COMBINE         1829    46  1944  1995          
  65                 SLO  ACC1   AI10                    1944    16  1998  1904          
  66        AI10     STL  ACC    ARTHX   AND             1904    20  0000  1786          
  67        AI9      ALO  ACC1   AI10                    1995    15  1998  1904          
  68        AI7      SRT   0001          ADJUST          1831    30  0001  1792          
  69                 STL  ARTHM                          1792    20  1824  1927          
  70                 SLT   0001  AI8                     1927    35  0001  1834          
  71        AI6      RAL   8003  AI10                    1942    65  8003  1904          
  72        E00AJ    STD  ARTHX          MULTIPLY        1832    24  1786  1839          
  73                 LDD         ARTHB                   1839    69  1852  1805          
  74                 RAM   8002          ACC POWER       1852    67  8002  1867          
  75                 SLO  AJ1            MINUS 48        1867    16  1820  1825          
  76                 STL  ARTHF                          1825    20  1772  1875          
  77                 RAU  ARTHH                          1875    60  1788  1756          
  78                 MPY  ARTHM  ARTHS                   1756    19  1824  1762          
  79        E00AG    STD  ARTHX  AG1     DIVIDE          1830    24  1786  1889          
  80        AG1      LDD         ARTHB   IS DIVISOR      1889    69  1842  1805          
  81                 NZU         AG3       ZER0          1842    44  1812  1846          
  82                 RSM   8002          DIVISOR         1812    68  8002  1821          
  83                 ALO  AG2            POWER MINUS     1821    15  1876  1895          
  84                 STL  ARTHF            49            1895    20  1772  1768          
  85                 RAU  ARTHM          SH1FT           1768    60  1824  1879          
  86                 SRT   0001          DIVIDEND        1879    30  0001  1885          
  87                 DVR  ARTHH          DO DIVIDE       1885    64  1788  1803          
  88                 RAU   8002  ARTHS                   1803    60  8002  1762          
  89        E00AO    STD  ARTHX          DIV REVERSE     1882    24  1786  1989          
  90                 STL  ACC2                           1989    20  1843  1896          
  91                 RAL  ACC                            1896    65  0000  1810          
  92                 LDD  ACC2                           1810    69  1843  1897          
  93                 STD  ACC    AG1                     1897    24  0000  1889          
  94        E00AF    STD  ACC6           FL0AT TO LWR    1947    24  1858  1911          
  95                 LDD  AE4    E00AE    AND ACC        1911    69  1925  1928          
  96        AE4      STL  ACC    ACC6                    1925    20  0000  1858          
  97        E00AE    STD  ARTHX          FLOAT TO LWR    1928    24  1786  1840          
  98                 RAU   8002           ONLY           1840    60  8002  1753          
  99                 SCT   0000          NORMALIZE       1753    36  0000  1975          
 100                 STL  ACC3                           1975    20  1881  1784          
 101                 BOV  AD1            ZER0 CHECK      1784    47  1851  1890          
 102                 RAL   8003                          1890    65  8003  1798          
 103                 SRD   0002          ROUND FOR       1798    31  0002  1807          
 104                 SLT   0002          PLACING EXP     1807    35  0002  1764          
 105                 NZU         AE6     CHECK ROUND     1764    44  1818  1891          
 106                 LDD   8003           OVERFLOW       1818    69  8003  1874          
 107                 SRT   0001                          1874    30  0001  1884          
 108                 ALO   8001  AE6                     1884    15  8001  1891          
 109        AE6      BMI  AE2            INSERT          1891    46  1844  1845          
 110                 ALO  AJ3    AE5      EXP0NENT       1845    15  1848  1804          
 111        AE2      SLO  AJ3    AE5                     1844    16  1848  1804          
 112        AE5      SLO  ACC3   ARTHX                   1804    16  1881  1786          
 113        E00TH    STD  ARTHX          FIX L0WER       1932    24  1786  1990          
 114                 SLT   0008          TO LOWER        1990    35  0008  1859        
 115                 STU  ARTHM                          1859    21  1824  1878        
 116                 RAM   8002          TEST EXP        1878    67  8002  1887        
 117                 SLO  AJ5            STORE ZER0      1887    16  1940  1945        
 118                 BMI  AD1            IF LESS THAN    1945    46  1851  1850        
 119                 SLO  AJ4            50     ALARM    1850    16  1853  1758        
 120                 BMI         AD3     1F GRTR THAN    1758    46  1861  1862        
 121                 SRT   0004           59             1861    30  0004  1921        
 122                 ALO  AR7                            1921    15  1924  1929        
 123                 LDD  AD2A           MODIFY          1929    69  1835  1838        
 124                 SDA  AD2             SHIFT          1838    22  1991  1971        
 125                 RAL  ARTHM                          1971    65  1824  1930        
 126                 SLT   0002  AD2                     1930    35  0002  1991        
 127        AD1      RAL   8003  ARTHX   STORE ZERO      1851    65  8003  1786        
 128        AD2      SRT   0000  ARTHX   SHIFT C0NST     1991    30  0000  1786        
 129        AD2A     SRT   0000  ARTHX                   1835    30  0000  1786        
 130        AD3      LDD  ARTHX   3031   FIX ALARM       1862    69  1786  3031        
 131        AG3      LDD  ARTHX   3061   DIVIDE ALARM    1846    69  1786  3061        
 132        AI11     LDD  ARTHX   3081   SCALE ALARM     1785    69  1786  3081        
 133        AI11A    HLT   1081  AI6                     1752    01  1081  1942        
 134        AG2       49   0000   0000                   1876    49  0000  0000        
 135        AJ1       48   0000   0000                   1820    48  0000  0000        
 136        AJ2       00   0000   0001                   1903    00  0000  0001        
 137        AJ3       00   0000   0059                   1848    00  0000  0059        
 138        AJ4       10   0000   0000                   1853    10  0000  0000        
 139        AJ5       50   0000   0000                   1940    50  0000  0000        
 140        E00AQ    STD  J0001  AQ1     READ            1974    24  1977  1880        
 141        AQ1      RD1   1976  AQ3                     1880    70  1976  1898        
 142        AQ3      RAM  P0001  AQ3A                    1898    67  1951  1806        
 143        AQ3B     RAM  P0001  AQ3A    CHECK FOR       1892    67  1951  1806        
 144        AQ3A     NZE         AQ8     LAST WORD       1806    45  1860  1837        
 145                 LDD  AQ5    AQ4     ON CARD         1860    69  1863  1816        
 146        AQ4      STD  ACC4                           1816    24  1870  1873        
 147                 AUP   8003          READ IN         1873    10  8003  1931        
 148                 SRT   0004          LABEL FOR       1931    30  0004  1941        
 149                 SIA  ACC5            PRESENT        1941    23  1795  1948        
 150                 SLO   8001           VARIABLE       1948    16  8001  1856        
 151                 ALO          8002   GET I Y 0R C    1856    15  1809  8002        
 152                 RAU   0000          ADDRESS FROM    1809    60  0000  1987   was RAU A000 - 00 0000 0000
 153                 AUP  ACC5           ABCON DICT      1987    10  1795  1949        
 154                 SLT   0004  ACC4      GENERATE      1949    35  0004  1870        
 155        AQ5      AUP  AQ7            1NSTRUCTION     1863    10  1866  1857        
 156                 ALO  P0010                          1857    15  1960  1965        
 157                 ALO          8002   GET AND         1965    15  1968  8002        
 158                 LDD  P0002   8003   STORE WORD      1968    69  1952  8003        
 159        AQ7      STD   0000                          1866    24  0000  1907        
 160                 RAL  P0010          INCREMENT       1907    65  1960  1915        
 161                 ALO  AQ9            WORD COUNT      1915    15  1918  1854        
 162                 STL  P0010                          1854    20  1960  1963        
 163                 ALO  AQ3B    8002                   1963    15  1892  8002        
 164        AQ8      RAL  P0001          CHECK FOR       1837    65  1951  1765        
 165                 BMI  J0001  AQ1     LAST CARD       1765    46  1977  1880        
 166        E00AR    STD  P0005          PUNCH 0UT       1801    24  1955  1908        
 167                 STU  J0003                          1908    21  1979  1935        
 168                 SIA  P0008          STORE STMNT     1935    23  1958  1912        
 169                 STU  J0004          NUMBER          1912    21  1980  1886        
 170                 SDA  P0004          STORE WORD      1886    22  1954  1909        
 171                 SLO   8001          COUNT           1909    16  8001  1917        
 172                 NZE  AR10   AR9     TEST ZERO       1917    45  1920  1872        
 173        AR10     STU  J0005          STMT NUMBER     1920    21  1981  1814        
 174                 STD  J0006          SET PUNCH       1814    24  1982  1972       
 175                 STD  J0007          BAND TO         1972    24  1983  1864       
 176                 STD  J0008          ZEROES          1864    24  1984  1888       
 177                 STD  P0010  AR3     SET COUNTER     1888    24  1960  1913       
 178        AR3      RAL  P0004                          1913    65  1954  1910       
 179                 SLO  AR7                            1910    16  1924  1936       
 180                 BMI  AR8            TEST WORD       1936    46  1994  1992       
 181                 STL  P0004  AR4     COUNT           1992    20  1954  1865       
 182        AR4      ALO          8002   GET WORD        1865    15  1868  8002       
 183                 RAL  P0000          LABEL FROM      1868    65  1950  1914       
 184                 AUP   8003          PUNCH CONSTS    1914    10  8003  1922       
 185                 SLT   0001                          1922    35  0001  1938       
 186                 SDA  P0007          MODIFY LABEL    1938    22  1957  1961       
 187                 SLO   8001                          1961    16  8001  1919       
 188                 SRT   0001                          1919    30  0001  1926       
 189                 ALO  P0007                          1926    15  1957  1962       
 190                 SLT   0004          INSERT STMNT    1962    35  0004  1923       
 191                 ALO  P0008          NUMBER          1923    15  1958  1964       
 192                 AUP  P0010                          1964    10  1960  1916       
 193                 AUP          8003                   1916    10  1969  8003       
 194                 STL  J0001          STORE LABEL     1969    20  1977  1988       
 195                 RAL   8002          FOR PUNCHING    1988    65  8002  1900       
 196                 LDD         AQ4     MODIFY LABEL    1900    69  1906  1816       
 197                 AUP  AR6            INTO DRUM       1906    10  1966  1934       
 198                 ALO  P0010          LOC IN READ     1934    15  1960  1967       
 199                 ALO          8003   GET WORD        1967    15  1970  8003       
 200                 STD  J0002          STORE IN        1970    24  1978  1993       
 201                 RAL  P0010          PUNCH BAND      1993    65  1960  1815       
 202                 ALO  AQ9                            1815    15  1918  1973       
 203                 STL  P0010  AR3                     1973    20  1960  1913       
 204        AR6      LDD   0000   8002                   1966    69  0000  8002       
 205        AR7       00   0001   0000                   1924    00  0001  0000       
 206        AR8      PCH  J0001  P0005   PUNCH           1994    71  1977  1955       
 207        AR9      RAL   8000          IF STMT NMBR    1872    65  8000  1937       
 208                 BMI  AR10   P0005   ZRO PCH ONLY    1937    46  1920  1955       
 209        AQ9       00   0002   0000   IF 8000 NEG     1918    00  0002  0000       
 210        J0010     80   0000   8800   CONTROL CNST    1986    80  0000  8800       
 211        E00AL    STD  ARTHY                          1654    24  1808  1732      
 212                 STL  ARTHH                          1732    20  1788  1694      
 213                 RAL  ACC    AL17A   IS POWER        1694    65  0000  1709      
 214        AL17A    STD  ACC4              TWO          1709    24  1870  1723      
 215                 STD  ARTHX           IF SO          1723    24  1786  1739      
 216                 SLO  AL16            MULTIPLY       1739    16  1686  1692      
 217                 NZE  AL18                           1692    45  1731  1751      
 218                 RAL  ARTHH                          1751    65  1788  1645      
 219                 STD  ACC                            1645    24  0000  1655      
 220                 LDD  ARTHY  E00AJ                   1655    69  1808  1832      
 221        AL18     RAL  ARTHH  AL17                    1731    65  1788  1693      
 222        AL17     SLT   0008                          1693    35  0008  1661      
 223                 SLO   8002                          1661    16  8002  1720      
 224                 SLT   0002          Q EQUALS        1720    35  0002  1677      
 225                 ALO   8001           MANTISSA       1677    15  8001  1690      
 226                 STU  ARTHF           OF ARGUMENT    1690    21  1772  1675      
 227                 RAM   8002                          1675    67  8002  1683      
 228                 SLO  AL1            STORE EXPNNT    1683    16  1736  1691      
 229                 SLT   0002           OF ARGMNT      1691    35  0002  1698      
 230                 STU  ARTHE                          1698    21  1902  1706      
 231                 RAL  AL2            MANTISSA OF     1706    65  1660  1666      
 232                 STL  ARTHM           Z IS ONE       1666    20  1824  1678      
 233                 RAL  AL1                            1678    65  1736  1695      
 234                 SLT   0002          EXP OF Z IS     1695    35  0002  1702      
 235                 STU  ARTHG  AL3        50           1702    21  1794  1747      
 236        AL3      RAU  ACC            K IS GRTST      1747    60  0000  1708      
 237                 MPY  AL1             INTEGER IN     1708    19  1736  1738      
 238                 STU  ACC            K OVER TWO      1738    21  0000  1658         
 239                 RAL   8002          IS REMAINDER    1658    65  8002  1667         
 240                 NZE         AL4       ZER0          1667    45  1670  1646         
 241                 RAU  ARTHM          IF NOT SET Z    1670    60  1824  1729         
 242                 LDD         AL5     EQUALS TO       1729    69  1682  1737         
 243                 ALO  ARTHG           Z TIMES Q      1682    15  1794  1715         
 244                 STL  ARTHG            VIA           1715    20  1794  1699         
 245                 RAL  ARTHD          SUBROUTINE      1699    65  1665  1669         
 246                 STL  ARTHM                          1669    20  1824  1638         
 247                 NZE  AL4    AL20                    1638    45  1646  1741         
 248        AL4      RAU  ACC            IF K NONZERO    1646    60  0000  1712         
 249                 NZU         AL7      Q EQUALS       1712    44  1668  1721         
 250                 RAU  ARTHF                          1668    60  1772  1679         
 251                 LDD         AL5      VIA SUBRTNE    1679    69  1684  1737         
 252                 ALO  ARTHE                          1684    15  1902  1714         
 253                 STL  ARTHE                          1714    20  1902  1662         
 254                 RAL  ARTHD                          1662    65  1665  1719         
 255                 STL  ARTHF  AL3                     1719    20  1772  1747         
 256        AL7      RAU  ARTHG          SET EXPONNTS    1721    60  1794  1700         
 257                 SRT   0002             ARTHS        1700    30  0002  1663         
 258                 NZU  AI11           EXP OVERSCAL    1663    44  1785  1722         
 259                 STL  ARTHE                          1722    20  1902  1664         
 260                 STU  ARTHF                          1664    21  1772  1671         
 261                 RAU  ARTHM                          1671    60  1824  1680         
 262                 SRT   0001  AL20                    1680    30  0001  1741         
 263        AL20     LDD  AL8                            1741    69  1716  1724         
 264                 STD  ARTHX  ARTHS                   1724    24  1786  1762         
 265        AL8      RAL  ACC4                           1716    65  1870  1648         
 266                 BMI  AL10                           1648    46  1701  1743         
 267                 RAL  ACC    ARTHY                   1743    65  0000  1808         
 268        AL10     RAL  ACC            Z EQUALS ONE    1701    65  0000  1672         
 269                 NZE         AL12     OVER Z IF      1672    45  1676  1681         
 270                 RAL  AL11           K NEG AND Z     1676    65  1685  1649         
 271                 LDD  ARTHY  E00AG    NON ZERO       1649    69  1808  1830         
 272        AL12     LDD  ARTHY   3111   ALARM IF ZRO    1681    69  1808  3111         
 273        AL5      STD  ARTHX                          1737    24  1786  1652         
 274                 MPY  ARTHF                          1652    19  1772  1673         
 275                 SRT   0009                          1673    30  0009  1644         
 276                 NZU  AL14                           1644    44  1650  1639         
 277                 STL  ARTHD                          1639    20  1665  1640         
 278                 RAL   8003  AL15                    1640    65  8003  1641         
 279        AL15     ALO  ARTHE  ARTHX                   1641    15  1902  1786         
 280        AL14     SRT   0001                          1650    30  0001  1643         
 281                 STL  ARTHD                          1643    20  1665  1642         
 282                 RAL  AJ2    AL15                    1642    65  1903  1641         
 283        AL1       50   0000   0000                   1736    50  0000  0000         
 284        AL2       10   0000   0000                   1660    10  0000  0000         
 285        AL11      10   0000   0050                   1685    10  0000  0050         
 286        AL16      00   0000   0002                   1686    00  0000  0002         
 287        AJ2       00   0000   0001                   1903    00  0000  0001         
 288        E00AN    STD  ARTHY            POWER         1651    24  1808  1687         
 289                 LDD  ACC            FLOAT FIX       1687    69  0000  1674         
 290                 STD  ARTHH          REVERSE         1674    24  1788  1745         
 291                 STL  ACC    AL17A                   1745    20  0000  1709         
 292        E00AK    STD  ARTHY          POWER FIXFIX    1704    24  1808  1711         
 293                 STL  ARTHG  AK1     Q IS ARGMNT     1711    20  1794  1647         
 294        AK1      RAM  ACC            K EQUALS        1647    67  0000  1705         
 295                 STL  ARTHF           ABVAL POWER    1705    20  1772  1725         
 296                 RAL  AJ2             Z EQUALS       1725    65  1903  1707         
 297                 STL  ARTHH  AK3        ONE          1707    20  1788  1718         
 298        AK3      RAU  ARTHF          K IS GTST       1718    60  1772  1727        
 299                 MPY  AK4             INTGR IN       1727    19  1730  1717        
 300                 STU  ARTHF           K OVER TWO     1717    21  1772  1726        
 301                 RAL   8002          IS REMAINDER    1726    65  8002  1735        
 302                 NZE         AK5       ZERO          1735    45  1734  1742        
 303                 RAU  ARTHH          IF NOT Z IS     1734    60  1788  1688        
 304                 MPY  ARTHG           Z TIMES Q      1688    19  1794  1733        
 305                 STL  ARTHH  AK5                     1733    20  1788  1742        
 306        AK5      RAU  ARTHF                          1742    60  1772  1728        
 307                 NZU         AK6     1S K ZERO       1728    44  1740  1746        
 308                 RAU  ARTHG          IF NOT          1740    60  1794  1749        
 309                 MPY   8001           Q EQUALS       1749    19  8001  1689        
 310                 STL  ARTHG  AK3      Q SQUARED      1689    20  1794  1718        
 311        AK6      RAU  ACC            IS POWER NEG    1746    60  0000  1656        
 312                 BMI         AK7     IF SO IS Z      1656    46  1659  1713        
 313                 RAM  ARTHH             ZERO         1659    67  1788  1744        
 314                 NZE         AK8     IF NOT IS Z     1744    45  1748  1750        
 315                 SLO  AJ2                 ONE        1748    16  1903  1657        
 316                 NZE  AK10   AK7                     1657    45  1710  1713        
 317        AK7      RAL  ARTHH  ARTHY   EXHIBIT Z       1713    65  1788  1808        
 318        AK10     RAL   8003  ARTHY                   1710    65  8003  1808        
 319        AK8      LDD  ARTHY   3101   ALARM           1750    69  1808  3101        
 320        AK4       50   0000   0000                   1730    50  0000  0000        
 321        AJ2       00   0000   0001                   1903    00  0000  0001        
 322        E00AM    STD  ARTHY          INTERCHGE       1653    24  1808  1696        
 323                 LDD  ACC             ACC AND        1696    69  0000  1703        
 324                 STD  ARTHG            LOWER         1703    24  1794  1697        
 325                 STL  ACC    AK1     THEN E00AK      1697    20  0000  1647        
 326         1976    RAM   1951                          1976    67  1951  1623        
 327                 AUP   8003                          1623    10  8003  1632        
 328                 SLT   0004                          1632    35  0004  1624        
 329                 SDA  P0009                          1624    22  1959  1626        
 330                 SRT   0004                          1626    30  0004  1637        
 331                 LDD         AQ4                     1637    69  1627  1816        
 332                 RAL   8003                          1627    65  8003  1636        
 333                 AUP  P0009                          1636    10  1959  1633        
 334                 ALO   8001                          1633    15  8001  1631        
 335                 AUP  AQ9B                           1631    10  1625  1628        
 336                 ALO  AQ10   AQ11                    1628    15  1634  1622        
 337        AQ11     SUP  AQ9B                           1622    11  1625  1630        
 338                 NZU         AQ8                     1630    44  1635  1837        
 339                 AUP   8001                          1635    10  8001  1621        
 340                 SUP  AR7                            1621    11  1924  1629        
 341                 SLO   8001   8003                   1629    16  8001  8003        
 342        AQ9B     LDD   1952   8002                   1625    69  1952  8002        
 343        AQ10     STD   0000  AQ11                    1634    24  0000  1622        
 344        E00AC    STD  ACC6            EXPONENTIAL    1605    24  1858  1611   
 345                 NZE         AC5      IS ARGUMENT    1611    45  1615  1504   
 346                 SLT   0008             ZERO         1615    35  0008  1583   
 347                 STU  ARTHH           IF NOT LET     1583    21  1788  1592   
 348                 RSM   8002            N BE MANTSA   1592    68  8002  1601   
 349                 ALO  AC3              X BE POWER    1601    15  1604  1609   
 350                 BMI  AC4             IS X GRTR      1609    46  1513  1613   
 351                 SLT   0001            THAN TWO      1613    35  0001  1619   
 352                 NZU  AC5             OR LESS THAN   1619    44  1504  1574   
 353                 SRT   0005            MINUS EIGHT   1574    30  0005  1587   
 354                 ALO  AC6             IF X WITHIN    1587    15  1590  1595   
 355                 STL  ARTHD            BOUNDS GEN    1595    20  1665  1618   
 356                 RAU  ARTHH            INT AND       1618    60  1788  1593   
 357                 SRT   0006  ARTHD    FRACT PARTS    1593    30  0006  1665   
 358        AC3       51   0000   0000     OF ARGUMENT   1604    51  0000  0000   
 359        AC6      SRT   0000           IS ARG NEG     1590    30  0000  1584   
 360                 BMI  AC8             1F SO INT IS   1584    46  1589  1602   
 361                 STU  ARTHD  AC1     INT MINUS 1     1602    21  1665  1585 
 362        AC8      SUP  AJ2            AND FRACT IS    1589    11  1903  1607 
 363                 STU  ARTHD          FRACT PLUS 1    1607    21  1665  1568 
 364                 RAL   8002                          1568    65  8002  1577 
 365                 ALO  AC2    AC1                     1577    15  1580  1585 
 366        AC2       99   9999   9999                   1580    99  9999  9999 
 367        AC1      STL  ARTHH                          1585    20  1788  1594 
 368                 RAU   8002                          1594    60  8002  1603 
 369                 MPY  AC18           GENERATE        1603    19  1606  1608 
 370                 RAU   8003                          1608    60  8003  1616 
 371                 AUP  AC17            POLYNOMIAL     1616    10  1620  1586 
 372                 MPY  ARTHH                          1586    19  1788  1591 
 373                 RAU   8003           APPROXIM       1591    60  8003  1561 
 374                 AUP  AC16                ATION      1561    10  1566  1582 
 375                 MPY  ARTHH                          1582    19  1788  1596 
 376                 RAU   8003             FOR          1596    60  8003  1612 
 377                 AUP  AC15                           1612    10  1617  1578 
 378                 MPY  ARTHH          EXPONENTIAL     1578    19  1788  1550 
 379                 RAU   8003                          1550    60  8003  1614 
 380                 AUP  AC14                           1614    10  1567  1579 
 381                 MPY  ARTHH                          1579    19  1788  1598 
 382                 RAU   8003                          1598    60  8003  1555 
 383                 AUP  AC13                           1555    10  1560  1576 
 384                 MPY  ARTHH                          1576    19  1788  1552 
 385                 RAU   8003                          1552    60  8003  1559 
 386                 AUP  AC12                           1559    10  1564  1572 
 387                 MPY  ARTHH            SQUARE        1572    19  1788  1573 
 388                 RAU   8003              RESULT      1573    60  8003  1600 
 389                 AUP  AJ4             SCALE AND      1600    10  1853  1571 
 390                 MPY   8003            FLOAT THEN    1571    19  8003  1557 
 391                 SRT   0001              EXIT        1557    30  0001  1588 
 392                 STU  ACC2                           1588    21  1843  1597 
 393                 RAU  AC19                           1597    60  1551  1556 
 394                 AUP  ARTHD                          1556    10  1665  1933 
A394                 BMI  ACC6                           1933    46  1858  1569 
 395                 SRT   0002                          1569    30  0002  1575 
 396                 NZU  AC21                           1575    44  1514  1581 
 397                 AUP  ACC2                           1581    10  1843  1599 
 398                 SRT   0008  ACC6                    1599    30  0008  1858 
 399        AC4      RAL  ARTHH                          1513    65  1788  1503 
 400                 BMI         AC21                    1503    46  1510  1514 
 401                 RAL   8003  ACC6                    1510    65  8003  1858 
 402        AC5      RAL  AC20   ACC6     ARGMNT ZERO    1504    65  1565  1858 
 403        AC21     LDD  ACC6    3021    ALARM STOP     1514    69  1858  3021 
 404        AJ2       00   0000   0001                   1903    00  0000  0001 
 405        AJ4       10   0000   0000                   1853    10  0000  0000 
 406        AC12      11   5129   2776                   1564    11  5129  2776 
 407        AC13      06   6273   0884                   1560    06  6273  0884 
 408        AC14      02   5439   3575                   1567    02  5439  3575 
 409        AC15      00   7295   1737                   1617    00  7295  1737 
 410        AC16      00   1742   1120                   1566    00  1742  1120 
 411        AC17      00   0255   4918                   1620    00  0255  4918 
 412        AC18      00   0093   2643                   1606    00  0093  2643 
 413        AC19      00   0000   0050                   1551    00  0000  0050 
 414        AC20      10   0000   0050                   1565    10  0000  0050 
 415        E00A8    NZE         AB10      IS ARG ZERO   1507    45  1562  1505 
 416                 STD  ARTHD                          1562    24  1665  1570 
 417                 BMI  AB10             IS ARG NEG    1570    46  1505  1524 
 418                 SLT   0008                          1524    35  0008  1543 
 419                 STL  ARTHE            STORE POWER   1543    20  1902  1558 
 420                 RAU   8003           FORM  Z        1558    60  8003  1515  
 421                 AUP  AB1             EQUAL ARG      1515    10  1518  1523  
 422                 STU  ACC3            MINUS ROOT     1523    21  1881  1535  
 423                 SUP  AB2             TEN OVER ARG   1535    11  1553  1563  
 424                 DVR  ACC3            PLUS ROOT      1563    64  1881  1500  
 425                 STL  ARTHY               TEN        1500    20  1808  1511  
 426                 RAU   8002                          1511    60  8002  1519  
 427                 MPY   8001             Z SQUARE     1519    19  8001  1521  
 428                 STU  ACC3                           1521    21  1881  1536  
 429                 RAU   8003             GENERATE     1536    60  8003  1544  
 430                 MPY  AB7                            1544    19  1548  1554  
 431                 RAU   8003           POLYNOMIAL     1554    60  8003  1512  
 432                 AUP  AB6                            1512    10  1516  1526  
 433                 MPY  ACC3            APPROXIMATN    1526    19  1881  1531  
 434                 RAU   8003                          1531    60  8003  1540  
 435                 AUP  AB5                            1540    10  1549  1527  
 436                 MPY  ACC3                           1527    19  1881  1538  
 437                 RAU   8003                          1538    60  8003  1502  
 438                 AUP  AB4                            1502    10  1610  1528  
 439                 MPY  ACC3                           1528    19  1881  1533  
 440                 RAU   8003                          1533    60  8003  1541  
 441                 AUP  AB3                            1541    10  1545  1501  
 442                 MPY  ARTHY                          1501    19  1808  1508  
 443                 RAL   8003                          1508    65  8003  1517  
 444                 ALO  AB8                            1517    15  1520  1525  
 445                 SRT   0002                          1525    30  0002  1532  
 446                 ALO  ARTHE           ADD POWER      1532    15  1902  1509  
 447                 SLO  AB8                            1509    16  1520  1529  
 448                 SRD   0002             ROUND        1529    31  0002  1537  
 449                 RAU   8002                          1537    60  8002  1546  
 450                 SCT   0000           NORMALIZE      1546    36  0000  1522  
 451                 BOV  AB12                           1522    47  1506  1530  
 452                 BMI         AB13                    1530    46  1534  1539  
 453                 SUP  AB9    AB11      ADJUST        1534    11  1542  1547  
 454        AB11     SUP   8002  AB12       POWER        1547    11  8002  1506  
 455        AB12     RAL   8003  ARTHD                   1506    65  8003  1665  
 456        AB13     AUP  AB9    AB11                    1539    10  1542  1547  
 457        AB10     LDD  ARTHD   3011      ALARM        1505    69  1665  3011  
 458        AB1       00   3162   2780                   1518    00  3162  2780  
 459        AB2       00   6324   5560                   1553    00  6324  5560  
 460        AB3       86   8591   7180                   1545    86  8591  7180  
 461        AB4       28   9335   5240                   1610    28  9335  5240  
 462        AB5       17   7522   0710                   1549    17  7522  0710  
 463        AB6       09   4376   4760                   1516    09  4376  4760  
 464        AB7       19   1337   7140                   1548    19  1337  7140  
 465        AB8       50   0000   0000                   1520    50  0000  0000  
 466        AB9       00   0000   0053                   1542    00  0000  0053  
       1                                  VARS
            ARTHX     00   0000   0000                   1786    00  0000  0000
            ARTHD     00   0000   0000                   1665    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
