12 22FL SEG IPCOPENA,,JOHN BAILEY. 4 22_= # 4 23DW # 12 23YG SEGENTRY K1IPCOPENA,X1IPCOPENA 4 24D6 # 4 24XQ # 2 25CB 8 25X2 SP #20 9 26BL REJR #42000000 9 26W= RESA #40000000 6 27*W OA #41 6 27TG OZ #73 8 28*6 XCA +5 9 28SQ XTA +CHREAD 11 29#B +CHREAD+CHWRITE 9 29S2 OPL LINK IPCPERI,1 9 2=?L XENL LINK IPCEN,1 9 2=R= PRHL LINK IPCPASS,1 4 2?=W # 4 2?QG # 7 2?S4 ...#UNS IPCPRIVSK 4 2?TL ...( 14 2?X8 ...# PRIV NAME TO BE FILLED IN BY IPCPRIV 16 2?YQ ... FIXTRA AIPCOPENA [++++++ IPCPRIV 8 2#2# ... 8H 5 2#3W ...NOPRIV 6 2#5D ... UNPLUG 16 2#72 ... ILLEGAL ILLNOPRIV [++++++ IPCPRIV 4 2#8J ...) 6 2#=6 X1IPCOPENA 7 2#?T ...#UNS IPCPRIVSK 4 2#*J ...( 16 2#C? ... FIXTRA BIPCOPENA [++++++ IPCPRIV 20 2#HJ ... NULL [SET TO BRN CIPCOPENA BY IPCREOFF 4 2#MW ...) 11 2#PQ # CHECK THAT PROGRAM REALTIME 10 2*9B RTTEST PST,,PCA,, 6 2*P2 UNPLUG 9 2B8L ILLEGAL NOTREAL 4 2BDD ...PST 9 2BN= # VALIDATE CONTROL AREA 7 2BQ8 ...#UNS IPCPRIVSK 4 2BS6 ...( 9 2BW4 ... FIXTRA CIPCOPENA 18 2BY2 ... BRN MAC [SET TO NULL BY IPCPRIV 11 2B_Y ... CHEKPRIV ,AIPCOPENA,NOPRIV 4 2C3W ...MAC 4 2C5S ...) 7 2CBM ... LDN 4 5 14 2CMG CHECKEXT EVENT2(2),4,PL1,2,W,P1,HLOCK1 6 2D76 # CHECK MODE 9 2DLQ P1 LDX 7 EVENT4(2) 10 2F6B TRACE 7,OPENPERI 7 2FL2 LDN 5 0 7 2G5L DLA 7 5 8 2GK= ERN 5 #400 8 2H4W BZE 5 P2 7 2HJG DLA 7 5 8 2J46 ERN 5 #200 8 2JHQ BZE 5 P2 7 2K3B DLA 7 5 18 2KH2 ERN 5 #1700 [TEST FOR ENQUIRY OPEN 18 2L2L BNZ 5 PL2 [IF NOT BRANCH TO ILLEGAL 4 2LG= # 15 2L_W # CODE FOR OPEN PERIS REQUESTING ENQUIRY FILES 9 2MFG LDX 6 EVENT3(2) 7 2M_6 STO 2 7 9 2NDQ LDX 4 EVENT2(2) 7 2NYB ADN 4 1 6 2PD2 UNPLUG 6 2PXL CAPCA 9 2QC= STO 4 AWORK4(2) 10 2QWW GETACT AOLPT,IPC,1 9 2RBG LDX 3 BPTR(2) 9 2RW6 LDX 0 JOBNO(2) 9 2S*Q STO 0 JOBNO(3) 8 2STB LDX 0 GSIGN 10 2T*2 STO 0 FRECHADD(3) 9 2TSL STO 0 GIVE(3) 8 2W#= LDN 4 ATMLI 9 2WRW STO 4 ATMARK(3) 10 2X?G STOZ ALINAME(3) 10 2XR6 STOZ ALINAME+1(3) 10 2Y=Q STOZ ALINAME+2(3) 8 2YQB LDN 4 #1700 10 2_=2 STO 4 ALINDIR(3) 18 2_PL LINKSET 3,XENL(1) [SET LINK TO IPCENQUIRY,1 17 329= ANDN 6 #77 [SET UP ENTRY FOR PRB 9 32NW STO 6 AUNNO(3) 8 338G LDCT 4 28 7 33N6 ADX 4 6 8 347Q LDX 5 GSIGN 8 34MB PUTPERENT 4,5 6 3572 ROLPA 9 35LL TRUSTED 7,PR1,Q 17 366= LDX 0 GSIGN [SET Q-TRUSTED MARKER 10 36KW STO 0 ALINAME(3) 9 375G PR1 LDX 5 AWORK4(2) 9 37K6 LDX 4 RESA(1) 9 384Q GETWORD 5,1,WRITE 9 38JB TESTREP OK,PR2 7 3942 WORDFIN 8 3=3= BRN OUTFN 8 3=GW PR2 STO 4 0(1) 7 3?2G WORDFIN 10 3?G6 FCJOB 3,FX2,,CPA, 17 3?_Q LDN 0 1 [REALTIME PERIPHERALS 16 3#9J ... FIXTRA FIPCOPENA [++++++ IPCREOFF 9 3#FB ADS 0 AEXCO(3) 7 3#_2 RUNPROG 4 3*DL # 15 3*Y= # CODE FOR OPEN PERIS REQUESTING NORMAL LINKS 9 3BCW P2 LDN 4 AWORK1(2) 9 3BXG LDX 3 EVENT2(2) 7 3CC6 ADN 3 2 7 3CWQ LDN 6 3 11 3DBB FOUTMOVE 2,3,4,6,HLOCK1,2 9 3DW2 LDN 3 AWORK1(2) 8 3F*L LDCH 5 0(3) 17 3FT= TXL 5 OA(1) [CHECK FILENAME VALID 8 3G#W BCS OUTFN 8 3GSG TXL 5 OZ(1) 8 3H#6 BCC OUTFN 8 3HRQ LDN 6 11 7 3J?B BCHX 3 / 8 3JR2 P3 LDCH 5 0(3) 8 3K=L TXL 5 OZ(1) 8 3KQ= BCC OUTFN 7 3L9W BCHX 3 / 8 3LPG BCT 6 P3 19 3M96 LDX 6 EVENT3(2) [READ IN PROPERTIES REQUESTED 20 3MNQ P4 LDX 2 FX2 [PROPERTIES REQUESTED AVAILABLE? 9 3N8B LDX 0 EVENT4(2) 16 3ND8 ... LDN 7 9 [HLOCKDOWN LENGTH 8 3NN2 BPZ 0 XM 9 3P7L LDX 1 EVENT3(2) 7 3PM= SRL 1 6 8 3Q6W BZE 1 XM 9 3QLG BBUS 15,1,X1 8 3R66 ERN 1 #740 8 3RKQ BZE 1 XM 17 3S5B ...X1 BBS 16,1,XM1 [J IF WMC REQUESTED 11 3SK2 HUNT2 1,IPCA,INTERN,2 10 3T4L LDX 0 APROPRES(1) 8 3TJ= BNZ 0 XM 8 3W3W LDX 1 FX1 9 3WHG LDX 5 EVENT2(2) 7 3X36 ADN 5 1 8 3XGQ BRN OUT1 10 3XJF ...# WMC REQUESTED 4 3XL8 ...XM1 9 3XMX ... LDX 1 EVENT4(2) 8 3XPL ... ANDN 1 #7777 8 3XR* ... SBN 1 #400 14 3XT4 ... BNZ 1 XM [J IF NOT WRITE 12 3XWR ...# WMC WRITE SPECIFIED 16 3XYG ... LDN 7 13 [HLOCKDOWN LENGTH 8 3Y2B XM LDX 1 FX1 10 3YG2 TRACE 2,TESTPROP 8 3Y_L BRN PL 9 3_F= OUT1 LDX 6 REJR(1) 9 3_YW LDX 5 EVENT2(2) 7 42DG ADN 5 1 6 42Y6 UNPLUG 6 43CQ CAPCA 9 43XB STO 5 AWORK4(2) 8 44C2 BRN OUT2 7 44WL PL GETNO 4 9 45B= LDX 5 EVENT2(2) 7 45TW ADN 5 1 8 46*G BNZ 4 PLA 8 46T6 BRN OUT1 9 47#Q # SET UP ENTRY FOR PRB 4 47SB ...PLA 9 48#2 ... LDX 3 EVENT4(2) 6 48RL UNPLUG 6 49?= CAPCA 9 49C7 ... STO 5 AWORK4(2) 7 49H4 ... LDX 5 6 8 49L_ ... ANDN 6 #77 8 4=6K ... LDCT 0 #34 7 4=L9 ... ORX 6 0 10 4?5T ... PUTPERENT 6,GSIGN 10 4#NL STO 6 ACOMMUNE1(2) 10 4#YD ... STO 3 ACOMMUNE2(2) 9 4*8= TRACE 6,PRBENT 15 4*MW # SET UP AOLPT BLOCK AND STORE DETAILS OF LINK 7 4*R2 ... LDX 6 7 5 4*W6 ...#SKI G4 4 4*_= ...( 15 4B4B ... TRACE 6,IPCLOCK [X6 = 9 OR 13 13 4B7G ... SETUPCORE 6,2,ADATA,HLOCKDOWN 15 4B=L ... SRL 6 2 [9 TO 2,13 TO 3 16 4B*Q ... STO 6 HLOCKBN(2) [SET ENTRY COUNT 10 4BDW ... STOZ HLOCKB1(2) 10 4BJ2 ... STOZ HLOCKB2(2) 7 4BM6 ... SBN 6 2 16 4BQ= ... BZE 6 OPA2 [J ONLY 2 ENTRIED 10 4BTB ... STOZ HLOCKB3(2) 4 4BYG ...OPA2 4 4C3L ...) 10 4C6Q GETACT AOLPT,IPC,1 7 4CLB ... LDX 6 5 9 4D62 LDX 3 BPTR(2) 9 4DKL TRACE 3,PTROLPA 14 4F5= STO 4 BLINO(3) [LINK NO 8 4FJW LDN 4 #777 7 4G4G SLL 4 6 7 4GJ6 ANDX 4 6 9 4H3Q BBUS 9,4,PR 7 4HHB SRL 4 6 8 4J32 ERN 4 #740 7 4JGL SLL 4 6 17 4K2= PR STO 4 AREQPR(3) [PROPERTIES REQUESTED 8 4KFW ANDN 6 #77 14 4K_G STO 6 AUNNO(3) [UNIT NO 9 4LF6 LDN 0 ATOVAL 16 4LYQ STO 0 ATOTIM(3) [TIMEOUT COUNT 8 4MDB LDX 0 GSIGN 10 4MY2 STO 0 FRECHADD(3) 9 4NCL LDN 4 AWORK1(2) 15 4NX= LDN 5 ALINAME(3) [LINK NAME 7 4PBW MOVE 4 3 9 4PWG LDX 0 JOBNO(2) 14 4QB6 STO 0 JOBNO(3) [JOB NO 8 4QTQ LDN 4 ATMLI 9 4R*B STO 4 ATMARK(3) 10 4RT2 STOZ ARINGEL+1(3) 18 4S#L LINKSET 3,OPL(1) [SET LINK TO IPCPERI,1 10 4SJD ... LDX 7 ACOMMUNE2(2) 8 4SS= ANDN 7 #777 16 4T?W STO 7 ALINDIR(3) [LINK DIRECTION 7 4TRG SRL 7 7 7 4W?6 SMO 7 9 4WQQ LDX 0 XTA-1(1) 9 4X=B STO 0 ATYPA(3) 8 4XQ2 LDX 0 GSIGN 9 4Y9L STO 0 GIVE(3) 7 4YP= LOCK 3 10 4_8W LDX 6 ACOMMUNE1(2) 9 4_NG LDX 7 BLINO(3) 5 5286 #SKI G4 11 52MQ MHUNTW 3,ADATA,HLOCKDOWN 6 537B ROLPA 5 53M2 #SKIP G4 4 546L ( 8 54L= CHAIN 3,6 7 555W LDX 3 6 4 55KG ) 10 5656 GETACT IPCA,HANGER 9 56JQ LDX 2 BPTR(2) 10 574B STO 7 HLINKIPC(2) 18 57J2 LINKSET 2,PRHL(1) [SET LINK TO IPCPASS,1 8 583L LDX 2 FX2 16 58H= # PUT LINK RECORD IN STACK AND WAKE UP IPC ACTIVITY 7 592W INFIPCA 3 10 59GG FCJOB 3,FX2,,CPA, 7 5=26 LDN 0 1 16 5=9Y ... FIXTRA EIPCOPENA [++++++ IPCREOFF 9 5=FQ ADS 0 AEXCO(3) 9 5=_B LDX 6 RESA(1) 9 5?F2 OUT2 LDX 7 AWORK4(2) 9 5?YL GETWORD 7,3,WRITE 9 5#D= TESTREP OK,PR3 7 5#XW WORDFIN 8 5*X6 BRN OUTFN 8 5BBQ PR3 STO 6 0(3) 7 5BWB WORDFIN 7 5CB2 RUNPROG 6 5CTL PL1 UNPLUG 8 5D*= ILLEGAL NOCA, 6 5DSW PL2 UNPLUG 8 5F#G ILLEGAL MODE, 5 5FS6 ...OUTFN 6 5G3Y ... UNPLUG 9 5G?Q ILLEGAL ILLINS 4 5GRB # 4 5H?2 # 11 5HQL MENDAREA 100,K2IPCOPENA 4 5J== # 4 5JPW # 4 5K9G #END 8 ____ ...34250153001600000000