{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: IPCSTART864)}}
====== IPCSTART864 ======
(George Source)
**Macros used:** [[george:macro:ACROSS|ACROSS]], [[george:macro:BXU|BXU]], [[george:macro:CHAIN|CHAIN]], [[george:macro:COOR1|COOR1]], [[george:macro:DCA|DCA]], [[george:macro:DFSET|DFSET]], [[george:macro:DOWN|DOWN]], [[george:macro:DSCA|DSCA]], [[george:macro:EMSACT|EMSACT]], [[george:macro:FINDACTFB|FINDACTFB]], [[george:macro:FSHCODE|FSHCODE]], [[george:macro:FSHSKIP|FSHSKIP]], [[george:macro:FWAIT|FWAIT]], [[george:macro:GETACT|GETACT]], [[george:macro:GPERIIPC|GPERIIPC]], [[george:macro:IDENTITY|IDENTITY]], [[george:macro:JDISENG|JDISENG]], [[george:macro:JIPCMN|JIPCMN]], [[george:macro:JRESET|JRESET]], [[george:macro:LGEOG|LGEOG]], [[george:macro:LINK|LINK]], [[george:macro:LINKSET|LINKSET]], [[george:macro:LOCK|LOCK]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MONOUT|MONOUT]], [[george:macro:OUTPACK|OUTPACK]], [[george:macro:RESET|RESET]], [[george:macro:RESETIPC|RESETIPC]], [[george:macro:RINGACT|RINGACT]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:SIPCM|SIPCM]], [[george:macro:TIPCREP|TIPCREP]], [[george:macro:UP|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