10 22FL ... SEG BSBLFAIL,866 4 22_= ...# 11 23DW ... SEGENTRY K1BSBLFAIL,QK1BL 4 23YG ...# 21 24D6 ...# THIS SEGMENT DEALS WITH BLANKET FAILS. PROCONTX CHAINS A 21 24XQ ...# BSTB/BWRITE ON THE ACTIVITY CHAIN WITH BACK1 AND BACK2 13 25CB ...# CONTAINING THE BS HOME 4 25X2 ...# 10 26BL ...QK1BL MHUNTW 1,BSTB,BWRITE 9 74K6 RW1 LDX 7 BACK1(1) 17 754Q BNG 7 SPA1 [BLANKET PSEUDO FAIL 17 75JB STO 7 AWORK1(2) [BACKING STORE HOME 12 7642 LDX 0 BACK2(1) [ 12 76HL STO 0 AWORK2(2) [ 4 76L2 ...RW4 9 76NB ... FSHCODE B,SHFSP2 4 76QQ ...( 21 76T6 ... FSHACTPR [SET UP PAIRED BTFAIL IN MACHINE A 5 76XG ...SHFSP2 4 76_W ...) 7 774= ... GETBACK 9 776L ... FSHCODE B,SHFSK2 4 7792 ...( 20 77?B ... FSHKILL [KILL PAIRED BTFAIL IN MACHINE A 5 77*Q ...SHFSK2 4 77D6 ...) 9 77GW STO 7 AWORK3(2) 10 782G HUNTW 3,BSTB,BWRITE 16 78G6 LOCK 3 [LOCK BSTB/BWRITE 8 78_Q LDN 1 A1(3) 21 79FB BACKWRITE BSET+FLAW,ALOGLEN(3),RW3,AWORK1(2),AWORK3(2),1 [WRITE AW 9 7=68 ... LDX 0 AWORK1(2) 10 7=?B ... STO 0 ACOMMUNE1(2) 8 7=DJ ... CALL 0 XBSA 9 7=KQ ... CALL 0 SETFLRS 7 7=N* ... UNLOCK 3 20 7=QY ... TIDYFAIL ACOMMUNE1(2),AWORK2(2),AWORK3(2),1 [CHANGE OLD TO NEW 9 7=Y= #SKI K6TRANFAIL>99-99 11 7?CW TRACE AWORK3(2),BLFAIL 18 7?XG LDX 6 AWORK1(2) [PUT OLD BLOCK NO IN PFL 9 7#C6 LDX 7 AWORK2(2) 10 7#WQ XJA MHUNT 3,BSTB,BFRAIL 21 7*BB LDX 0 A1(3) [SET A1 -VE TO INDICATE BLOCK BEING A 15 7*W2 BPZ 0 XJB [SOMEONE ELSE 19 7B*L COOR2 [WAIT TILL THEY HAVE FINISHED 8 7BT= BRN XJA 21 7C#W XJB LDN 1 A1-1(3) [CHECK IF ENOUGH ROOM FOR NEW ENTRY 17 7CSG NGN 0 1 [-1 TERMINATES LIST 16 7D#6 XJD ADN 1 2 [STEP ON POINTER 8 7DRQ TXU 0 0(1) 14 7F?B BCS XJD [J NOT -1 9 7FR2 SBN 1 A1-3(3) 10 7G=L TXL 1 ALOGLEN(3) 16 7GQ= BCS XJG [J FI ENOUGH ROOM 10 7H9W LDX 4 ALOGLEN(3) 16 7HPG ADN 4 AFRAILEX [PLUS EXTENTION 16 7J96 LDCT 0 #400 [LOCK OUT MARK 9 7JNQ ORS 0 A1(3) 17 7K8B ALTLEN 3,4 [EXTEND BSTB/BFRAIL 11 7KN2 MHUNT 3,BSTB,BFRAIL 17 7L7L LDCT 0 #400 [REMOVE LOCKOUT BIT 8 7LM= ERS 0 A1(3) 7 7M6W NGN 0 1 16 7MLG XJG ADN 3 2 [SEARCH FOR END 9 7N66 TXU 0 A1-1(3) 15 7NKQ BCS XJG [J NOT END 9 7P5B LDX 0 AWORK2(2) 15 7PK2 STO 0 A1-1(3) [BLOCK NO. 9 7Q4L LDX 0 AWORK1(2) 8 7QJ= SLL 0 18 13 7R3W STO 0 A1(3) [LFN 7 7RHG NGN 0 1 17 7S36 STO 0 A1+1(3) [MARKER FOR END (-1) 10 7SGQ MHUNT 3,BSTB,BWRITE 16 7T2B FREECORE 3 [FREE BSTB/BWRITE 7 7TG2 LDN 0 1 20 7T_L SBS 0 BACK1(2) [REDUCE COUNT OF BLANKET FAILS 19 7W9D ...XJEND HUNTW 1,BSTB,BWRITE [ANY MORE BLANKET FAILS TO DO 13 7WF= ... BPZ 1 RW1 [YES 5 7WP4 ... UP 4 7WYW # 16 7XDG # FAILS AGAIN WHILE WRITING BLANKET TO NEW BLOCK 4 7XY6 # 17 7YCQ RW3 UNLOCK 3 [UNLOCK BSTB,BWRITE 9 7YXB #SKI K6TRANFAIL>99-99 12 7_C2 ...# * TRACE AWORK3(2),NEWBLFL 9 7_WL LDX 7 AWORK1(2) 15 82B= LISTFAIL 7,AWORK3(2) [CLEAR FAIL 15 82TW BRN RW4 [TRY AGAIN 4 83*G # 15 ##J6 ...SPA1 ERX 7 GSIGN [ CLEAR BIT 0 9 #B32 STO 7 BACK1(1) 15 #C2= LDX 0 BACK2(1) [PARAMETERS 13 #CFW STO 0 AWORK2(2) [FOR 15 #C_G STO 0 AWORK3(2) [BACKWRITE 20 #DF6 LDX 3 1 [PRESERVE POINTE TO BWRITE BLOCK 13 #GX= STO 7 ACOMMUNE1(2) [LFN 20 #HBW CALL 0 XBSA [ADDRESS OF BSA INTO AWORK1(2) 9 #HWG ...XWT LDX 1 AWORK1(2) 21 #JB6 ... LDX 0 BSFAIL(1) [ARE FAILS OR CARTRIDGE COMMAND IN 14 #JTQ ... ANDN 0 BKARTWT+CGINPROG [PROGRESS 17 #K*B ... BZE 0 XLCK [ J IF DEVICE NOW OK 14 #KT2 ... COOR3 #41 [ WAIT 17 #L#L ... BRN XWT [ GO TO GHECK AGAIN 4 #LS= ...XLCK 10 #M44 ... MHUNTW 3,BSTB,BWRITE 7 #M?W ... LOCK 3 8 #MRG ... LDN 1 A1(3) 18 #N?6 ... BACKWRITE BSET+FLAW,ALOGLEN(3),RW3,EX7,AWORK3(2),1 9 #NQQ ... CALL 0 SETFLRS 7 #P=B ... UNLOCK 3 14 *7CG SPA2 LDX 0 BACK1(3) [PREPARE 15 *7X6 STO 0 ACOMMUNE1(2) [ PARAMETERS 14 *8BQ LDX 0 BACK2(3) [ FOR 14 *8WB STO 0 ACOMMUNE2(2) [ XWAIT 8 *9B2 FREECORE 3 8 *9TL CALL 0 XWAIT 9 *=83 ... LDX 1 AWORK1(2) 18 *=GD ... UNSETFB 1,1 [UNSET OFFLINE FAIL BIT 7 *=SW LDN 0 1 20 *?#G SBS 0 BACK1(2) [REDUCE COUNT OF BLANKET FAILS 9 *?S6 LDX 1 AWORK1(2) 16 *#?Q LDX 1 FPTR(1) [ADDRESS OF BFAIL 20 *#RB SBS 0 A1(1) [REDUCE COUNT OF FAILS IN BFAIL 8 **3# ... BRN XJEND 4 **?? ...# 19 **?J ...# SUBROUTINE TO CREATE FLOUR BLOCKS FOR APPROPRIATE Q BLOCKS 17 **?T ...# ON THE BSA'S WAIT QUEUE 5 **#6 ...SETFLRS 8 **#C ... SBX 0 FX1 10 **#N ... STO 0 ACOMMUNE2(2) 9 **#_ ... SMO AWORK1(2) 15 ***= ... LDN 1 BSQWCHAN [BS WAIT Q 15 ***H ... TXU 1 0(1) [TEST FOR END 14 ***S ... BCC SFLR [J IF END 8 **B5 ... LDX 1 0(1) 17 **BB ...SPA6 SBN 1 CHAINADD [ADDRESS OF QBLOCK 13 **BM ... LDX 0 ATYPE(1) [TYPE 8 **BY ... TXL 0 CACT 15 **C9 ... BCS SPA4 [J IF BQBLK 14 **CG ... LDX 7 BA1(1) [PARAMS 14 **CR ... LDX 6 BA2(1) [ FROM 15 **D4 ... LDX 5 BA3(1) [ ACTIVITY 15 **D* ... LDX 4 ACOMMUNE7(1) [ QBLOCK 8 **DL ... BRN SPA5 14 **DX ...SPA4 LDX 7 ATRAN(1) [PARAMS 14 **F8 ... LDX 6 ALENLFN(1) [ FROM 14 **FF ... LDX 5 BLKNO(1) [ BSTB 15 **FQ ... LDX 4 BSMODE(1) [ BQBLK 7 **G3 ...SPA5 LDX 0 6 16 **G# ... ANDN 0 #377 [LFN IN QBLOCK 16 **GK ... TXU 0 BACK1(3) [SAME AS BWRITE? 17 **GW ... TXU 5 BACK2(3) [SAME HOME ADDRESS? 14 **H7 ... BCS SPA3 [J IF NOT 15 **HD ... BNZ 4 SPA3 [J NOT READ 9 **HP ... ANDN 7 BOBJ+BSET 8 **J2 ... BNZ 7 SPA3 14 **J? ... SRL 6 8 [LENGTH 17 **JJ ... LDX 5 1 [PRESERVE PTR TO QBLOCK 7 **JL ... LDX 7 1 18 **JN ... JBC SPA7,7,AFLOCK [J IF BLOCK NOT LOCKED 20 **JQ ... STOZ 7 [INDICATOR NOT TO UNLOCK BLOCK 8 **JS ... BRN SPA8 7 **JW ...SPA7 LOCK 5 17 **JY ...SPA8 SETUPCORE 6,4,BSTB,FLOUR [SET UP READ BUFFER 8 **K2 ... BZE 7 SPA9 7 **K4 ... UNLOCK 5 17 **K6 ...SPA9 CHAIN 4,5 [CHAIN AFTER QBLOCK 15 **KC ... LDX 1 5 [RESTORE PTR 7 **KN ... SMO 4 8 **K_ ... LDN 6 BACK1 9 **L= ... LDN 5 BACK1(3) 19 **LH ... MOVE 5 2 [BS HOME IN READ BUFFER BLOCK 9 **LS ...SPA3 SMO AWORK1(2) 15 **M5 ... LDN 0 BSQWCHAN [BS WAIT Q 15 **MB ... LDX 1 CHAINADD(1) [NEXT QBLOCK 15 **MM ... TXU 0 1 [TEST FOR END 8 **MY ... BCS SPA6 10 **N9 ...SFLR LDX 0 ACOMMUNE2(2) 8 **NG ... ADX 0 FX1 7 **NR ... EXIT 0 0 4 **NY ...# 4 **P5 ...# 5 **P= ...STYPE 11 **PC ...#HAL +BSTB+BQBLK,0 4 **PJ ...# 4 **PP ...# 4 **PW ...# 15 **Q3 ...# SR TO REQUE BLOCKS FROM BSWQ TO BSA Q. 13 **Q8 ...# AWORK1 CONTAINS ADDRESS OF BSA 13 **Q* ...# ACOMMUNE1 CONTAINS LFN OR BSUN 18 **QG ...# ACOMMUNE2 CONTAINS ZERO IF BSUN IN 1 OR BLOCK NUMBER 12 **QM ...# LINK X0 STORED IN ACOMMUNE6 5 **QS ...XWAIT 10 **Q_ ... STO 0 ACOMMUNE6(2) 9 **R6 ... LDX 1 AWORK1(2) 7 **R? ... LDN 7 0 10 **RD ... LDX 0 ACOMMUNE2(2) 16 **RK ... BNZ 0 SCA [JUMP IF OFFLINE 7 **RQ ... LDN 7 2 16 **RX ...SCA LDN 6 BSQWCHAN(1) [BASE OF WAIT Q 7 **S4 ... LDX 3 6 17 **S9 ...SH LDX 3 FPTR(3) [ADDRESS OF Q BLOCK 8 **SB ...SHA LDX 2 FX2 7 **SH ... TXU 3 6 16 **SN ... BCC SD [JUMP IF END OF Q 9 **ST ... SBN 3 CHAINADD 21 **T2 ... LDN 4 BA1(3) [RESCUE PARAMETERS BA AREA IF ACTIVIT 18 **T7 ... LDX 1 EXEC3(3) [DATUMISED BLOCK NUMBER 9 **T# ... LDX 0 ATYPE(3) 8 **TF ... SMO FX1 8 **TL ... TXU 0 STYPE 8 **TR ... BCS SR1 10 **TY ... LDX 1 ADBLKNO(3) 9 **W5 ... LDN 4 ATRAN(3) 9 **W= ...SR1 LDN 5 AWORK2(2) 7 **WC ... MOVE 4 3 9 **WJ ... LDX 0 AWORK2(2) 7 **WP ... ANDN 0 2 7 **WW ... ERX 0 7 20 **X3 ... BNZ 0 SG [JUMP IF WRONG TYPE OF TRANSFER 16 **X8 ... BNZ 7 SY [JUMP IF ONLINE 9 **X* ... LDX 0 AWORK3(2) 8 **XG ... ANDN 0 #377 10 **XM ... TXU 0 ACOMMUNE1(2) 17 **XS ... BCS SG [JUMP IF WRONG LFN 9 **X_ ... LDX 0 AWORK4(2) 9 **Y6 ... ANDX 0 BSTSMASK 10 **Y? ... TXU 0 ACOMMUNE2(2) 8 **YD ... BCS SG 10 **YK ...SY LDX 4 CHAINADD(3) 9 **YQ ...#SKI K6TRANFAIL>199-199 4 **YX ...( 9 **_4 ... TRACE 3,REQUE 8 **_9 ... TRACE 6, 4 **_B ...) 9 **_H ... ADN 3 CHAINADD 7 **_N ... OFFQUE 3 9 **_T ... SBN 3 CHAINADD 10 *B22 ... OPTRAN 3,1,AWORK1(2) 7 *B27 ... LDX 3 4 8 *B2# ... BRN SHA 16 *B2F ...SG ADN 3 CHAINADD [ADJUST POINTER 8 *B2L ... BRN SH 8 *B2R ...SD LDX 1 FX1 8 *B2Y ... LDX 2 FX2 10 *B35 ... LDX 0 ACOMMUNE6(2) 7 *B3= ... EXIT 0 0 21 *B3C ...# SR TO CONVERT LFN IN ACOMMUNE1 TO ADDRESS OF APPROPRIATE BSA 18 *B3J ...# ADDRESS OF BSA LEFT IN AWORK1 X1,X2 RESET TO FX1,FX2 7 *B3P ...# LINK X0 4 *B3W ...# 4 *B43 ...# 4 *B48 ...XBSA 10 *B4* ... LDX 1 ACOMMUNE1(2) 7 *B4G ... SLL 1 1 8 *B4M ... ADX 1 ALFTP 8 *B4S ... LDX 1 A1(1) 8 *B4_ ... SRL 1 12 9 *B56 ...XBSB MPY 1 ASBSAB 7 *B5? ... NGX 2 2 8 *B5D ... ADX 2 BBAC 9 *B5K ... ADX 2 ASBSAB 8 *B5Q ... SMO FX2 9 *B5X ... STO 2 AWORK1 8 *B64 ... LDX 2 FX2 8 *B69 ... LDX 1 FX1 7 *B6B ... EXIT 0 0 4 *B7Y ...# 4 *BPW #END 6 ____ ...235502570001