*7X6    [???                                READSTX 
 *8BQ    #                                   ******* 
 *8WB    #MAC  READSTX   
 *9B2    #   
 *9TL    #OPT  MREADSTX1=0   
 *=*=    #SKI  MREADSTX1-1   
 *=SW    (   
 *?#G    #FRE  MREADSTX1 
 *?S6    #OPT  MREADSTX1=1   
 *#?Q          BRN      MREADSTX3
 *#RB    MREADSTX4   
 **?2    #DEF  MREADSTX2=MREADSTX4   
 **QL          SBX   1  FX1  
 *B==          STO   1  ETLINK(3)
 *BPW          SRL   01 7
 *C9G          STO   0  EBLOCK(3)
 *CP6          SRL   1  17   
 *D8Q          STO   1  ECOR(3)  
 *DNB          STO   0  EWK(3)   
 *F82          CALL  0  MFTRANW  
 *FML          BRN      MREADSTX6
 *G7=          LDX   0  EWK+3(3) 
 *GLW          BZE   0  MREADSTX10   
 *H6G          LDN   0  1
 *HL6          ADS   0  A1+2(1)  
 *J5Q    MREADSTX10  
 *JKB          ADX   1  ECOR(3)  
 *K52          ADN   1  FBUFR
 *KJL          STO   1  ECOR(3)  
 *L4=          BRN      MREADSTX7
 *LHW    MREADSTX6   
 *M3G          DOWN     TRANSFER,1   
 *MH6          MHUNTW   3,EWDAS,GEXD 
 *N2Q    MREADSTX7   
 *NGB          LDX   0  FX1  
 *P22          ADX   0  ETLINK(3)
 *PFL          EXIT  0  0
 *P^=          TRANERR   
 *QDW          FTRANW
 *QYG    MREADSTX3   
 *RD6    )   
 *RXQ    #NOR