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

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

**Used in:** [[george:source:INCMON865|INCMON865]]

<code - READAUTO.mac.txt>
 ?#54 ...[??? READAUTO SECT FILE FGN 9 DOC   
 ?##W    #MAC  READAUTO  
 ?#SG    #SKI  BSOKAY
 ?*#6    (   
 ?*RQ    #STR  %A
 ?B?B    (   
 ?BR2    #DEF  M1READAUTO=%A$FLAW
 ?C=L    #DEF  M2READAUTO=%A&BSETBUSE-BSETBUSE<M1READAUTO
 ?CQ=    #DEF  M3READAUTO=%A&BOBJBUSE-BOBJBUSE<M2READAUTO
 ?D9W    #DEF  M4READAUTO=%A$BOBJ$FLAW<M3READAUTO
 ?DPG    #DEF  M5READAUTO=%A$BOBJ$BSET$FLAW<M4READAUTO   
 ?DSL ...#UNSET  ERRR
 ?DXQ ...#DEF  M60READAUTO=%A&FREE<1$1<M5READAUTO
 ?F2W ...#UNSET  ERRR
 ?F62 ...#SKI
 ?F96    #DEF  M60READAUTO=%A&FAILFREE<1$1<M5READAUTO
 ?FNQ    #DEF  M61READAUTO=%A&BONLSWAP-BONLSWAP<M60READAUTO  
 ?G8B    #DEF  M6READAUTO=%A&ASWAPFLA-ASWAPFLA<M61READAUTO   
 ?GN2    #SKI  %A&BOBJSET
 ?H7L    #STR  %F
 ?HM=    #SKI
 ?J6W    #DEF  M8READAUTO=0  
 ?JLG    #SKI  %A&BOBJ   
 ?K66    #STR  %G
 ?KKQ    #SKI
 ?L5B    #DEF  M9READAUTO=0  
 ?LK2    )   
 ?M4L    #STR  %C
 ?MJ=    #DEF  M7READAUTO=0  
 ?N3W    #OPT  M6READAUTO=1  
 ?NHG    #OPT  M7READAUTO=1  
 ?P36    #OPT  M8READAUTO=1  
 ?PGQ    #OPT  M9READAUTO=1  
 ?Q2B    #DEF  M98READAUTO=M6READAUTO<M7READAUTO<M8READAUTO<M9READAUTO   
 ?QG2    )   
 ?Q^L    #OPT  M98READAUTO=1 
 ?RF=    #SKI  M98READAUTO   
 ?RYW    #SKI
 ?SDG          GEOERR   1,MACWRONG   
 ?SY6    #SKI  M98READAUTO   
 ?TCQ    (   
 ?TXB          CALL  0  (BSTS4)  
 ?WC2          LDCT  4  #400 
 ?WWL    #STR  %A
 ?XB=    (   
 ?XCM ...#UNSET  ERRR
 ?XF4 ...(   
 ?XGF ...#SKI  %A&BONL>(%A&FAILSWAP-FAILSWAP<1$1)
 ?XHW ...      ORN   4  %A   
 ?XK? ...#SKI  %A&ASWAP<(%A&FAIL<1$1)
 ?XLN ...      ORN   4  %A+FAIL  
 ?XN5 ...)   
 ?XPG ...#UNSET  ERRR
 ?XQX ...#SKI
 ?XS# ...(   
 ?XTW    #SKI  %A&BONLSWAP   
 ?Y*G          ORN   4  %A   
 ?YK# ...)   
 ?YT6    #SKI  %A&BONLSWAP<1$1   
 ?^#Q          ORN   4  %A+FAILBIT   
 ?^SB    )   
 #2#2    #STR  %A
 #2RL    #SKI
 #3?=          ORN   4  FAILBIT  
 #3QW          LDX   5  %B   
 #4=G          SLL   5  8
 #4Q6          ADX   5  %D   
 #59Q    #STR  %E
 #5PB          LDX   6  %E   
 #692    #STR  %E
 #6NL    #SKI
 #78=          LDX   6  1+%D 
 #7MW    #STR  %F
 #87G          LDX   7  %F   
 #8M6    #STR  %A
 #96Q    (   
 #9LB    #SKI  %A&BOBJ   
 #=62    (   
 #=KL          LDX   0  %G   
 #?5=          SMO      FX2  
 #?JW          STO   0  BA5  
 ##4G    )   
 ##J6    )   
 #*3Q          CALL  0  (BSTS1)  
 #*HB    )   
 #B32    #SKI  BSOKAY
 #BGL    (   
 #C2=    #FRE  M1READAUTO,M2READAUTO,M3READAUTO,M4READAUTO,M5READAUTO,M60READAUTO
 #CFW    #FRE  M61READAUTO,M6READAUTO,M7READAUTO,M8READAUTO,M9READAUTO   
 #C^G    )   
 #DF6    #FRE  M98READAUTO   
 #DYQ    #NOR
</code>