12 22FL ... SEG IPCPERI,,KEITH MARTIN 4 22_= # 4 23DW # 12 23YG SEGENTRY K1IPCPERI,X1IPCPERI 12 24D6 SEGENTRY K3IPCPERI,X3IPCPERI 12 24XQ SEGENTRY K4IPCPERI,X4IPCPERI 12 25CB SEGENTRY K5IPCPERI,X5IPCPERI 4 25X2 # 4 26BL # 8 26FQ ...MINLENGTH +1 8 26JW ...MAXLENGTH +512 8 26N2 ...WMCREADMAX +601 8 26R6 ...MODE21 #21 9 26W= MASK #77777 9 27*W TOR #22400000 9 27TG RESPA #40000000 9 28*6 RESPR #42000000 9 28SQ XDIS #2400000 9 29#B ...YAM #27377777 8 29S2 XCA +4 9 2=?L PR1 LINK IPCPERI,4 9 2=R= PR2 LINK IPCPASS,1 6 2=YD ...P1IPCPERI 11 2?5L ... CLEAR APETADDR(2),0 6 2?=W X1IPCPERI 12 2?QG FINDACTFB 3,FX2,APET,,,BPTR 9 2#=6 TRACE 3,IPCPERI 9 2#PQ # VALIDATE CONTROL AREA 17 2*9B LOCKCA 3,EVENT2(2),,2 [CA IN HLOCK1 OF OLPA 6 2*P2 X5IPCPERI 9 2B8L S1 LDX 7 EVENT4(2) 10 2BN= TRACE 7,MOVEMODE 9 2C7W ANDX 7 MASK(1) 8 2CMG LDN 4 #5776 7 2D76 ANDX 4 7 20 2DLQ BZE 4 TRANS [J IF MODES 0,1,#2000 OR #2001 9 2DN7 ... LDX 4 MASK(1) 14 2DPJ ... ANDX 4 7 [GET MODE 8 2DQ_ ... ORN 4 #2000 19 2DSB ... ERN 4 #2000 [LOSE CONDITIONAL - IF ANY 17 2DTR ... BXU 4 MODE21(1),PE1 [J IF NOT MODE *21 7 2DX8 ... LDN 4 6 10 2DYK ... TRACE 4,IPCEXTCH 16 2F22 ... CHECKEXT EVENT2(2),4,NISA,3,W,TRANS,HLOCK1 16 2F3C ... BRN TRANS [J FOR MODE *21 4 2F4S ...PE1 8 2F6B LDN 4 #1000 7 2FL2 TXU 7 4 8 2G5L BCC XCANC 7 2GK= LDN 4 4 7 2H4W TXU 7 4 8 2HJG BCC XCANC 7 2J46 XNIS LDN 6 2 8 2JHQ BRN NIS 17 2K3B # EXTRACT C.A. DETAILS FROM OBJ PROG - I.E. SET : 12 2KH2 # X4=LENGTH,X5=BUFFER ADDRESS 18 2KQS ...# X6=LENGTH,X7=BUFFER ADDR FOR MODE *21 ZERO OTHERWISE 10 2L2L TRANS LDX 0 ALINDIR(2) 7 2LG= SRL 0 8 7 2LM_ ... LDN 6 1 17 2LTN ... ANDX 6 7 [X6= 0 READ , 1 WRITE 20 2M3C ... BXU 6 0,XNIS [J IF TRANS WRONG DIRN - ERROR 7 2M96 ... LDX 5 7 8 2MBT ... ANDN 5 #77 17 2MJJ ... BXU 5 MODE21(1),TR1 [J IF NOT MODE *21 9 2MQ? ... LDX 6 AREQPR(2) 8 2MY2 ... SRL 6 11 7 2N5P ... ANDN 6 3 21 2N?D ... BNZ 6 XNIS [J IF MODE *21 & NOT WMC REQUESTED 4 2NF7 ...TR1 21 2NLW ... STOZ ACOMMUNE3(2) [LENGTH-2 =0 IN CASE NOT M 17 2NSK ... STOZ ACOMMUNE4(2) [ALSO START ADDR 2 16 2P2# ... LDEX 5 7 [9 BITS OF MODE 19 2P83 ... LDN 7 2 [SET NOT MODE *21 INITIALLY 17 2P*Q ... BXU 5 MODE21(1),TR1A [J IF NOT MODE *21 17 2PHF ... LDN 7 4 [SET TO MOVE 4 WDS 4 2PP8 ...TR1A 15 2PWX ... LDX 4 EVENT2(2) [PTR TO CA 7 2Q4L ... ADN 4 2 21 2Q=* ... LDN 5 ACOMMUNE1(2) [READ IN TO ACOMMUNE1 ON 13 2QD4 ... FOUTMOVE 3,4,5,7,HLOCK1,2,1 10 2QKR ... LDX 4 ACOMMUNE1(2) 10 2QRG ... LDX 5 ACOMMUNE2(2) 10 2Q_9 ... LDX 6 ACOMMUNE3(2) 10 2R6Y ... LDX 7 ACOMMUNE4(2) 4 2R#M ...# 15 2RGB ...# NOW VALIDATE LENGTH OF TRANSFERS 11 2RN5 ... BXGE 4 MINLENGTH(1),SXA 4 2RTS ...S7 7 2S3H ... LDN 6 4 8 2S9= ... BRN NIS 4 2SB_ ...SXA 16 2SJN ... BZE 7 SXD [J IF NOT MODE 21 11 2SQC ... BXL 6 MINLENGTH(1),S7 4 2SY6 ...SXD 4 2T5T ...# 9 2T?J ... LDX 0 AREQPR(2) 16 2TF? ... BZE 0 SX1 [J IF NO REQUESTS 8 2TM2 ... SRL 0 11 7 2TSP ... ANDN 0 3 17 2W2D ... BZE 0 SX2 [J IF WMC REQUESTED 11 2W87 ...# NOT WMC REQUESTED 4 2W*W ...SX1 21 2WDP ... BNZ 7 XNIS [ILLEGAL MODE IF MODE *21 & NOT WMC O 11 2WHK ... BXL 4 MAXLENGTH(1),SX5 14 2WP# ... BRN S7 [ERROR 10 2WX3 ...# WMC REQUESTED 4 2X4Q ...SX2 10 2X=F ... LDX 0 ALINDIR(2) 8 2XD8 ... SBN 0 #200 15 2XKX ... BNZ 0 SX3 [J IF WRITE 9 2XRL ...# WMC READ 11 2X_* ... BXL 4 WMCREADMAX(1),SX5 14 2Y74 ... BRN S7 [ERROR 9 2Y#R ...# WMC WRITE 4 2YGG ...SX3 9 2YN9 ... LDEX 0 EVENT4(2) 16 2YTY ... BXE 0 MODE21(1),SX4 [J IF MODE *21 11 2_3M ...# WMC WRITE MODE 1 11 2_9B ... BXL 4 MAXLENGTH(1),SX5 14 2_C5 ... BRN S7 [ERROR 12 2_JS ...# WMC WRITE MODE *21 4 2_QH ...SX4 7 2_Y= ... LDX 0 4 7 325_ ... ADX 0 6 11 32?N ... BXGE 0 WMCREADMAX(1),S7 4 32FC ...SX5 8 32NW # VALIDATE DATA AREA 16 32YC ... CHECKB 5,4,NISB,3,ATYPA(2),S2A,,,P1IPCPERI 4 337Y ...S2A 9 33CF ... LDEX 0 EVENT4(2) 17 33M2 ... BXU 0 MODE21(1),S2Q [J IF NOT MODE *21 17 33WH ...# DONT OVERWRITE HLOCK3(OR TRY TO) IF TRANSFER STORED 7 3464 ... TRAST 0 15 34*K ... BNZ 0 R1 [J IF STORED TRANSFER 4 34K6 ...# 5 34SM ...#SKI G4 4 3548 ...( 12 35?P ... MHUNTW 2,ADATA,HLOCKDOWN 8 35H= ... SMO FX2 9 35QR ... STO 2 AWORK3 8 362# ... LOCK 2 4 369T ...) 20 36FB ... CHECKB 7,6,NISB,3,ATYPA(2),S2,HLOCKB3,AWORK3(2),P1IPCPERI 4 36NX ...S2 6 36YD ...#SKI G4 4 377_ ...( 9 37CG ... LDX 2 AWORK3(2) 8 37M3 ... UNLOCK 2 4 37WJ ...) 4 3865 ...S2Q 8 38*L ... LDX 2 FX2 14 38K7 ... STO 7 ACOMMUNE3(2) [START 2 15 38SN ... STO 6 ACOMMUNE4(2) [LENGTH 2 15 3949 ... LDX 7 EVENT4(2) [WD 0 OF CA 13 39?Q ... ANDX 7 MASK(1) [MODE 10 39*# ...# TEST FOR STORED TRANSFER 14 39BW ...# THIS HAS ALLREADY BEEN DONE FOR MODE *21 8 39DD ... TRAST 6 16 39G2 ... BNZ 6 RR [J IF STOTED TRANSFER 4 39GS ...XSB 7 39HL TELEST 6 21 3=3= BPZ 6 S3 [J IF ESTABLISHED OR UNESTABLISHED 7 3=GW ADN 6 1 18 3?2G BPZ 6 S4 [J IF JUST DISESTABLISHED 10 3?G6 LDX 1 ARINGEL(2) 10 3?_Q LDX 0 ASTATUS2(1) 7 3#FB SLL 0 5 8 3#_2 BPZ 0 S2AZ 8 3*DL SMO FX1 8 3*Y= LDX 0 YAM 10 3BCW ANDS 0 ASTATUS2(1) 7 3BXG LDCT 0 1 10 3CC6 ORS 0 ASTATUS2(1) 8 3CWQ LDX 1 FX1 8 3DBB BRN S2B 4 3DJL ...S2AZ 8 3DQW ... LDCT 6 #010 19 3D_6 ... ORS 6 ASTATUS2(1) [ MARK LINK OPEN IN PROGRESS 9 3F7B ... LDX 6 BLINO(2) 10 3F*L GETACT IPCA,HANGER 9 3FT= LDX 2 BPTR(2) 10 3G#W STOZ JSOURCE1(2) 10 3GSG STOZ JSOURCE2(2) 10 3H#6 STOZ JSOURCE3(2) 9 3HRQ STOZ HBRIN(2) 10 3J?B STO 6 HLINKIPC(2) 18 3JR2 LINKSET 2,PR2(1) [SET LINK TO IPCPASS,1 11 3KQ= HUNT 1,APERI,APROPNOS 8 3L9W BNG 1 NFGI 10 3LPG LDX 6 ALOGLEN(1) 12 3M96 SETUPCORE 6,3,APERI,APROPNOS 9 3MNQ CHAIN 3,BPTR(2) 11 3N8B MHUNT 2,APERI,APROPNOS 8 3NN2 LDN 2 A1(2) 8 3P7L LDN 3 A1(3) 7 3PM= SMO 6 7 3Q6W MOVE 2 0 8 3QLG NFGI LDX 2 FX2 7 3R66 INFIPCA 2 12 3RKQ FINDACTFB 3,FX2,APET,,,BPTR 8 3S5B S2B LDN 0 #2000 7 3SK2 ANDX 0 7 8 3T4L BZE 0 XGO 9 3TJ= LDN 5 TOR(1) 8 3W3W BRN RESPN 20 3WHG S4 GDISREP 2 [SET 'DISEST. REPLY GIVEN' MARKER 9 3X36 LDN 5 XDIS(1) 8 3XGQ BRN RESPN 8 3Y2B S3 LDN 6 #2000 7 3YG2 ANDX 6 7 17 3Y_L BZE 6 XGO [J IF NOT CONDITIONAL 7 3_F= TREQST 6 19 3_YW BZE 6 NOREQ [REJECT IF NO REQUEST STORED 9 42DG SMO AWORK1(2) 10 42Y6 LDX 1 ARINGEL(2) 7 43CQ LDN 6 4 19 43XB ORS 6 ASTATUS1(1) [MARK IF CONDITIONAL TRANSFER 8 44C2 LDX 1 FX1 9 44WL XGO LDN 6 RESPA(1) 14 453S ... STO 5 ACOMMUNE1(2) [START 1 14 4592 ... STO 4 ACOMMUNE2(2) [LENGTH 1 9 45B= LDX 7 EVENT2(2) 7 45TW ADN 7 1 7 46*G LDN 1 1 12 46T6 FINMOVE 3,7,6,1,HLOCK1,2,1 9 47#Q TRACE 6,IPFMOVE 7 47SB SCBB 2 6 48#2 ... TRIPB 7 48RL OLPFIN 3 9 49?= BRN K1IPCPERI 17 49QW NOREQ TELEST 6 [LINK ESTABLISHED? 8 4==G BNZ 6 RR 9 4=?H ... LDX 6 AREQPR(2) 15 4=#J ... BZE 6 XSA [J IF NO REQUESTS 8 4=*K ... SRL 6 11 7 4=BL ... ANDN 6 3 16 4=CM ... BNZ 6 XSA [J IF NOT WMC REQUESTED 9 4=DN ... SMO AWORK1(2) 16 4=FP ... LDX 6 ARINGEL(2) [PTR TO IPSTACK ENTRY 8 4=GQ ... LDCT 0 #010 7 4=HR ... SMO 6 9 4=JS ... ANDX 0 ASTATUS2 17 4=KT ... BZE 0 XSA [J IF NOT OPEN IN PROGRESS 9 4=LW ... COOR4 ATIMWT 8 4=MX ... BRN XSB 4 4=NY ...XSA 9 4=Q6 LDN 5 TOR(1) 8 4?9Q BRN RESPN 8 4?PB XCANC LDN 0 #1700 10 4#92 TXU 0 ALINDIR(2) 8 4#NL BCC XCANM 8 4*8= LDX 2 FX2 7 4*MW LDN 0 0 7 4B7G CANTR 0 9 4BM6 TRACE 6,IPCANC 8 4C6Q BNG 6 RR 18 4CLB XCANM LDN 5 RESPA(1) [SET ACCEPTED RESPONSE 5 4CYR ...RESPN 9 4D?8 ... LDX 6 EVENT2(2) 7 4DKL ADN 6 1 7 4F5= LDN 4 1 12 4FJW FINMOVE 3,6,5,4,HLOCK1,2,1 8 4G4G S6 SBN 7 #1000 8 4GJ6 BZE 7 XCLO 6 4GKN ...#SKI G4 4 4GM= ...( 10 4GNS ... LDX 2 ALINDIR(2) 8 4GQB ... SBX 2 #400 13 4GRY ... BNZ 2 S6XY [J IF READING 12 4GTG ... MHUNTW 2,ADATA,HLOCKDOWN 9 4GX4 ... CLEARALL 3,0,2 4 4GYL ...S6XY 4 4H28 ...) 7 4H3Q OLPFIN 3 9 4HHB BRN K1IPCPERI 8 4J32 XCLO LDCT 6 28 8 4JGL LDX 0 GSIGN 9 4K2= ORS 0 BLINO(2) 9 4KFW LDX 5 AUNNO(2) 7 4K_G ADX 5 6 9 4LF6 TRACE 5,IPRELOF 7 4LYQ RELOFP 5 14 4M2_ ...# TEST LEGALITY OF LENGTH+ADDR WHEN STORED 10 4M58 ...# TRANSFER - SAVES HLOCKB3 4 4M7C ...R1 15 4M9L ... CLEAR 3,0,HLOCK2,1 [CLEAR BEFORE USING 17 4M?T ... CHECKB 7,6,NISB,3,ATYPA(2),R2,HLOCK2,,P1IPCPERI 4 4MB4 ...R2 4 4MDB # 10 4MY2 # LOAD REJECTED RESPONSE 9 4NCL RR LDN 5 RESPR(1) 8 4NX= BRN RESPN 12 4PBW # REPORT ILLEGAL OBJ PROG EVENT 7 4PWG NISA LDN 6 1 8 4QB6 BRN NIS 7 4QTQ NISB LDN 6 3 7 4R*B NIS STO 3 7 9 4RT2 TOPCA PR1(1) 6 4S#L COOR1 9 4SS= BRN K1IPCPERI 6 4T?W X3IPCPERI 10 4TRG # ENTERED FROM RELPERENT. 10 4W?6 TRACE 3,ENFRELIP 9 4WQQ LDX 7 BLINO(3) 8 4X=B BNG 7 NA 10 4XQ2 LDX 4 ALINDIR(3) 8 4Y9L LDN 5 #1700 7 4YP= TXU 4 5 8 4_8W BCC NC 7 4_NG NBA CANTR 3 8 5286 BPZ 6 NC 8 52MQ COOR3 #41 8 537B BRN NBA 11 53M2 NB FINDACTFB 3,,AOLPT,,,FPTR 9 546L LDX 0 BLINO(3) 7 54L= TXU 0 7 8 555W BCS NB 8 55KG NA LDX 0 GSIGN 9 5656 ERS 0 BLINO(3) 7 56JQ NC CLINK 3 10 574B FCJOB 3,FX2,,CPA, 7 57J2 LDN 0 1 16 57RS ... FIXTRA AIPCPERI [++++++ IPCREOFF 9 583L SBS 0 AEXCO(3) 5 58H= UP 6 592W X4IPCPERI 10 59GG TRACE 0,IPERPERI 6 5=26 UNPLUG 7 5=FQ SMO 6 7 5=_B X BRN X 8 5?F2 BRN NOC 8 5?YL BRN NMO 8 5#D= BRN NOB 8 5#XW BRN NCT 9 5*CG GEOERR 1,IPCP 8 5*X6 NOC ILLEGAL NOCA, 8 5BBQ ...NMO ILLEGAL MODE, 9 5BWB NOB ILLEGAL NOBUF, 8 5CB2 NCT ILLEGAL COUNT 4 5CTL # 4 5D*= # 10 5DSW MENDAREA 100,K2IPCPERI 4 5F#G # 4 5FS6 # 4 5G?Q #END 8 ____ ...51577573003500000000