16 22FL ...#SEG SCEX70 [FRANK BLUNDELL 6 22_= #LIS K0SCEX 6 23DW 8HSCEX 19 23YG # THIS SEGMENT DOES EXTEND AND OPEN SCRATCH FILE 21 24D6 # IT IS ENTERED FROM SEGMENTS EXTEND AND SCRATCH,IN CPA, 20 24XQ # WITH PERI OR COMMAND CHECKED AND /GEXD BLOCK SET UP 4 25CB # 4 25X2 # 9 26BL SEGENTRY K1SCEX 10 26W= MHUNTW 3,EWDAS,GEXD 8 27*W #SKI K6SCEX>99-99 10 27TG TRACE BREQ(3),SCEX 8 28*6 #SKI K6SCEX>299-299 4 28SQ ( 11 29#B TRACE EMARK(3),SCEXMARK 11 29S2 TRACE CEFN(3),SCEXCEFN 4 2=?L ) 7 2=R= LDN 0 1 19 2?=W STO 0 BAVAIL(3) [SET DEFAULT 'LARGEST AREA' 9 2?QG LDX 0 EMARK(3) 17 2#=6 BNG 0 SCR [J IF SCRATCH FILE 12 2#PQ # S-TRUSTED CHECK 4 2*9B RFIP 16 2*P2 MFINDEXOF 1,CEFN(3) [FIND OUR EXOF 7 2B8L LDCT 4 4 9 2BN= ANDX 4 EXMARK(1) 19 2C7W SLL 4 6 [GET S-TRUSTED MARKER IN B0 12 2CMG ORX 4 ALOGLEN(1) [ 17 2D76 CALL 7 XHOME [GET HOME UNIT ONLINE 7 2DLQ LDXC 4 4 21 2F6B BCC REX [J IF NOT S-TRUSTED,ELSE REREAD FIP 8 2FL2 GETCORE 4,1 7 2G5L FINDCORE 2 10 2GK= MHUNTW 3,EWDAS,GEXD 10 2H4W MFINDEXOF 1,CEFN(3) 9 2HJG LDN 5 ATYPE(1) 9 2J46 LDN 6 ATYPE(2) 16 2JHQ ... ADN 4 A1-ATYPE [COPY OUR EXOF 17 2K3B ... MOVLONG 5,6,4 [INTO ACTIVITY CHAIN 13 2KH2 LDN 0 BOPEN+BSPEC+BSERL+BLOCK 21 2L2L STO 0 EXMARK(2) [SET MARKER,OPEN,GEN/SER SPECIFIEDETC 16 2LG= LDX 4 EMARK(3) [SAVE EMARK AND 9 2L_W LDX 5 HMUNIT(3) 15 2MFG STOZ EMARK(3) [CLEAR FOR 17 2M_6 DOWN EXOPEN,1 [EXOPEN - FIND FILE 18 2NDQ TESTREP EXFAIL,XN9 [J IF NOT FOUND OR ERROR 10 2NYB MHUNTW 3,EWDAS,GEXD 10 2PD2 MHUNTW 1,EWDAS,EXOF 13 2PXL LDX 5 HOME(1) [ELSE 19 2QC= FREECORE 1 [FREE EXOF IN ACTIVITY CHAIN 10 2QWW MFINDEXOF 1,CEFN(3) 18 2RBG STO 5 HOME(1) [RESET HOME IN OUR EXOF 16 2RW6 STO 4 EMARK(3) [RESTORE EMARK 4 2S*Q REX 10 2STB MHUNTW 3,EWDAS,GEXD 16 2T*2 MFINDSU 1,HMUNIT(3) [FIND ITS ASTUC 10 2TSL LDX 7 CEXTEND(1) 7 2W#= ADN 7 1 19 2WRW STO 7 CEXTEND(1) [ADD 1 TO COUNT OF EXTENDS 19 2X?G OPENST HMUNIT(3) [OPEN HOME UNIT FOR TRANSFERS 8 2XR6 LDN 4 140 21 2Y=Q XC2 READST 4,XC1 [READ HEAD OF VACANT CHAIN/NEXT CELL 15 2YQB TESTREPNOT OK,XN11 [J IF FAIL 9 2_=2 LDX 1 ECOR(3) 17 2_PL XC1 LDX 4 0(1) [POINTER TO NEXT CELL 17 329= BZE 4 XN10 [J IF ZERO,SCA FULL 20 32NW BCT 7 XC2 [ELSE REDUCE COUNT AND GET NEXT 21 338G LDX 7 HMUNIT(3) [OK,[COUNT OF EXTENDS] VACANT CELLS 17 33N6 CLOSEST XC3 [CLOSE DOWN HOME UNIT 8 347Q #SKI K6SCEX>399-399 4 34MB ( 9 3572 TESTREP OK,XC3 9 35LL XC4 GEOERR 1,CLFAIL? 4 366= ) 18 36KW XC3 UNLOCKSU 7 [UNLOCK,BUT DONT RELEASE 4 375G # 13 37K6 MHUNTW 3,EWDAS,GEXD [AND 16 384Q BRN XALT [GO TO ADD AREA 7 38JB SCR SLL 0 3 16 3942 BPZ 0 XALT [J UNLESS OPEN 9 39HL LDX 6 BKSIZE(3) 21 3=3= SETNCORE FDCELLS-A1+6,1,EWDAS,EXOF [SET UP EXOF FOR NEW SCRFILE 8 3=GW STOZ A1(1) 8 3?2G LDN 4 A1(1) 9 3?G6 LDN 5 A1+1(1) 14 3?_Q MOVE 4 FDCELLS-A1+5 [ZEROISE 9 3#FB STOZ BACK1(1) 7 3#_2 LDN 7 1 16 3*DL STO 7 COPEN(1) [COUNT OF OPENS=1 8 3*Y= LDCT 0 #600 20 3BCW STO 0 EXMARK(1) [MARKER=SCRATCH,OPEN FOR WRITING 13 3BXG LDCT 0 #200 [IC=1 14 3CC6 ADN 0 1 [AREAS=1 9 3CWQ STO 0 FIP+5(1) 15 3DBB STO 6 FIP+8(1) [BUCKET SIZE 14 3DW2 STO 7 FBUK(1) [FBUK=1 7 3F*L LDX 6 1 17 3FT= EXOFILE 6 [CHAIN IN NEW EXOF 7 3G#W LDX 1 6 8 3GSG #SKI K6SCEX>299-299 11 3H#6 TRACE BACK2(1),SCR EFN 9 3HRQ LDX 6 BACK2(1) 10 3J?B MHUNTW 3,EWDAS,GEXD 17 3JR2 STO 6 CEFN(3) [SAVE EXOFILE NUMBER 17 3K=L BRN SUNIT [GO TO GET AREA UNIT 4 3KQ= # 4 3L9W XALT 16 3LPG MFINDEXOF 1,CEFN(3) [FIND OUR EXOF 9 3M96 LDEX 4 FIP+5(1) 7 3M*3 ... STO 4 5 8 3MDY ... SBN 5 511 8 3MJT ... BPZ 5 XN16 7 3MNQ SLL 4 1 7 3N8B LDX 5 4 7 3NN2 SLL 4 1 14 3P7L ADX 4 5 [AREAS*6 9 3PM= LDX 5 CEFN(3) 7 3Q6W LDX 3 4 10 3QLG ADN 4 FDCELLS-A1+5 10 3R66 TXL 4 ALOGLEN(1) 21 3RKQ BCS XAOK [J IF LONG ENOUGH FOR ANOTHER AREA 8 3S5B #SKI K6SCEX>299-299 4 3SK2 ( 7 3T4L SBN 4 6 10 3TJ= TXL 4 ALOGLEN(1) 8 3W3W BCS XALT1 10 3WHG GEOERR 1,EXOFLEN? 7 3X36 XALT1 ADN 4 6 4 3XGQ ) 7 3Y2B ADN 4 1 7 3YG2 LDX 6 1 15 3Y_L ALTLEN 6,4 [ELSE ALTLEN 8 3_F= MFINDEXOF 1,5 7 3_YW XAOK LDN 0 1 18 42DG ADS 0 FIP+5(1) [ADD 1 TO COUNT OF AREAS 10 42Y6 ADN 3 FDCELLS(1) 8 43CQ LDN 4 1(3) 8 43XB STOZ 0(3) 16 44C2 MOVE 3 5 [ZEROISE NEW CELL 5 44WL SUNIT 17 45B= ACROSS NEXTUNIT,1 [GO TO GET AREA UNIT 4 45TW # 4 46*G # 4 46T6 # 18 47#Q # S/R TO GET HOME UNIT ONLINE AND LOCKED 4 47SB # 5 48#2 XHOME 8 48RL SBX 7 FX1 10 49?= MHUNTW 3,EWDAS,GEXD 14 49QW LDX 5 HMUNIT(3) [GET SUSN 8 4==G LDCT 6 #10 18 4=Q6 ANDX 6 EMARK(3) [AND MODE *4000 MARKER 6 4?6L ...#UNS IPBD 19 4?H6 ...XH5A USEST 5,XH1,,XH5,XH4A [GET UNIT LOCKED IF ONLINE 6 4?XL ...#UNS IPBD 4 4##6 ...#SKI 19 4#NL USEST 5,XH1,,XH5,XH4 [IS UNIT ONLINE,LOCK IF SO 13 4*8= XH2 ADX 7 FX1 [EXIT 7 4*MW EXIT 7 0 20 4B7G XH1 BZE 6 XH3 [NOT ONLINE,J UNLESS SUPRESS LOAD 8 4BM6 LDCT 7 #400 15 4C6Q ORN 7 6 [SET REPLY 6 14 4CLB BRN XN7 [AND END 6 4D2W ...#UNS IPBD 15 4DCB ...XH3 MUSEST 5,XH4,XH5,,XH4A [DEMAND UNIT 6 4DRW ...#UNS IPBD 4 4F8B ...#SKI 16 4FJW XH3 MUSEST 5,XH4,XH5,,XH4 [GET UNIT ONLINE 15 4G4G BRN XH2 [EXIT IF GOT 6 4G64 ...#UNS IPBD 4 4G7L ...( 4 4G98 ...# 7 4G=Q ...# IPB DOWN 4 4G## ...# 15 4G*W ...XH4A TWAIT 5,XH5 [WAIT FOR IPB 15 4GCD ... BRN XH5A [TRY AGAIN 4 4GF2 ...# 4 4GGJ ...) 17 4GJ6 XH4 LDCT 7 #440 [REPLY FAIL IF CANTDO 8 4H3Q BRN XN7 15 4HHB XH5 MHUNTW 3,EWDAS,GEXD [IF BREAKIN 8 4J32 LDCT 6 #100 9 4JGL ANDX 6 EMARK(3) 15 4K2= FREECORE 3 [FREE GEXD 14 4KFW BZE 6 XH6 [J PERI 13 4K_G COMBRKIN [AND 15 4LF6 XH6 STEPBACK [ACKNOWLEDGE 14 4LYQ PROGBRKIN [BREAKIN 4 4MDB # 4 4MY2 # 4 4NCL # 18 4NX= # FAIL TO GET HOME UNIT,REPLY IN X7 10 4PBW XN7 MHUNTW 3,EWDAS,GEXD 9 4PWG LDX 4 CNR(3) 9 4QB6 LDX 5 EXCHNL(3) 15 4QTQ FREECORE 3 [FREE GEXD 14 4R*B XN13 EXMESS ALL [MESSAGES 17 4RT2 ACROSS NEXTUNIT,4 [SET REPLIES AND END 16 4S#L # FAIL IN REREADING FIP (S-TRUSTED) 21 4SS= XN9 MFREE EWDAS,EXOF [FREE COPY OF EXOF IN ACTIVITY CHAIN 15 4T?W UNLOCKSU 5 [UNLOCK AND 17 4TRG RELST 5 [RELEASE HOME UNIT 16 4W?6 LDCT 7 #440 [SET FAIL REPLY 14 4WQQ BRN XN7 [AND END 4 4X=B # 17 4XQ2 XN10 LDCT 7 #400 [SET REPLY SCA FULL 10 4Y9L MHUNTW 3,EWDAS,GEXD 15 4YP= CLOSEST XN12 [CLOSE DOWN 8 4_8W #SKI K6SCEX>399-399 9 4_NG TESTREPNOT OK,XC4 19 5286 BRN XN12 [AND GO TO END (EVEN IF FAIL) 4 52MQ # 16 537B XN11 LDCT 7 #440 [SET FAIL REPLY 10 53M2 XN12 MHUNTW 3,EWDAS,GEXD 18 546L MFINDSU 1,HMUNIT(3) [FIND ASTUC FOR HOME UNIT 7 54L= LDN 0 1 20 555W SBS 0 CEXTEND(1) [SUBTRACT 1 FROM COUNT OF EXTENDS 8 55KG #SKI K6SCEX>399-399 4 5656 ( 10 56JQ LDX 0 CEXTEND(1) 8 574B BNG 0 XC4 4 57J2 ) 9 583L LDX 4 CNR(3) 9 58H= LDX 5 EXCHNL(3) 9 592W LDX 6 HMUNIT(3) 15 59GG FREECORE 3 [FREE GEXD 14 5=26 UNLOCKSU 6 [UNLOCK 18 5=FQ RELST 6 [AND RELEASE HOME UNIT 14 5=_B BRN XN13 [AND END 19 5?98 ...# ROUTINE TO OUTPUT MESSAGE + ERROR CODE FOR > 511 FILE AREAS 2 5?F2 4 5?YL # 4 5#D= # 8 5#DT ...REP1 #40000003 11 5#FD ...XN16 MHUNTW 3,EWDAS,GEXD 9 5#G3 ... LDX 4 CNR(3) 10 5#GL ... LDX 5 EXCHNL(3) 9 5#H9 ... LDX 0 EMARK(3) 8 5#HS ... BNG 0 XN18 9 5#JC ... LDX 6 HMUNIT(3) 8 5#K2 ... MFINDSU 1,6 8 5#KK ... LDN 0 1 10 5#L8 ... SBS 0 CEXTEND(1) 8 5#LR ... RELST 6 8 5#MB ... LDX 2 FX2 10 5#M_ ... MFINDEXOF 1,CEFN(3) 9 5#NJ ... LDN 7 FIP(1) 10 5#P7 ... LDN 0 ACOMMUNE1(2) 8 5#PQ ... MOVE 7 3 8 5#Q* ... LDN 7 12 10 5#QY ... OUTPARAM 7,ACOMMUNE1 10 5#RH ... MONOUT EWTMFI 9 5#S6 ... FREECORE 3 9 5#SP ...XN17 LDX 7 REP1(1) 8 5#T# ... BRN XN13 7 5#TX ...XN18 FREECORE 3 9 5#WG ... MONOUT EWTMSC 8 5#X5 ... BRN XN17 10 5#XW MENDAREA 40,K99SCEX 4 5*CG #END 8 ____ ...67260132000200000000