READAUTO
(GIN Macro)
Defined in: MACROS
Used in: INCMON865
- 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