7 22FL ...#OPT K0COOR=0 11 22_= #LIS K0COOR>K0KERNEL>K0ALLGEO 15 23DW #SEG COOR70 [RUTH PORTER 11 23YG #OPT K6COOR=K6KERNEL>K6ALLGEO 4 24D6 # 20 24XQ # THE FOLLOWING PIECE OF PROGRAM IS THE COORDINATOR, WHICH 21 25CB # DEALS WITH THE ACTIVITY LIST AND QUEUE. IT ENTERS ACTIVITIES 20 25X2 # WHICH EXECUTIVE PUTS ON THE LIST AND SWITCHES GEORGE OFF 20 26BL # USING GEOEVENTS WHEN NONE LEFT,BESIDES OTHER SECONDARY FUNCTIONS 4 26W= # 18 27*W # THE FON ROUTINE WHICH FREES WAITING ACTIVITIES. 4 27TG # 9 285# ... FIXTRA K1COOR 8 28*6 LABFIX HSON1 20 28SQ SON1 [ONLY WAKE UP 1ST ON Q,SET MARKER 20 29#B LDCT 2 #777 [WHEN NEGATED LATER WILL LEAVE 16 29S2 STO 2 GEN6 [LS 9 BITS CLEAR 8 2=?L BRN SONN 8 2=R= LABFIX HSON 8 2?=W SON STOZ GEN6 8 2?QG SONN STO 1 FLINK 17 2#=6 STO 0 FONSTYLE [DUMP WAITING STYLE 19 2#PQ SOON [ENTRY FROM LONGON ROUTINE 8 2*9B LDX 1 FLOWQ 15 2*P2 SLOOP LDX 2 1 [SEARCH QUEUE 8 2B8L LDX 1 0(2) 8 2BN= SBN 2 FLOWQ 18 2C7W BZE 2 SCW2 [J IF BACK TO BEGINNING 11 2CMG ADN 2 FLOWQ-CHAINADD 18 2D76 LDEX 0 ATYPE(2) [COMPARE WAITING STYLES 19 2DLQ SBX 0 FONSTYLE [COMPARE WITH SPECIFIED STYLE 16 2F6B BNZ 0 SLOOP [J IF NO MATCH 8 2FL2 SOO NGX 0 GEN6 16 2G5L BPZ 0 SONO [J IF NOT LONGON1 9 2GK= LDEX 0 CLONG1(2) 8 2H4W SNO BNZ 0 SLOOP 9 2HJG SONO DSA 0 ATYPE(2) 17 2J46 LDX 0 CHAINADD(2) [JOIN UP QUE]E CHAN 10 2JHQ SMO BACKCHAN(2) 17 2K3B STO 0 0 [CHAINADD OF PREVIOUS 10 2KH2 LDX 0 BACKCHAN(2) 10 2L2L SMO CHAINADD(2) 16 2LG= STO 0 1 [BACKCHAN OF NEXT 8 2L_W #SKI K6COOR>499-499 10 2MFG TRACE 2,FON OFFQ 8 2M_6 LDCT 0 #10 15 2NDQ ANDX 0 CLONG1(2) [CLEAR BC BIT 9 2NYB ERS 0 CLONG1(2) 4 2PD2 # 16 2PXL # NOW PUT THIS ACTIVITY ON THE END OF K3 LIST 4 2QC= # 9 2QWW ADN 2 CHAINADD 6 2R33 ...#UNS ICTON 4 2R78 ...( 9 2R?* ... STO 1 ASFDUMP 11 2RCG ... LDCH 1 ACRIT-CHAINADD(2) 9 2RHM ... LDX 0 BITS22LS 10 2RMS ... SMO 1+GMELRTAB(1) 17 2RR_ ... ANDS 0 ASU [DESUSPEND RELEVANT GMEL 9 2RY6 ... FIXTRA K80COOR 17 2S4? ... LDN 1 K3 [ICT ON:- LDX 1 ACTLIS(1) 9 2S8D ... STO 1 FPTR(2) 9 2S#K ... LDX 0 BPTR(1) 7 2SDQ ... SMO 0 8 2SJX ... STO 2 FPTR 9 2SP4 ... STO 0 BPTR(2) 9 2ST9 ... STO 2 BPTR(1) 9 2S_B ... LDX 1 ASFDUMP 9 2T5H ... FIXTRA K81COOR 4 2T9N ...) 6 2T*T ...#UNS ICTON 4 2TG2 ...#SKI 4 2TL7 ...( 8 2TQ# ... LDN 0 K3 20 2TWF ... STO 0 0(2) [BACK BEFORE FWD - CLEAN FOR EXEC 14 2W2L ... LDX 0 K3+1 [LAST ONE 7 2W6R ... SMO 0 14 2W=Y ... STO 2 0 [NEW LAST 16 2WC5 ... STO 0 1(2) [PREVIOUS LAST 14 2WH= ... STO 2 K3+1 [NEW LAST 4 2WMC ...) 8 2WRW LDXC 0 GEN6 20 2X?G BCS SCW2 [J TO END IF FON & ONLY 1 REQD 16 2XR6 BRN SLOOP [GO TO GET NEXT 4 2Y=Q # 14 2YQB # COOR2, ENTRY USED AT END OF TIME QUOTA 4 2_=2 # 9 2_PL LABFIX HSOOR2 5 329= SOOR2 15 32NW STO 0 FLINK [DUMP LINK 8 338G LDN 1 K8 8 33N6 TXU 1 K8 19 347Q BCS SIN [J IF GHOST LIST NOT EMPTY 8 34MB LDN 1 K3 20 3572 TXU 1 K3 [TEST IF K3 LIST IS ALSO EMPTY 9 35BS ... FIXTRA K90COOR 19 35LL BCC SCW2 [YES, J TO RE-ENTER CHAPTER 6 35MP ...#UNS ICTON 4 35NS ...( 15 35R2 ... BRN SIN [ICT ON:- LDX 2 FX2 9 35S5 ... LDCH 1 ACRIT(2) 16 35S* ... BXL 1 ASFNO,SOOR2P [J IF WITHIN MAX AP 15 35SK ... LDX 1 ASFNO1 [OTHERWISE TAKE LOWEST 5 35ST ...SOOR2P 7 35T8 ... ADN 1 1 6 35W? ...SOOR2LOOP 10 35XB ... LDX 2 ACTLIS-1(1) 16 35YF ... BXU 2 FPTR(2),SIN [J IF ACT ON LIST 9 35_J ... BCT 1 SOOR2LOOP 8 362M ... BRN SCW2 9 363Q ... FIXTRA K91COOR 4 364T ...) 15 366= SIN SQOSS [PROCESS LINK 17 36KW SQUMP2 [DUMP ACCUMULATORS 4 375G # 4 377D ...# 20 379B ...# LABEL FOR EXECUTIVE/G3 CONCURRENCY (FOR 2960 DUAL DME) ROUTINE 21 37?# ...# AT END OF CHCH TO PASS OVER CURRENT ACTIVITY AND GO ON TO NEXT. 4 37*= ...# 9 37C8 ... FIXTRA CURFIX3 9 37F6 ... LABFIX CURFIX3 4 37H4 ...# 8 37K6 LABFIX FLIST 9 384Q ... LDX 1 COOR1X 4 38JB # 20 3942 # THE ROUTINE FOR PUTTING AN ACTIVITY ON THE (END OF) THE LIST. 8 39HL LABFIX HSPUT 4 3=3= SPUT 8 3=GW #SKI K6COOR>999-999 9 3?2G TRACE 2,ON LIST 8 3?G6 #SKI K6COOR>11-11 4 3?_Q ( 9 3#FB LDX 0 ATYPE(2) 8 3#_2 TXL 0 CACT 8 3*DL BCC SACTY 10 3*Y= GEOERR 0,NOT ACTY 5 3BCW SACTY 4 3BXG ) 15 3CC6 STO 1 FLINK [DUMP LINK 5 3CLY ...TRUE2 9 3CWQ ADN 2 CHAINADD 6 3DBB #SKI K6COOR 4 3DW2 ( 9 3F*L LDX 0 BPTR(2) 8 3FT= BZE 0 ZONCE 10 3G#W GEOERR 0,LISTKNOT 5 3GSG ZONCE 4 3H#6 ) 6 3HD# ...#UNS ICTON 4 3HJG ...( 9 3HNN ... FIXTRA K92COOR 19 3HSW ... BRN X93COOR [ICT ON:- LDCH 1 ACRIT-CHAINADD(2) 17 3HTN ... BXL 1 ASFNO,XPUTP [ENSURE LOWEST PRIORITY.. 15 3HWG ... LDX 1 ASFNO1 [..IS AS SET BY USER 11 3HX# ... DCH 1 ACRIT-CHAINADD(2) 5 3HY6 ...XPUTP 9 3H_4 ... LDX 0 BITS22LS 10 3J5= ... SMO 1+GMELRTAB(1) 17 3J9D ... ANDS 0 ASU [DESUSPEND RELEVANT GMEL 9 3J*L ... LDX 1 ACTLIS(1) 9 3JFS ... STO 1 FPTR(2) 9 3JL2 ... LDX 0 BPTR(1) 7 3JQ8 ... SMO 0 8 3JWB ... STO 2 FPTR 9 3K2J ... STO 0 BPTR(2) 9 3K6Q ... STO 2 BPTR(1) 8 3K=Y ... BRN SCW2 9 3KC6 ... FIXTRA K93COOR 5 3KH# ...X93COOR 4 3KMG ...) 8 3KRN ... LDN 0 K3 20 3KXW ... STO 0 0(2) [BACK BEFORE FWD - CLEAN FOR EXEC 14 3L44 ... LDX 1 K3+1 [LAST ONE 14 3L8= ... STO 2 0(1) [NEW LAST 16 3L#D ... STO 1 1(2) [PREVIOUS LAST 14 3LDL ... STO 2 K3+1 [NEW LAST 9 3LJS ... FIXTRA INOSTDP1 14 3LPG SCW2 LDX 2 FX2 [RESET X2 14 3M96 LDX 1 FX1 [ AND X1 9 3MNQ BRN (FLINK) 6 3MPF ...#UNS ISTDP 4 3MQ8 ...( 4 3MQX ...# 16 3MRL ...# TRUEDORM ENTRY TO KICK PCA TO SWAPOUT PROGRAM 9 3MS* ... LABFIX HTRUED 8 3MT4 ... STO 1 FLINK 20 3MTR ... BNZ 2 TRUE1 [J IF JOBQ ADDRESS ALREADY LOADED 8 3MWG ... BRUSEN SCW2 8 3MX9 ... FJOCA 2,FX2 5 3MXY ...TRUE1 9 3MYM ... LDEX 0 JMISC(2) 17 3M_B ... BZE 0 SCW2 [J IF NO CORE IMAGE 10 3N25 ... JBC SCW2,2,JBSI 17 3N2S ... JMBS SCW2,2,JBBEING,JBPLUGGING,JBNSW,JBREEF 9 3N3H ... BC 2,JBRUN 7 3N3Q ...#UNS INOSTDP 10 3N3_ ... FIXTRA INOSTDPCOOR 11 3N4= ... MBI 2,JBBEING,JBSI 8 3N4_ ... FPCAJO 2,2 10 3N5N ... LINKSET 2,ATRUEDLINK 17 3N6C ... BRN TRUE2 [J INTO FPUT ROUTINE 4 3N76 ...) 4 3N8B # 17 3NN2 # COOR1, ENTRY USED WHEN AN ACTIVITY FINISHES. 9 3P7L LABFIX HSOOR1 5 3PM= SOOR1 17 3Q6W SQUMP [DUMP ACCUMULATORS 9 3QLG LABFIX HSOOR1Y 5 3R66 SOOR1Y 15 3RKQ SQOSS [PROCESS LINK 9 3S5B LABFIX HSOOR1X 15 3S*8 ... FIXTRA BPCOOR1X [BATCH PATCH LABEL 5 3SK2 SOOR1X 8 3T4L LABFIX FQOB 6 3T4S ...#UNS ICTON 4 3T52 ...( 9 3T58 ... FIXTRA K94COOR 16 3T5B ... BRN X95COOR [ICT ON:- LDCT 6 #400 9 3T5J ... LDX 1 FX2LAST 8 3T5Q ... LDN 7 K3 9 3T6= ... BXU 7 K3,SORT 17 3T6Q ... BZE 1 WAS0 [NO FIDDLING WITH MEL 0 9 3T7= ... LDX 2 ACTLIS(1) 16 3T7S ... BXU 2 FPTR(2),WAS0 [J IF LIST NOT EMPTY 10 3T82 ... SMO 1+GMELRTAB(1) 14 3T88 ... ORS 6 ASU [SUSPEND MEL 8 3T8B ...WAS0 LDN 0 K8 16 3T8J ... BXU 0 K8,ONE61 [J IF ACT ONGHOST LIST 7 3T96 ...XLOOK LDN 2 0 17 3T99 ... LDX 4 ASFNO1 [NOW LOOK AT ALL HIGHER GMELS 13 3T9# ... LDX 0 ASU+GMEL [CHECK MEM0 15 3T9C ... BNZ 0 ROUND [GO ON TO NEXT IF SUSP 9 3T9G ... LDX 3 ACTLIS 18 3T9K ... BXU 3 FPTR(3),PHOUND [GO TO RUN FIRST ON LIST0 7 3T9N ...ROUND ADN 2 1 5 3T9R ...ROUND1 10 3T9W ... LDX 1 1+GMELRTAB(2) 9 3T9_ ... LDX 0 ASU(1) 12 3T=4 ... BNZ 0 RD1 [J IF SUSP 9 3T=7 ... LDX 3 ACTLIS(2) 18 3T== ... BXU 3 FPTR(3),PH1 [GO TO RUN IF SOMETHING TO DO 17 3T=* ... ORS 6 ASU(1) [SUSP SPURIOUSLY DESUSP MEM 7 3T=D ...RD1 ADN 2 1 13 3T=H ... BCT 4 ROUND1 [GO ONTO NEXT 9 3T=L ...[..IF ALL SUSP DO 161 5 3T=Y ...ONE61 7 3T?4 ... GEOEVENTS 4 3T?7 ...TRY 15 3T?? ... BXE 7 K3,XLOOK [J IF K3 EMPTY 9 3T?* ...SORT STOZ ASU+GMEL 19 3T?J ...[ ...2960 DUALS TO STOP EXEC & G3 BOTH RECHAINING ON OR FROM K3 18 3T?K ... FIXTRA CURFIXASF1 [MENDED BY CONCURR MACRO 17 3T?L ... NULL [TO: LDX 0 FBIDMEM 17 3T?M ... NULL [TO: BPZ 0 CURFIXASF2 8 3T?Q ...TOUR LDX 3 K3 15 3T?Y ... BXE 3 7,XEND [J IF ALL DONE 9 3T#6 ... LDX 1 FPTR(3) 16 3T## ... STO 7 BPTR(1) [UPDATE NEXT ON K3 8 3T#G ... STO 1 K3 17 3T#N ... LDCH 2 ACRIT-CHAINADD(3) [ACTLIS NUMBER 10 3T#W ... SMO 1+GMELRTAB(2) 8 3T*4 ... STOZ ASU 14 3T*= ... LDX 2 ACTLIS(2) [ACTLIST BASE 9 3T*D ... STO 2 FPTR(3) 9 3T*L ... LDX 1 BPTR(2) 9 3T*S ... STO 3 BPTR(2) 9 3TB2 ... STO 1 BPTR(3) 9 3TB8 ... STO 3 FPTR(1) 8 3TBB ... BRN TOUR 19 3TBC ...[ WE COME HERE IF CONCURRENCY IS IN FORCE IN DUALS AND WE 9 3TBD ...[ ARE NOT ^TRUSTED^ 8 3TBF ... FIXTRA CURFIXASF2 19 3TBG ... ENTRUST TOUR,XLOOK [DECANT IF EXEC NOT RUNNING, 18 3TBH ... [ELSE TRY ACTIVITY LISTS 4 3TBJ ...[ 18 3TBK ...[MEM0 MUST BE EMPTY IF WE GET HERE AND SINCE WE FOUND MEM 19 3TBL ...[OTHER THAN 0 DESUSP IT IS SAFE TO SUSP MEM0 EXPLICITLY RATHER 12 3TBM ...[THAN USE EXPENSIVE XCODE I.E 161 9 3TBN ...PH1 ORS 6 ASU+GMEL 9 3TBP ... FIXTRA CURFIXASF 12 3TBQ ... LDX 0 FX2LAST [OLD AP 13 3TBR ... BXGE 0 2,PHOUND [J IF GOING UP 19 3TBS ... '163 0 0 [IF GOING DOWN ENSURE PROGS HAVE A GO 5 3TBT ...NONEED 13 3TBW ... BRN PHOUND [GO AND RUN NEXT 9 3TBX ...XEND LDX 1 ACTLIS 16 3TBY ... BXE 1 FPTR(1),TRY [J IF GMEL0 LIST EMPTY 14 3TB_ ... LDN 2 0 [SET GMEL NO 5 3TC6 ...PHOUND 7 3TCG ... LDX 1 2 9 3TCW ...PHOUND1 STO 1 FX2LAST 14 3TD= ... LDX 3 ACTLIS(1) [ACT LIST BASE 9 3TDD ... LDX 2 FPTR(3) 15 3TDL ... LDX 1 FPTR(2) [BLOCK FOLLOWING 9 3TDS ... STO 3 BPTR(1) 16 3TF2 ... STO 1 FPTR(3) [UPDATE ACT LIST RING 9 3TF8 ... STOZ BPTR(2) 9 3TFB ... SBN 2 CHAINADD 13 3TFJ ... STO 2 FX2 [GOTCHER! 9 3TFQ ... TRANSFIX BRN,FZCO 9 3TFY ... FIXTRA K95COOR 5 3TG3 ...X95COOR 4 3TG6 ...) 4 3TG# ...[ 7 3TGG ...[ ICT OFF CODE 4 3TGN ...[ 8 3TJ= ... LDN 2 K8 8 3W3W ... LDN 3 K3 9 3WHG ... BXU 2 K8,SJH 18 3X36 ... BXU 3 K3,STOPE [CHECK IF GEOEVENTS NEEDED 4 3XGQ ...SJH 7 3Y2B ... GEOEVENTS 5 3YG2 ...STOPE 15 3Y_L ... LDX 2 K3 [GET NEW K3 8 3_F= #SKI K6COOR>49-49 4 3_YW ( 8 42DG BPZ 2 XECOK 9 42Y6 GEOERR 0,RONG K3 5 43CQ XECOK 4 43XB ) 8 444J ... LDN 0 BACT 9 449Q ... BXGE 2 0,NOTMPT 8 44C2 ... '142 0 2 5 44LS ...NOTMPT 15 44WL LDX 3 0(2) [OFF THE LIST 16 45B= LDN 0 K3 [UPDATE BACKWARD 14 45TW STO 0 1(3) [POINTER 17 46*G STOZ 1(2) [NOT DOUBLY CHAINED 15 46T6 SJK STO 3 K3 [UPDATE K3 21 47#Q SJM SBN 2 CHAINADD [RELATIVISE TO START OF ACTIVITY BLOK 18 47SB STO 2 FX2 [STORE CURRENT ACTIVITY 9 48#2 TRANSFIX BRN,FZCO 4 48RL # 14 49?= # COOR3, PUT WAITING IN SPECIFIED STYLE 4 49QW # 9 4==G LABFIX HSOOR3 5 4=Q6 SOOR3 17 4?9Q SQUMP [DUMP ACCUMULATORS 9 4?PB LABFIX HSOOR3Y 5 4#92 SOOR3Y 15 4#NL SQOSS [PROCESS LINK 9 4*8= LABFIX HSOOR3X 5 4*MW SOOR3X 8 4B7G LDX 2 FX2 9 4BM6 DSA 1 ATYPE(2) 16 4C6Q [WHERE NECESSARY 8 4CLB #SKI K6COOR>499-499 10 4D62 TRACE 2,CO3 ON Q 8 4DKL LDN 1 FLOWQ 14 4F5= STO 1 CHAINADD(2) [PUT ON 14 4FJW LDX 1 AQEND [END OF 14 4G4G STO 1 BACKCHAN(2) [QUEUE 9 4GJ6 ADN 2 CHAINADD 8 4H3Q STO 2 0(1) 8 4HHB STO 2 AQEND 9 4J32 TRANSFIX BRN,FQOB 4 4JGL # 4 4K2= # 13 4KFW # LONGWAIT TYPE COORDINATOR ROUTINES 4 4K_G # 4 4LF6 # 8 4LL# ...#SKI JWPHASE4<1$1 4 4LRG ...( 11 4LYQ [ROUTINE FOR CHECKING BREAKIN 9 4MDB LABFIX HSBCBIN1 5 4MY2 SBCBIN1 7 4NCL ... NGN 1 5 8 4NX= BRN PAST 10 4PBW LABFIX HSCHECKBIN 6 4PWG SCHECKBIN 7 4Q8X ... LDN 1 1 7 4QH# ... BRN PAST 9 4QTQ LABFIX HSBCBIN 5 4R*B SBCBIN 7 4RP5 ... NGN 1 1 14 4S4S ...PAST NGS 1 GEN6 [-VE IF TESTBRKIN 12 4SDH ...[ OTHERWISE AMOUNT TO STEBACK LINK 8 4SS= LDX 2 FX2 6 4SW8 ...#SKI IPL 4 4SY6 ...( 9 4T24 ... LDX 1 ATYPE(2) 8 4T42 ... SRL 1 12 11 4T5Y ... SBN 1 GENERAL+IPLINP 8 4T7W ... BZE 1 XIPL 4 4T9S ...) 9 4T?W LDCH 1 ATYPE(2) 21 4TRG SBN 1 CPAT/64 [IF NOT ISSUED IN A COMPRO ACTIVITY. 18 4W?6 BNZ 1 XITCH [CHECK JOBNO=0 AND EXIT. 6 4WD# ...#SKI IPL 4 4WKG ...XIPL 16 4WQQ LDCT 1 #100 [BREAK IN BIT. 16 4X=B ANDX 1 JOBEVENTS(2) [BREAK IN WORD. 8 4XQ2 BZE 1 XIT1 14 4Y9L ERS 1 JOBEVENTS(2) [UNSET B2 21 4YP= DEX 1 CLONG1(2) [CLEAR LONG EVENT WAIT FIELD AFTER BR 18 4_8W SBN 0 1 [THIS EXIT IF BROKEN IN 8 4_NG XIT LDX 1 FX1 7 5286 EXIT 0 1 6 52MQ #SKI K6COOR 4 537B ( 5 53M2 XITCH 9 546L LDCH 1 ATYPE(2) 9 54L= SBN 1 AOLPT/64 18 555W BZE 1 XER [ERROR IF LW FROM OLPA 9 55KG LDCH 1 ATYPE(2) 9 5656 SBN 1 APET/64 15 56JQ BNZ 1 XIT [ERROR IF PCA 10 574B XER GEOERR 1,WRONGACT 4 57J2 ) 7 583L #OPT XITCH=XIT 8 58H= XIT1 LDX 1 GEN6 16 592W BNG 1 XIT [J IF TESTBRKIN 8 59GG LDCT 1 #10 9 5=26 ANDX 1 CLONG1(2) 8 5=FQ BZE 1 XIT 15 5=_B SBX 0 GEN6 [ADJUST LINK 10 5?F2 ...[ SO REOBEY BREAK IN CHECK 6 5?YL SQUMP2 6 5#D= SQOSS2 18 5#XW LDN 1 ALWPAIR [X1 ->LINK PAIR FOR B/C 10 5*CG TRANSFIX BRN,CHCHSPEC 4 5*CJ ...) 7 5*CL ...#SKI JWPHASE4 4 5*CN ...( 11 5*CQ ...# THROUGHOUT THE FOLLOWING:- 19 5*CS ...# X1=FX1 IF AROUSAL ENTRY. ELSE=VALUE FOR LONGEVENT FIELD 6 5*CW ...# X2=FX2 17 5*CY ...# X5=1 IF LONGTARRY [DON'T CHECK FOR BROADCAST 16 5*D2 ...# =-1 IF LONGCOOR [DON'T CHECK FOR BREAK IN 9 5*D4 ...# =0 OTHERWISE 9 5*D6 ...# X6=0 IF TESTBRKIN 10 5*D8 ...# =1 IF LONGSTOP ETC. 10 5*D= ...# =-1 IF LONGWAIT ETC. 13 5*D# ...# X7=LINK - LOADED FROM X0 ON ENTRY 4 5*DB ...# 9 5*DD ... LABFIX HSCHECKBIN 15 5*DG ...SCHECKBIN [TESTBRKIN 7 5*DJ ... LDN 2 0 8 5*DL ... BRN SBIN 9 5*DN ... LABFIX HSOOR3LW2 16 5*DQ ...SOOR3LW2 [LONGWAIT ETC. 8 5*DS ... LDN 2 #100 8 5*DW ... BRN SBIN 9 5*DY ... LABFIX HSOOR3LW3 15 5*F2 ...SOOR3LW3 [LONGTARRY 8 5*F4 ... LDN 2 #202 8 5*F6 ... BRN SBIN 9 5*F8 ... LABFIX HSOOR3LW4 14 5*F= ...SOOR3LW4 [LONGCOOR 8 5*F# ... LDN 2 #201 8 5*FB ... BRN SBIN 9 5*FD ... LABFIX HSOOR3LW1 14 5*FG ...SOOR3LW1 [LONGSTOP 8 5*FJ ... LDN 2 #200 8 5*FL ...SBIN STO 2 GEN6 6 5*FN ... SQUMP 8 5*FQ ... LDCH 5 GEN6 7 5*FS ... SRC 5 1 8 5*FW ... LDX 6 GEN6 7 5*FY ... SRC 6 7 7 5*G2 ... LDX 7 0 6 5*G4 ...#SKI IPL 4 5*G6 ...( 9 5*G8 ... LDX 0 ATYPE(2) 8 5*G= ... SRL 0 12 11 5*G# ... SBN 0 GENERAL+IPLINP 8 5*GB ... BZE 0 XIPL 4 5*GD ...) 9 5*GG ... LDCH 0 ATYPE(2) 9 5*GJ ... SBN 0 CPAT/64 17 5*GL ... BNZ 0 XITCH [J IF NOT IN A CPAT 4 5*GN ...XIPL 20 5*GQ ... BNG 5 XIT1 [DON'T CHECK B-IN FOR LONGCOOR 8 5*GS ... LDCT 4 #100 4 5*GW ...#SKI 4 5*GY ...( 16 5*H2 ... BZE 6 TBKIN [J IF TESTBRKIN 20 5*H4 ... ORN 4 #20 [ADD BIT 19 TO CHECK FOR STOPJOB 4 5*H6 ...) 5 5*H8 ...TBKIN 10 5*H= ... ANDX 4 JOBEVENTS(2) 15 5*H# ... BZE 4 XIT1 [J IF NO B-IN 18 5*HB ... JBS XHLSOUT,2,EXLONGW [J IF WE MUST TELL HLS 19 5*HD ... ERS 4 JOBEVENTS(2) [CLEAR INFORM B-IN BIT... 7 5*HG ... LDN 0 0 17 5*HJ ... DEX 0 CLONG1(2) [AND LONG EVENT FIELD 7 5*HL ...XIT LDX 0 7 7 5*HN ... SUNDUMP 8 5*HQ ... LDX 1 FX1 3 5*HR ... 19 5*HS ... EXIT 0 0 [RETURN TO CALLING CHAPTER 6 5*HW ...#SKI K6COOR 4 5*HY ...( 5 5*J2 ...XITCH 9 5*J4 ... LDCH 0 ATYPE(2) 9 5*J6 ... SBN 0 AOLPT/64 8 5*J8 ... BZE 0 XER 9 5*J= ... LDCH 0 ATYPE(2) 9 5*J# ... SBN 0 APET/64 8 5*JB ... BNZ 0 XIT2 18 5*JD ...XER GEOERR 1,WRONGACT [OLPA OR PCA LONGWAITING! 4 5*JG ...) 7 5*JJ ...#OPT XITCH=XIT2 7 5*JL ...XITTB ADN 7 1 8 5*JN ... BRN XIT 18 5*JQ ...XIT1 BZE 6 XITTB [J TO EXIT IF TESTBRKIN 8 5*JS ... LDCT 0 #10 9 5*JW ... ANDX 0 CLONG1(2) 17 5*JY ... BZE 0 XIT2A [J IF NO BROADCAST 8 5*K2 ... BZE 5 NOTLT 18 5*K4 ... BPZ 5 XIT2A [IGNORE B/C IF LONGTARRY 9 5*K6 ...NOTLT LDN 1 ALWPAIR 5 5*K8 ...SPECDOWN 7 5*K= ... SBN 7 1 7 5*K# ... LDX 0 7 6 5*KB ... SQOSS2 19 5*KD ... TRANSFIX BRN,CHCHSPEC [GO DOWN TO MULTIPLX/HLSEVENT 5 5*KG ...XIT2A 19 5*KJ ... BXE 1 FX1,XHLSOUTQ [J IF THIS IS AROUSAL ENTRY 6 5*KK ...#UNS ISTDP 4 5*KL ...#SKI 20 5*KM ... JBC XIT2,,EVBWAITIN [J IF HLS NOT INTERESTED IN L/W'S 7 5*KN ... LDEX 3 1 17 5*KQ ... BNZ 3 XLW [J IF NOT LONGSTOP 9 5*KS ... LDEX 3 CLONG1(2) 19 5*KW ... BZE 3 XIT2 [J IF L/W WON'T BE ENTERED 6 5*KX ...#UNS ISTDP 4 5*KY ...( 15 5*K_ ...XLW LDX 4 1 [PRESERVE X1 18 5*L2 ... TRUEDORM [ANNOUNCE TRUE DORMANCY 7 5*L3 ... LDX 1 4 20 5*L4 ... JBC XIT2,,EVBWAITIN [J IF HLS NOT INTERESTED IN LW'S 10 5*L5 ... STO 3 ACOMMUNE4(2) 4 5*L6 ...) 6 5*L7 ...#UNS ISTDP 4 5*L8 ...#SKI 18 5*L9 ...XLW STO 3 ACOMMUNE4(2) [SUBSIDUARY INFO FOR HLS 7 5*L= ... LDX 4 3 7 5*L? ... SRL 4 4 8 5*L# ... ANDN 3 #17 7 5*L* ... SMO 4 9 5*LB ... LDX 0 HLSWAITS 8 5*LC ... SLL 0 0(3) 21 5*LD ... BPZ 0 XIT2 [J IF HLS NOT INTERESTED IN THIS L/W 9 5*LF ... LDX 3 JOBNO(2) 15 5*LG ... BZE 3 XIT2 [J IF NO-USER 18 5*LJ ... JBSS XIT2,2,EXLONGW [J IF HLS ALREADY KNOWS 9 5*LL ... LDN 0 EVWAITIN 5 5*LN ...XHLSINF 15 5*LQ ... STO 0 ACOMMUNE1(2) [EVENT NUMBER 15 5*LS ... STO 3 ACOMMUNE2(2) [JOB NUMBER 10 5*LW ... STOZ ACOMMUNE3(2) 9 5*LY ... LDN 1 AHLSPAIR 7 5*M2 ... SBN 7 1 18 5*M4 ... BRN SPECDOWN [GO DOWN TO INFORM HLS 5 5*M6 ...XHLSOUTQ 7 5*M8 ... LDN 4 0 17 5*M= ... BNG 6 XHLSOUT [J IF LONGWAIT ETC. 9 5*M# ... LDEX 3 CLONG1(2) 20 5*MB ... BNZ 3 XIT2 [J IF SPURIOUS LONGSTOP WAKE UP 5 5*MD ...XHLSOUT 7 5*MG ... LDX 3 1 18 5*MJ ... CALL 0 XLFSUB [INFORM HLS IF NECESSARY 7 5*ML ... LDX 1 3 16 5*MN ... BNZ 4 XIPL [RECHECK FOR B-IN 4 5*MQ ...XIT2 17 5*MS ... BPZ 6 XIT3 [J IF LONGSTOP ETC. 21 5*MW ... BXE 1 FX1,XITTB [J IF AROUSAL (EXIT +1 FOR NO B-IN) 5 5*MX ...WAIT3 7 5*MY ...#UNS FREEBUFF 4 5*M_ ...( 9 5*N2 ... DSA 1 ATYPE(2) 17 5*N3 ... LDX 4 FX2 [ POINTER TO ACTIVITY FOR FREEBUFF 18 5*N4 ... CALL 6 (FBACT) [ FREE FURBS OF ACTIVITY'S FILES 14 5*N5 ... BVCR XFREEBUFFV [ CLEAR OVERFLOW 6 5*N6 ...XFREEBUFFV 8 5*N8 ... LDX 2 FX2 9 5*N9 ... LDX 1 ATYPE(2) 4 5*N= ...) 7 5*N? ... LDX 0 7 21 5*N# ... SBN 0 1 [ADJUST LINK TO RESTART AT THE CALL 17 5*N* ... BRN SOOR3Y [ENTER COOR3 AT SQOSS 4 5*NB ...XIT3 21 5*NC ... BZE 6 XITTB [JUST IN CASE OF NON-CPAT TESTBRKIN 9 5*ND ... LDEX 3 CLONG1(2) 21 5*NF ... BZE 3 NOWATE [J IF WAIT TERMINATED NON-SPURIOUSLY 21 5*NG ... BXE 1 FX1,XITTB [J IF AROUSAL (EXIT +1 FOR SPURIOUS) 7 5*NH ... ORX 1 3 16 5*NJ ... BRN WAIT3 [ENTER THE WAIT 5 5*NK ...NOWATE 7 5*NL ... ADN 7 2 19 5*NN ... BRN XIT [EXIT +2 FOR GENUINE WAKE UP 4 5*NQ ...# 9 5*NS ... LABFIX HSLONGOFF 14 5*NW ...SLONGOFF [LONGOFF 7 5*NY ... LDN 1 0 18 5*P2 ... DEX 1 CLONG1(2) [CLEAR LONG EVENT FIELD 21 5*P4 ...XLFSUB [CALLED FROM XHLSOUT IN LONGWAIT SUB 8 5*P6 ... STO 0 GEN5 9 5*P8 ... LDCH 0 ATYPE(2) 9 5*P= ... SBN 0 CPAT/64 8 5*P# ... BNZ 0 XLFRT 21 5*PB ... JBCC XLFRT,2,EXLONGW [J IF HLS DOESN'T KNOW ABOUT THE LONG 9 5*PC ... FSHSKIP B,XLFRT 4 5*PD ...( 9 5*PF ... LDX 1 JOBNO(2) 21 5*PG ... SHLSQ 1,2,STEMPQ [THERE SHOULD BE AN HLSQ BLOCK FOR IT 18 5*PJ ... JBC XLFFREE,,EVBWAITOUT [J IF HLS NOT INTERESTED 10 5*PL ... LDX 1 HLSSTAT(2) 10 5*PN ... LDX 0 HLSEVLWOUT 16 5*PQ ... BNG 1 XLFBK [J IF BACKGROUND 7 5*PS ... SLL 0 1 18 5*PW ...XLFBK BPZ 0 XLFFREE [J IF HLS NOT INTERESTED 7 5*PY ... LDX 1 2 10 5*Q2 ... LDX 0 HLSYONQA(1) 9 5*Q4 ... ANDX 0 HALFTOP 17 5*Q6 ... ADN 0 EVWAITOUT [CHANGE EVENT NUMBER 10 5*Q8 ... STO 0 HLSYONQA(1) 8 5*Q= ... LDCT 0 #002 10 5*Q# ... ANDX 0 HLSYONQ(1) 10 5*QB ... ORX 0 HLSEVLWOUT+1 8 5*QD ... ORX 0 BIT10 10 5*QG ... STO 0 HLSYONQ(1) 9 5*QJ ... LDX 2 BHTEMP+1 8 5*QL ... CHAIN 1,2 10 5*QN ... LDX 0 HLSEVLWOUT+1 8 5*QQ ... ORX 0 BIT10 9 5*QS ... ORS 0 HLSWAIT 10 5*QW ... LDX 0 HLSEVLWOUT 7 5*QY ... SLL 0 2 15 5*R2 ... BPZ 0 XLFRT [J IF NOKICK 8 5*R4 ... FON #33 8 5*R6 ... BRN XLFRT 5 5*R8 ...STEMPQ 11 5*R= ... STEMPQ 1,2,XLFRT,STRE 10 5*R# ... LDX 0 HLSYONQA(2) 8 5*RB ... ANDN 0 #7777 9 5*RD ... SBN 0 EVWAITIN 8 5*RG ... BNZ 0 STRE 5 5*RJ ...XLFFREE 7 5*RL ... FREECORE 2 4 5*RM ...) 9 5*RN ... FSHCODE B,XLFRT 8 5*RP ... TRANSEND XLFRT 5 5*RQ ...XLFRT 8 5*RR ... LDX 1 FX1 8 5*RS ... LDX 2 FX2 9 5*RW ... BRN (GEN5) 4 5*RY ...# 4 5*S2 ...) 4 5*X6 # 21 5BBQ # THE LONGON ROUTINE SEARCHES THE CHAIN FOR ACT BLOCKS WITH SPEC L-S 21 5BWB # AND AUXILIARY INFORMATION, CLEARING THOSE WHICH AGREE IT THEN DOES 9 5CB2 LABFIX HSLONGON1 5 5CTL SLONGON1 17 5D*= STO 1 GEN6 [SET LONGON1 MARKER 9 5DSW BRN SLONGON2 9 5F#G LABFIX HSLONGON 5 5FS6 SLONGON 8 5G?Q STOZ GEN6 5 5GRB SLONGON2 15 5H?2 STO 1 FLINK [DUMP LINK 17 5HQL STO 2 FONSTYLE [DUMP WAITING STYLE 18 5J== LDN 2 BACT+ACTRING [BASE OF ACTIVITY RING 16 5JPW SNEXT LDX 2 0(2) [NEXT ACT BLOCK 17 5K9G BXE 2 BACTR,SOON [J IF BACK TO START 16 5KP6 LDEX 1 CLONG1-ACTRING(2) [LONGSTOP FIELD 21 5L8Q TXU 1 FONSTYLE [COMPARE WITH WAITING STYLE SPECIFIED 11 5LNB TXU 0 CLONG2-ACTRING(2) 20 5M82 BCS SNEXT [JUMP IF DIFFERENT AUXILIARY WORD 10 5MML #SKI K6COOR>399-399 4 5N7= ( 10 5NLW TRACE 1,LONG FON 10 5P6G TRACE 0,LONG AUX 4 5PL6 ) 16 5Q5Q ERS 1 CLONG1-ACTRING(2) [CLEAR LW FIELDS 17 5QKB BRN SNEXT [BACK FOR NEXT BLOCK 9 5QKP ... FIXTRA K96COOR 6 5QL4 ...#UNS ICT 4 5QLC ...( 8 5QLQ ... LABFIX APGA 16 5QM5 ... LDX 1 FX1 [ICT ON:- STO 1 HUNTED 16 5QMD ... LDX 2 FX2 [ICT ON:- STO 0 FLINK 15 5QMR ... EXIT 0 0 [ICT ON:- LDX 2 FX2 4 5QN6 ...) 6 5QNF ...#UNS ICTON 4 5QNS ...( 7 5QP7 ... SRL 1 6 8 5QPG ... SBN 1 #60 10 5QPT ... LDXC 0 APTYPETAB(1) 13 5QQ8 ... BCS USEST [USE SUBYPE 7 5QQH ... LDEX 1 0 8 5QQW ... ANDX 0 CACT 9 5QR9 ... BZE 0 TABUSE 15 5QRJ ... LDCH 1 ACRIT(2) [PICK FROM CALLING ACT 5 5QRX ...TABUSE 9 5QS= ... LDX 2 BPTR(2) 10 5QS# ... BXL 1 ASFNO,SMALL 17 5QSB ... LDX 1 ASFNO1 [TAKE MIN PRI IF TAB TOO BIG 5 5QSD ...SMALL 9 5QSK ... DCH 1 ACRIT(2) 8 5QSY ... LDX 1 FX1 8 5QT? ... LDX 2 FX2 9 5QTL ... BRN (FLINK) 7 5QT_ ...USEST LDEX 1 0 13 5QW# ... SRL 0 15 [GET TAB LENGTH 9 5QWM ... LDCH 2 HUNTED 9 5QX2 ... BXL 0 2,(GEOERR) 12 5QX* ... SRC 2 3 [CONVERT TO PTR 8 5QXN ... LDCT 0 #100 8 5QY3 ... ANDX 0 2 15 5QYB ... ERX 2 0 [CLEAR OCTAL DIGIT INDICATOR 7 5QYP ... ADX 2 1 10 5Q_4 ... LDCH 1 APSUBTYPE(2) 9 5Q_C ... BNZ 0 RIGHTDIG 7 5Q_Q ... SRL 1 3 5 5R25 ...RIGHTDIG 7 5R2D ... ANDN 1 3 8 5R2R ... LDX 2 FX2 8 5R36 ... BRN TABUSE 4 5R3F ...) 4 5R52 #END 8 ____ ...73167407007800000000