12 22FL SEG IPCSTART,,JOHN BAILEY 4 22_= # 12 23DW SEGENTRY K1IPCSTART,X1IPCSTART 12 23YG SEGENTRY K2IPCSTART,X2IPCSTART 12 24D6 SEGENTRY K4IPCSTART,X4IPCSTART 12 24XQ SEGENTRY K5IPCSTART,X5IPCSTART 12 25CB SEGENTRY K7IPCSTART,X7IPCSTART 4 25X2 # 10 26BL XL1 LINK IPQUAKER,1 10 26W= PRS LINK IPCSTART,4 9 27*W RMASK #37777777 9 27TG SDIFF +K52-K50 9 28*6 SMI #04001071 14 28SQ # S/R TO DETERMINE LIMITING NO OF LINKS 11 29#B # SPECIFIED BY IPCLIM MACROS 4 29S2 # 10 2=?L SLIM LDX 0 IPCLIMA(1) 7 2=R= ADN 0 1 8 2?=W BNZ 0 SLIM1 8 2?QG ... LDN 0 #7776 8 2#=6 SLIM2 LDX 1 FX1 7 2#PQ EXIT 7 0 7 2*9B SLIM1 SBN 0 1 8 2*P2 ANDN 0 #7777 9 2B8L BXU 0 6,SLIM3 10 2BN= LDX 0 IPCLIMA(1) 8 2C7W SRL 0 12 8 2CMG BRN SLIM2 7 2D76 SLIM3 ADN 1 1 8 2DLQ BRN SLIM 4 2F6B # 18 2FL2 # S/R TO DETERMINE IF THE REMOTE PROCESSOR IS BEING RUN 18 2G5L # UNDER GEORGE,AND IF SO NOTE THE FACT AND THE IDENTITY 10 2GK= # OF THE REMOTE GEORGE. 4 2H4W # 9 2HJG TRG LDX 0 IPREB(2) 8 2J46 ANDN 0 #1000 18 2JHQ BZE 0 TRG1 [NOT GEORGE AT REMOTE END 18 2K3B DFSET CPPTR(2),RGM [NOTE THAT REMOTE GEORGE 16 2KH2 LDX 0 IPREB+1(2) [&STORE IDENTITY 11 2L2L DFSET CPPTR(2),IDENT1,0 10 2LG= LDX 0 IPREB+2(2) 11 2L_W DFSET CPPTR(2),IDENT2,0 7 2MFG TRG1 EXIT 7 0 6 2M_6 X2IPCSTART 10 2NDQ EMSACT IPCA,INTERN 9 2NYB LDX 2 BPTR(2) 7 2PD2 LDN 0 1 10 2PXL STO 0 FRELINUM(2) 7 2QC= LDN 6 0 8 2QWW CALL 7 SLIM 10 2RBG STO 0 AWMCLIM(2) 9 2RW6 LINKSET 2,XL1(1) 7 2S*Q STO 2 5 4 2SC3 ...# 17 2SD# ...# FOR SHARED FILESTORE, THERE IS SPECIAL ACTION OVER 16 2SFK ...# WAITING STYLES ON THE 'B' MACHINE DURING EMS 4 2SGW ...# 9 2SJ7 ... FSHCODE B,XENDB1 4 2SKD ...( 9 2SLP ... FWAIT FSHIPCEMS 5 2SN2 ...XENDB1 4 2SP? ...) 9 2SQJ ... FSHSKIP B,XENDB2 4 2SRT ...( 8 2STB FWAIT #54 5 2T2J ...XENDB2 4 2T7Q ...) 14 2T*2 SETNCORE 0,3,IPCD,IPSTACK,,,ARECLEN 9 2TSL LDX 3 BPTR(2) 9 2W#= LDX 2 FPTR(2) 8 2WRW CHAIN 2,3 6 2X?G #SKIP IPCSIM 4 2XR6 ( 9 2Y=Q GETACT IPCA,FICT 9 2YQB LDX 2 BPTR(2) 7 2_=2 LOCK 2 9 2_PL LDX 2 BPTR(2) 10 329= LDN 3 IPCLNCT+1(2) 7 32NW SMO 5 9 338G STO 3 AWORK3 7 33N6 LDN 0 1 9 347Q SMO SDIFF(1) 8 34MB STO 0 4(3) 7 3572 STOZ 7 10 35LL DOWN IPCSTART,1 11 366= LDX 3 IPCLNCT-A1+30(2) 9 36KW STO 3 AWORK3(2) 7 375G LDN 0 1 9 37K6 SMO SDIFF(1) 8 384Q STO 0 4(3) 7 38JB ADN 7 1 10 3942 DOWN IPCSTART,1 4 39HL ) 5 3=3= UP 6 3=GW X1IPCSTART 10 3?2G LGEOG AWORK3(2),6 8 3?G6 CALL 7 SLIM 8 3?_Q BZE 0 XIT 7 3#FB LDX 6 0 10 3#_2 EMSACT IPCA,IPCBX 9 3*DL LDX 3 BPTR(2) 9 3*Y= LDX 0 AWORK3(2) 9 3BCW STO 0 CPPTR(3) 13 3BXG FINDACTFB 2,3,IPCA,INTERN,,BPTR 9 3CC6 STO 2 IPCPTR(3) 10 3CWQ STO 6 ALNKLIM(3) 9 3DBB ADS 6 IMCLIM(2) 8 3DW2 SIPCM DS,3 7 3F*L LDN 0 1 10 3FT= ADS 0 APROPRES(2) 8 3G#W RINGACT 3,2 7 3GSG LDX 2 3 4 3GW9 ...# 9 3GXY ... FSHCODE B,XENDB3 4 3G_M ...( 9 3H3B ... FWAIT FSHIPCEMS 5 3H55 ...XENDB3 4 3H6S ...) 9 3H8H ... FSHSKIP B,XENDB4 4 3H== ...( 8 3H#6 FWAIT #54 5 3HF# ...XENDB4 4 3HLG ...) 9 3HRQ LINKSET 3,PRS(1) 8 3J?B #SKIP IPCSIM 4 3JR2 ( 8 3K=L BNZ 7 TB2 9 3KQ= DOWN IPTEST,1 5 3L9W UP 9 3LPG TB2 DOWN IPTEST,2 4 3M96 ) 4 3MNQ XIT 5 3N8B UP 6 3NN2 X4IPCSTART 8 3P7L LDN 4 #4000 10 3PM= DCA ,DLA,4,MODE 10 3Q6W LDN 0 CHAINADD(2) 8 3QLG ORX 0 GSIGN 18 3R66 DSCA ,STO,0,CHADD [STORE CHAINING ADDRESS 8 3RKQ GPERIIPC ,2,CT 6 3S5B COOR1 17 3SK2 LDCH 0 CPRW1(2) [REPLY TO MODE #4000 7 3T4L ANDN 0 1 15 3TJ= BZE 0 TINOP [INOPERABLE 6 3W3W X5IPCSTART 15 3WHG RESETIPC [RESET DEVICE 15 3X36 BPZ 0 TINOP [INOPERABLE 6 3XGQ X7IPCSTART 7 3Y2B ROK LDN 0 3 7 3YG2 SRC 0 1 10 3Y_L STO 0 CHAINADD(2) 9 3_F= JDISENG ,TINOP 8 3_YW JRESET ,RNC 9 42DG LDX 0 RMASK(1) 10 42Y6 ANDS 0 CHAINADD(2) 10 43CQ LDX 0 CHAINADD(2) 7 43XB SBN 0 1 8 44C2 BZE 0 TOL 6 44WL RNC COOR1 8 45B= BRN ROK 17 45TW TOL LDX 0 SMI(1) [INITIALISE MESSAGE 14 46*G STO 0 IPWRB(2) [HEADER 14 46T6 LDX 0 IDENTITY [IDENTITY 10 47#Q STO 0 IPWRB+1(2) 10 47SB LDX 0 IDENTITY+1 10 48#2 STO 0 IPWRB+2(2) 9 48RL LDN 7 IPWRB(2) 7 49?= SUM 6 3 14 49QW NGS 6 IPWRB+3(2) [CHECKSUM 8 4==G LDN 0 #31 10 4=Q6 DCA ,DLA,0,MODE 9 4?9Q LDN 0 IPWRB(2) 10 4?PB DCA ,STO,0,CTSA 7 4#92 LDN 0 4 10 4#NL DCA ,STO,0,COUNT 8 4*8= LDN 0 #32 10 4*MW DSCA ,DLA,0,MODE 9 4B7G LDN 0 IPREB(2) 10 4BM6 DSCA ,STO,0,CTSA 8 4C6Q LDN 4 11 10 4CLB DSCA ,STO,4,COUNT 8 4D62 GPERIIPC ,2 16 4DKL ... TIPCREP ,TIME,RESET,TINOP,RCL,RWM,RESET,TINOP 9 4F5= LDX 0 CPRW2(2) 16 4FJW ANDN 0 #777 [REMAINDER COUNT 7 4G4G SBX 4 0 9 4GJ6 LDN 7 IPREB(2) 7 4H3Q SMO 4 7 4HHB SUM 6 0 16 4J32 BZE 6 RCS [REPLY CHECKSUMS 9 4JGL RWM ACROSS IPCONE,7 9 4K2= RCS LDX 0 IPREB(2) 8 4KFW ANDN 0 #77 8 4K_G SBN 0 #71 18 4LF6 BNZ 0 RWM [NOT INITIALISE MESSAGE 8 4LYQ CALL 7 TRG 9 4MDB JIPCMN SM,START 8 4MY2 LGEOG ,5 10 4NCL OUTPACK 5,1,GEOPER 19 4NX= MONOUT IPCDR [OUTPUT 'DIALOGUE RESUMED' 9 4PBW START STOZ IPCMKR(2) 16 4PWG ACROSS IPCON,1 [START PROCESSING 9 4QB6 TINOP ACROSS IPCONE,2 10 4QTQ RESET BRN K7IPCSTART 10 4R*B TIME BRN K5IPCSTART 12 4RT2 # IF CONTENTION LOST,PUT UP READ 13 4S#L # IF^INITIALISE^READ,SEND RESPONSE 15 4SS= # ELSE LOOP BACK TO SEND INITIALISE AGAIN 15 4T?W RCL LDN 0 #12 [SET UP READ 10 4TRG DSCA ,DLA,0,MODE 8 4W?6 LDN 4 11 10 4WQQ DSCA ,DLA,4,COUNT 9 4X=B LDN 0 IPREB(2) 10 4XQ2 DSCA ,STO,0,CTSA 15 4Y9L GPERIIPC ,2,SP [SEND READ 13 4YP= ... TIPCREP SP,TIME,RWM,TINOP,,RWM 15 4_8W LDX 0 CPRW2(2) [CHECK INPUT 7 4_NG SBX 4 0 9 5286 LDN 7 IPREB(2) 7 52MQ SMO 4 7 537B SUM 6 0 16 53M2 BNZ 6 RWM [CHECKSUM WRONG 9 546L LDX 0 IPREB(2) 8 54L= ANDN 0 #77 8 555W SBN 0 #71 15 55KG BZE 0 RCL1 [INITIALISE 7 5656 ADN 0 1 16 56JQ BZE 0 K7IPCSTART [RESET ACCEPTED 15 574B BRN K5IPCSTART [TRY AGAIN 4 57J2 RCL1 8 583L CALL 7 TRG 16 58H= ACROSS IPCONE,9 [SEND RESPONSE 13 592W # PATCH AREA USED BY IPCLIM MACRO 10 59GG ... SEGENTRY IPCLIMA 5 5=26 #REP 11 8 5=FQ -1 6 5=_B # GAP 11 5?F2 MENDAREA 100,K9IPCSTART 4 5?YL #END 8 ____ ...33350264000200000000