IPCOPENB83
(George Source)
Macros used: ACROSS, BXU, CHAIN, CHECKB, CHEKPRIV, CLEAR, COMERR, COMERRX, COOR1, ENDCOM, FCJOB, FINDACTFB, FINMOVE, FIXTRA, FNORM, FOUTMOVE, GEOERR, GETACT, GETNO, HUNT, ILLEGAL, INFIPCA, ISPER, LINK, LINKSET, LOCK, LOCKCA, MACCS, MENDAREA, MHUNT, NAMETOP, OLPFIN, PROPERTY, PUTPERENT, ROLPA, RTTEST, SEG, SEGENTRY, SETUPCORE, SPARANOT, TESTREP, TESTREPNOT, TOPCA, TRACE, UNPLUG
- IPCOPENB83.txt
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