13 22FL ... SEG IPQUAKER,,KEITH MARTIN 4 22_= # 12 23DW SEGENTRY K1IPQUAKER,X1IPQUAKER 4 23YG # 8 24D6 PMASK #77777 9 24XQ QTASK #15010000 6 25CB X1IPQUAKER 11 25X2 P1 MHUNT 3,IPCD,IPSTACK 17 26BL LDX 4 CLEANCT [TIME INTERRUPT DUE? 20 26W= SBX 4 IPCLNCT(2) [CONTAINS TIME OF LAST INTERRUPT 11 27*W LDN 5 FONINTP*1000/K9 7 27TG TXL 4 5 8 28*6 BCS Z1 9 28SQ LDX 4 CLEANCT 19 29#B STO 4 IPCLNCT(2) [NOTE TIME OF THIS INTERRUPT 5 29*3 ...PCLOS4 10 29*4 ... LDX 4 ALTSTACK(2) 9 29*5 ... BZE 4 PCLOS3 8 29*6 ... COOR3 #41 9 29*7 ... BRN PCLOS4 5 29*8 ...PCLOS3 7 29*9 ... LDN 4 1 10 29*= ... STO 4 ALTSTACK(2) 11 29*? ... MHUNT 3,IPCD,IPSTACK 4 29*# ...# 17 29*L ...# REMOVE ANY LINKS THAT HAVE BEEN CLOSED 4 29*Y ...# 9 29B= ... STO 3 AWORK1(2) 5 29BJ ...PCLOS7 10 29BW ... LDX 7 ARINGNO(3) 9 29C8 ... ANDX 7 PMASK(1) 9 29CG ... BZE 7 PCLOSEND 8 29CS ... LDN 3 A1(3) 4 29D6 ...# 16 29DD ...# SEE IF THIS LINK WAITING TO BE CLOSED 5 29DQ ...PCLOS8 8 29F4 ... LDN 0 #40 10 29FB ... ANDX 0 ASTATUS2(3) 9 29FN ... BZE 0 PNOCLOS 4 29G2 ...# 14 29G# ...# CANT DO IF OPEN IN PROGRESS 8 29GL ... LDCT 0 #010 10 29GY ... ANDX 0 ASTATUS2(3) 9 29H= ... BNZ 0 PNOCLOS 4 29HJ ...# 15 29HW ...# UPDATE LOWEST LINK NO AND SUBRELT 9 29J8 ... LDX 6 ALINUM(3) 8 29JG ... ANDN 6 #7777 10 29JS ... LDX 0 FRELINUM(2) 9 29K6 ... BZE 0 PCLOS1 9 29KD ... BXGE 6 0,PCLOS2 5 29KQ ...PCLOS1 10 29L4 ... STO 6 FRELINUM(2) 5 29LB ...PCLOS2 9 29LN ... EMPTY FPTR(3) 10 29M2 ... TRACE 3,LINKCLOS 7 29M# ... SUBRELT 3 9 29ML ... BCT 7 PCLOS8 9 29MY ... BRN PCLOSEND 4 29N= ...# 4 29NJ ...# 5 29NW ...PNOCLOS 9 29P8 ... ADN 3 ARECLEN 9 29PG ... BCT 7 PCLOS8 4 29PS ...# 4 29Q6 ...# 5 29QD ...PCLOSEND 9 29QQ ... LDX 3 AWORK1(2) 10 29QX ... STOZ ALTSTACK(2) 10 29S2 LDX 7 ARINGNO(3) 9 2=?L ANDX 7 PMASK(1) 8 2=R= BZE 7 Z1 8 2?=W LDN 3 A1(3) 7 2?QG LDN 0 1 10 2#=6 ADS 0 IPCERTM(2) 9 2#PQ TRACE 7,IQRECNO 21 2*9B # CHECKS EACH LINK FOR STORED TRANSFERS, REMOVES ANY WHICH HAVE REACHED 21 2*P2 # THE END OF THEIR WAITING TIME, GIVES 'TIMED OUT' REPLY AND RESTARTS 7 2B8L # THE PROGRAM 9 2BN= PLOOP LDX 4 ATIMCT(3) 19 2C7W BZE 4 P6 [BRANCH IF NO TIMEOUT COUNT 18 2CMG SBN 4 1 [SUBTRACT 1 FROM COUNT 9 2D76 STO 4 ATIMCT(3) 17 2DLQ BNZ 4 P6 [J IF NOT TIMED OUT 10 2F6B LDX 4 ASTATUS1(3) 8 2FL2 ANDX 4 GSIGN 8 2G5L BNZ 4 P6 7 2GK= LDN 5 1 7 2H4W STO 3 6 10 2HJG LDX 4 ASTATUS2(3) 7 2J46 SLL 4 1 8 2JHQ BPZ 4 PA 10 2K3B ERS 0 ASTATUS1(3) 8 2KH2 BRN PR1 10 2L2L PA LDX 4 ASTATUS1(3) 7 2LG= ANDN 4 7 7 2L_W TXU 4 0 8 2MFG BCS P2 20 2M_6 ERS 0 ASTATUS1(3) [REMOVE TRANSFER STORED MARKER 10 2NDQ LDX 0 ASTATUS1(3) 7 2NYB SLL 0 1 8 2PD2 BNG 0 PAX 9 2PXL LDX 3 BPTR(3) 8 2QC= BRN PR1A 10 2QWW P2 LDX 4 ASTATUS2(3) 7 2RBG ANDN 4 7 7 2RW6 TXU 4 0 8 2S*Q BCS P6 19 2STB LDN 5 0 [SET REQUEST TIMED OUT MARKER 19 2T*2 ERS 0 ASTATUS2(3) [REMOVE REQUEST STORED MARKER 6 2TSL #SKIP IPCV4 4 2W#= ( 10 2WRW PR1 LDX 0 ASTATUS1(3) 7 2X?G SLL 0 1 8 2XR6 BNG 0 PG 20 2Y=Q LDX 3 FPTR(3) [GET POINTER TO RELEVANT AOLPT 4 2YQB ) 7 2_=2 #SKIP IPCV4<1$1 19 2_PL PR1 LDX 3 FPTR(3) [GET PTR TO RELEVANT AOLPT 9 329= PR1A SBN 3 ARINGEL 7 32NW STO 3 2 11 338G FINDACTFB 3,,APET,,,BPTR 7 33N6 LDN 0 0 7 347Q SMO 6 9 34MB LDX 4 ASTATUS2 7 3572 SLL 4 1 18 35LL BPZ 4 P4 [J IF LINK ESTABLISHED 7 366= ADN 0 4 7 36KW SLL 4 3 8 375G BPZ 4 P4 8 37K6 LDN 5 #2100 7 384Q SLL 5 9 7 38JB SMO 6 9 3942 ERS 5 ASTATUS2 8 39HL ADN 0 #4002 7 3=3= P4 SMO 6 9 3=GW LDX 1 APTRIPB 8 3?2G ... BZE 1 P5B 7 3?G6 STO 0 5 10 3?_Q JENG CPPTR(1),P4A 8 3#FB SMO FX2 9 3#_2 STO 2 AWORK2 11 3*DL P4B HUNT2OPT 1,IPCD,ATASK 8 3*Y= BNG 1 P4C 8 3BCW LDX 0 A1(1) 7 3BXG SMO 6 9 3CC6 TXU 0 ALINUM 8 3CWQ BCS P4B 9 3DBB LDX 0 A1+1(1) 7 3DW2 ANDN 0 1 8 3F*L BNZ 0 P4B 9 3FT= LDX 4 BPTR(1) 7 3G#W FREECORE 1 7 3GSG LDX 1 4 8 3H#6 BRN P4B 8 3HRQ P4C SMO FX2 9 3J?B LDX 2 AWORK2 7 3JR2 LDX 0 5 8 3K=L BRN P5 4 3KQ= P4A 7 3L9W LDX 0 5 8 3LPG ...P5B ADN 0 #230 8 3M96 BRN P5A 8 3MNQ P5 ADN 0 #220 8 3N8B P5A SLC 0 15 7 3NN2 SMO 6 9 3P7L LDX 5 AREPPTR 5 3PM= #SKI G3 7 3Q6W LDN 4 0 5 3QLG #SKI G4 4 3R66 ( 7 3RKQ LDN 4 7 8 3S5B SMO FX2 9 3SK2 STO 7 AWORK3 7 3T4L LDX 7 0 4 3TJ= ) 7 3W3W LDN 1 1 6 3WHG #SKIP IPCG4 20 3X36 HUNT2 3,ADATA,HLOCKDOWN,2 [FIND LOCKDOWN BLOCK AFTER OLPA 14 3XGQ FINMOVE APETADDR(2),5,4,1,HLOCKB1,3,1 6 3Y2B #SKIP IPCG4 16 3YG2 ... CLEARALL APETADDR(2),0,3 [FREE ALL LOCKS 7 3Y_L CCBB 2 7 3_F= SMO 6 9 3_YW LDX 5 ASTMEL 10 42DG TICKLE JOBNO(2),5 5 42Y6 #SKI G4 9 43CQ LDX 7 AWORK3(2) 6 43XB #SKIP IPCV4 4 44C2 P8 7 44WL LDN 0 1 19 45B= STO 0 AWORK4(2) [SET 'ACTION TAKEN' MARKER 9 45TW TRACE 0,IQTICK 7 46*G LDX 3 6 19 46T6 P6 SBN 7 1 [[SUBTRACT 1 FROM NO. LINKS 18 47#Q BZE 7 P7 [BRANCH IF NO MORE LINKS 18 47SB ADN 3 ARECLEN [MOVE PTR TO NEXT RECORD 8 48#2 BRN PLOOP 6 48RL #SKIP IPCV4 4 49?= ( 12 49QW # SET UP REPLY IF GEORGE LINK 7 4==G PG NGNC 6 1 8 4=Q6 PAX LDN 6 #44 10 4?9Q LDX 2 APTRIPB(3) 10 4?PB JDISENG CPPTR(2),PG1 16 4#92 ORN 6 2 [MARK OPERABLE 10 4#NL PG1 LDX 0 ASTATUS2(3) 7 4*8= SLC 0 4 7 4*MW LDXC 0 0 18 4B7G BCC PG2 [J UNLESS FAIL IN OPENING 7 4BM6 ORN 0 1 7 4C6Q SRC 0 4 20 4CLB STO 0 ASTATUS2(3) [SET AUTOMATIC RE-ESTABLISHMENT 15 4D62 ORX 6 GSIGN [MARK FAIL 13 4DKL ORN 6 #1000 [4 16 4F5= PG2 SRC 6 7 [COMPLETED REPLY 16 4FJW # STORE REPLY AND DESUSPEND ACTIVITY OWNING LINK 9 4G4G LDX 2 FPTR(3) 20 4GJ6 SBN 2 IPCRNG [POINTER TO LINK CONTROL BLOCK 10 4H3Q STO 6 IPCGREP(2) 7 4HHB LDX 6 3 16 4J32 PG3 LDX 2 BPTR(2) [FIND ACTIVITY 9 4JGL LDX 0 ATYPE(2) 9 4K2= BXL 0 CACT,PG3 14 4KFW DESUSPEND [KICK IT 13 4KH? ... LDX 1 APTRIPB(3) [IPCBX 17 4KJN ...PG4 HUNT2OPT 1,IPCD,ATASK [LOOK FOR TASK BLOCK 16 4KL5 ... BNG 1 P8 [JUMP IF NONE 8 4KMG ... LDX 0 A1(1) 18 4KNX ... TXU 0 ALINUM(3) [IS IT THIS LINK NO. 16 4KQ# ... BCS PG4 [JUMP IF NOT 9 4KRP ... LDX 0 A1+1(1) 7 4KT6 ... ANDN 0 1 18 4KWH ... BNZ 0 PG4 [JUMP IF TRANSFER TASK 17 4KXY ... FREECORE 1 [FREE TASK BLOCK 13 4K_G BRN P8 [NEXT 4 4LF6 ) 13 4LYQ # TEST IF TIME TO CLEAR ERROR COUNTS 4 4MDB P7 7 4MY2 LDN 4 0 10 4NCL LDX 0 IPCERTM(2) 8 4NX= SBN 0 76 7 4PBW BNG 0 R 10 4PWG STOZ IPCERTM(2) 17 4QB6 LDN 4 1 [COUNTS TO BE CLEARED 12 4QTQ # TEST IF IPB TO BE TIMED-OUT 10 4R*B R LDX 6 APROPRES(2) 17 4RT2 R1 BZE 6 R2 [IF NONE,SERVICE TASK 15 4S#L LDX 5 6 [COPY COUNT 18 4SS= LDN 3 ACTRING(2) [POINTER TO ACTIVITY RING 17 4T?W R3 LDX 3 BPTR(3) [STEP ALONG ACT RING 8 4TRG BCT 5 R3 17 4W?6 SBN 3 ACTRING [BEGINNING OF BLOCK 9 4WQQ LDX 0 ATYPE(3) 8 4X=B SRL 0 12 10 4XQ2 SBN 0 IPCA+IPCBX 16 4Y9L BZE 0 R4 [IPCBX ACTIVITY 9 4YP= GEOERR 1,IPCBLST 9 4_8W R4 JIPCM RW,R4A,3 9 4_NG JIPCM Q,R8,3 9 5286 LDX 0 CPRW1(3) 8 52MQ BNG 0 R4A 9 537B LDX 0 CPRW2(3) 8 53M2 BNG 0 R4A 8 546L BRN R5 10 54L= R4A LDX 0 IPCPTIME(3) 15 555W BZE 0 R5 [NO PERI UP 9 55*N ... ADN 0 10000/K9 9 55KG TXL 0 CLEANCT 8 5656 BCS R6 7 56JQ R5 SBN 6 1 8 574B BZE 4 R7 10 57J2 DFCLEAR CPPTR(3),ERCT 8 583L R7 BRN R1 8 58H= R6 SIPCM TO,3 9 592W LDX 2 CPPTR(3) 7 59GG FPUTCHA 2 8 5=26 BRN R5 10 5=FQ R8 JENG CPPTR(3),R5 10 5=_B JSBUSY CPPTR(3),R6 8 5?F2 BRN R5 8 5?YL R2 LDX 2 FX2 11 5#D= MHUNT 3,IPCD,IPSTACK 4 5#XW # 10 5*CG # SERVICE WAITING TASKS 4 5*X6 # 6 5BBQ # X1=FX1 6 5BWB # X2=FX2 10 5CB2 # X3:-> IPSTACK BLOCK 17 5CTL Z1 LDX 3 FPTR(3) [FIRST TASK, IF ANY 17 5D*= LDX 0 QTASK(1) [TYPE OF TASK BLOCK 10 5DSW BXU 0 ATYPE(3),Q2 9 5F#G ACROSS IPQUAKE,1 12 5FS6 # DECIDE IF SUSPENSION REQUIRED 9 5G?Q Q2 LDX 0 AWORK4(2) 18 5GRB BNZ 0 Q3 [J IF ANY ACTION TAKEN 18 5H?2 COOR4 ATIMWT [WAIT FOR TIME INTERRUPT 17 5HQL Q3 STOZ AWORK4(2) [UNSET ACTION MARKER 17 5J== BRN P1 [LOOP BACK TO START 4 5JPW # 9 5K9G MENDAREA 100,K2IPQUAKER 4 5KP6 # 4 5L8Q #END 8 ____ ...66401512000200000000