BACKTRAN
(GIN Macro)
Defined in: MACROS
Used in: BRADDATA867, BRADEMUL867, ERASEX866, FLAW866, FLAWMAP866, PATCH, PERION867, SPERION867, SWAP865, TRANSFER70
- 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