                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 050/050 ------           
       02235  2 00000 2 02237 COMPR  TIX COMPR+2,2,**              (K*L)                              4F10802     
       02236 -0 63400 2 02362        SXD FDA,2                     K*L = (N*L)MOD K*L IF N*L IS       4F10803     
       02237 -0 63400 2 02241        SXD NTL,2                     LESS THAN K*L, OTHERWISE K*L = K*L,4F10804     
       02240  0 07400 4 02520        TSX RDRX,4                  * GO READ NEXT BLOCK INTO BUFFER.    4F10805     
       02241  1 00000 0 02216 NTL    TXI NXBLK,0,**                (N*L,N*L-K*L,N*L-2*K*L,...(N*L)MOD 4F10806     
       02242  2 00001 1 02221 YEA    TIX TRY,1,1                   K*L). TEST NEXT WORD OF ARG. L=L-1.4F10807     
       02243 -0 53400 2 02361        LXD TDA,2                     (N)                                4F10808     
       02244 -0 63400 4 02245        SXD YEA+3,4                                                      4F10809     
       02245  2 00000 2 02247        TIX OUT,2,**                  COMPUTE TAG.                       4F10810     
       02246  0 53400 2 01406        LXA L(0),2                                                       4F10811     
       02247 -0 75400 2 00000 OUT    PXD ,2                        EXIT WITH TAG IN THE AC.           4F10812     
       02250  0 77100 0 00022        ARS 18                        (TAG = NUMBER OF ENTRIES           4F10813     
       02251 -0 53400 2 02173        LXD XR2,2                     WHICH PRECEED THE ENTRY            4F10814     
       02252 -0 53400 4 02215        LXD XR4,4                     WHICH EQUALS THE ARGUMENT.         4F10815     
       02253 -0 53400 1 02535        LXD XR1,1                     RESTORE THE C(XR1,XR2,XR4),        4F10816     
       02254  0 56000 0 02357        LDQ MQ                        RESTORE THE C(MQR), AND            4F10817     
       02255  0 02000 4 00001        TRA 1,4                     * RETURN TO MAIN ROUTINE.            4F10818     
       02256 -0 53400 4 02215 WHICH  LXD XR4,4                     GET ALPHA BAR, AND                 4F10819     
       02257  0 50000 4 00000        CLA 0,4                       AND PICK UP ALPHA (TSX ...NIX,4).  4F10820     
       02260 -0 32000 0 01452        ANA MASK2                     BLANK ALL BUT ...NIX.              4F10821     
       02261  0 40200 0 02274        SUB CONX                      (...NIX) - (ADDR OF FIXCNIX-5).    4F10822     
       02262  0 53400 4 01417        LXA L(9),4                    SET XR4 FOR 9 TABLES.              4F10823     
       02263  0 40200 0 01413 COMPUT SUB L(5)                      COMPUTE WHICH                      4F10824     
       02264  0 10000 0 02267        TZE WHICHX                    TABLE OVERFLOWED.                  4F10825     
       02265  2 00001 4 02263        TIX COMPUT,4,1                IF TABLE IS NOT FOUND.             4F10826     
       02266  0 07400 4 03400        TSX DIAG,4                  * GOT TO DIAGNOSTIC.                 4F10827     
       02267 -0 75400 4 00000 WHICHX PXD ,4                        OTHERWISE,                         4F10828     
       02270  0 76000 0 00006        COM                           CONVERT 2S COMPLEMENT              4F10829     
       02271  0 40000 0 01454        ADD 2E18                      OF NUMBER,                         4F10830     
       02272 -0 73400 4 00000        PDX ,4                        PLACE IN XR4, AND                  4F10831     
 D     02273  1 00000 0 03400        TXI DIAG,0                  * GO TO DIAGNOSTIC.                  4F10832     
                                                                                                      4F10833     
       02274  0 00000 0 00412 CONX   PZE FXCNIX-5                  CONSTANT USED BY DRTABS.           4F10834     
                        02357 BUFR   BES 50                        DRUM TABLE BUFFER.                 4F10835     
                        02357 MQ     BSS 1                         WORKING STORAGE USED BY DRTABS.    4F10836     
                        02360 NAR    BSS 1                         WORKING STORAGE USED BY DRTABS.    4F10837     
                        02361 TDA    BSS 1                         WORKING STORAGE USED BY DRTABS.    4F10838     
                        02362 FDA    BSS 1                         WORKING STORAGE USED BY DRTABS.    4F10839     
                        02363 DBL    BSS 1                         WORKING STORAGE USED BY DRTABS.    4F10840     
                        02364 DI     BSS 1                         WORKING STORAGE USED BY DRTABS.    4F10841     
                        02365 TEMP   BSS 0                         INDEXING ADDRES FOR ABOVE -DRTABS. 4F10842     
                        02365 DUMP   BSS 1                         WORKING STORAGE USED BY DRTABS.    4F10843     
                                         END OF PROGRAM DRTABS.                                       4F10844     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10845     
                                                                                                      4F10846     
                                         GETIFN,4/ CALLERS=C0100,C0200,C1000,C1100,C1600,C3200.       4F10847     
                                         GETIFN PLACES THE INTERNAL FORMULA NUMBER IN AC AND IN 1C.   4F10848     
       02366 -0 53400 1 00030 GETIFN LXD EIFNO,1                   PLACE THE INTERNAL FORMULA         4F10849     
       02367 -0 75400 1 00000        PXD ,1                        NUMBER IN XR1, IN THE DECREMENT    4F10850     
       02370  0 60100 0 01105        STO 1C                        OF THE AC, AND IN 1C. THEN         4F10851     
       02371  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F10852     
                                          END OF PROGRAM GETIFN.                                      4F10853     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10854     
                                                                                                      4F10855     
