12 22FL ... SEG IPQUAKE,,KEITH MARTIN 4 22_= # 11 23DW SEGENTRY K1IPQUAKE,X1IPQUAKE 4 23YG # 8 24D6 PMASK #77777 9 24XQ QTASK #15010000 9 25CB TBIT4 #2000000 9 25X2 TBIT5 #1000000 8 26BL SKH SMO FX2 9 26W= STO 0 AWORK1 9 27*W KILLHANGER 2 9 27TG LDX 0 AWORK1(2) 8 28*6 LDX 1 FX1 7 28SQ EXIT 0 0 6 29#B X1IPQUAKE 10 29S2 HUNT 3,IPCD,ATASK 8 2=?L BPZ 3 Q2 10 2=R= ACROSS IPQUAKER,1 14 2?=W Q2 LDX 4 A1(3) [LINK NR 18 2?QG LDX 3 BPTR(3) [RESET POINTER TO IPSTACK 12 2#=6 # SCAN IPSTACK BLOCK FOR ENTRY 11 2#PQ # CORRESPONDING TO THIS TASK 17 2*9B LDX 6 3 [SAVE IPSTACK POINTER 10 2*P2 LDX 5 ARINGNO(3) 16 2B8L ANDN 5 #7777 [NR OF RING ELS 17 2BN= LDN 3 A1(3) [INITIALISE POINTER 9 2C7W Q6 LDX 0 ALINUM(3) 8 2CMG ANDN 0 #7777 8 2D76 BXE 4 0,Q21 16 2DLQ ADN 3 ARECLEN [UPDATE POINTER 16 2F6B BCT 5 Q6 [J TO TRY NEXT 15 2FL2 GEOERR 1,IPCLKLST [ELSE BREAK 4 2G5L Q21 6 2GK= #SKI IMC 4 2H4W ( 10 2HJG # TEST IF WMC ALLOWED 9 2J46 LDX 0 BPTR(3) 8 2JHQ BNZ 0 Q5A 9 2K3B LDX 2 ALINUM(3) 8 2KH2 CALL 0 SKH 9 2KTC ... LDX 2 FPTR(3) 9 2L7S ... EMPTY FPTR(2) 9 2LG9 ... EMPTY FPTR(3) 8 2LSL ... LDN 0 #40 10 2M73 ... ORS 0 ASTATUS2(3) 8 2MFG BRN Q15 10 2M_6 Q5A LDX 0 ASTATUS2(3) 7 2NDQ SLL 0 1 8 2NYB BPZ 0 Q23 9 2PD2 LDX 1 FPTR(3) 11 2PXL LDX 0 AREQPR-ARINGEL(1) 8 2QC= BZE 0 Q5 8 2QWW SLL 0 10 8 2RBG BPZ 0 Q14 4 2RW6 ) 13 2S*Q # SEARCH FOR OTHER END OF THE LINK 9 2STB Q5 SMO FPTR(3) 17 2T*2 LDX 7 ALINDIR-ARINGEL [SAVE OPENING MODE 7 2TSL LDX 2 6 10 2W#= LDX 5 ARINGNO(2) 8 2WRW LDN 2 A1(2) 16 2X?G ANDN 5 #7777 [NR OF ENTRIES 10 2XR6 Q8 LDX 0 ASTATUS2(2) 7 2Y=Q SLL 0 1 17 2YQB BPZ 0 Q7 [ALREADY ESTABLISHED 7 2_=2 SLL 0 1 16 2_PL BNG 0 Q7 [JUST ESTABLISHED 16 2_WS ... SLL 0 16 [WAITING TO BE REMOVED 14 3242 ... BNG 0 Q7 [FROM STACK 9 329= LDX 1 BPTR(2) 16 32NW BZE 1 Q7 [NOT YET ENRINGED 6 338G #SKIP IPCV4 4 33N6 ( 8 347Q LDCT 0 #400 10 34MB ANDX 0 ASTATUS1(2) 8 3572 BNZ 0 Q7 4 35LL ) 9 366= LDX 1 FPTR(2) 6 36KW #SKI IMC 4 375G ( 11 37K6 LDX 0 AREQPR-ARINGEL(1) 8 384Q BZE 0 Q17 8 38JB SLL 0 10 16 3942 BPZ 0 Q7 [WMC NOT ALLOWED 4 39HL Q17 4 3=3= ) 12 3=GW BXE 7 ALINDIR-ARINGEL(1),Q7 8 3?2G # COMPARE NAMES 9 3?G6 SMO FPTR(3) 11 3?_Q LDX 0 ALINAME-ARINGEL 12 3#FB BXU 0 ALINAME-ARINGEL(1),Q7 9 3#_2 SMO FPTR(3) 11 3*DL LDX 0 ALINAME-ARINGEL+1 13 3*Y= BXU 0 ALINAME-ARINGEL+1(1),Q7 9 3BCW SMO FPTR(3) 11 3BXG LDX 0 ALINAME-ARINGEL+2 13 3CC6 BXE 0 ALINAME-ARINGEL+2(1),Q4 10 3CWQ # TRY NEXT LINK,IF ANY 9 3DBB Q7 ADN 2 ARECLEN 16 3DW2 BCT 5 Q8 [J BACK FOR NEXT 10 3F*L # TEST IF IMC ALLOWED 6 3FT= #SKIP IPCV3 4 3G#W ( 10 3GSG LDX 0 ASTATUS2(3) 7 3H#6 SLL 0 7 8 3HRQ BNG 0 Q23 4 3J?B ) 8 3JR2 Q14 LDX 2 FX2 9 3K=L LDX 1 FPTR(3) 17 3KQ= LDX 0 AREQPR-ARINGEL(1) [PROPERTIES REQUESTED 8 3L9W BZE 0 Q18 8 3LPG SRL 0 11 7 3M96 ANDN 0 3 6 3MNQ #SKIP IPCV3 8 3N8B BZE 0 Q23 7 3NN2 #SKIP IPCV3<1$1 8 3P7L BZE 0 Q11 7 3PM= # TRY IMC 4 3Q6W Q18 15 3QLG LDX 5 APROPRES(2) [NR OF IPBS 6 3R66 #SKIP IPCV3 8 3RKQ BZE 5 Q23 7 3S5B #SKIP IPCV3<1$1 13 3SK2 BZE 5 Q11 [NONE 6 3T4L #SKIP IPCV3 4 3TJ= ( 10 3W3W MHUNT 1,IPCD,ATASK 9 3WHG WAKEHANGER A1(1) 8 3X36 BRN Q15 9 3XGQ Q23 LDX 2 ALINUM(3) 8 3Y2B ANDN 2 #7777 8 3YG2 CALL 0 SKH 8 3Y_L BRN Q15 7 3_F= #SKIP IPCV3<1$1 4 3_YW ( 18 42DG Q19 LDN 2 ACTRING(2) [ACTIVITY RING POINTER 9 42Y6 LDX 2 BPTR(2) 17 43CQ SBN 2 ACTRING [NEXT IPB ACTIVITY 9 43XB LDX 0 ATYPE(2) 8 44C2 SRL 0 12 10 44WL SBN 0 IPCA+IPCBX 8 45B= BZE 0 Q20 10 45TW GEOERR 1,IPCBXLST 4 46*G Q20 16 46T6 JIPCM DS,Q16,2 [TEST IF IPB OK 10 47#Q JDISENG CPPTR(2),Q16 7 47SB NUMLINK 19 48#2 TXL 0 ALNKLIM(2) [TEST IF LINK SPACE AVAILABLE 8 48RL BCC Q16 15 49?= MHUNT 1,IPCD,ATASK [FIND ATASK 8 49QW SMO FX1 8 4==G LDX 0 TBIT5 18 4=Q6 ORS 0 ASTATUS2(3) [MARK'OPEN IN PROGRESS' 9 4?9Q LDX 3 FPTR(3) 7 4?PB LDX 7 1 8 4#92 QTASK 7,3,2 8 4#NL LDX 2 FX2 17 4*8= BRN Q15 [FINISHED THIS TASK 8 4*MW Q16 SMO FX1 8 4B7G LDX 0 TBIT4 10 4BM6 ORS 0 ASTATUS2(3) 14 4C6Q BCT 5 Q19 [TRY NEXT 4 4CLB ) 12 4D62 # NO CORRESPONDING LINK FOUND 9 4DKL # FINISHED THIS TASK 7 4F5= Q11 LDN 0 1 8 4FJW SLL 0 18 10 4G4G ERS 0 ASTATUS2(3) 10 4GJ6 MFREE IPCD,ATASK 6 4H3Q Q15 COOR2 10 4HHB ACROSS IPQUAKER,1 13 4J32 # SUITABLE CORRESPONDING LINK FOUND 19 4JGL # X3 POINTS TO CURRENT ENTRY,X2 TO OLD ONE,X1 TO OLD AOLPT 10 4K2= Q4 LDX 0 ASTATUS1(2) 17 4KFW ANDN 0 1 [TRANSFER STORED BIT 17 4K_G BNZ 0 Q9 [J IF TRANSFER STORED 10 4LF6 LDX 0 ASTATUS1(3) 7 4LYQ ANDN 0 1 17 4MDB BZE 0 Q10 [NO TRANSFER STORED 8 4MY2 SMO FX1 8 4NCL LDX 0 TBIT5 10 4NX= ANDS 0 ASTATUS2(2) 7 4PBW LDN 0 1 10 4PWG ORS 0 ASTATUS2(2) 16 4QB6 # [NOT CANCELLED 16 4QTQ LDX 0 AREPPTR(3) [MOVE UP DETAILS 18 4R*B STO 0 AREPPTR(2) [--- OF STORED TRANSFER 13 4RT2 LDX 0 ASTR(3) [--- 13 4S#L STO 0 ASTR(2) [--- 9 4SFS ... LDX 0 ASTR2(3) 19 4SM2 ... STO 0 ASTR2(2) [MODE *21 IF NON ZERO -START 13 4SS= LDX 0 ALENTR(3) [--- 13 4T?W STO 0 ALENTR(2) [---- 10 4TF4 ... LDX 0 ALENTR2(3) 19 4TL= ... STO 0 ALENTR2(2) [MODE *21 IF NON ZERO -LENGTH 13 4TRG LDX 0 ASTMEL(3) [---- 13 4W?6 STO 0 ASTMEL(2) [---- 13 4WQQ LDX 0 ATIMCT(3) [---- 13 4X=B STO 0 ATIMCT(2) [---. 7 4XQ2 Q12 LDN 0 3 8 4Y9L SLL 0 13 12 4YP= STO 0 IPPROPS-ARINGEL(1) 9 4_8W SMO FPTR(3) 11 4_NG STO 0 IPPROPS-ARINGEL 9 5286 LDX 0 ALINUM(2) 9 52MQ SMO FPTR(3) 10 537B STO 0 BLINO-ARINGEL 9 53M2 LDX 0 ALINUM(3) 8 546L LDX 1 FX2 9 56JQ Q13 LDX 1 FPTR(2) 11 574B STOZ AWORK1-ARINGEL(1) 7 57J2 LDN 0 1 9 583L SMO FPTR(3) 11 58H= STO 0 AWORK1-ARINGEL 7 592W LDX 7 2 9 59GG LDX 0 FPTR(3) 9 5=26 SBN 0 ARINGEL 10 5=FQ HUNT2OPT 2,BLINK,0,0 8 5=_B BNG 2 QX 7 5?F2 LDN 0 1 10 5?YL LDX 6 ALOGLEN(2) 7 5#D= ... SBN 6 3 8 5#XW ... BNG 6 QX 12 5*CG ...QY STO 0 A1+2+AWORK1-ACC3(2) 8 5*X6 ... ADN 2 ALINK 8 5BBQ ... SBN 6 ALINK 8 5BWB ... BPZ 6 QY 7 5CB2 QX LDX 2 7 9 5CTL RERING FPTR(3),2 6 5D*= #SKIP IPCV3 4 5DSW ( 7 5F#G LDX 2 7 9 5FS6 LDX 7 ALINUM(3) 9 5G?Q LDX 6 BSTART(3) 10 5GRB LDX 0 ASTATUS2(2) 9 5H38 ANDX 0 TBIT5(1) 8 5H?2 BZE 0 QK 9 5HQL LDX 2 ALINUM(2) 8 5J== STOPHANGER 2 7 5JPW QK LDX 2 7 8 5K9G CALL 0 SKH 11 5L8Q HUNT2 3,IPCD,IPSTACK,2 7 5LNB SBX 3 6 4 5M82 ) 4 5MT= ...Q22 9 5MWM ... LDX 1 FPTR(3) 9 5MY4 ... EMPTY FPTR(1) 9 5M_F ... EMPTY FPTR(3) 8 5N2W ... LDN 0 #40 10 5N4? ... ORS 0 ASTATUS2(3) 6 5N7= #SKI IPCV3 8 5NLW BRN Q15 7 5P6G #SKI IPCV3<1$1 8 5PL6 BRN Q11 8 5Q5Q Q10 SMO FX1 8 5QKB LDX 0 TBIT5 20 5R52 ANDS 0 ASTATUS2(2) [ESTABLISHED,NO TRANSFER REQUEST 8 5RJL BRN Q12 10 5S4= Q9 LDX 0 ASTATUS1(3) 7 5SHW ANDN 0 1 16 5T3G BZE 0 Q10 [ESTABLISHED RING 13 5TH6 # BOTH SIDES HAVE A TRANSFER STORED 15 5W2Q # IT IS TO BE IMPLEMENTED BEFORE THE RINGS 8 5WGB # ARE COALESCED 15 5X22 SMO FX2 [SAVE X1,2,3 9 5XFL STO 2 AWORK2 8 5X_= LDX 2 FX2 9 5YDW STO 1 AWORK1(2) 9 5YYG STO 3 AWORK3(2) 9 5_D6 LDX 3 FPTR(3) 12 5_XQ LDX 0 ALINDIR-ARINGEL(3) 7 62CB SRL 0 8 15 62X2 BZE 0 V1 [X3->READER 17 63BL LDX 0 1 [ELSE SWAP POINTERS 7 63W= LDX 1 3 17 64*W LDX 3 0 [SO THAT X3->READER 9 64TG V1 SMO FPTR(3) 16 65*6 LDX 7 ALENTR [LENGTH OF READ 9 65SQ SMO FPTR(1) 15 66#B SBX 7 ALENTR [READ - WRITE 9 66S2 ... SMO FPTR(1) 19 67?L ... SBX 7 ALENTR2 [MODE *21 LENGTH IF NON ZERO 10 6#MG STO 1 ACOMMUNE1(2) 10 6*76 STO 3 ACOMMUNE2(2) 6 6*LQ #SKI IPCG4 4 6B6B ( 9 6BL2 SBN 1 ARINGEL 11 6C5L HUNT2 1,ADATA,HLOCKDOWN 10 6CK= STO 1 ACOMMUNE3(2) 9 6D4W SBN 3 ARINGEL 12 6DJG HUNT2 1,ADATA,HLOCKDOWN,3 10 6F46 STO 1 ACOMMUNE4(2) 17 6F6M ... LDX 3 ACOMMUNE2(2) [PRT READ STACK ENTRY 10 6F98 ... LDX 1 ACOMMUNE1(2) 4 6F?P ...) 18 6FB= ... LDX 1 FPTR(1) [PTR WRITE STACK ENTRY 10 6FDR ... LDX 2 ACOMMUNE2(2) 17 6FH# ... LDX 2 FPTR(2) [PTR READ STACK ENTRY 4 6FKT ...# 12 6FNB ...# SET FROM,TO,LENGTH IN 12 6FQX ...# X4,5,6 FOR FIRST MOVE 18 6FTD ... TRACE 1,IPCMOVE1 [PTR WRITE STACK ENTRY 15 6FX_ ... LDX 4 ASTR(1) [WRITE ADDR 15 6G2G ... LDX 5 ASTR(2) [READ ADDR 15 6G53 ... LDX 6 ALENTR(1) [WRITELENGTH 19 6G7J ... BXL 6 ALENTR(2),QK7 [J IF LESS THAN READ LENGTH 17 6G=5 ... LDX 6 ALENTR(2) [ELSE SET READ LENGTH 8 6G#L ... BRN QK7 4 6GC7 ...# 12 6GFN ...# SET FROM,TO,LENGTH 17 6GJ9 ...# IN X4,5,6 FOR SECOND (MODE *21 ONLY) MOVE 4 6GLQ ...QK5 17 6GP? ... TRACE 2,IPCMOVE2 [PTR READ STACK ENTRY 16 6GRS ... LDX 4 ALENTR2(1) [WRITE-2 LENGTH 19 6GW* ... BZE 4 QK9 [J IF DONE OR NOT MODE *21 15 6GYW ... LDX 5 ASTR(2) [READ ADDR 17 6H3C ... ADX 5 6 [+ LENGTH FIRST MOVE 15 6H5Y ... LDX 4 ASTR2(1) [WRITE-2 ADDR 7 6H8F ... NGX 6 6 19 6H?2 ... ADX 6 ALENTR(2) [=READ LENGTH - LENGTH MOUED 18 6H*H ... BZE 6 QK9 [J IF ALL DONE 1ST TIME 20 6HD4 ... BXL 6 ALENTR2(1),QKZ [J IF LESS THAN WRITE-2 LENGTH 19 6HGK ... LDX 6 ALENTR2(1) [ELSE RESET TO WRITE-2 LENGTH 4 6HK6 ...QKZ 10 6HMM ... STOZ ALENTR2(1) 4 6HQ8 ...QK7 8 6HSP ... SMO FX2 9 6HX= ... LDX 1 ACOMMUNE1 12 6H_W LDX 1 APETADDR-ARINGEL(1) 12 6JFG LDX 3 APETADDR-ARINGEL(3) 16 6JJL ... TRACE 6,IPCPROGM [LENGTH OF MOVE 10 6JMQ ... PROGMOVE 1,4,3,5,6 8 6JQW ... LDX 2 FX2 10 6JW2 ... LDX 1 ACOMMUNE1(2) 17 6J_6 ... LDX 1 FPTR(1) [PTR WRITE STACK ENTRY 10 6K4= ... LDX 3 ACOMMUNE2(2) 18 6K7B ... LDX 2 FPTR(3) [PTR READ STACK ENTRY 8 6K=G ... BRN QK5 4 6K*L ...QK9 8 6KDQ ... LDX 2 FX2 15 6KHW ... LDX 1 ACOMMUNE1(2) [OLPA WRITER 16 6KM2 ... LDX 1 APETADDR-ARINGEL(1) [APET WRITER 15 6KQ6 ... LDX 3 ACOMMUNE2(2) [OLPA READER 17 6KT= ... LDX 3 APETADDR-ARINGEL(3) [APET READER 7 6KYB # READ REPLY 10 6LD2 LDX 2 ACOMMUNE2(2) 9 6LXL SMO FPTR(2) 9 6MC= LDX 5 AREPPTR 7 6MHN LDN 4 6 7 6MN6 LDX 6 7 8 6MSJ BPZ 6 VM1 8 6M_2 LDCT 6 #100 8 6N5D VM1 SMO FX1 8 6N9W ORX 6 TBIT5 8 6NBG LDX 2 FX2 7 6NW6 LDN 0 1 10 6P*Q STO 0 ACOMMUNE5(2) 17 6PTB ... FINMOVE 3,5,4,ACOMMUNE5(2),HLOCKB1,ACOMMUNE4(2),1 8 6Q*2 # WRITE REPLY 8 6QSL SMO FX2 9 6R#= LDX 2 ACOMMUNE1 9 6RRW SMO FPTR(2) 9 6S?G LDX 5 AREPPTR 7 6SK= LDN 4 6 8 6SX2 LDCT 6 #010 8 6T8Q BPZ 7 VM2 8 6TGG LDCT 6 #110 7 6TS= NGX 7 7 7 6W62 ORX 6 7 8 6WCQ VM2 LDX 2 FX2 7 6WPL LDN 0 1 10 6X9= STO 0 ACOMMUNE5(2) 17 6XNW ... FINMOVE 1,5,4,ACOMMUNE5(2),HLOCKB1,ACOMMUNE3(2),1 10 6Y8G # REACTIVATE PROGRAMS 8 6YN6 SMO FX2 9 6_7Q LDX 3 AWORK2 9 6_MB LDX 2 FPTR(3) 9 7272 SBN 2 ARINGEL 6 72LL #SKI IPCG4 4 736= ( 12 73KW HUNT2 1,ADATA,HLOCKDOWN,2 11 745G ... CLEARALL APETADDR(2),0,1 4 74K6 ) 7 754Q CCBB 2 12 75JB TICKLE JOBNO(2),ASTMEL(3) 8 7642 SMO FX2 9 76HL LDX 3 AWORK3 9 773= LDX 2 FPTR(3) 9 77GW SBN 2 ARINGEL 6 782G #SKI IPCG4 4 78G6 ( 12 78_Q HUNT2 1,ADATA,HLOCKDOWN,2 11 79FB ... CLEARALL APETADDR(2),0,1 4 79_2 ) 7 7=DL CCBB 2 12 7=Y= TICKLE JOBNO(2),ASTMEL(3) 13 7?CW # RETURN TO AMALGAMATE RING ELEMENTS 8 7?XG SMO FX2 9 7#C6 LDX 2 AWORK2 8 7#WQ SMO FX2 9 7*BB LDX 1 AWORK1 10 7*W2 STOZ ASTATUS1(2) 8 7B*L BRN Q10 4 7BT= # 9 7C#W MENDAREA 100,K2IPQUAKE 4 7CSG # 4 7D#6 #END 8 ____ ...61024664002100000000