16 22FL ...#SEG EXTEND70 [FRANK BLUNDELL 7 22_= #LIS K0EXTEND 7 23DW 8HEXTEND 4 23YG # 14 24D6 # THIS ROUTINE ANALYZES MODE #500 PERI 13 24XQ # ON ENTRY CURRENT ACTIVITY IS AOLPT 11 25CB # X5 MODE (#500) 11 25X2 # X6 ADDITIVE BITS 4 26BL # 19 26W= # IF THE EXTENSION IS NULL REPLIES ARE SET AND PROGRAM IS 7 27*W # RESTARTED 4 27TG # 19 28*6 # IF THE OPERATION IS CONTRACT A SCRATCH FILE IT IS CARRIED 10 28SQ # OUT IN THIS CHAPTER 4 29#B # 15 29S2 # IF NEITHER OF ABOVE ROUTINE GOES ACROSS 4 2=?L # 12 2=R= SEGENTRY K1EXTEND,QK1EXTEND 7 2?=W #DEF XCA=EVENT2 9 2?QG XM1 #777777 9 2#=6 XLINK PAIR PERION,1 4 2#PQ # 18 2*9B XMON LDX 7 XCA(2) [GET CONTROL AREA ADDRESS 14 2*P2 TOPCA1 XLINK(1) [TO PCA 19 2B8L REPMON 1 REPORT MONITORING REQUIRED 4 2BN= # 4 2C7W # 18 2CMG XRV TOPCA1 XLINK(1) [RESERVATION VIOLATION 6 2D76 UNPLUG 8 2DLQ ILLEGAL NOCA 4 2F6B # 4 2FL2 # 6 2G5L QK1EXTEND 9 2GK= #SKI K6EXTEND>199-199 4 2H4W ( 8 2HJG SBN 5 #500 8 2J46 BZE 5 XAA 9 2JHQ GEOERR 1,EXTMODE 4 2K3B XAA 4 2KH2 ) 7 2L2L LDN 7 5 16 2LG= CHECKEXT XCA(2),7,XRV,APETADDR(2),W,XA,HLOCK1 4 2L_W XA 14 2MFG LDX 4 6 [SAVE X6 7 2M_6 LDCT 6 6 9 2NDQ ORX 6 EWCHAN(2) 17 2NYB LDN 5 BBEXTEND [TYPE OF MONITORING 20 2PD2 TESTMON APETADDR(2),5,6,XMON [CHECK IF MONITORING REQUIRED 15 2PXL LDX 6 4 [RESTORE X6 9 2QC= LDX 3 XCA(2) 9 2QWW LDN 4 EWORK1(2) 10 2RBG LDX 2 APETADDR(2) 20 2RW6 FOUTMOVE 2,3,4,7,HLOCK1 [MOVE CONTROL OUT TO CA WORDS OF 14 2S*Q [ACTIVITY 8 2STB LDX 2 FX2 9 2T*2 LDX 0 EXMODE(2) 8 2TSL SBN 0 #200 19 2W#= BNZ 0 XB [JUMP IF NOT OPEN FOR READING 8 2WRW LDCT 0 #400 19 2X?G ORN 0 5 [SET OPEN FOR READING REPLY 9 2XR6 STO 0 EWORK2(2) 8 2Y=Q BRN XBA 9 2YQB XB LDX 0 EWORK4(2) 7 2_=2 ADN 0 7 8 2_PL NGN 4 #10 19 329= ANDX 0 4 [ROUND UP TO MULTIPLE OF 8 14 32NW STO 0 AWORK1(2) [AND SAVE 8 338G BZE 0 XC 16 33N6 BPZ 0 YA [JUMP IF EXTEND 10 347Q XC MFINDEXOF 1,EXNUM(2) 9 34MB LDEX 0 FIP+5(1) 21 3572 BZE 0 XD [JUMP IF NO AREAS,NULL CONTRACTION 7 35LL SBN 0 1 7 366= SLL 0 1 7 36KW LDX 7 0 7 375G SLL 0 1 18 37K6 ADX 7 0 [X7 POINTER TO LAST CELL 9 384Q LDX 0 EXMODE(2) 8 38JB SBN 0 #400 17 3942 BNZ 0 XE [JUMP IF NOT EOF MODE 7 39HL SMO 7 10 3=3= LDX 0 FDCELLS-1(1) 9 3=GW TXL 0 FIP+10(1) 20 3?2G BCS XF [JUMP IF CONTRACTION WOULD REMOVE 15 3?G6 [EOF BUCKET 9 3?_Q XE NGX 4 AWORK1(2) 9 3#FB LDX 3 FIP+8(1) 8 3#_2 ANDN 3 #77 19 3*DL DVS 3 3 [CONVERT BLOCKS TO BUCKETS 9 3*Y= #SKI K6EXTEND>199-199 4 3BCW ( 8 3BXG BZE 3 XG 9 3CC6 GEOERR 1,EXTBUK 4 3CWQ XG 4 3DBB ) 18 3DW2 [X4=BUCKETS TO BE REMOVED 7 3F*L SMO 7 10 3FT= LDX 0 FDCELLS+5(1) 7 3G#W SMO 7 18 3GSG SBX 0 FDCELLS-1(1) [X0=BUCKETS IN LAST AREA 7 3H#6 TXL 4 0 20 3HRQ BCS XF [J IF TOO MANY BUCKETS IN AREA 8 3J?B LDCT 0 #200 9 3JR2 ANDX 0 EXMARK(1) 17 3K=L BNZ 0 ZA [J IF SCRATCH FILE 4 3KQ= # 14 3L9W # CONTRACT A PERMANENT FILE OR EXTEND 17 3LPG # SET UP DATA IN GEXD AND GO TO APPROPRIATE ROUTINE 4 3M96 # 12 3MNQ YA SETNCORE GEXDLENX,3,EWDAS,GEXD 16 3N8B STOZ A1(3) [GETCORE FOR GEXD 15 3NN2 LDN 0 A1(3) [AND ZEROIZE 9 3P7L LDN 1 A1+1(3) 10 3PM= MOVE 0 GEXDLENX-1 6 3PPT ...#UNS ES2 4 3PSD ...( 18 3PX3 ... LDX 0 EXTRAPS(2) [TRANSFER TRAPS RECORD TO 18 3P_L ... STO 0 EXOTRAP(3) [GEXD FOR EXTEND ROUTINES 4 3Q49 ...) 9 3Q6W LDX 0 EWCHAN(2) 14 3QLG STO 0 EXCHNL(3) [CHANNEL 9 3R66 LDX 0 XCA(2) 17 3RKQ STO 0 CNR(3) [CONTROL AREA ADDRESS 9 3S5B LDX 0 EXNUM(2) 16 3SK2 STO 0 CEFN(3) [EXOFILE NUMBER 9 3T4L LDX 0 EXMODE(2) 15 3TJ= STO 0 EOPMODE(3) [OPEN MODE 8 3W3W LDCT 1 #200 17 3WHG STO 1 EMARK(3) ['NOT #1500' MARKER 7 3X36 SRC 6 7 17 3XGQ ORS 6 EMARK(3) [SET ADDITIVE BITS 8 3Y2B SBN 0 #600 8 3YG2 BNZ 0 YB 8 3Y_L LDCT 0 #400 16 3_F= ORS 0 EMARK(3) [SCRATCH FILE BIT 9 3_YW YB LDX 0 AWORK1(2) 16 42DG STO 0 BREQ(3) [BLOCKS REQUIRED 16 42Y6 BNG 0 YC [JUMP IF CONTRACT 10 43CQ MFINDEXOF 1,EXNUM(2) 9 43XB LDX 0 ASUSN(1) 17 44C2 STO 0 HMUNIT(3) [HOME AREA SERIAL NO. 10 44WL STO 0 EOFUNIT(3) 9 45B= LDEX 0 FIP+5(1) 16 45TW BZE 0 YD [JUMP IF NO AREAS 7 46*G SBN 0 1 7 46T6 SLL 0 1 7 47#Q LDX 7 0 17 47SB SLL 0 1 [POINTER TO LAST CELL 7 48#2 ADX 7 0 7 48RL SMO 7 10 49?= LDX 0 FDCELLS(1) 18 49QW STO 0 EOFUNIT(3) [STORE EOF SERIAL NUMBER 9 4==G YD LDX 0 EWORK5(2) 18 4=Q6 BNG 0 YE [J IF -VE SERIAL NUMBER 8 4?9Q SMO FX1 18 4?PB ANDX 0 XM1 [AND TO 6 OCTAL DIGITS 15 4#92 YE STO 0 CSNTAB(3) [AND STORE 17 4#NL YC CHAIN 3,APETADDR(2) [CHAIN GEXD AFTER CPA 19 4*8= TOPCA1 XLINK(1) [LEAVE AOLPT LINK TO K1PERION 6 4*MW UNPLUG 16 4B7G CAPCA EWDAS,GEXD [TO CPA WITH GEXD 10 4BM6 MHUNTW 3,EWDAS,GEXD 9 4C6Q LDX 0 BREQ(3) 16 4CLB BNG 0 YF [JUMP IF CONTRACT 9 4D62 ACROSS SCEX,1 10 4DKL YF ACROSS CONTRACT,1 4 4F5= # 4 4FJW # 4 4G4G # 4 4GJ6 # 11 4H3Q # CONTRACT A SCRATCH FILE 4 4HHB # 17 4J32 ZA STO 7 AWORK2(2) [LAST AREA POINTER 10 4JGL MFINDEXOF 1,EXNUM(2) 16 4K2= LDN 5 0 [COUNT OF AREAS 18 4KFW LDN 6 0 [TO ACCUMULATE BUCKETS 16 4K_G LDEX 3 FIP+5(1) [AREAS ON FILE 17 4LF6 ZD BZE 3 ZC [J IF NO MORE AREAS 7 4LYQ SMO 7 10 4MDB LDX 0 FDCELLS+5(1) 7 4MY2 SMO 7 18 4NCL SBX 0 FDCELLS-1(1) [X0=BUCKETS IN THIS AREA 7 4NX= ADX 6 0 7 4PBW TXL 4 6 21 4PWG BCS ZB [J IF THIS WOULD BE TOO MUCH TO REMOV 7 4QB6 ADN 5 1 18 4QTQ TXU 4 6 [JUMP IF EXACTLY ENOUGH 8 4R*B BCC ZC 16 4RT2 SBN 7 6 [UPDATE POINTER 15 4S#L SBN 3 1 [AND COUNT 8 4SS= BRN ZD 20 4T?W ZB SBX 6 0 [SUBTRACT BUCKETS FROM LAST AREA 19 4TRG ZC NGS 6 EWORK3(2) [BUCKETS REMOVED FOR REPLY 16 4W?6 STO 5 AWORK3(2) [COUNT OF AREAS 15 4WQQ BZE 5 ZE [JUMP IF NONE 9 4X=B ZQ SMO AWORK2(2) 21 4XQ2 LDX 6 FDCELLS(1) [GET SERIAL NO. OF UNIT HOLDING AREA 15 4Y9L ZG MFINDSUX 3,6 [FIND ASTUC 10 4YP= LDXC 0 CSCRATCH(3) 18 4_8W BCC ZF [JUMP IF NOT LOCKED OUT 19 4_NG ... COOR3 #41 [WAIT FOR NEXT SPRING CLEAN 10 5286 MFINDEXOF 1,EXNUM(2) 8 52MQ BRN ZG 9 537B ZF SMO AWORK2(2) 10 53M2 LDX 6 FDCELLS+1(1) 9 546L MPY 6 HBLOCK(3) 9 54L= SMO AWORK2(2) 18 555W ADX 7 FDCELLS+2(1) [CALCULATE START BLOCK 10 55KG LDN 6 HSCRATCH(3) 20 5656 [LOOK FOR CELL IN SCRATCH LIST 9 56JQ #SKI K6EXTEND>199-199 4 574B ( 8 57J2 BNZ 0 ZH 10 583L GEOERR 1,EXTSCCNT 4 58H= ZH 4 592W ) 7 59GG ZJ SMO 6 7 5=26 TXU 7 0 16 5=FQ BCC ZK [J IF ENTRY FOUND 7 5=_B ADN 6 1 8 5?F2 BCT 0 ZJ 10 5?YL GEOERR 1,LOSTSCRA 7 5#D= ZK SBN 0 1 17 5#XW BZE 0 ZLA [J NO ENTRIES TO MOVE 17 5*CG ZL SMO 6 [MOVE UP REST OF LIST 7 5*X6 LDX 7 1 7 5BBQ SMO 6 7 5BWB STO 7 0 7 5CB2 ADN 6 1 8 5CTL BCT 0 ZL 4 5D*= ZLA 10 5DSW LDX 0 CSCRATCH(3) 17 5F#G SBN 0 1 [UPDATE SCRATCH COUNT 10 5FS6 STO 0 CSCRATCH(3) 9 5G?Q LDX 6 BACK1(3) 16 5GRB BPZ 6 ZM [JUMP IF NOT DEAD 20 5H?2 BNZ 0 ZM [OR IF STILL AREAS ON THIS UNIT 19 5HQL FREECORE 3 [OTHERWISE FREE DEAD ASTUC 10 5J== MFINDEXOF 1,EXNUM(2) 8 5JPW BRN ZP 10 5K9G ZM LDN 6 HSCRATCH+8-A1 10 5KP6 ADX 6 CSCRATCH(3) 10 5L8Q TXL 6 ALOGLEN(3) 19 5LNB ... BCC ZP [J IF LESS THAN 8 SPARE WORDS 15 5M82 LDCT 0 #400 [SET LOCKOUT 10 5MML ORS 0 CSCRATCH(3) 7 5MXD ... SBN 6 8 15 5N7= ALTLEN 3,6 [ALTER ASTUC 15 5NLW MFINDEXOF 1,EXNUM(2) [REFIND EXOF 9 5P6G SMO AWORK2(2) 10 5PL6 LDX 6 FDCELLS(1) 15 5Q5Q MFINDSUX 3,6 [AND ASTUC 8 5QKB LDCT 0 #400 16 5R52 ERS 0 CSCRATCH(3) [UNSET LOCKOUT 7 5RJL ZP LDN 0 6 9 5S4= SBS 0 AWORK2(2) 16 5SHW BCT 5 ZQ [JUMP IF ANY MORE 9 5T3G ZE LDX 0 AWORK3(2) 10 5TH6 LDX 4 ALOGLEN(1) 7 5W2Q SLL 0 1 7 5WGB SBX 4 0 7 5X22 SLL 0 1 18 5XFL SBX 4 0 [UPDATE LENGTH OF EXOF 7 5X_= LDX 3 1 17 5YDW ALTLEN 3,4 [ALTER LENGTH OF EXOF 10 5YYG MFINDEXOF 1,EXNUM(2) 9 5_D6 LDEX 0 FIP+5(1) 9 5_XQ SBX 0 AWORK3(2) 19 62CB DEX 0 FIP+5(1) [UPDATE COUNT OF FILE AREAS 17 62X2 BNZ 0 ZR [J IF SOME AREA LEFT 17 63BL XDA LDN 6 0 [REPLIES IF NO AREAS 9 63W= LDX 5 ASUSN(1) 8 64*W BRN ZS 9 64TG ZR LDEX 0 FIP+5(1) 7 65*6 SBN 0 1 7 65SQ SLL 0 1 7 66#B LDX 4 0 7 66S2 SLL 4 1 17 67?L ADX 4 0 [POINTER TO LAST CELL 7 67R= SMO 4 17 68=W LDX 5 FDCELLS(1) [EOF SERIAL NUMBER 7 68QG SMO 4 10 69=6 LDX 6 FDCELLS+5(1) 14 69PQ SBN 6 1 [LAST LBN 9 6=9B LDX 0 EXMODE(2) 8 6=P2 SBN 0 #400 17 6?8L BNZ 0 ZS [J IF NOT EOF MODE 15 6?N= SBX 6 FIP+10(1) [SUBTRACT EOF 7 6#7W ADN 6 1 17 6#MG BNZ 6 ZS [J IF NON-ZERO RESULT 18 6*76 LDX 5 ASUSN(1) [OTHERWISE CSN=HOME UNIT 9 6*LQ ZS STO 6 EWORK2(2) 16 6B6B STO 5 EWORK5(2) [STORE REPLIES 9 6BL2 XBA LDX 4 XCA(2) 9 6C5L LDN 3 EWORK1(2) 7 6CK= LDN 6 5 10 6D4W LDX 2 APETADDR(2) 16 6DJG FINMOVE 2,4,3,6,HLOCK1 [MOVE IN REPLIES 8 6F46 LDX 1 FX1 15 6FHQ OLPFIN1 XLINK(1) [END OF PERI 4 6G3B # 4 6GH2 # 18 6H2L XF STOZ EWORK3(2) [ZEROISE BUCKETS REMOVED 8 6HG= BRN ZR 4 6H_W # 4 6JFG # 18 6J_6 XD STOZ EWORK3(2) [ZEROISE BUCKETS REMOVED 8 6KDQ BRN XDA 4 6KYB # 10 6LD2 MENDAREA 30,K99EXTEND 4 6LXL #END 8 ____ ...12407714000100000000