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