{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: BACKWRITE)}}
====== BACKWRITE ======
(GIN Macro)

**Defined in:** [[george:source:MACROS|MACROS]]

**Used in:** [[george:source:BMFIXIT864|BMFIXIT864]], [[george:source:BSALFAIL|BSALFAIL]], [[george:source:BSBLFAIL867|BSBLFAIL867]], [[george:source:GETBACK865|GETBACK865]], [[george:source:GETBAX865|GETBAX865]], [[george:source:GETWORD867|GETWORD867]], [[george:source:RESTOREG864|RESTOREG864]], [[george:source:TRANFAIL866|TRANFAIL866]]

<code - BACKWRITE.mac.txt>
 8DR8 ...[??? BACKWRIT SECT FILE FGN 9 DOC   
 8F32    #MAC  BACKWRITE 
 8FGL    #SKI  BSOKAY
 8G2=    (   
 8GFW    #STR  %A
 8G^G    (   
 8HF6    #DEF  M1BACKWRIT=%A$FLAW
 8HYQ    #DEF  M2BACKWRIT=%A$BOBJ$FLAW<M1BACKWRIT
 8JDB    #DEF  M3BACKWRIT=%A&BONLFAIL-BONLFAIL<M2BACKWRIT
 8JY2    #DEF  M4BACKWRIT=%A&FREEBOBJ-FREEBOBJ<M3BACKWRIT
 8KCL    #DEF  M5BACKWRIT=%A&BSETFREE-BSETFREE<M4BACKWRIT
 8KX=    #DEF  M6BACKWRIT=%A&FAILFLAW-FAILFLAW<M5BACKWRIT
 8LBW    #DEF  M7BACKWRIT=%A&BUSE<1$1<M6BACKWRIT 
 8LWG    #DEF  M50BACKWRIT=%A&ASWAPBON-ASWAPBON<M7BACKWRIT   
 8MB6    #DEF  M51BACKWRIT=%A&ASWAPFLA-ASWAPFLA<M50BACKWRIT  
 8MTQ    #DEF  M52BACKWRIT=%A&FAILSWAP-FAILSWAP<M51BACKWRIT  
 8N*B    #DEF  M8BACKWRIT=%A$FLAW$BOBJ$BSET<M52BACKWRIT  
 8NT2    #SKI  %A&BONL   
 8P#L    (   
 8PS=    #STR  %C
 8Q?W    #DEF  M9BACKWRIT=0  
 8QRG    )   
 8R?6    #SKI  %A&BOBJSET
 8RQQ    #STR  %F
 8S=B    #SKI
 8SQ2    #DEF  M10BACKWRIT=0 
 8T9L    #SKI  %A&BOBJ   
 8TP=    #STR  %G
 8W8W    #SKI
 8WNG    #DEF  M11BACKWRIT=0 
 8X86    #SKI  %A&FAIL   
 8XMQ    (   
 8Y7B    #STR  %C
 8YM2    #DEF  M12BACKWRIT=0 
 8^6L    )   
 8^L=    #OPT  M9BACKWRIT=1  
 925W    #OPT  M10BACKWRIT=1 
 92KG    #OPT  M11BACKWRIT=1 
 9356    #OPT  M12BACKWRIT=1 
 93JQ    #DEF  M97BACKWRIT=M8BACKWRIT<M9BACKWRIT<M10BACKWRIT 
 944B    #DEF  M98BACKWRIT=M97BACKWRIT<M11BACKWRIT<M12BACKWRIT   
 94J2    )   
 953L    )   
 95H=    #OPT  M98BACKWRIT=1 
 962W    #SKI  M98BACKWRIT   
 96GG    #SKI
 9726          GEOERR   1,MACWRONG   
 97FQ    #SKI  M98BACKWRIT   
 97^B    (   
 98F2          CALL  0  (BSTS4)  
 98YL          LDCT  4  #4   
 99D=    #STR  %A
 99XW    (   
 9=CG    #SKI  %A&BONLSWAP   
 9=X6          ORN   4  %A   
 9?BQ    #SKI  %A&BONLSWAP<1$1   
 9?WB          ORN   4  %A+FAILBIT   
 9#B2    )   
 9#TL    #STR  %A
 9**=    #SKI
 9*SW          ORN   4  FAILBIT  
 9B#G          LDX   5  %B                  [LENGTH  
 9BS6          SLL   5  8
 9C?Q    #STR  %D
 9CRB          ADX   5  %D                  [LFN 
 9D?2    #STR  %E
 9DQL          LDX   6  %E                  [BLOCK NO.   
 9F==    #STR  %E
 9FPW    #SKI
 9G9G    (   
 9GP6    #STR  %D
 9H8Q          LDX   6  1+%D 
 9HNB    )   
 9J82    #STR  %F
 9JML          LDX   7  %F   
 9K7=    #STR  %A
 9KLW    (   
 9L6G    #SKI  %A&BOBJ   
 9LL6    (   
 9M5Q          LDX   0  %G   
 9MKB          SMO      FX2  
 9N52          STO   0  BA5  
 9NJL    )   
 9P4=    )   
 9PHW          CALL  0  (BSTS1)  
 9Q3G    #STR  %A
 9QH6    #SKI  %A&BONLFAIL<1$1   
 9R2Q    (   
 9RGB    #STR  %C
 9S22          BRN      %C   
 9SFL    #STR  %C
 9S^=    #SKI
 9TDW          BRN      (AERR)   
 9TYG    )   
 9WD6    )   
 9WXQ    #SKI  BSOKAY
 9XCB    (   
 9XX2    #FRE  M1BACKWRIT,M2BACKWRIT,M3BACKWRIT,M4BACKWRIT,M5BACKWRIT
 9YBL    #FRE  M6BACKWRIT,M7BACKWRIT,M50BACKWRIT,M51BACKWRIT,M52BACKWRIT 
 9YW=    #FRE  M8BACKWRIT,M9BACKWRIT,M10BACKWRIT,M11BACKWRIT,M12BACKWRIT 
 9^*W    #FRE  M97BACKWRIT   
 9^TG    )   
 =2*6    #FRE  M98BACKWRIT   
 =2SQ    #NOR
</code>