SAVEST

(GIN Macro)
Used in: CLOSDEL867, CONTRACT866, EXINTWO866, SCEXEND867
SAVEST.mac.txt
 *SCB    #   
 *SX2    [???                                SAVEST  
 *TBL    #                                   ******  
 *TW=    #MAC  SAVEST
 *W*W    #   
 *WTG    #OPT  MSAVEST1=0
 *X*6    #OPT  MSAVEST2=0
 *XSQ    #STR  C,%A  
 *Y#B    #SKI
 *YS2          CALL  0  MSAVEST3 
 *^?L    #STR  W,%A  
 *^R=    #SKI
 B2=W          CALL  0  MSAVEST4 
 B2QG          LDX   0  %B   
 B3=6    #STR  C,%A  
 B3PQ    #SKI
 B49B    (   
 B4P2    #SKI  MSAVEST1-1
 B58L    (   
 B5N=    #FRE  MSAVEST1  
 B67W    #DEF  MSAVEST1=1
 B6MG          BRN      MSAVEST6 
 B776    MSAVEST7
 B7LQ    #DEF  MSAVEST3=MSAVEST7 
 B86B          STO   1  EWK+1(3) 
 B8L2          STO   0  ETLINK(3)
 B95L          SMO      0
 B9K=          OBEY     0
 B=4W          STO   0  EWK(3)   
 B=JG          CALL  0  MFTRANC  
 B?46          BRN      MTRANERR 
 B?HQ          LDN   0  1
 B#3B          ADS   0  A1+2(1)  
 B#H2          LDX   0  ETLINK(3)
 B*2L          LDX   1  EWK+1(3) 
 B*G=          EXIT  0  1
 B*^W          TRANERR   
 BBFG          FTRANC
 BB^6    MSAVEST6
 BCDQ    )   
 BCYB    )   
 BDD2    #STR  W,%A  
 BDXL    #SKI
 BFC=    (   
 BFWW    #SKI  MSAVEST2-1
 BGBG    (   
 BGW6    #FRE  MSAVEST2  
 BH*Q    #DEF  MSAVEST2=1
 BHTB          BRN      MSAVEST8 
 BJ*2    MSAVEST9
 BJSL    #DEF  MSAVEST4=MSAVEST9 
 BK#=          STO   1  EWK+1(3) 
 BKRW          STO   0  ETLINK(3)
 BL?G          SMO      0
 BLR6          OBEY     0
 BM=Q          SRL   0  7
 BMQB          STO   0  EWK(3)   
 BN=2          CALL  0  MFTRANW  
 BNPL          BRN      MTRANERR 
 BP9=          LDN   0  1
 BPNW          ADS   0  A1+2(1)  
 BQ8G          LDX   0  ETLINK(3)
 BQN6          LDX   1  EWK+1(3) 
 BR7Q          EXIT  0  1
 BRMB          TRANERR   
 BS72          FTRANW
 BSLL    MSAVEST8
 BT6=    )   
 BTKW    )   
 BW5G    #NOR