{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: IPCOPENB83)}}
====== IPCOPENB83 ======
(George Source)
**Macros used:** [[george:macro:ACROSS|ACROSS]], [[george:macro:BXU|BXU]], [[george:macro:CHAIN|CHAIN]], [[george:macro:CHECKB|CHECKB]], [[george:macro:CHEKPRIV|CHEKPRIV]], [[george:macro:CLEAR|CLEAR]], [[george:macro:COMERR|COMERR]], [[george:macro:COMERRX|COMERRX]], [[george:macro:COOR1|COOR1]], [[george:macro:ENDCOM|ENDCOM]], [[george:macro:FCJOB|FCJOB]], [[george:macro:FINDACTFB|FINDACTFB]], [[george:macro:FINMOVE|FINMOVE]], [[george:macro:FIXTRA|FIXTRA]], [[george:macro:FNORM|FNORM]], [[george:macro:FOUTMOVE|FOUTMOVE]], [[george:macro:GEOERR|GEOERR]], [[george:macro:GETACT|GETACT]], [[george:macro:GETNO|GETNO]], [[george:macro:HUNT|HUNT]], [[george:macro:ILLEGAL|ILLEGAL]], [[george:macro:INFIPCA|INFIPCA]], [[george:macro:ISPER|ISPER]], [[george:macro:LINK|LINK]], [[george:macro:LINKSET|LINKSET]], [[george:macro:LOCK|LOCK]], [[george:macro:LOCKCA|LOCKCA]], [[george:macro:MACCS|MACCS]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MHUNT|MHUNT]], [[george:macro:NAMETOP|NAMETOP]], [[george:macro:OLPFIN|OLPFIN]], [[george:macro:PROPERTY|PROPERTY]], [[george:macro:PUTPERENT|PUTPERENT]], [[george:macro:ROLPA|ROLPA]], [[george:macro:RTTEST|RTTEST]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETUPCORE|SETUPCORE]], [[george:macro:SPARANOT|SPARANOT]], [[george:macro:TESTREP|TESTREP]], [[george:macro:TESTREPNOT|TESTREPNOT]], [[george:macro:TOPCA|TOPCA]], [[george:macro:TRACE|TRACE]], [[george:macro:UNPLUG|UNPLUG]]
22FL SEG IPCOPENB,,JOHN BAILEY.
22^= #
23DW #
23YG SEGENTRY K1IPCOPENB,X1IPCOPENB
24D6 SEGENTRY K3IPCOPENB,X3IPCOPENB
24XQ SEGENTRY K4IPCOPENB,X4IPCOPENB
25CB #
25X2 #
26BL SP #20
26W= REJR #42000000
27*W RESA #40000000
27TG OA #41
28*6 OZ #73
28SQ XCA +5
29#B XTA +CHREAD
29S2 +CHREAD+CHWRITE
2=?L ONLP LINK IPCOPENB,3
2=R= OIPR LINK IPCOPENB,4
2?=W OHPR LINK IPCPASS,1
2?QG XLABEL1 +JPROPUNK
2#=6 +JPERR2
2#PQ +JPERR3
2*9B XLABELW +JPERMX
2*P2 ... +JPROPSNA1
2B8L +JPERNA
2BN= #
2C7W # CODE FOR ONLINE COMMAND
2C9K ...#UNS IPCPRIVSK
2C?# ...(
2C*3 ...# PRIV NAME TO BE FILLED IN BY IPCPRIV
2CBQ ... FIXTRA AIPCOPENB [++++++ IPCPRIV
2CDF ... 8H
2CG8 ...NOPRIV
2CHX ... COMERR ANOPRIV [++++++ IPCPRIV
2CKL ...)
2CMG X1IPCOPENB
2D76 SPARANOT 2
2DLQ MHUNT 3,CPB,CUNI
2F6B TRACE 3,OLCUNI
2F85 ...#UNS IPCPRIVSK
2F9S ...(
2F?H ... FIXTRA BIPCOPENB [++++++ IPCPRIV
2FCS ... NULL [BRN CIPCOPENB BY IPCREOFF
2FJ6 ...)
2FL2 RTTEST TRT,,,CPA,
2G5L COMERR JNRT
2G6K ...TRT
2G7J ...#UNS IPCPRIVSK
2G9G ...(
2G?D ... FIXTRA CIPCOPENB
2G*B ... BRN MAC [SET TO NULL BY IPC PRIV
2GC# ... CHEKPRIV ,AIPCOPENB,NOPRIV
2GD? ... MHUNT 3,CPB,CUNI
2GF= ...MAC
2GH8 ...)
2GS3 ... NGX 0 ANUM(3)
2H4W BNG 0 TCO1
2HJG COMERR JPARMIS,IPCLDP
2J46 TCO1 NAMETOP 3,FILE,FNAME
2JHQ FNORM 1
2K3B TESTREP NAMEFORM,PCEX [ERROR IN FORMAT OF DESCRIPTION
2KH2 MHUNT 3,FILE,FABSNB
2L2L LDX 0 ATYPE(3)
2LG= TRACE 0,OLTYPE
2L^W ANDN 0 #7700
2MFG SBN 0 #1000 [LOCAL NAME FORMAT?
2M^6 BZE 0 TCO2
2NDQ MHUNT 3,FILE,FNAME
2NYB NAMETOP 3,CPB,CUNI
2PD2 COMERR IPCILD
2PXL TCO2 TESTREPNOT ADJUNCTS,T3 [BRANCH IF NO QUALIFIERS
2QC= MHUNT 1,FILE,ADJUNCTS
2QWW LDX 7 A1+1(1)
2RBG SRL 7 9
2RW6 LDN 0 #1000 [GIVE SPECIFIED
2S*Q ANDX 0 7
2STB BZE 0 T3
2T*2 LDX 0 GSIGN
2TSL STO 0 AWORK4(2) [REMEMBER GIVE
2W#= T3 MHUNT 3,CPAR,GPERCON
2WRW # CHECK IF READ OR WRITE IN FIRST PARAMETER
2X?G LDX 0 A1+2(3)
2XR6 TRACE 0,OLDIR
2Y=Q ANDN 0 1
2YQB BZE 0 T2
2^=2 LDX 0 A1+1(3)
2^PL ANDN 0 1
329= BZE 0 T1
32NW LDN 7 #400
338G BRN TA4
33N6 T1 LDN 7 #200
347Q BRN TA4
34MB T2 TESTREP ADJUNCTS,TE
3572 BRN TCOM
35LL TE ANDN 7 7
366= SBN 7 1 [READ IN SECOND PARAMETER?
36KW BNZ 7 T5
375G LDN 7 #200
37K6 BRN TA4
384Q T5 SBN 7 3 [WRITE IN SECOND PARAMETER?
38JB BZE 7 T6
3942 TCOM MHUNT 3,FILE,FNAME
39HL NAMETOP 3,CPB,CUNI
3=3= COMERR IPCDM
3=GW T6 LDN 7 #400
3?2G # IMC OR WMC REQUESTED?
3?8Q ...TA4
3?C2 ... LDN 5 9 [LENGTH OF HLOCKDOWN BLOCK
3?K= ... STO 5 AWORK4(2)
3?RG ... STOZ AWORK3(2)
3?^Q LDX 0 A1+2(3)
3#FB ANDN 0 2
3#^2 ... BNZ 0 TB2 [J IF IMC OR WMC SPEC
3*DL LDN 0 3
3*Y= SLL 0 12
3BCW BRN TB
3BXG TB2 LDX 0 A1+1(3)
3CC6 ANDN 0 2
3CJ# ... BZE 0 TB1 [J IF WMC NOT SPEC
3CPG ... SLL 0 12
3CWN ...# WMC SPECIFIED
3D3W ... LDN 6 #400
3D94 ... BXU 7 6,TB [J IF NOT WRITE
3DB= ...# WMC WRITE SPECIFIED
3DHD ... LDN 5 13 [LENGTH OF HLOCNDOWN BLOCK
3DNL ... STO 5 AWORK4(2)
3DW2 BRN TB
3F*L TB1 FINDACTFB 1,FX2,IPCA,INTERN,,BPTR
3FT= LDX 4 APROPRES(1)
3G#W BNZ 4 TB3
3GSG COMERR IPCNOIMC
3H#6 TB3 LDN 0 1
3HRQ SLL 0 12
3J?B TB ORS 0 AWORK3(2) [STORE PROPERTIES
3JR2 PROPERTY TC,2,,,
3K=L TC LDX 0 AWORK3(2)
3KQ= SLL 0 10
3L9W BPZ 0 TGO
3LPG SLL 0 1
3M96 BNG 0 TGO
3MNQ SLL 0 1
3N8B BPZ 0 TCONT
3NN2 TGO LDX 4 GSIGN
3P7L SRL 4 1
3PM= ADN 4 28
3Q6W ISPER 4,TGB
3QLG TESTREP OK,TCONT,NOTAV,TCONT,WRNG,TCONT
3R66 TESTREP XPROP,TG1,MAXATT,TG2,CPROPS,TG3
3RKQ BRN TG4
3S5B TG2 ADN 1 1
3SK2 BRN TG1
3T4L TG3 ADN 1 2
3TJ= TG1 COMERRX XLABEL1(1)
3W3W TG4 LDX 0 AWORK3(2)
3WHG SLL 0 10
3X36 BPZ 0 TGW
3XGQ LDX 0 GSIGN
3Y2B ORS 0 AWORK3(2)
3YG2 BRN TCONT
3Y^L TGW TESTREP PERMEXCL,TGW1,NOPROP,TGW2,NOPER,TGW3
3^F= TGW2 ADN 1 1
3^YW BRN TGW1
42DG TGW3 ADN 1 2
42Y6 TGW1 COMERRX XLABELW(1)
43CQ TGB GEOERR 1,BRKIN
43XB TCONT GETNO 4
44C2 TRACE 4,OLGNO
44WL BNZ 4 TA1
45B= COMERR IPCNML
45TW # SET UP ENTRY FOR PRB
46*G TA1 MHUNT 3,CPAR,GPERCON
46T6 LDX 6 A1(3)
47#Q ... PUTPERENT 6,GSIGN
48#2 # GET AOLPT BLOCK AND STORE DETAILS OF LINK
48C6 ...#SKI G4
48G= ...(
48KB ... LDX 5 AWORK4(2)
48NG ... TRACE 5,IPCHLOCK [X5 =9 OR 13
48RL ... SETUPCORE 5,3,ADATA,HLOCKDOWN
48WQ ... SRL 5 2 [9 TO 2,13 TO 3
48^W ... STO 5 HLOCKBN(3) [SET ENTRY COUNT
4952 ... STOZ HLOCKB1(3)
4986 ... STOZ HLOCKB2(3)
49?= ... SBN 5 2
49BB ... BZE 5 OPB2 [J IF ONLY 2 ENTRIES
49FG ... STOZ HLOCKB3(3)
49JL ...OPB2
49MQ ...)
49QW GETACT AOLPT,IPC,1
4==G ROLPA
4=Q6 #SKI G4
4?9Q (
4?PB MHUNT 3,ADATA,HLOCKDOWN
4#92 CHAIN 3,6
4#NL )
4*8= MHUNT 1,CPAR,GPERCON
4*MW LDX 3 6
4B7G STO 4 BLINO(3)
4BM6 LDX 4 A1(1)
4C6Q ANDN 4 #77
4CLB STO 4 AUNNO(3)
4D62 LDX 4 A1+1(1) [STORE DELAY IF SPECIFIED
4DKL TRACE 4,OLDELAY
4F5= SRL 4 12
4FJW BZE 4 TA3
4G4G SRL 4 2
4GJ6 ADN 4 1
4H3Q BRN TA2
4HHB TA3 LDN 4 ATOVAL
4J32 TA2 STO 4 ATOTIM(3) [TIMEOUT COUNT
4JGL LDX 0 GSIGN
4K2= STO 0 FRECHADD(3)
4KFW LDX 0 JOBNO(2)
4K^G STO 0 JOBNO(3) [STORE JOB NUMBER
4LF6 LDX 0 AWORK3(2)
4LYQ STO 0 AREQPR(3) [PROPERTIES REQUESTED
4MDB STOZ ARINGEL+1(3)
4MY2 LDX 1 FX1
4NCL LINKSET 3,ONLP(1) [SET LINK TO IPCOPEN,4
4NX= LDX 0 AWORK4(2)
4PBW BPZ 0 TH
4PWG STO 0 GIVE(3)
4QB6 TH LDN 4 ATMLI
4QTQ STO 4 ATMARK(3)
4R*B MHUNT 2,FILE,FABSNB
4RT2 SMO HDREC(2)
4S#L LDN 4 A1-6(2)
4SS= LDN 5 ALINAME(3) [MOVE LINK NAME INTO AOLPT
4T?W MOVE 4 3
4TRG STO 7 ALINDIR(3) [LINK DIRECTION
4W?6 SRL 7 7
4WQQ SMO 7
4X=B LDX 0 XTA-1(1)
4XQ2 STO 0 ATYPA(3)
4Y9L LOCK 3
4YP= LDX 4 BLINO(3)
4^8W GETACT IPCA,HANGER
4^NG LDX 2 BPTR(2)
5286 STOZ JSOURCE1(2)
52MQ STOZ JSOURCE2(2)
537B STOZ JSOURCE3(2)
53M2 STO 4 HLINKIPC(2)
546L LINKSET 2,OHPR(1) [SET LINK TO IPCPASS,1
54L= HUNT 1,APERI,APROPNOS
555W BNG 1 PTR
55KG STO 1 4
5656 CHAIN 4,2
56JQ SMO 4
574B LDX 7 ALOGLEN
57J2 SETUPCORE 7,2,APERI,APROPNOS
592W LDN 6 A1(2)
596R ... SMO FX2
59=N ... LDX 1 BPTR [REFIND OLD BLOCK
59BK ... LDN 5 A1(1)
59GG SMO 7
5=26 MOVE 5 0
5=FQ CHAIN 2,3
5=^B PTR LDX 2 FX2
5?F2 TRACE 3,OLLOCK
5?YL INFIPCA 3 [WAKE IPC ACTIVITY
5#D= FCJOB 3,FX2,,CPA,
5#XW LDN 0 1
5*7N ... FIXTRA EIPCOPENB [++++++ IPCREOFF
5*CG ADS 0 AEXCO(3)
5*X6 PCEX ENDCOM
5BBQ #
5BWB # CODE FOR ANTICIPATED OPEN PERIS
5CB2 X3IPCOPENB
5CTL FINDACTFB 3,FX2,APET,,,BPTR
5D*= LOCKCA 3,EVENT2(2),,2 [CA IN HLOCK1 OF OLPA
5DSW LDX 7 EVENT4(2) [READ IN TYPE/MODE WORD
5F#G LDN 5 0
5FS6 DLA 7 5
5G?Q ERN 5 #400 [CHECK MODE
5GRB BZE 5 R1
5H?2 DLA 7 5
5HQL ERN 5 #200
5J== BZE 5 R1
5JPW ACROSS IPCPERI,5 [GO ACROSS IF NOT OPEN MODE
5K9G R1 LDX 0 GIVE(2)
5KP6 BPZ 0 R2
5L8Q # ILLEGAL IF GIVE SPECIFIED
5LNB TOPCA OIPR(1)
5M82 COOR1
5MML ... BRN X3IPCOPENB
5N7= # STORE DETAILS OF LINK ALREADY OPEN IN CONTROL AREA
5NLW R2 LDX 0 EVENT4(2)
5P6G BPZ 0 R3
5PL6 MACCS ,3,1
5Q5Q LDX 5 8(1)
5QKB SBN 5 1
5R52 LDN 4 1
5RJL CHECKB 5,4,Z,3,,Y,HLOCK2
5S4= Y LDN 6 ACOMMUNE1(2)
5SHW FOUTMOVE 3,5,6,4,HLOCK2
5T3G CLEAR FX2,0,HLOCK2
5TH6 LDX 5 ACOMMUNE1(2)
5W2Q SRL 5 21
5W*7 ... LDX 4 AREQPR(2)
5WMJ ... ADX 4 AUNNO(2)
5W^^ ... MACCS ,3,1
5X#B ... SMO 5
5XLR ... STO 4 0(1) [SET PROPS
5Y3S ... LDCT 6 284
5YDW BRN R4
5YYG ...R3 LDCT 6 28
5^D6 ...R4 ADX 6 ALINDIR(2)
5^XQ ... LDX 7 GSIGN
62CB ... LDN 4 6
62X2 LDX 5 EVENT2(2)
63BL ... LDN 1 2
63W= ... FINMOVE 3,5,4,1,HLOCK1,2,1
64*W LDX 5 EVENT2(2)
64TG ADN 5 2
65*6 LDN 4 ALINAME(2)
65SQ LDN 6 3
66#B FINMOVE 3,5,4,6,HLOCK1,2,1
66S2 LDX 0 GSIGN
67?L STO 0 GIVE(2)
67R= OLPFIN 3
68=W ACROSS IPCPERI,1
68QG #
69=6 Z GEOERR 1,ILLADDR
69PQ #
6=9B X4IPCOPENB
6=P2 # OPEN MODE ILLEGAL IF GIVE HAS BEEN SPECIFIED IN ONLINE COMMAND
6?8L UNPLUG
6?N= ILLEGAL MODE
6#7W #
6#MG #
6*76 MENDAREA 100,K2IPCOPENB
6*LQ #
6B6B #
6BL2 #END
^^^^ ...63700167001700000000