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