                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 088/088 ------           
       05306  0 07400 4 03400 ICC    TSX DIAG,4                * ( (ILLEGAL IN CONTROL FOR LIST DO).  4F12813     
 D     05307  1 00000 0 05322        TXI SPC,0                 * ,                                    4F12814     
 D     05310  1 00000 0 05320        TXI SPCX,0                * )                                    4F12815     
 D     05311  1 00000 0 05306        TXI ICC,0                  = (ILLEGAL IN CONTROL FOR LIST DO).   4F12816     
 D     05312  1 00000 0 05306        TXI ICC,0                  - (ILLEGAL IN CONTROL FOR LIST DO).   4F12817     
 D     05313  1 00000 0 05306        TXI ICC,0                  / (ILLEGAL IN CONTROL FOR LIST DO).   4F12818     
 D     05314  1 00000 0 05306        TXI ICC,0                  . (ILLEGAL IN CONTROL FOR LIST DO).   4F12819     
 D     05315  1 00000 0 05306        TXI ICC,0                  + (ILLEGAL IN CONTROL FOR LIST DO).   4F12820     
 D     05316  1 00000 0 05306        TXI ICC,0                  * (ILLEGAL IN CONTROL FOR LIST DO).   4F12821     
       05317  0 00000 0 05317 SPCTR  PZE SPCTR                    INDEXING ADDRESS FOR ABOVE LIST.    4F12822     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12823     
                                                                                                      4F12824     
                                         SPC/ CALLS=TYP,LTMSW,JIF,TET00. USES=R5C                     4F12825     
                                         SPCX = ENTRY POINT WHEN RPAREN IS MET IN SPECIFICATION SCAN. 4F12826     
       05320 -0 50000 0 05336 SPCX   CAL SPC1                     PREPARE FOR END OF SPECIFICATION.   4F12827     
       05321  0 60100 0 05336        STO SPC1                     SET SPC1 OP-SWITCH TO NOP CASE.     4F12828     
                                     SPC = ENTRY POINT WHEN COMMA IS MET IN SPECIFICATION SCAN.       4F12829     
       05322  0 07400 4 05624  SPC   TSX TYP,4                  * GO TEST TYPE OF SUBSCRIPT SPEC.     4F12830     
 D     05323  1 00000 0 05326        TXI SPCS,0                   IF FIXED POINT CONSTANT,            4F12831     
       05324 -0 53400 4 05304        LXD NSJ,4                    SET C(XR4) = SPECIFICATION COUNT,   4F12832     
 D     05325  1 00000 0 05333        TXI SPC3,0                   AND GO ENTER CONSTANT IN TABLE.     4F12833     
       05326 -0 53400 4 05304 SPCS   LXD NSJ,4                    OTHERWISE, SET SPEC COUNT AND       4F12834     
       05327 -0 50000 0 01453        CAL TAG4                     IF VARIABLE, NOTE BY                4F12835     
       05330  0 77100 4 00003        ARS 3,4                      PLACING BIT IN TAG FIELD            4F12636     
       05331 -0 60200 0 00000 SPC2   ORS **                       OF TABLE ENTRY.                     4F12837     
       05332 -0 50000 0 07404        CAL SYM                      PICKUP VARIABLE SYMBOL AND          4F12838     
       05333  0 60200 4 00000 SPC3   SLW **,4                     ENTER N SUB J IN TABLE.             4F12839     
       05334 -2 00001 4 05341        TNX SPC4,4,1                 REDUCE J.                           4F12840     
       05335 -0 63400 4 05304        SXD NSJ,4                    SAVE SPEC COUNT, AND                4F12841     
 D     05336 -3 00000 0 05147 SPC1   TXL NXS,0                  * EXIT TO SCAN, IF SWITCH IS TXL.     4F12842     
       05337 -0 50000 0 01407        CAL L(1)                     SET N SUB 3 = 1 IF NOT              4F12843     
 D     05340  1 00000 0 05333        TXI SPC3,0                   OTHERWISE SPECIFIED.                4F12844     
       05341  0 50200 0 05336 SPC4   CLS SPC1                     RESTORE SPC1 EXIT.                  4F12845     
       05342  0 60100 0 05336        STO SPC1                     (3 SPECS HAVE BEEN TREATED)         4F12846     
       05343 -0 50000 0 00030        CAL EIFNO                    ALSO RESTORE INTERNAL FORMULA NO.   4F12847     
       05344  0 77100 0 00022        ARS 18                       (PUT BETA IN TEMPDO TABLE)          4F12848     
                                         SPC5 =                   ENTRY POINT USED BY RPR.            4F12849     
       05345  0 62100 0 00000 SPC5   STA **                       SET BETA EQUAL TO IFNO.             4F12850     
       05346  0 53400 4 07400        LXA DOLEV,4                  EXAMINE DOLEV ADDRESS FOR ZERO TO   4F12851     
       05347 -3 00004 4 05352        TXL SPCR,4,4                 TEST NEED FOR LTM, JLF AFTER ).     4F12352     
       05350  0 07400 4 05757        TSX LTMSW,4                * GO COMPILE LTM.                     4F12853     
       05351  0 07400 4 02372        TSX JIF,4                  * GO JUMP IFN, AND SET SL AND TL.     4F12654     
       05352 -0 53400 4 07400 SPCR   LXD DOLEV,4                  DECREASE DOLEV D                    4F12855     
       05353  1 77777 4 05354        TXI SPC6,4,-1                BY 1, AND INDICATE A TREATED LEVEL. 4F12656     
       05354 -0 75400 4 00000 SPC6   PXD ,4                       IF NOT ZERO,                        4F12857     
       05355  0 60200 0 07400        SLW DOLEV                    THEN ALL LEVELS ARE NOT TREATED.    4F12858     
       05356  3 00000 4 05145        TXH LSC,4,0                * RETURN TO SCAN NEXT LEVEL.          4F12659     
       05357  0 50000 0 01372        CLA TLINE                    IF LEVEL IS ZERO                    4F12860     
       05360  0 62100 0 05364        STA SPC7                     ENTER GENERATED                     4F12861     
       05361  0 73400 2 07405 FLINE  PAX TLDOS,2                  DO FORMULAS IN TDO BY               4F12862     
       05362  1 00000 2 05363        TXI *+1,2,-                  TLDOS SUBROUTINE TET.               4F12663     
       05363  0 53400 4 01413 SPC9   LXA L(5),4                   (MOVE EACH                          4F12864     
       05364  0 50000 2 00000 SPC7   CLA **,2                     TEMPDO TABLE ENTRY                  4F12865     
       05365  0 60100 4 01112        STO 1C+5,4                   INTO 1C...1C+4,                     4F12866     
