(George Source)
229S ...[??? REQUE SECT FILE FGN 9 DOC 22FL # 22^= ...# FRANK BLUNDELL 23DW # 24XQ #MAC REQUE 25CB #STR %A,3 25X2 LDX 3 %A 26BL #STR %B,2 26W= LDX 2 %B 27*W CALL 0 (BSTS7) 27TG #NOR 285# ...[??? ONQUE SECT FILE FGN 9 DOC 28*6 # 28SQ #MAC ONQUE 29#B #STR %A,3 29S2 LDX 3 %A 2=?L #STR %B,2 2=R= LDX 2 %B 2?=W CALL 0 (BSTS5) 2?QG #NOR 2#2# ...[??? OFFQUE SECT FILE FGN 9 DOC 2#=6 # 2#PQ #MAC OFFQUE 2*9B #STR %A,3 2*P2 LDX 3 %A 2B8L CALL 0 (BSTS6) 2BN= #NOR 2BY4 ...[??? SWAPWAIT SECT FILE FGN 9 DOC 2C7W # 2CMG #MAC SWAPWAIT 2D76 LDX 0 ATRAN(3) 2DLQ ANDN 0 BOBJ+BPAGE+ASWAP 2F6B BZE 0 %A [J NOT OP 2FL2 LDCT 0 1 [FPUT PCA BIT 2G5L ORS 0 ATRAN(3) 2GK= #SKI G3 2H4W COOR1 2HJG #SKI G4 2J46 COOR3 #123 2JHQ #NOR 2K3B ...[??? OPTRAN SECT FILE FGN 9 DOC 2L2L #MAC OPTRAN 2L7S ...#SKI BSOPT 2L*2 ...( 2LG= LDN 0 CHAINADD(%A) 2L^W STO 0 EX6 2MFG LDX 0 %B 2M^6 ANDX 0 GMIN4 2NDQ STO 0 EX5 2NYB LDX 3 %C 2PD2 CALL 0 (BSTS13) 2PMS ...) 2PXL #NOR 2QC= ...[??? BACKWAIT SECT FILE FGN 9 DOC 2QWW # 2RBG #MAC BACKWAIT 2RW6 #STR %B 2S*Q ( 2STB LDX 0 %B 2T*2 STO 0 BSP11 2TSL LDX 0 %C 2W#= STO 0 BSP12 2WRW #STR %D 2X?G ( 2XR6 LDN 0 BONLINE 2Y=Q STO 0 EX7 2YQB ) 2^=2 #STR %D 2^PL #SKI 329= STOZ EX7 32NW BRN M1BACKWAIT 338G LDCT 0 #200 33N6 STO 0 BSP11 347Q M1BACKWAIT 34MB ) 3572 #STR %B 35LL #SKI 366= ( 36KW LDX 0 GSIGN 375G STO 0 BSP11 37K6 ) 384Q CALL 0 (BSTS11) 38JB #STR %A 3942 BRN %A 39HL #STR %A 3=3= #SKI 3=GW BRN (AERR) 3?2G #NOR 3?=# ...[??? SWAPTRAN SECT FILE FGN 9 DOC 3?G6 #MAC SWAPTRAN 3?^Q CALL 0 (BSTS4) 3#FB LDCT 0 2 3#^2 LDX 4 %A 3*39 ...#UNSET ERRR 3*5D ...( 3*7M ... BNZ 4 M1SWAPTRAN 3*9W ... ORN 0 FAIL 3*#5 ...M1SWAPTRAN 3*B# ...) 3*DL SLL 4 17 3*Y= ADN 4 BOBJ+ASWAP 3BCW ORX 4 GSIGN 3BXG ORX 4 0 3CC6 LDX 5 %B 3CWQ SLL 5 8 3DBB ADX 5 %C 3DW2 #STR %D 3F*L LDX 6 %D 3FT= #STR %D 3G#W #SKI 3GSG LDX 6 1+%C 3H#6 LDX 7 %E 3HRQ LDX 0 %F 3J?B SMO FX2 3JR2 STO 0 BA5 3K=L CALL 0 (BSTS1) 3KQ= BRN %G 3L9W #NOR 3LFN ...[??? FILEWAIT SECT FILE FGN 9 DOC 3LPG # 3M96 #MAC FILEWAIT 3MNQ M13FILEWAIT 3N8B HUNTW 2,BSTB,FULLB 3NN2 BNG 2 M1FILEWAIT [ERROR IF NOT THERE 3P7L LDX 0 A1(2) [RECORD HEADER 3PM= SBN 0 2 3Q6W STO 0 BATEMAN3 [NO. OF BLOCK NOS 3QBN ... BZE 0 M91FILEWAIT [EXIT IF FILE EMPTY 3QLG LDX 0 A1+1(2) [LFN 3R66 ADX 0 0 [DOUBLE TO USE AS MOD TO LF TABLE 3RKQ LDX 1 ALFTP 3S5B SMO 0 3SK2 LDX 0 A1(1) [BSUN IN BITS 0-11 3T4L BPZ 0 M2FILEWAIT [J IF LF EXISTS 3TJ= M1FILEWAIT 3W3W GEOERR 1,FILEWAIT [OTHER WISE ERROR 3WHG M5FILEWAIT 3X36 +BSCHANAD 3XGQ +BSSCHAD 3Y2B +BSQWCHAN 3YG2 M2FILEWAIT 3Y^L SRL 0 12 3^F= MPY 0 ASBSAB 3^YW NGX 1 1 42DG ADX 1 BBAC 42Y6 ADX 1 ASBSAB [X1 CONTAINS BSA ADDRESS 43CQ LDN 3 3 43XB STO 3 BATEMAN1 [NO OF BS QUEUES 44C2 M15FILEWAIT 44WL ADX 3 FX1 45B= SMO M5FILEWAIT-1(3) 45TW LDN 0 0(1) [BASE OF QUEUE 46*G SMO M5FILEWAIT-1(3) 46T6 M17FILEWAIT 47#Q LDX 1 0(1) [NEXT ON QUEUE 47SB TXU 1 0 48#2 BCC M3FILEWAIT [J IF END OF QUEUE 48RL SBN 1 CHAINADD [START OF QUEUE BLOCK 49?= LDN 3 BA1(1) 49QW LDX 4 ATYPE(1) 4==G TXL 4 CACT 4=Q6 BCC M10FILEWAIT [J IF ACTIVITY 4?9Q SBX 4 BSP10 4?PB BNZ 4 M1FILEWAIT [ERROR IF NOT BSTB/BQBLK 4#92 LDN 3 ATRAN(1) 4#NL M10FILEWAIT 4*8= LDX 5 0(3) 4*MW LDX 4 2(3) [BLOCK NO 4B7G LDX 3 1(3) [LENGTH/LFN 4BM6 ADN 1 CHAINADD 4C6Q ANDN 5 BONL 4CLB BNZ 5 M17FILEWAIT [GET NEXT QUEUE BLK IF ONLINE 4D62 ANDN 3 #377 [LFN 4DKL TXU 3 A1+1(2) 4F5= BCS M17FILEWAIT [NOT SAME LF 4FJW LDX 5 BATEMAN3 [NO OF BLOCK NOS IN FULLB 4G4G M12FILEWAIT 4GJ6 SMO 5 4H3Q TXU 4 A1+1(2) 4HHB BCS M11FILEWAIT [J IF UNEQUAL 4J32 ... COOR3 #41 [WAIT FOR A CLEANCT 4JGL BRN M13FILEWAIT [TRY AGAIN 4K2= M11FILEWAIT 4KFW BCT 5 M12FILEWAIT [REDUCE MOD 4K^G BRN M17FILEWAIT [GET NEXT ON BS QUEUE 4LF6 M3FILEWAIT 4LYQ LDX 3 BATEMAN1 4MDB SMO FX1 4MY2 SBX 1 M5FILEWAIT-1(3) [X1 POINTS TO START OF BSA 4NCL SBN 3 1 [DECREASE COUNT OF QUEUES 4NX= STO 3 BATEMAN1 4PBW BNZ 3 M15FILEWAIT 4PLN ...M91FILEWAIT 4PWG #NOR 4Q6# ...[??? CLEARFAI SECT FILE FGN 9 DOC 4QB6 # 5T3G #MAC CLEARFAIL 5TH6 LDX 2 ATFAPTR 5W2Q HUNT2 2,BSTB,BFRAIL 5WGB SHORTEN 2,AFRAILLEN 5X22 LDN 0 A1(2) [CLEAR 5XFL LDN 1 A1+1(2) [OUT 5X^= STOZ A1(2) [BLOCK 5YDW MOVE 0 AFRAILLEN-1 5YYG NGN 0 1 5^D6 STO 0 A1+1(2) [SET EMPTY 5^XQ LDX 1 FX1 62CB LDX 2 FX2 62X2 #NOR 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 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 8DR8 ...[??? BACKWRIT SECT FILE FGN 9 DOC 8F32 #MAC BACKWRITE 8FGL #SKI BSOKAY 8G2= ( 8GFW #STR %A 8G^G ( 8HF6 #DEF M1BACKWRIT=%A$FLAW 8HYQ #DEF M2BACKWRIT=%A$BOBJ$FLAW<M1BACKWRIT 8JDB #DEF M3BACKWRIT=%A&BONLFAIL-BONLFAIL<M2BACKWRIT 8JY2 #DEF M4BACKWRIT=%A&FREEBOBJ-FREEBOBJ<M3BACKWRIT 8KCL #DEF M5BACKWRIT=%A&BSETFREE-BSETFREE<M4BACKWRIT 8KX= #DEF M6BACKWRIT=%A&FAILFLAW-FAILFLAW<M5BACKWRIT 8LBW #DEF M7BACKWRIT=%A&BUSE<1$1<M6BACKWRIT 8LWG #DEF M50BACKWRIT=%A&ASWAPBON-ASWAPBON<M7BACKWRIT 8MB6 #DEF M51BACKWRIT=%A&ASWAPFLA-ASWAPFLA<M50BACKWRIT 8MTQ #DEF M52BACKWRIT=%A&FAILSWAP-FAILSWAP<M51BACKWRIT 8N*B #DEF M8BACKWRIT=%A$FLAW$BOBJ$BSET<M52BACKWRIT 8NT2 #SKI %A&BONL 8P#L ( 8PS= #STR %C 8Q?W #DEF M9BACKWRIT=0 8QRG ) 8R?6 #SKI %A&BOBJSET 8RQQ #STR %F 8S=B #SKI 8SQ2 #DEF M10BACKWRIT=0 8T9L #SKI %A&BOBJ 8TP= #STR %G 8W8W #SKI 8WNG #DEF M11BACKWRIT=0 8X86 #SKI %A&FAIL 8XMQ ( 8Y7B #STR %C 8YM2 #DEF M12BACKWRIT=0 8^6L ) 8^L= #OPT M9BACKWRIT=1 925W #OPT M10BACKWRIT=1 92KG #OPT M11BACKWRIT=1 9356 #OPT M12BACKWRIT=1 93JQ #DEF M97BACKWRIT=M8BACKWRIT<M9BACKWRIT<M10BACKWRIT 944B #DEF M98BACKWRIT=M97BACKWRIT<M11BACKWRIT<M12BACKWRIT 94J2 ) 953L ) 95H= #OPT M98BACKWRIT=1 962W #SKI M98BACKWRIT 96GG #SKI 9726 GEOERR 1,MACWRONG 97FQ #SKI M98BACKWRIT 97^B ( 98F2 CALL 0 (BSTS4) 98YL LDCT 4 #4 99D= #STR %A 99XW ( 9=CG #SKI %A&BONLSWAP 9=X6 ORN 4 %A 9?BQ #SKI %A&BONLSWAP<1$1 9?WB ORN 4 %A+FAILBIT 9#B2 ) 9#TL #STR %A 9**= #SKI 9*SW ORN 4 FAILBIT 9B#G LDX 5 %B [LENGTH 9BS6 SLL 5 8 9C?Q #STR %D 9CRB ADX 5 %D [LFN 9D?2 #STR %E 9DQL LDX 6 %E [BLOCK NO. 9F== #STR %E 9FPW #SKI 9G9G ( 9GP6 #STR %D 9H8Q LDX 6 1+%D 9HNB ) 9J82 #STR %F 9JML LDX 7 %F 9K7= #STR %A 9KLW ( 9L6G #SKI %A&BOBJ 9LL6 ( 9M5Q LDX 0 %G 9MKB SMO FX2 9N52 STO 0 BA5 9NJL ) 9P4= ) 9PHW CALL 0 (BSTS1) 9Q3G #STR %A 9QH6 #SKI %A&BONLFAIL<1$1 9R2Q ( 9RGB #STR %C 9S22 BRN %C 9SFL #STR %C 9S^= #SKI 9TDW BRN (AERR) 9TYG ) 9WD6 ) 9WXQ #SKI BSOKAY 9XCB ( 9XX2 #FRE M1BACKWRIT,M2BACKWRIT,M3BACKWRIT,M4BACKWRIT,M5BACKWRIT 9YBL #FRE M6BACKWRIT,M7BACKWRIT,M50BACKWRIT,M51BACKWRIT,M52BACKWRIT 9YW= #FRE M8BACKWRIT,M9BACKWRIT,M10BACKWRIT,M11BACKWRIT,M12BACKWRIT 9^*W #FRE M97BACKWRIT 9^TG ) =2*6 #FRE M98BACKWRIT =2SQ #NOR =34J ...[??? WRITEAUT SECT FILE FGN 9 DOC =3#B #MAC WRITEAUTO =3S2 #SKI BSOKAY =4?L ( =4R= #STR %A =5=W ( =5QG #DEF M1WRITAUTO=%A$FLAW =6=6 #DEF M2WRITAUTO=%A$BOBJ$FLAW<M1WRITAUTO =6PQ #DEF M3WRITAUTO=%A&BONLFAIL-BONLFAIL<M2WRITAUTO =79B #DEF M4WRITAUTO=%A&FREEBOBJ-FREEBOBJ<M3WRITAUTO =7P2 #DEF M5WRITAUTO=%A&BSETFREE-BSETFREE<M4WRITAUTO =88L #DEF M6WRITAUTO=%A&FAILFLAW-FAILFLAW<M5WRITAUTO =8N= #DEF M7WRITAUTO=%A$FLAW$BSET$BOBJ<M6WRITAUTO =97W #DEF M70WRITAUTO=%A&BONLSWAP-BONLSWAP<M7WRITAUTO =9MG #DEF M71WRITAUTO=%A&ASWAPFLA-ASWAPFLA<M70WRITAUTO ==76 #DEF M72WRITAUTO=%A&FAILSWAP-FAILSWAP<M71WRITAUTO ==LQ #DEF M8WRITAUTO=%A&BUSE<1$1<M72WRITAUTO =?6B #SKI %A&BOBJSET =?L2 #STR %F =#5L #SKI =#K= #DEF M10WRITAUTO=0 =*4W #SKI %A&BOBJ =*JG #STR %G =B46 #SKI =BHQ #DEF M11WRITAUTO=0 =C3B ) =CH2 #STR %C =D2L #DEF M9WRITAUTO=0 =DG= #OPT M8WRITAUTO=1 =D^W #OPT M9WRITAUTO=1 =FFG #OPT M10WRITAUTO=1 =F^6 #OPT M11WRITAUTO=1 =GDQ #DEF M98WRITAUTO=M8WRITAUTO<M9WRITAUTO<M10WRITAUTO<M11WRITAUTO =GYB ) =HD2 #OPT M98WRITAUTO=1 =HXL #SKI M98WRITAUTO =JC= #SKI =JWW GEOERR 1,MACWRONG =KBG #SKI M98WRITAUTO =KW6 ( =L*Q CALL 0 (BSTS4) =LTB LDCT 4 #404 =M*2 #STR %A =MSL ( =N#= #SKI %A&BONLSWAP =NRW ORN 4 %A =P?G #SKI %A&BONLSWAP<1$1 =PR6 ORN 4 %A+FAILBIT =Q=Q ) =QQB #STR %A =R=2 #SKI =RPL ORN 4 FAILBIT =S9= LDX 5 %B =SNW SLL 5 8 =T8G #STR %D =TN6 ADX 5 %D =W7Q #STR %E =WMB LDX 6 %E =X72 #STR %E =XLL #SKI =Y6= ( =YKW #STR %D =^5G LDX 6 1+%D =^K6 ) ?24Q #STR %F ?2JB LDX 7 %F ?342 #STR %A ?3HL ( ?43= #SKI %A&BOBJ ?4GW ( ?52G LDX 0 %G ?5G6 SMO FX2 ?5^Q STO 0 BA5 ?6FB ) ?6^2 ) ?7DL CALL 0 (BSTS1) ?7Y= ) ?8CW #SKI BSOKAY ?8XG ( ?9C6 #FRE M1WRITAUTO,M2WRITAUTO,M3WRITAUTO,M4WRITAUTO,M5WRITAUTO ?9WQ #FRE M6WRITAUTO,M7WRITAUTO,M70WRITAUTO,M71WRITAUTO,M72WRITAUTO ?=BB #FRE M8WRITAUTO,M9WRITAUTO,M10WRITAUTO,M11WRITAUTO ?=W2 ) ??*L #FRE M98WRITAUTO ??T= #NOR ?#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 #FDB ...[??? UNJAMWRI SECT FILE FGN 9 DOC *NGX ...# *NHD ...# *NH^ ...#MAC UNJAMWRITE *NJG ... LOCK 3 *NK3 ... LDX 1 BACK1(3) [LFN *NKJ ... STO 1 AWORK1(2) *NL5 ... FINDBSA 1 [GET PTR TO BSA IN X2 *NLL ... LDX 0 BSFAIL(2) *NM# ... ANDN 0 BKARTWT+CGINPROG [ARE FAILS OR CARTRIDGE COMMAND IN *NN2 ... BZE 0 MCB1 [PROGRESS J IF NOT *NNQ ... UNLOCK 3 *NP? ... LDX 4 FPTR(3) *NPS ... LDX 1 FX1 *NQ* ... LDX 2 FX2 *NQW ... BRN %A *NRC ...MCB1 NAME 3,ADATA,CORUNJAM *NRY ... LDX 1 BACK1(3) [LFN *NS8 ... LDX 4 BACK2(3) *NSF ... STOZ BACK1(3) *NT2 ... STOZ BACK2(3) *NTH ... ADDSKIP I516A,COREFUWB *NW4 ... LDN 2 A1(3) *NWK ... BACKWRITE BSET+BLFAIL,ALOGLEN(3),%B,1,EX4,2 *NX6 ... LDX 4 FPTR(3) *NXM ...#NOR *NXX ...[??? UNSETFB SECT FILE FGN 9 DOC *NY8 ...# *NYP ...# *P22 #MAC UNSETFB *PFL #SKI %A-2 *P^= ( *QDW #SKI %A-1 *QYG ( *RD6 LDX 1 %B *RXQ SLL 1 1 *SCB ADX 1 ALFTP *SX2 LDX 0 A1(1) *TBL #SKI K6BSTS>199-199 *TW= ( *W*W BPZ 0 MUNSETFB3 *WTG GEOERR 0,WRNGLFN *X*6 MUNSETFB3 *XSQ ) *Y#B SRL 0 12 *YS2 ANDN 0 #1777 *^?L MPY 0 ASBSAB *^R= NGX 1 1 B2=W ADX 1 BBAC B2QG ADX 1 ASBSAB B3=6 ) B3PQ #SKI %A B49B LDX 1 %B B4P2 HUNT2 2,BSTB,BFAIL,1 B58L LDXC 0 A1(2) B5N= BNZ 0 MUNSETFB1 B67W LDN 0 BNOFB B6MG ERS 0 BSFAIL(1) B776 LDN 0 BOFB B7LQ ANDX 0 BSFAIL(1) B86B BNZ 0 MUNSETFB1 B8L2 LDCT 0 BFB B95L ERS 0 BSFAIL(1) B9K= MUNSETFB1 B=4W ) B=JG #SKI %A-2<1$1 B?46 ( B?HQ LDX 0 %B B#3B MPY 0 ASBSAB B#H2 NGX 1 1 B*2L ADX 1 BBAC B*G= ADX 1 ASBSAB B*^W LDN 0 BOFB BBFG ERS 0 BSFAIL(1) BB^6 LDN 0 BNOFB BCDQ ANDX 0 BSFAIL(1) BCYB BNZ 0 MUNSETFB2 BDD2 LDCT 0 BFB BDXL ERS 0 BSFAIL(1) BFC= MUNSETFB2 BFWW ) BGBG LDX 1 FX1 BGW6 LDX 2 FX2 BH*Q #NOR BHKJ ...[??? TIDYFAIL SECT FILE FGN 9 DOC BHTB #MAC TIDYFAIL BJ*2 LDX 0 %A BJSL SMO FX2 BK#= STO 0 ACOMMUNE1 BKRW LDX 0 %B BL?G SMO FX2 BLR6 STO 0 ACOMMUNE2 BM=Q LDX 0 %C BMQB SMO FX2 BN=2 STO 0 ACOMMUNE3 BNPL SMO FX2 BP9= #STR %D BPNW STO 0 ACOMMUNE4 BQ8G #STR %D BQN6 #SKI BR7Q STOZ ACOMMUNE4 BRMB ... DOWN RITEFAIL,2 BS72 #NOR BSBS ...[??? BADBLOCK SECT FILE FGN 9 DOC BSLL #MAC BADBLOCK BT6= LDX 0 %A BTKW SMO FX2 BW5G STO 0 ACOMMUNE1 BWK6 ... DOWN RITEFAIL,3 BX4Q #NOR BX#J ...[??? LISTFAIL SECT FILE FGN 9 DOC BXJB #MAC LISTFAIL BY42 LDX 0 %A BYHL SMO FX2 B^3= STO 0 ACOMMUNE1 B^GW LDX 0 %B C22G SMO FX2 C2G6 STO 0 ACOMMUNE2 C2^Q ... DOWN RITEFAIL,1 C3FB #NOR CCD8 ...[??? FINDFAIL SECT FILE FGN 9 DOC CCN2 #MAC FINDFAIL CD7L LDN 0 %A CDM= STO 0 EX4 CF6W LDX 0 %B CFLG STO 0 EX5 CG66 LDX 0 %C CGKQ STO 0 EX6 CH5B LDCT 0 BS%D CHK2 STO 0 EX7 CJ4L #STR %F CJJ= #SKI CK3W ( CKHG LDX 2 %C CL36 SLL 2 1 CLGQ ADX 2 ALFTP CM2B LDX 1 A1(2) CMG2 #SKI K6BSTS>199-199 CM^L ( CNF= BPZ 1 MFINDFAIL1 CNYW GEOERR 0,WRNGLFN CPDG MFINDFAIL1 CPY6 ) CQCQ SRL 1 12 CQXB ANDN 1 #1777 CRC2 MPY 1 ASBSAB CRWL NGX 2 2 CSB= ADX 2 BBAC CSTW ADX 2 ASBSAB CT*G ) CTT6 #STR %F CW#Q LDX 2 %F CWSB STO 2 BSP12 CX#2 CALL 0 (BSTS12) CXRL BRN %E CY?= #NOR CYH4 ...[??? FAILCLEA SECT FILE FGN 9 DOC CYQW #MAC FAILCLEAR C^=G STO 3 BSL1 C^Q6 LDX 0 %B D29Q ANDX 0 BSTSMASK D2PB STO 0 GEN0 D392 FINDFAIL 3,GEN0,%A,CFL,M3FAILCLEAR D3NL NGN 1 1 D48= M1FAILCLEAR D4MW LDX 0 2(3) D57G STO 0 0(3) D5M6 TXU 0 1 D66Q BCC M2FAILCLEAR D6LB ADN 3 1 D762 BRN M1FAILCLEAR D7KL M3FAILCLEAR D85= GEOERR 1,NO REC D8JW M2FAILCLEAR D94G HUNT2 1,BSTB,BFAIL,BSP12 D9J6 LDN 0 1 D=3Q SBS 0 A1(1) D=HB UNSETFB 1,BSP12 D?32 LDX 3 BSL1 D?GL #NOR D?QD ...[??? LOSBSBIT SECT FILE FGN 9 DOC D#2= # DP=D ...# DP?K ...# DP#Q ...# DP*X ...#MAC LOSBSBIT DPC4 ... FINDFAIL 2,%A,%B,PFL,MLOSBS3 [GET POINTER TO ENTRY IN BFAIL BLOCK DPD9 ... SBN 2 A1 DPFB ... NGN 0 1 [ -1 TERMINATES ENTRIES DPGH ...MLOSBS1 DPHN ... LDX 1 A1+1(2) [NEXT ENTRY DPJT ... TXU 1 0 [TEST FOR LAST ENTRY DPL2 ... BCC MLOSBS2 DPM7 ... STO 1 A1(2) [MOVE .... DPN# ... LDX 1 A1+3(2) [.. ENTRY UP ... DPPF ... STO 1 A1+1(2) [.. ONE PLACE DPQL ... ADN 2 2 [MOVE PIONTER DOWN DPRR ... BRN MLOSBS1 DPSY ...MLOSBS3 DPW5 ... GEOERR 1,NO REC [NO PFL ENTRY DPX= ...MLOSBS2 DPYC ... STO 0 A1(2) [PUT IN TERMINATOR DP^J ... LDX 1 FX1 DQ2P ... LDX 2 FX2 DQ3W ...#NOR DQ53 ...# DQ68 ...# DQ7B # ^^^^ ...57210457001400000000