                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 092/092 ------           
                                         END OF PROGRAM EMK.                                          4F13029     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13030     
                                                                                                      4F13031     
                                         STATEA/ 4-SUBROUTINES USED BY STATE A=                       4F13032     
                                                                                                                  
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *            
                                                                                                      4F13033     
                                         BEG(TYP),4/  CALLS=DIAG. USES RSC.                           4F13O34     
                                         BEG = ENTRY POINT USED BY RDC,RIT,WOT,EFT,                   4F13035     
       05603 -0 63400 4 05605 BEG    SXD BEX,4                      SAVE C(XR4) FOR RETURN,           4F13036     
       05604 -0 50000 0 05620        CAL BEGTR                      SET CONTROL TRANSFER              4F13037     
       05605  1 00000 0 05146 BEX    TXI CXS,0,**                 * AND GO EXECUTE BEGINNING SCAN.    4F13038     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13O39     
                                                                                                      4F13040     
                                         BEGTR/ CONTROL TRANSFERS FOR BEGINNING SCAN=                 4F13041     
 D     05606  1 00000 0 05621        TXI NLS,0                   * ENDMARK (NO LIST SCAN)             4F13042     
       05607  0 07400 4 03400 IBC    TSX DIAG,4                  * ( (ILLEGAL CHARACTER IN I/O SETUP).4F13O43     
 D     05610  1 00000 0 05623        TXI CMB,0                   * ,                                  4F13044     
 D     05611  1 00000 0 05607        TXI IBC,0                     ) (ILLEGAL CHARACTER IN I/O SETUP).4F13045     
 D     05612  1 00000 0 05607        TXI IBC,0                     = (ILLEGAL CHARACTER IN I/O SETUP).4F13046     
 D     05613  1 00000 0 05607        TXI IBC,0                     - (ILLEGAL CHARACTER IN I/O SETUP).4F13047     
 D     05614  1 00000 0 05607        TXI IBC,0                     / (ILLEGAL CHARACTER IN I/O SETUP).4F13048     
 D     05615  1 00000 0 05607        TXI IBC,0                     . (ILLEGAL CHARACTER IN I/O SETUP).4F13049     
 D     05616  1 00000 0 05607        TXI IBC,0                     + (ILLEGAL CHARACTER IN I/O SETUP).4F13050     
 D     05617  1 00000 0 05607        TXI IBC,0                     * (ILLEGAL CHARACTER IN I/O SETUP).4F13051     
       05620  0 00000 0 05620 BEGTR  PZE BEGTR                     INDEXING ADDRESS FOR ABOVE LIST.   4F13052     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13053     
                                                                                                      4F13054     
                                         NLS = ENTRY POINT WHEN AN ENDMARK IS MET IN BEGINNING SCAN.  4F13055     
       05621  0 50000 0 06105 NLS    CLA NLA                       IF ENDMARK IS MET,                 4F13056     
       05622  0 62100 0 04744        STA BXT                       SET BXT SWITCH TO LAST.            4F13057     
                                         CMB = ENTRY POINT WHEN A COMMA IS MET IN BEGINNING SCAN.     4F13058     
       05623 -0 53400 4 05605 CMB    LXD BEX,4                     RESTORE THE C(XR4), AND            4F13059     
                                         TYP = ENTRY POINT USED BY LPR,SPC,CMA,                       4F13060     
       05624  0 50000 0 07310 TYP    CLA CHR-6                     TEST FIRST CHARACTER               4F13061     
       05625  0 40200 0 00172        SUB PLUS                      FOR VARIABLE                       4F13062     
       05626 -0 12000 0 05634        TMI ABS                       OR CONSTANT.                       4F13063     
       05627  3 00044 2 05633        TXH SMB,2,36                  IF VARIABLE.                       4F13064     
       05630 -0 50000 0 01430        CAL BLANK                     ADD A BLANK                        4F13065     
       05631  0 76700 2 00044        ALS 36,2                      IF SYMBOL CONTAINS                 4F13066     
       05632 -0 60200 0 07404        ORS SYM                       LESS THAN 6 CHARACTERS, AND        4F13067     
       05633  0 02000 4 00001 SMB    TRA 1,4                     * TAKE VARIABLE EXIT TO CALLER.      4F13068     
       05634  0 53400 2 01413 ABS    LXA L(5),2                    IF CONSTANT*                       4F13069     
       05635  0 50000 2 07315        CLA CHR-1,2                   THEN                               4F13070     
       05636  0 60100 0 07307        STO BIN                       CONVERT                            4F13071     
       05637 -3 00000 2 05645 CSJ    TXL INT,2,**                  BCD                                4F13072     
       05640  0 76700 0 00002        ALS 2                         DIGITS                             4F13073     
       05641  0 40000 0 07307        ADD BIN                       TO THEIR                           4F13074     
       05642  0 76700 0 00001        ALS 1                         BINARY                             4F13075     
       05643  0 40000 2 07316        ADD CHR,2                     EQUIVALENT,                        4F13076     
       05644  1 77777 2 05636        TXI CSJ-1,2,-1                AND WHEN DONE,                     4F13077     
       05645  0 02000 4 00002 INT    TRA 2,4                     * TAKE CONSTANT EXIT TO CALLER.      4F13078     
                                         END OF PROGRAM  BEG(TYP),                                    4F13079     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13080     
