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

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

**Used in:** [[george:source:BACKMAP864|BACKMAP864]], [[george:source:BACKMASS860|BACKMASS860]], [[george:source:BMCNTRL866|BMCNTRL866]], [[george:source:BMFIXIT864|BMFIXIT864]], [[george:source:BMSJRNL866|BMSJRNL866]], [[george:source:BSALFAIL|BSALFAIL]], [[george:source:CLOSEMAS863|CLOSEMAS863]], [[george:source:COPYFILA867|COPYFILA867]], [[george:source:FINDRUM866|FINDRUM866]], [[george:source:GETBACK865|GETBACK865]], [[george:source:GETBAX865|GETBAX865]], [[george:source:GETWORD867|GETWORD867]], [[george:source:HLSREAD867|HLSREAD867]], [[george:source:KARTCONT867|KARTCONT867]], [[george:source:RESTOREG864|RESTOREG864]], [[george:source:SETIDF867|SETIDF867]], [[george:source:TRANFAIL866|TRANFAIL866]]

<code - BACKREAD.mac.txt>
 76?S ...[??? BACKREAD SECT FILE FGN 9 DOC   
 76HL    #MAC  BACKREAD  
 773=    #SKI  BSOKAY
 77GW    (   
 782G    #STR  %A
 78G6    (   
 78^Q    #DEF  M1BACKREAD=%A$FLAW
 79FB    #DEF  M2BACKREAD=%A&BSETBUSE-BSETBUSE<M1BACKREAD
 79^2    #DEF  M3BACKREAD=%A&BOBJBUSE-BOBJBUSE<M2BACKREAD
 7=DL    #DEF  M4BACKREAD=%A$BOBJ$FLAW<M3BACKREAD
 7=Y=    #DEF  M50BACKREAD=%A$BOBJ$BSET$FLAW<M4BACKREAD  
 7?CW    #DEF  M51BACKREAD=%A&ASWAPFLA-ASWAPFLA<M50BACKREAD  
 7?XG    #DEF  M52BACKREAD=%A&ASWAPBON-ASWAPBON<M51BACKREAD  
 7#2L ...#UNSET  ERRR
 7#5Q ...#DEF  M5BACKREAD=%A&FREE<1$1<M52BACKREAD
 7#8W ...#UNSET  ERRR
 7##2 ...#SKI
 7#C6    #DEF  M5BACKREAD=%A&FAILFREE<1$1<M52BACKREAD
 7#WQ    #SKI  %A&BONL   
 7*BB    (   
 7*W2    #STR  %C
 7B*L    #DEF  M6BACKREAD=0  
 7BT=    )   
 7C#W    #SKI  %A&BOBJSET
 7CSG    #STR  %F
 7D#6    #SKI
 7DRQ    #DEF  M7BACKREAD=0  
 7F?B    #SKI  %A&BOBJ   
 7FR2    #STR  %G
 7G=L    #SKI
 7GQ=    #DEF  M8BACKREAD=0  
 7H9W    #OPT  M6BACKREAD=1  
 7HPG    #OPT  M7BACKREAD=1  
 7J96    #OPT  M8BACKREAD=1  
 7JNQ    #DEF  M98BACKREAD=M5BACKREAD<M6BACKREAD<M7BACKREAD<M8BACKREAD   
 7K8B    )   
 7KN2    )   
 7L7L    #OPT  M98BACKREAD=1 
 7LM=    #SKI  M98BACKREAD   
 7M6W    #SKI
 7MLG          GEOERR   1,MACWRONG   
 7N66    #SKI  M98BACKREAD   
 7NKQ    (   
 7P5B          CALL  0  (BSTS4)  
 7PK2    #STR  %A
 7Q4L    (   
 7Q63 ...#UNSET  ERRR
 7Q7D ...(   
 7Q8T ...#SKI  %A&BONL>(%A&FAILSWAP-FAILSWAP<1$1)
 7Q== ...      LDN   4  %A   
 7Q?M ...#SKI  %A&ASWAP<(%A&FAIL<1$1)
 7Q*4 ...      LDN   4  %A+FAIL  
 7QBF ...)   
 7QCW ...#UNSET  ERRR
 7QF? ...#SKI
 7QGN ...(   
 7QJ=    #SKI  %A&BONLSWAP   
 7R3W          LDN   4  %A   
 7R?N ...)   
 7RHG    #SKI  %A&BONLSWAP<1$1   
 7S36          LDN   4  %A+FAILBIT   
 7SGQ    )   
 7T2B    #STR  %A
 7TG2    #SKI
 7T^L          LDN   4  FAILBIT  
 7WF=          LDX   5  %B   
 7WYW          SLL   5  8
 7XDG          ADX   5  %D   
 7XY6    #STR  %E
 7YCQ          LDX   6  %E   
 7YXB    #STR  %E
 7^C2    #SKI
 7^WL          LDX   6  1+%D 
 82B=    #STR  %F
 82TW          LDX   7  %F   
 83*G    #STR  %A
 83T6    (   
 84#Q    #SKI  %A&BOBJ   
 84SB    (   
 85#2          LDX   0  %G   
 85RL          SMO      FX2  
 86?=          STO   0  BA5  
 86QW    )   
 87=G    )   
 87Q6          CALL  0  (BSTS1)  
 87R5 ...#UNSET  ERRR
 87S4 ...(   
 87T3 ...#STR  %A
 87W2 ...#SKI  %A&(BONL+FAIL+ASWAP)<1$1  
 87W^ ...(   
 87XY ...#STR  %C
 87YX ...      BRN      %C   
 87^W ...#STR  %C
 882T ...#SKI
 883S ...      BRN      (AERR)   
 884R ...)   
 885Q ...)   
 886P ...#UNSET  ERRR
 887N ...#SKI
 888M ...(   
 889Q    #STR  %A
 88PB    #SKI  %A&BONL<1$1   
 8992    (   
 89NL    #STR  %C
 8=8=          BRN      %C   
 8=MW    #STR  %C
 8?7G    #SKI
 8?M6          BRN      (AERR)   
 8#6Q    )   
 8#BJ ...)   
 8#LB    )   
 8*62    #SKI  BSOKAY
 8*KL    (   
 8B5=    #FRE  M1BACKREAD,M2BACKREAD,M3BACKREAD,M4BACKREAD,M50BACKREAD   
 8BJW    #FRE  M51BACKREAD,M52BACKREAD,M5BACKREAD,M6BACKREAD,M7BACKREAD  
 8C4G    #FRE  M8BACKREAD
 8CJ6    )   
 8D3Q    #FRE  M98BACKREAD   
 8DHB    #NOR
</code>