{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: MACROS)}}
====== MACROS ======
(George Source)


<code - MACROS.txt>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
</code>