                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 045/045 ------           
                                                                                                      4F10531     
                                         C0190X,4/ CALLERS=CD000,CB000,CC000,C0300,C3300.             4F10532     
                                         C0190X INITIALIZES C0190 TO OBTAIN 1ST WORD OF FORMUAL IN F. 4F10533     
       01671  0 50000 0 01670 C0190X CLA DCF                      SET FORMULA WORD                    4F10534     
       01672  0 62200 0 01614        STD FWA                      ADDRESS = -(F-REGION ADDRESS),      4F10535     
       01673 -0 63400 0 01724        SXD CHCTR,0                  SET CHARACTER COUNT = 0,            4F10536     
       01674  0 02000 4 00001        TRA 1,4                    * RETURN TO MAIN ROUTINE.             4F10537     
                                          END OF PROGRAM C0190X.                                      4F10538     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10539     
                                                                                                      4F10540     
                                         C0390,4/ CALLERS=C0300,C3300.                                4F10541     
                                         C0390 INSERTS THE CHARACTER IN THE AC INTO THE 1ST POSITION  4F10542     
                                         TO THE LEFT OF THAT DEFINED BY FWA AND XR1                   4F10543     
       01675  0 50000 0 01374 C0390  CLA ENDMK                     PREPARE TO CHANGE                  4F10544     
       01676 -0 53400 2 01614        LXD FWA,2                     THE PROPER CHARACTER               4F10545     
       01677 -0 53400 1 01724        LXD CHCTR,1                   IN THE F-REGION.                   4F10546     
       01700 -2 00001 1 01703        TNX C0393,1,1                 ADJUST MASK                        4F10547     
       01701 -0 76300 0 00006 C0392  LGL 6                         TO POSITION                        4F10548     
       01702  2 00001 1 01701        TIX C0392,1,1                 CHARACTER                          4F10549     
       01703  0 76000 0 00006 C0393  COM                           INVERT MASK, AND                   4F10550     
       01704  0 32000 2 77777        ANS -1,2                      ERASE PROPER CHARACTER.            4F10551     
       01705 -0 76300 0 00044        LGL 36                        ADJUST CHARACTER, AND              4F10552     
       01706 -0 60200 2 77777        ORS -1,2                      INSERT IN ERASED POSITION.         4F10553     
                                         C0390 CONTINUES BY USING C0190.                              4F10554     
                                                                                                      4F10555     
                                         C0190,4/ CALLERS=CD000,CB000,CC000,C0100,C200,C00300,C0400,  4F10556     
                                         C0900,C1000,C1100,C1200,C1400,C1500,C1600,C3000,C3100,C3200, 4F10557     
                                         C3300,C3400,C0150,C0160,C0190,SS000,ROYCNV,RSC,LPR.          4F10558     
                                         C0190 OBTAINS IN AC THE NEXT NON-BLANK CHARACTER OF FORMULA. 4F10559     
       01707 -0 63400 1 01723 C0190  SXD C0194,1                   SAVE THE C(XR1), AND               4F10560     
       01710 -0 53400 1 01724        LXD CHCTR,1                   SET XR1 = CHARACTER COUNT.         4F10561     
       01711  0 56000 0 01365        LDQ RESIDU                    PICK UP ANY REMAINING CHARACTERS.  4F10562     
       01712  2 00001 1 01720 C0191  TIX C0193,1,1                 IF NONE,                           4F10563     
       01713 -0 53400 1 01614        LXD FWA,1                     PICK UP NEXT FORMULA               4F10564     
       01714  0 56000 1 00000        LDQ 0,1                       WORD FROM F-REGION,                4F10565     
       01715  1 77777 1 01716        TXI C0192,1,-1                AND INCREASE                       4F10566     
       01716 -0 63400 1 01614 C0192  SXD FWA,1                     FORMULA WORD ADDRESS BY 1.         4F10567     
       01717  0 53400 1 01414        LXA L(6),1                    RESET XR1 FOR 6 NEW CHARACTERS.    4F10568     
       01720 -0 75400 0 00000 C0193  PXD ,0                        EXAMINE                            4F10569     
       01721 -0 76300 0 00006        LGL 6                         NEXT CHARACTER                     4F10570     
       01722  0 34000 0 01430        CAS BLANK                     AND COMPARE WITH A BLANK.          4F10571     
       01723  1 00000 0 01725 C0194  TXI C0195,0,**                IF BLANK,                          4F10572     
       01724  1 00000 0 01712 CHCTR  TXI C0191,0,**                GO EXAMINE NEXT CHARACTER.         4F10573     
       01725 -0 63400 1 01724 C0195  SXD CHCTR,1                   IF NOT BLANK, RESET CHAR COUNT,    4F10574     
       01726 -0 60000 0 01365        STQ RESIDU                    SAVE ANY REMAINING CHARACTERS,     4F10575     
       01727 -0 53400 1 01723        LXD C0194,1                   RESTORE THE C(XR1), AND            4F10576     
       01730  0 02000 4 00001        TRA 1,4                     * RETURN TO MAIN ROUTINE.            4F10577     
                                          END OF PROGRAM C0190.                                       4F10578     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10579     
                                                                                                      4F10580     
                                         CIT00,4/ CALLERS=C0200,C0400,C0900,C1000,C1100,C1300,C1600,  4F10581     
                                         C3200,RDC,WBT,RBT,WRD,BRW,EFT,LPR,CMA,EMK,INPUT(OUTPUT),     4F10582     
                                         ETMSW(LTMSW),LIB,VRA(VRD).                                   4F10583     
                                         C1T00 MAKE ENTRIES IN THE COMPILED INSTRUCTION TABLE. WHEN   4F10584     
