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

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

**Used in:** [[george:source:BRADDATA867|BRADDATA867]], [[george:source:BRADEMUL867|BRADEMUL867]], [[george:source:ERASEX866|ERASEX866]], [[george:source:FLAW866|FLAW866]], [[george:source:FLAWMAP866|FLAWMAP866]], [[george:source:PATCH|PATCH]], [[george:source:PERION867|PERION867]], [[george:source:SPERION867|SPERION867]], [[george:source:SWAP865|SWAP865]], [[george:source:TRANSFER70|TRANSFER70]]

<code - BACKTRAN.mac.txt>
 636S ...[??? BACKTRAN SECT FILE FGN 9 DOC   
 63BL    #MAC  BACKTRAN  
 63W=    #SKI  BSOKAY
 64*W    (   
 64TG    #DEF  M1BACKTRAN=%B&BSET
 65*6    #DEF  M4BACKTRAN=%B&ASWAPFLA-ASWAPFLA<M1BACKTRAN
 65SQ    #DEF  M5BACKTRAN=%B&ASWAPBON-ASWAPBON<M4BACKTRAN
 66#B    #DEF  M7BACKTRAN=%B$FLAW$BOBJ$BSET<M5BACKTRAN   
 66FJ ...#UNSET  ERRR
 66LQ ...#SKI
 66S2    #DEF  M8BACKTRAN=%B&FABUFR<1$1<M7BACKTRAN   
 66^8 ...#UNSET  ERRR
 676B ...#DEF  M8BACKTRAN=%B&(BUSE+FREE)<1$1<M7BACKTRAN  
 67?L    #SKI  %B&BONL   
 67R=    (   
 68=W    #STR  %D
 68QG    #DEF  M9BACKTRAN=0  
 69=6    )   
 69PQ    #SKI  %B&BOBJSET
 6=9B    #STR  %G
 6=P2    #SKI
 6?8L    #DEF  M10BACKTRAN=0 
 6?N=    #SKI  %B&BOBJ   
 6#7W    #STR  %H
 6#MG    #SKI
 6*76    #DEF  M11BACKTRAN=0 
 6*LQ    #OPT  M9BACKTRAN=1  
 6B6B    #OPT  M10BACKTRAN=1 
 6BL2    #OPT  M11BACKTRAN=1 
 6C5L    #DEF  M98BACKTRAN=M8BACKTRAN<M9BACKTRAN<M10BACKTRAN<M11BACKTRAN 
 6CK=    )   
 6D4W    #OPT  M98BACKTRAN=1 
 6DJG    #SKI  M98BACKTRAN   
 6F46    #SKI
 6FHQ          GEOERR   1,MACWRONG   
 6G3B    #SKI  M98BACKTRAN   
 6GH2    (   
 6H2L          CALL  0  (BSTS4)  
 6HG=          LDX   4  %A   
 6H^W          SLL   4  17   
 6J3? ...#UNSET  ERRR
 6J4N ...(   
 6J65 ...#SKI  %B&BONL>(%B&FAILSWAP-FAILSWAP<1$1)
 6J7G ...      ORN   4  %B   
 6J8X ...#SKI  %B&ASWAP<(%B&FAIL<1$1)
 6J=# ...      ORN   4  %B+FAIL  
 6J?P ...)   
 6J*6 ...#UNSET  ERRR
 6JBH ...#SKI
 6JCY ...(   
 6JFG    #SKI  %B&BONLSWAP   
 6J^6          ORN   4  %B   
 6K8Y ...)   
 6KDQ    #SKI  %B&BONLSWAP<1$1   
 6KYB          ORN   4  %B+FAILBIT   
 6LD2          LDX   5  %C   
 6LXL          SLL   5  8
 6MC=          ADX   5  %E   
 6MWW    #STR  %F
 6NBG          LDX   6  %F   
 6NW6    #STR  %F
 6P*Q    #SKI
 6PTB          LDX   6  1+%E 
 6Q*2    #STR  %G
 6QSL          LDX   7  %G   
 6R#=    #SKI  %B&BOBJ   
 6RRW    (   
 6S?G          LDX   0  %H   
 6SR6          SMO      FX2  
 6T=Q          STO   0  BA5  
 6TQB    )   
 6TRY ...#STR  %I
 6TTG ...(   
 6TX4 ...      LDX   0  %I                  [ GET ANY ADDITIVE MODE  
 6TYL ...      LDX   2  FX2  
 6W28 ...      STO   0  ACOMMUNE7(2)        [ STORE  
 6W3Q ...      CALL  0  (BSTS2)             [ GO TO SUBSIDIARY ENTRY 
 6W5# ...)   
 6W6W ...#STR  %I
 6W8D ...#SKI
 6W=2          CALL  0  (BSTS1)  
 6W?3 ...#UNSET  ERRR
 6W#4 ...(   
 6W*5 ...#SKI  %B&(BONL+FAIL+ASWAP)<1$1  
 6WB6 ...(   
 6WC7 ...#STR  %D
 6WD8 ...      BRN      %D   
 6WF9 ...#STR  %D
 6WG= ...#SKI
 6WH? ...      BRN      (AERR)   
 6WJ# ...)   
 6WK* ...)   
 6WLB ...#UNSET  ERRR
 6WMC ...#SKI
 6WND ...(   
 6WPL    #SKI  %B&BONL<1$1   
 6X9=    (   
 6XNW    #STR  %D
 6Y8G          BRN      %D   
 6YN6    #STR  %D
 6^7Q    #SKI
 6^MB          BRN      (AERR)   
 7272    )   
 72BS ...)   
 72LL    )   
 736=    #SKI  BSOKAY
 73KW    (   
 745G    #FRE  M1BACKTRAN,M4BACKTRAN,M5BACKTRAN,M7BACKTRAN   
 74K6    #FRE  M8BACKTRAN,M9BACKTRAN,M10BACKTRAN,M11BACKTRAN 
 754Q    )   
 75JB    #FRE  M98BACKTRAN   
 7642    #NOR
</code>