                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 066/066 ------           
                                                                                                      4F11627     
                                         ** IN ADDRESS, TAG, OR DECREMENT OF AN INSTRUCTION           4F11628     
                                         INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM.   4F11629     
                                         * IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT OF   4F11630     
                                         THIS LOGICAL BLOCK OR SUBROUTINE.                            4F11631     
                                         C IN COL/34 INDICATES THE INSTRUCTION WAS CORRECTED.         4F11632     
                                         P IN COL/32 INDICATES THE INSTRUCTION WAS INSERTED (PATCH).  4F11633     
                                                                                                      4F11634     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11635     
                                                                                                      4F11636     
                                         STATEA/1-ASSEMBLE AND CLASSIFY ALL STATEMENTS=               4F11637     
                        03440 ORGA   ORG 1824                                                         4F11638     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11639     
                                                                                                      4F11640     
                                         CA000/ CALLS=CA100,SR6DC1,TET00,DIAG.                        4F11641     
                                         CA000 ASSEMBLES STATEMENT IN THE F-REGION AND ASSIGNS AN IFN.4F11642     
       03440 -0 53400 4 02575 CA010  LXD ENDWRD,4                  IF THE FINAL STATEMENT HAS BEEN    4F11643     
       03441 -3 00000 4 03400        TXL DIAG,4,0                * PROCESSED, THE GO CALL DIAGNOSTIC. 4F11644     
       03442 -0 53400 1 00030        LXD EIFNO,1                   KEEP INTERAL FORMULA NUMBER        4F11645     
       03443  1 00001 1 03444        TXI CA013,1,1                 (DECR PART OF EIFNO)               4F11646     
       03444 -0 63400 1 00030 CA013  SXD EIFNO,1                   UP TO DATE BY ADDING 1.            4F11647     
       03445 -0 50000 0 01333        CAL FT                         OBTAIN HOLLERITH CODED 5-DIGIT    4F11648     
       03446  0 77100 0 00006        ARS 6                         EXTERNAL FORMULA NO IN ACC.        4F11649     
       03447  0 60200 0 01151        SLW F-1                       AND RETAIN IN F-01.                4F11650     
       03450 -0 53400 1 01670        LXD DCF,1                     INITIALIZE INDEX A TO COMPL OF F.  4F11651     
       03451  0 53400 2 01400 CA018  LXA L(11),2                   SET UP LOOP FOR 11 CYCLES.         4F11652     
       03452  0 56000 2 01347 CA019  LDQ FT+12,2                   MOVE WORD FROM REGION FT           4F11653     
       03453 -0 60000 1 00000        STQ 0,1                       TO REGION F.                       4F11654     
       03454  2 00001 1 03455        TIX CA020,1,1                 KEEP F-REGION ADDRESS UP-TO-DATE.  4F11655     
       03455  2 00001 2 03452 CA020  TIX CA019,2,1                 TEST END OF LOOP.                  4F11656     
       03456  0 07400 4 05702        TSX CA100,4                 * GO READ NEXT NON-BLANK CARD.       4F11657     
       03457 -0 50000 0 01333        CAL FT                        TEST RIGHTMOST CHARACTER OF        4F11658     
       03460 -0 32000 0 01374        ANA L(63)                     FIRST WORD FOR CONTINUATION MARK,  4F11659     
       03461  0 10000 0 03464        TZE CA021                     IF ZERO OR BLANK,                  4F11660     
       03462  0 40200 0 01430        SUB ABLANK                    DISCONTINUE READING,               4F11661     
       03463 -0 10000 0 03451        TNZ CA018                     OTHERWISE CONTINUE.                4F11662     
       03464  0 50000 0 01526 CA021  CLA BLANKS                    BEGIN SCANNING REGION F BACKWARDS  4F11663     
       03465  0 34000 1 77777 CA022  CAS -1,1                      TO FIND FIRST NON BLANK WORD.      4F11664     
       03466  0 02000 0 03470        TRA CA023                     NOT BLANK.                         4F11665     
       03467  1 00001 1 03465        TXI CA022,1,1                 BLANK, SO CONTINUE SCAN.           4F11666     
       03470  0 56000 0 01531 CA023  LDQ 36ONES                    PLACE BINARY ONES IN FIRST WORD    4F11667     
       03471 -0 60000 1 00000        STQ 0,1                       FOLLOWING RIGHTMOST NONBLANK WORD. 4F11668     
       03472 -0 50000 0 01151        CAL F-1                       PICK UP EXTERNAL FORMULA NUMBER AND4F11669     
       03473  0 34000 0 01477        CAS 5BLANS                    COMPARE WITH /0     /.             4F11670     
       03474  0 02000 0 03476        TRA CA015                     NOT COMPARE.                       4F11671     
       03475  0 02000 0 03503        TRA CD000                   * TAKE EXTFORMNO, IF ANY AND         4F11672     
       03476  0 76500 0 00043 CA015  LRS 35                        GO TO CONVERSION SUBROUTINE AND    4F11673     
       03477  0 07400 1 02566        TSX SR6DC1,1                * RETURN HERE WITH RESULT IN ACC.    4F11674     
       03500  0 62100 0 00030        STA EIFNO                     STORE RESULT IN ADDRESS OF EIFNO.  4F11675     
       03501  0 07400 1 03321        TSX TET00,1                 * GO TO PROGRAM TET TO ENTER EIFNO   4F11676     
       03502  0 00000 0 00000        PZE 0                         INTO TABLE TEIFNO (TABLE O).       4F11677     
                                         END OF PROGRAM CA000.                                        4F11678     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11679     
                                                                                                      4F11680     
