8 22FL #OPT K0DROBJ=K0OLP 8 22_= #OPT K6DROBJ=K6OLP 7 23DW #LIS K0DROBJ 14 23YG #SEG DROBJ6 [7OPAE 7 24D6 8HDROBJ 11 24XQ SEGENTRY K1DROBJ,Z1DROBJ 11 25CB SEGENTRY K2DROBJ,Z2DROBJ 4 25X2 [ 5 26BL PLINK1 9 26W= PAIR DROBJ,1 7 27*W FILETRAN 4 27TG [ 10 28*6 Z1DROBJ [NORMAL ENTRY 4 28SQ [ 10 29#B LDX 3 APETADDR(2) 10 29S2 LOCKCA 3,ACAP(2),1 8 2=?L LDX 4 0(1) 9 2=R= STO 4 ACA1(2) 16 2?=W Z2DROBJ [ENTRY FROM DRSTART IF NO OPEN PERI 9 2?QG LDX 4 ACA1(2) 8 2#=6 ANDN 4 #7777 16 2#PQ BZE 4 MOK [J IF READ MODE 0 7 2*9B SBN 4 1 18 2*P2 BNZ 4 TCLOS [J UNLESS WRITE MODE 1 7 2B8L ADN 4 1 9 2BN= SETMODE 0,WRITE 10 2C7W ANDX 0 FSCMODE(2) 15 2CMG BZE 0 NWRIT [J IF NOT OFW 18 2D76 MOK LDN 5 5 [EXTEND LOCK TO 5 WORDS 17 2DLQ CHECKEXT ACAP(2),5,RVCA,APETADDR(2),,OKCA,HLOCK1 4 2F6B OKCA 10 2FL2 LDX 3 APETADDR(2) 9 2G5L LDX 6 ACAP(2) 9 2GK= LDN 7 ACA1(2) 16 2H4W FOUTMOVE 3,6,7,5,HLOCK1 [MOVE CA TO AOLPT 8 2HJG LDCT 0 #777 9 2J46 ANDX 0 ACA3(2) 16 2JHQ BNZ 0 WC [J IF COUNT>32K-1 9 2K3B LDX 0 ACA3(2) 14 2KH2 BZE 0 WC [OR ZERO 8 2L2L PMODES 1,3 9 2LG= LDX 0 BITS22LS 8 2L_W ANDN 1 #10 15 2MFG BNZ 1 MOKA [J IF 22AM 8 2M_6 LDX 0 BSP16 4 2NDQ MOKA 9 2NYB ANDS 0 ACA4(2) 8 2PD2 LDX 1 FX1 5 2PXL #SKI G4 4 2QC= ( 9 2QWW LDN 5 CHREAD 8 2RBG BNZ 4 WCH 20 2RW6 LDN 5 CHWRITE [CHECK WRITE ACCESS FOR READ PERI 4 2S*Q WCH 4 2STB ) 18 2T*2 CHECKB ACA4(2),ACA3(2),RVB,APETADDR(2),5,MOKB,HLOCK2 7 2TSL MOKB TOPFCB2 3 9 2W#= LDX 5 FSIZE(3) 9 2WRW SLL 5 GSBSLOG 9 2X?G LDX 6 AFADD(2) 19 2XR6 BXGE 6 5,WF [ J IF FILE ADD TOO BIG 9 2Y=Q ADX 6 ACA3(2) 7 2YQB ADN 5 1 17 2_=2 BXGE 6 5,WC [JIF COUNT TOO BIG 8 2_PL LDX 0 GSIGN 10 329= ORS 0 ALTMARK(2) 16 32NW AUTSTART [RESTART OBJ PROG 4 338G MZ0 19 33N6 LDEX 3 6 [NO. OF WDS. IN LAST BL. - WB 7 347Q LDX 5 6 17 34MB SRL 5 GSBSLOG [GET START BLOCK MOD. 18 3572 BZE 3 MZ1 [J IF ENDS ON BL. BNDY. 15 35LL BZE 4 MZ2 [J IF READ 16 366= ANDN 6 #177 [WDS IN LAST BLT. 18 36KW BZE 6 MZ2 [J IF ENDS ON BLT. BNDY. 9 375G STO 3 AWOLBL(2) 10 37K6 BXE 3 ACA3(2),MZ01 10 384Q BXL 3 ACA3(2),MZ01 14 38JB LDX 3 ACA3(2) [SET WB=C 9 3942 LDEX 6 AFADD(2) 18 39HL SRL 6 7 [X6 = BLT MOD FOR START 8 3=3= BRN MZ6 16 3=GW MZ01 LDN 6 0 [SET BLT MOD ZERO 8 3?2G BRN MZ6 14 3?G6 MZ1 LDN 3 GSBS [WB=GSBS 17 3?_Q SBN 5 1 [DECREMENT BL. MOD 9 3#FB MZ2 STO 3 AWOLBL(2) 16 3#_2 BXE 3 ACA3(2),MZ3 [J IF WB EQUAL TO 16 3*DL BXL 3 ACA3(2),MZ3 [OR LESS THAN C 14 3*Y= LDX 3 ACA3(2) [SET WB=C 17 3BCW LDEX 0 AFADD(2) [START WD. IN BLOCK 21 3BXG LDN 1 0 [BLOCKLET MOD. FOR START OF TRANSFER 15 3CC6 SRL 01 7 [X0 = BLT MOD 15 3CWQ LDX 6 0 [KEEP IN X6 20 3DBB BNZ 1 MZ6 [J IF DOES NOT START ON BLT. BDY. 8 3DW2 BRN MZ4 4 3F*L MZ3 16 3FT= LDN 6 0 [SET BLT MOD ZERO 4 3G#W MZ4 9 3GSG STO 3 AWB(2) 9 3H#6 CALL 0 ZECHBL 8 3HRQ BRN MZ10 9 3J?B LDX 6 ASTADD(2) 10 3JR2 LDX 7 APETADDR(2) 8 3K=L BZE 4 MZ5 9 3KQ= LDX 4 AWB(2) 13 3L9W FILEAUTW ,BOBJ+FAIL,EX4,5,EX6,EX7 8 3LPG BRN MZ9 9 3M96 MZ5 LDX 4 AWB(2) 13 3MNQ ... FILEAUTR ,FAIL+BOBJ,EX4,5,EX6,EX7 7 3N8B LDN 4 0 8 3NN2 BRN MZ9 4 3P7L MZ6 14 3PM= STO 3 AWB(2) [KEEP WB 9 3Q6W CALL 0 ZECHBL 8 3QLG BRN MZ10 8 3R66 SMO FX2 9 3RKQ LDX 3 AWOLBL 7 3S5B SLL 6 7 7 3SK2 SBX 3 6 21 3T4L LDX 6 3 [LENGTH OF TRANSFER BEFORE ROUNDING-U 8 3TJ= BZE 4 MZ7 8 3W3W LDN 0 #177 7 3WHG ANDX 0 3 8 3X36 BZE 0 MZ7 7 3XGQ ERX 3 0 8 3Y2B ADN 3 #200 4 3YG2 MZ7 7 3Y_L LDX 7 3 14 3_F= ... FILEREAD ,FAIL+BUSE,EX7,5,,,NOCHECK 9 3_YW LDEX 4 ACA1(2) 9 42DG SBX 6 AWB(2) 10 42Y6 LDX 3 APETADDR(2) 9 43CQ LDX 1 ASTADD(2) 10 43XB MHUNTW 2,BSTB,BREAD 7 44C2 ADX 2 6 8 44WL ADN 2 A1 8 45B= SMO FX2 8 45TW LDX 6 AWB 8 46*G BZE 4 MZ8 5 46T6 #SKI G4 9 47#Q OUTMOVE 3,1,2,6 5 47SB #SKI G3 11 48#2 FOUTMOVE 3,1,2,6,HLOCK2 12 48RL ... FILEAUTW ,FAIL,EX7,5,,,NOCHECK 8 49?= BRN MZ9 7 49QW MZ8 LDX 0 1 7 4==G LDX 1 2 7 4=Q6 LDX 2 0 5 4?9Q #SKI G4 9 4?PB INMOVE 3,2,1,6 5 4#92 #SKI G3 11 4#NL FINMOVE 3,2,1,6,HLOCK2 10 4*8= MFREEW BSTB,BREAD 4 4*MW MZ9 9 4B7G LDX 6 ACA3(2) 9 4BM6 SBX 6 AWB(2) 8 4C6Q BZE 6 MZ10 15 4CLB STO 6 ACA3(2) [REDUCE COUNT 9 4D62 ADX 6 AFADD(2) 8 4DKL BRN MZ0 4 4F5= MZ10 7 4FJW BACKWAIT 7 4G4G LDN 4 0 7 4GJ6 AUTFIN 4 9 4H3Q BRN K1DROBJ 9 4HHB TCLOS ACROSS DRSTART,2 4 4J32 RVCA 9 4JGL LDN 3 FYNOCA 4 4K2= XILL 8 4KFW LDX 1 FX1 9 4K_G TOPCA1 PLINK1(1) 9 4LF6 ACROSS OLPODD,4 4 4LYQ WC 9 4MDB LDN 3 FYCOUNT 8 4MY2 BRN XILL 4 4NCL RVB 9 4NX= LDN 3 FYNOBUF 8 4PBW BRN XILL 4 4PWG WF 9 4QB6 LDN 3 FYFILEAD 8 4QTQ BRN XILL 5 4R*B NWRIT 9 4RT2 LDN 3 FYNOWRITE 8 4S#L BRN XILL 21 4SS= # LEAVES X1=BL/BLT NO,X2->FCB IF EXIT +1,OTHERWISE X2->FCB ONLY 14 4T?W # EXPECTS X2=FX2,X5=BL MOD,X6=BLT MOD 5 4TRG ZECHBL 8 4W?6 SBX 0 FX1 16 4WQQ STO 0 ADDBS(2) [PRESERVE LINK 9 4X=B LDX 0 ACA4(2) 9 4XQ2 ADX 0 ACA3(2) 9 4Y9L SBX 0 AWB(2) 9 4YP= STO 0 ASTADD(2) 7 4_8W TOPFCB2 2 8 4_NG ADN 5 FBLKS 7 5286 LDX 0 5 8 52MQ SBN 0 A1 11 537B BXL 0 FUSEBL(2),ZEC2 15 53M2 BZE 4 ZEC5 [J IF READ 8 546L ADN 0 10 16 54L= LDX 1 FSIZE(2) [PERMITTED SIZE 9 555W ADN 1 FBLKS-A1 20 55KG BXGE 1 0,ZEC1 [J IF CAN GET THIS NO OF BLOCKS 20 5656 LDX 0 1 [OTHERWISE CUT DOWN OUR REQUEST 4 56JQ ZEC1 7 574B LDX 3 0 9 57J2 LDX 4 BSPRE(2) 8 583L LDCT 0 #300 18 58H= ORS 0 COMM(2) [SET FILE ALTERED BITS 9 592W LDX 0 FBLMOD(2) 16 59GG STO 3 FBLMOD(2) [SET NEW REC HEAD 19 5=26 SBX 3 0 [NO. OF NEW BLOCKS REQUIRED 7 5=FQ SLL 3 2 7 5=_B ORX 6 3 7 5?F2 LDX 3 2 8 5?YL ADN 0 A1 8 5#D= SMO FX2 9 5#XW STO 0 AWORK1 10 5*CG ALTLEN 3,FBLMOD(3) 7 5*X6 LDX 3 6 7 5BBQ SRL 3 2 7 5BWB ANDN 6 3 7 5CB2 ADN 3 2 11 5CTL SETUPCORE 3,2,BSTB,EMPTYB 8 5D*= STO 3 A1(2) 4 5DSW XGET 9 5F#G STO 4 A1+1(2) 16 5FS6 GETBAX [GET BS BLOCKS 7 5G?Q TOPFCB2 2 10 5GRB BXE 4 BSPRE(2),XOK 9 5H?2 LDX 4 BSPRE(2) 7 5HQL FREEBAX 10 5J== MHUNTW 2,BSTB,EMPTYB 8 5JPW BRN XGET 4 5K9G XOK 7 5KP6 SBN 3 2 8 5L8Q LDX 1 FX2 9 5LNB ADX 2 AWORK1(1) 9 5M82 SBS 2 AWORK1(1) 10 5MML MHUNTW 1,BSTB,FULLB 8 5N7= ADN 1 A1+2 7 5NLW SMO 3 18 5P6G MOVE 1 0 [MOVE THEM INTO THE FCB 8 5PL6 SBN 1 A1+2 7 5Q5Q FREECORE 1 15 5QKB NGX 2 AWORK1(2) [X2 -> FCB 9 5R52 ADS 3 FUSEBL(2) 14 5RJL LDX 0 4 [BSPRE 15 5S4= LDN 4 1 [WRITE MARKER 8 5SHW BRN ZEC4 4 5T3G ZEC2 15 5TH6 BZE 4 ZEC3 [J IF READ 8 5W2Q LDCT 1 #100 9 5WGB ORS 1 COMM(2) 4 5X22 ZEC3 11 5XFL BXL 0 FBLMOD(2),ZEC4 8 5X_= BZE 4 ZEC5 7 5YDW ADN 0 1 9 5YYG STO 0 FBLMOD(2) 8 5_D6 LDCT 0 #300 9 5_XQ ORS 0 COMM(2) 4 62CB ZEC4 7 62X2 SRC 6 2 7 63BL ORX 5 6 7 63W= SLC 6 2 8 64*W LDX 2 FX2 9 64TG LDX 0 ADDBS(2) 8 65*6 ADX 0 FX1 7 65SQ EXIT 0 1 4 66#B ZEC5 8 66S2 SMO FX2 8 67?L LDX 0 ADDBS 8 67R= ADX 0 FX1 7 68=W EXIT 0 0 4 68QG [ 11 69=6 MENDAREA AOLPGAP,K99DROBJ 4 69PQ #END 8 ____ ...67575617000100000000