12 22FL SEG IPCOND,,JOHN BAILEY 4 22_= # 11 23DW SEGENTRY K1IPCOND,X1IPCOND 11 23YG SEGENTRY K2IPCOND,X2IPCOND 4 24D6 # 8 24XQ # STORED WORDS 9 25CB XOOX #40000001 9 25X2 RNINE #02400000 9 26BL RESBITS #777700 9 26W= TBIT1 #20000000 10 27*W TIPBACT +IPCA+IPCBX 18 27TG XERR +4 [MAX NR OF ERRORS ALLOWED 9 28*6 TMESSCODES #04000040 9 28SQ #04000041 9 29#B #04000042 9 29S2 #04000043 9 2=?L #04000046 9 2=R= #03000047 9 2?=W #07000060 9 2?QG #07000061 9 2#=6 #04000066 9 2#PQ #03000067 9 2*9B #02000070 9 2*P2 #02000071 9 2B8L #03000077 16 2BN= # SUBROUTPNE TO LOCATE LINK ELEMENTS IN STACK 19 2C7W # GIVEN THE LINK IDENTIFIER IN ACOMMUNE1(2) [X2 MUDT = FX2 17 2CMG # ADDRESS IS LEFT IN X3. LINK IS X7. ON EXIT X1=FX1 4 2D76 # 17 2DLQ SREL LDX 3 IPCPTR(2) [FIND IPC ACTIVITY 16 2F6B HUNT2 3,IPCD,IPSTACK [FIND STACK BLOCK 10 2FL2 LDX 1 ARINGNO(3) 8 2G5L ANDN 1 #7777 15 2GK= BZE 1 SFR1 [STACK EMPTY 8 2H4W ADN 3 A1 9 2HJG SFR3 LDX 0 ALINUM(3) 11 2J46 BXE 0 ACOMMUNE1(2),SFR2 9 2JHQ ADN 3 ARECLEN 8 2K3B BCT 1 SFR3 7 2KH2 SFR1 NGN 3 1 8 2L2L SFR2 LDX 1 FX1 7 2LG= EXIT 7 0 16 2L_W # SUBROUTINE USED TO SET OBJECT PROGRAM REPLIES 4 2MFG # 4 2M_6 SREP 10 2NDQ LDX 3 ACOMMUNE1(2) 9 2NYB STO 4 ACC4(2) 9 2PD2 STO 5 ACC5(2) 9 2PXL STO 7 ACC7(2) 10 2QC= LDX 5 AREPPTR(3) 9 2QWW LDX 3 FPTR(3) 16 2RBG SBN 3 ARINGEL [ADDRESS OF AOLPT 5 2RW6 #SKI G3 18 2S*Q FINDACTFB 3,,APET,,,BPTR [ADDRESS OF AOLPTS PCA 6 2STB #SKI IPCG4 12 2T*2 HUNT2 2,ADATA,HLOCKDOWN,3 8 2TSL SMO FX2 9 2W#= LDN 4 ACOMMUNE2 7 2WRW LDN 7 1 12 2X?G FINMOVE 3,5,4,7,HLOCKB1,2,1 8 2XR6 LDX 2 FX2 9 2Y=Q LDX 4 ACC4(2) 9 2YQB LDX 5 ACC5(2) 9 2_=2 LDX 7 ACC7(2) 10 2_PL LDX 3 ACOMMUNE1(2) 7 329= NGNC 0 2 10 32NW ANDS 0 ASTATUS1(3) 9 338G STOZ ATIMCT(3) 9 33N6 STOZ ASTR(3) 9 347Q STOZ ALENTR(3) 10 34MB STOZ AREPPTR(3) 9 3572 LDX 0 ASTMEL(3) 9 35LL STO 0 AWORK4(2) 9 366= STOZ ASTMEL(3) 9 36KW LDX 3 FPTR(3) 9 375G SBN 3 ARINGEL 6 37K6 #SKI IPCG4 4 384Q ( 12 38JB HUNT2 2,ADATA,HLOCKDOWN,3 13 3942 CLEAR APETADDR(3),0,HLOCKB1,2,2 8 39HL LDX 2 FX2 4 3=3= ) 7 3=GW CCBB 3 9 3=P6 ... STO 5 ACC5(2) 9 3=XB ... LDX 5 AWORK4(2) 10 3?5L ... TICKLE JOBNO(3),5 9 3??W ... LDX 5 ACC5(2) 10 3?G6 LDX 3 ARINGEL(3) 7 3?_Q EXIT 6 0 14 3#FB # S/R TO WAIT FOR RESET STATUS TO CLEAR 11 3#_2 # LINK IS CONTAINED IN X7 21 3*DL # EXITS+2 WHEN RESET CLEAR,EXITS+1 IF TIMED-OUT,EXITS IF INOPERABLE 19 3*Y= # ON ENTRY : X1=FX1,X2=FX2=ADDRESS OF APPROPRIATE IPCA/IPCBX 4 3BCW # 8 3BXG SWRC SBX 7 FX1 9 3CC6 LDX 0 CLEANCT 9 3CWQ ADN 0 5000/K9 15 3DBB STO 0 IPCPTIME(2) [TIME LIMIT 19 3DW2 SIPCM RW [^WAITING FOR RESET CLEAR^ 9 3F*L SW1 LDX 0 XOOX(1) 16 3FT= STO 0 CHAINADD(2) [READY FOR EVENT 16 3G#W JDISENG ,SW2 [GONE INOPERABLE 16 3GSG JIPCM TO,SW3 [WAITING TOO LONG 18 3H#6 JRESET ,SW4 [RESET STATUS STILL SET 8 3HRQ SW6 CIPCM RW 10 3J?B STOZ IPCPTIME(2) 7 3JR2 NGNC 0 1 10 3K=L ANDS 0 CHAINADD(2) 10 3KQ= LDX 0 CHAINADD(2) 7 3L9W SBN 0 1 8 3LPG BZE 0 SW5 6 3M96 COOR1 8 3MNQ SW5 ADX 7 FX1 7 3N8B EXIT 7 2 6 3NN2 SW4 COOR1 8 3P7L BRN SW1 8 3PM= SW3 CIPCM TO 7 3Q6W SBN 7 1 7 3QLG SW2 SBN 7 1 8 3R66 BRN SW6 17 3RKQ # THIS SECTION CLEARS AWAY TASKS ASSOCIATED WITH AN 16 3S5B # IPB & DISESTABLISHES LINKS THROUGH THE IPB. 19 3SK2 # IT IS USED WHEN AN INITIALISE SEQUENCE IS INITIATED FROM 19 3T4L # THE OTHER END,AND WHEN DIALOGUE IS SUSPENDED BY THIS END 12 3TJ= # IT IS A SUBROUTINE,LINK IN X5. 4 3W3W # 16 3WHG SCLR SBX 5 FX1 [DISLOCATE LINK 8 3WR# ... LDX 2 FX2 10 3X36 SCL3 HUNTW 3,IPCD,ATASK 8 3XGQ BNG 3 SCL1 9 3Y2B LDX 0 A1+1(3) 7 3YG2 SBN 0 1 13 3Y_L BZE 0 SCL2 [OPEN 7 3_F= SBN 0 2 8 3_YW BNZ 0 SCL13 8 42DG LDX 0 A1(3) 10 42Y6 STO 0 IPWRB+1(2) 18 43CQ DOWN IPCONC,20 [GET RID OF CLOSE TASK 8 43XB BRN SCL3 7 44C2 SCL13 SBN 0 2 16 44WL BZE 0 SCL10 [OPEN OFR GEORGE 7 45B= SCL5 FREECORE 3 8 45TW BRN SCL3 8 46*G SCL2 LDX 0 A1(3) 10 46T6 STO 0 ACOMMUNE1(2) 8 47#Q DOWN IPCONB,2 8 47SB BRN SCL3 10 48#2 SCL4 HUNTW 3,IPCD,ATASK 8 48RL BRN SCL5 19 49?= SCL10 LDX 0 A1(3) [OPEN TASK FOR GEORGE LINK 10 49QW STO 0 ACOMMUNE1(2) 8 4==G CALL 7 SREL 8 4=Q6 LDCT 0 #10 17 4?4H ... ERX 0 ASTATUS2(3) [REMOVE OPEN PROGRESS 10 4?BY ... ANDS 0 ASTATUS2(3) 7 4?PB BRN SCL4 18 4#92 # HAVING CLEARED THE TASK QUEUE,WE NOW DISESTABLISH ALL 10 4#NL # LINKS THROUGH THE IPB 9 4*8= SCL1 LDX 3 IPCPTR(2) 11 4*MW HUNT2 3,IPCD,IPSTACK 10 4B7G LDX 7 ARINGNO(3) 8 4BM6 ANDN 7 #7777 8 4C6Q BZE 7 SCLEX 8 4CLB ADN 3 A1 10 4D62 SCL6 LDX 0 ASTATUS2(3) 7 4DKL SLL 0 1 16 4F5= BNG 0 SCL7 [NOT ESTABLISHED 10 4FJW LDX 0 APTRIPB(3) 20 4G4G TXU 0 FX2 [THROUGH THIS IPB,SO DISESTABLISH 8 4GJ6 BCC SCL8A 9 4H3Q SCL7 ADN 3 ARECLEN 14 4HHB BCT 7 SCL6 [DO NEXT 14 4J32 SCLEX ADX 5 FX1 [FINISHED 7 4JGL EXIT 5 0 11 4K2= # LINK TO BE DISESTABLISHED 9 4KFW SCL8A LDX 0 BPTR(3) 8 4K_G BZE 0 SCL7 10 4LF6 SCL8 LDX 0 ASTATUS1(3) 7 4LYQ ANDN 0 1 8 4MDB LDCT 6 #100 17 4MY2 BZE 0 SCL9 [NO TRANSFER STORED 8 4NCL LDCT 0 #200 10 4NX= ANDX 0 ASTATUS1(3) 15 4PBW BNZ 0 SCL11 [GEORGE LINK 9 4PWG LDX 0 RNINE(1) 10 4QB6 STO 0 ACOMMUNE2(2) 10 4QTQ STO 3 ACOMMUNE1(2) 18 4R*B CALL 6 SREP [SET DISESTABLISHED REPLY 5 4RT2 SCL12 8 4S#L LDCT 6 #40 10 4SS= SCL9 ORS 6 ASTATUS2(3) 9 4T?W LDX 0 TBIT1(1) 17 4TRG ERS 0 ASTATUS2(3) [MARK DISESTABLISHED 8 4W?6 LDN 0 #7777 9 4WQQ ANDS 0 ALINUM(3) 8 4X=B LDCT 0 #200 10 4XQ2 ANDX 0 ASTATUS1(3) 8 4Y9L BNZ 0 SCL9A 10 4YP= STOZ APTRIPB(3) 7 4_8W SCL9A DECLINK 8 4_NG BRN SCL7 19 5286 SCL11 LDX 0 RNINE(1) [SET REPLY FOR GEORGE LINK 9 52MQ SMO FPTR(3) 11 537B STO 0 IPCGREP-IPCRNG 7 53M2 STO 7 6 8 546L CALL 7 SLACT 7 54L= STO 6 7 7 555W DESUSPEND 7 55KG NGNC 0 2 10 5656 ANDS 0 ASTATUS1(3) 10 56JQ ANDS 0 ASTATUS2(3) 9 574B STOZ ATIMCT(3) 9 57J2 STOZ ASTR(3) 9 583L STOZ ALENTR(3) 10 58H= STOZ AREPPTR(3) 9 592W STOZ ASTMEL(3) 8 59GG BRN SCL12 18 5=26 # S/R TO LOCATE GEORGE ACTIVITY OWNING LINK WHOSE ENTRY 10 5=FQ # IS POINTED TO BY X3. 9 5=_B SLACT LDX 2 FPTR(3) 16 5?F2 SBN 2 IPCRNG [CONTROL BLOCK 5 5?YL SLACT1 9 5#D= LDX 2 BPTR(2) 9 5#XW LDX 0 ATYPE(2) 10 5*CG BXL 0 CACT,SLACT1 7 5*X6 EXIT 7 0 11 5BBQ # DEAL WITH IPB INOPERABLE 4 5BWB # 4 5CB2 # 5 5CTL X1IPCOND 7 5D*= LDX 3 2 10 5DSW Q2 HUNT2OPT 3,IPCD,ATASK 8 5F#G BNG 3 NOP 9 5FS6 LDX 0 A1+1(3) 7 5G?Q SBN 0 1 8 5GRB BNZ 0 Q2 8 5H?2 CHAIN 3,2 8 5HQL LDX 0 A1(3) 10 5J== STO 0 ACOMMUNE1(2) 9 5JPW DOWN IPCONB,2 9 5K9G ... BRN X1IPCOND 20 5KP6 NOP GETACT IPCA,IPCOP [SET UP OPERATOR COMM ACTIVITY 11 5L8Q TRACE IPWRB(2),IPCONE6 9 5LNB LDX 3 BPTR(2) 9 5M82 LDX 4 CPPTR(2) 11 5MML LONGSET IPCEB,NOPE,4,3 15 5N7= STO 2 ACC3(3) [ADDRESS OF 17 5NLW LINKSET 3,OPLNK(1) [SET LINK TO IPCOND,2 9 5P6G SMO IPCPTR(2) 9 5PL6 LDX 2 ACTRING 9 5Q5Q SBN 2 ACTRING 8 5QKB RINGACT 3,2 7 5R52 LDX 2 3 18 5RJL FPUT [START OP COMM ACTIVITY 9 5S4= NOP1 LDX 0 XOOX(1) 10 5SHW STO 0 CHAINADD(2) 8 5T3G JDISENG ,NOP2 7 5TH6 NGNC 0 1 10 5W2Q ANDS 0 CHAINADD(2) 10 5WGB LDX 0 CHAINADD(2) 7 5X22 SBN 0 1 8 5XFL BZE 0 NOP3 6 5X_= NOP2 COOR1 9 5YDW NOP3 JIPCM CD,NOP4 8 5YYG NOP5 JDISENG ,NOP1 18 5_D6 LDX 0 CPRW1(2) [TEST IF PERI STILL UP 8 5_XQ BNG 0 NOP7 9 62CB LDX 0 CPRW2(2) 8 62X2 BNG 0 NOP7 9 63BL NOP9 JIPCM CD,NOP10 18 63W= LONGON IPCEB,CPPTR(2) [WAKE UP OP COMM ACTIVITY 10 64*W JIPCM DS,RESTART 9 64TG JIPCMC SI,WHOOPS 9 65*6 BRN NEXTASK 9 65SQ NOP7 LDX 0 XOOX(1) 10 66#B STO 0 CHAINADD(2) 9 66S2 LDX 0 CPRW1(2) 8 67?L BNG 0 NOP8 9 67R= LDX 0 CPRW2(2) 17 68=W BPZ 0 NOP9 [PERI NOW FINISHED 6 68QG NOP8 COOR1 8 69=6 BRN NOP7 8 69PQ NOP4 CALL 5 SCLR 8 6=9B BRN NOP5 8 6=P2 NOP10 CIPCM CD 8 6?8L SIPCM SM 9 6?N= BRN RESTART 9 6#7W NOPE GEOERR 1,IPCONE2 9 6#MG OPLNK PAIR IPCOND,2 12 6*76 # OUTPUT REQUEST TO ENGAGE IPB 4 6*LQ # 5 6B6B X2IPCOND 10 6BL2 LGEOG CPPTR(3),5 8 6C5L OUTNUM 5,0 9 6C6P ... FSHCODE B,XNOTINB 4 6C7S ...( 19 6C8X ...# IN THE 'B' MACHINE, WE MUST ENSURE THAT THE REQUEST FOR 19 6C=2 ...# ENGAGEMENT OF THE IPB IS SENT TO THE 'B' MACHINE CONSOLE 4 6C?5 ...# 21 6C#8 ...# THIS IS DONE BY USING A VERSION OF THE 'PLEASE ENGAGE...' MESSAGE 14 6C*? ...# THAT IS PREFIXED BY THE STRING 'BBBB' 4 6CBB ...# 14 6CCF ... DEMAND 1,FSHJMARY,OPC,OPB,OPRB,2,0 5 6CDJ ...XNOTINB 4 6CFM ...) 10 6CGQ ... FSHSKIP B,XSKIPINB 4 6CHT ...( 13 6CK= DEMAND 1,JMARY,OPC,OPB,OPR,2,0 5 6CQD ...XSKIPINB 4 6CXL ...) 15 6D4W JDISENG CPPTR(3),OPX [NOT OPERABLE 7 6DJG OPE SUICIDE 9 6F46 OPB GEOERR 1,IPCONE3 8 6FHQ OPC SIPCM CD,3 8 6GH2 SIPCM DS,3 9 6GQS ... LDX 3 CPPTR(3) 7 6H2L FPUTCHA 3 8 6HG= BRN OPE 12 6H_W OPX LONGSET IPCEB,OPB,CPPTR(3) 9 6J9N ... FSHCODE B,XXA 17 6JFG ... BRN OPRB [IF WE ARE IN B MACHINE 9 6JKC ... FSHSKIP B,XXB 16 6JP# ...XXA BRN OPR [IF WE ARE IN A MACHINE 4 6JT9 ...XXB 9 6J_6 NEXTASK ACROSS IPCON,1 5 6KDQ RESTART 8 6KYB CALL 5 SCLR 10 6LD2 ACROSS IPCSTART,5 5 6LXL WHOOPS 9 6MC= ACROSS IPCONE,1 11 6MWW MENDAREA 1023-0?,K9IPCOND 4 6NBG #END 8 ____ ...52301012000500000000