12 22FL ... SEG TRIPB,,KEITH MARTIN 4 22_= # 4 23DW # 11 23YG SEGENTRY K1TRIPB,X1TRIPB 4 24D6 # 4 24XQ # 5 25CB X1TRIPB 16 25X2 # ACOMMUNE1 CONTAINS %A - START ADDRESS OF TRANSFER 14 26BL # ACOMMUNE2 CONTAINS %B - LENGTH OF TRANSFER 19 26HS ...# ACOMMUNE3 CONTAINS %C - START ADDR (IF NOT ZERO) FOR MODE *21 18 26P2 ...# ACOMMUNE4 CONTAINS %D - LENGTH (IF NOT ZERO) FOR MODE *21 9 26W= SMO AWORK1(2) 10 27*W LDX 1 ARINGEL(2) 10 27TG LDX 3 APTRIPB(1) 13 28*6 BZE 3 RO [WMC 9 28SQ LDX 3 CPPTR(3) 14 29#B JENG 3,RO1 [OPERABLE 7 29S2 LDCT 0 4 10 2=?L ANDX 0 ASTATUS2(1) 14 2=R= BNZ 0 RO [B6 SET 7 2?=W LDCT 0 4 14 2?QG ORS 0 ASTATUS2(1) [SET B6 7 2#=6 LDN 4 0 8 2#PQ BRN RA2 7 2*9B RO1 LDCT 0 4 7 2*P2 NGX 0 0 7 2B8L SBN 0 1 14 2BN= ANDS 0 ASTATUS2(1) [CLEAR B6 4 2C7W RO 7 2CMG TREQST 0 19 2D76 BNZ 0 R2 [BRANCH IF A REQUEST STORED 9 2DLQ SMO AWORK1(2) 10 2F6B LDX 1 ARINGEL(2) 7 2FL2 LDN 0 4 9 2G5L SMO AWORK1(2) 10 2GK= TXU 0 ASTATUS1(1) 20 2H4W BCS RA1 [J IF NOT CONDITIONAL TRANSFER 9 2HJG SMO AWORK1(2) 10 2J46 STOZ ASTATUS1(1) 10 2JHQ LDX 0 ASTATUS2(1) 7 2K3B SLL 0 1 7 2KH2 LDN 4 2 8 2L2L BPZ 0 RA2 18 2LG= ADN 4 1 [REPLY NOT ESTABLISHED 21 2L_W RA2 ADN 4 #44 [REPLY TIMED OUT, NOT IMPLEMENTED 8 2MFG SLL 4 17 9 2M_6 LDX 5 EVENT2(2) 7 2NDQ ADN 5 1 10 2NYB LDX 1 APETADDR(2) 7 2PD2 STO 4 7 7 2PXL LDN 4 7 7 2QC= LDN 6 1 16 2QWW FINMOVE 1,5,4,6,HLOCK1,2,1 [HLOCK1 OF OLPA 5 2QYK ...#SKI G4 4 2R2# ...( 15 2R43 ... LDX 2 ALINDIR(2) [MODE OF OPEN 8 2R5Q ... SBN 2 #400 15 2R7F ... BNZ 2 RX [J IF READING 12 2R98 ... MHUNTW 2,ADATA,HLOCKDOWN 8 2R=X ... CLEARALL 1,0,2 4 2R#L ...) 8 2RBG BRN RX 7 2RW6 RA1 LDN 0 1 9 2S*Q SMO AWORK1(2) 19 2STB ORS 0 ASTATUS1(1) [SET ASTATUS1=TRANSFER STORED 10 2T*2 LDX 0 ACOMMUNE1(2) 21 2TSL STO 0 ASTR(1) [[STORE START AND LENGTH OF TRANSFER 16 2W#= LDX 0 ACOMMUNE2(2) [[IN LINK RECORD 9 2WRW STO 0 ALENTR(1) 10 2WX2 ... LDX 0 ACOMMUNE3(2) 17 2X26 ... STO 0 ASTR2(1) [START FOR MODE *21 10 2X5= ... LDX 0 ACOMMUNE4(2) 17 2X8B ... STO 0 ALENTR2(1) [LENGTH FOR MODE *21 9 2X?G LDX 0 ATOTIM(2) 9 2XR6 STO 0 ATIMCT(1) 9 2Y=Q LDX 0 EVENT2(2) 7 2YQB ADN 0 1 10 2_=2 STO 0 AREPPTR(1) 9 2_PL LDX 3 EVENT1(2) 10 329= LDX 0 ARM1-AFW1(3) 8 32NW SRL 0 18 9 338G STO 0 ASTMEL(1) 10 33N6 LDX 7 APTRIPB(1) 5 347Q #SKI G4 8 34MB BZE 7 RAX 5 3572 #SKI G3 8 35LL BZE 7 RX 19 366= SETNCORE 6,3,IPCD,ATASK [SET UP TASK BLOCK FOR IPCBX 9 36KW TRACE 3,TRGTASK 10 375G LDX 1 ARINGEL(2) 9 37K6 LDX 0 ALINUM(1) 8 384Q STO 0 A1(3) 10 38JB LDX 0 ASTATUS1(1) 7 3942 ANDN 0 4 8 39HL BZE 0 RA 7 3=3= LDN 0 4 8 3=GW BRN RB 7 3?2G RA LDN 0 2 9 3?G6 RB STO 0 A1+1(3) 10 3?_Q LDX 7 APTRIPB(1) 8 3#FB BZE 7 RB1 6 3#_2 #SKIP IPCG4 4 3*DL ( 7 3*Y= RAX LDX 6 3 12 3BCW ... MHUNTW 3,ADATA,HLOCKDOWN 9 3CWQ LDN 4 HLOCK1(2) 10 3DBB LDN 5 HLOCKB1(3) 7 3DW2 MOVE 4 8 11 3F*L CLEAR APETADDR(2),2,,, 7 3FT= LDX 3 6 8 3G#W BZE 7 RX 4 3GSG ) 8 3H#6 QTASK 3,2,7 9 3HRQ TRACE 2,TRQTASK 8 3J?B BRN RX 10 3JR2 RB1 MFREE IPCD,ATASK 8 3K=L BRN RX 9 3KQ= R2 SMO AWORK1(2) 10 3L9W LDX 1 ARINGEL(2) 7 3L*2 ... LDN 4 3 16 3LD6 ... LDCT 0 #300 [JUMP IF NOT ESTAB 10 3LH= ... ANDX 0 ASTATUS2(1) 8 3LLB ... BNZ 0 RA2 10 3LPG LDX 0 APTRIPB(1) 14 3M96 BNZ 0 RA1 [J IF IMC 8 3MNQ LDX 0 GSIGN 10 3N8B STO 0 ASTATUS1(1) 8 3NN2 LDCT 0 #10 9 3P7L STO 0 AWORK3(2) 9 3PM= STO 0 AWORK4(2) 9 3Q6W STOZ ATIMCT(1) 18 3QLG LDX 0 ALINDIR(2) [[CHECK LINK DIRECTION 8 3R66 SBN 0 #400 4 3R73 ...# 4 3R7Y ...# 14 3R8T ...# THE FOLLOWING CODE SETS UP 13 3R9Q ...# ACOMMUNE1 - 6 AS FOLLOWS 4 3R=M ...# 12 3R?J ...# 1,2,3 FIRST MOVE 13 3R#F ...# TO,FROM,LENGTH 16 3R*B ...# 4,5,6 SECOND MOVE (MODE *21 ONLY) 13 3RB? ...# TO,FROM,LENGTH 4 3RC8 ...# 12 3RD5 ...# ACOMMUNE3=MINIMUM OF 12 3RF2 ...# 1)LENGTH OF READ 14 3RFX ...# 2)LENGTH OF WRITE(1ST) 12 3RGS ...# ACOMMUNE6=MINIMUM OF 18 3RHP ...# 1)LENGTH OF READ - LENGTH OF FIRST MOVE 14 3RJL ...# 2)LENGTH OF WRITE (2ND) 20 3RKQ BNZ 0 READ [BRANCH IF THIS END IS READING 4 3RNG ...# 4 3RR= ...# 11 3RW2 ...# THIS END WRITING 18 3RYQ ... TRACE 1,IPCTWRIT [PTR READERS STACK ENTRY 17 3S3G ... LDX 0 ACOMMUNE2(2) [LENGTH OF WRITE-1 17 3S6= ... ADX 0 ACOMMUNE4(2) [+LENGTH OF WRITE-2 16 3S92 ... SBX 0 ALENTR(1) [-LENGTH OF READ 4 3S?Q ...# 15 3SBG ... LDX 3 ACOMMUNE3(2) [WRITE ADDR-2 10 3SF= ... STO 3 ACOMMUNE5(2) 4 3SJ2 ...# 15 3SLQ ... LDX 3 ALENTR(1) [READ LENGTH 20 3SPG ... BXL 3 ACOMMUNE2(2),QW1 [J IF LESS THAN WRITE LENGTH-1 15 3SS= ... LDX 3 ACOMMUNE2(2) [ELSE RESET 4 3SX2 ...QW1 10 3S_Q ... STO 3 ACOMMUNE3(2) 4 3T4G ...# 15 3T7= ... LDX 3 ALENTR(1) [READ LENGTH 15 3T=2 ... SBX 3 ACOMMUNE3(2) [=LENGTH LEFT 20 3T#Q ... BXL 3 ACOMMUNE4(2),QW2 [J IF LESS THAN WRITE LENGTH-2 15 3TCG ... LDX 3 ACOMMUNE4(2) [ELSE RESET 4 3TG= ...QW2 10 3TK2 ... STO 3 ACOMMUNE6(2) 4 3TMQ ...# 15 3TQG ... LDX 3 ASTR(1) [READ ADDR 16 3TT= ... ADX 3 ACOMMUNE3(2) [+MOVE LENGTH-1 10 3TY2 ... STO 3 ACOMMUNE4(2) 4 3W2Q ...# 16 3W5G ... LDX 3 ACOMMUNE1(2) [WRITE ADDR-1 10 3W8= ... STO 3 ACOMMUNE2(2) 4 3W?2 ...# 15 3W*Q ... LDX 3 ASTR(1) [READ ADDR 10 3WDG ... STO 3 ACOMMUNE1(2) 8 3WHG BRN R3 4 3WLG ...# 11 3WPG ...# THIS END READING 4 3WSG ...READ 18 3WXG ... TRACE 1,IPCTREAD [PTR WRITERS STACK ENTRY 17 3X2G ... LDX 0 ALENTR(1) [LENGTH OF WRITE-1 17 3X5G ... ADX 0 ALENTR2(1) [+LENGTH OF WRITE-2 16 3X8G ... SBX 0 ACOMMUNE2(2) [-LENGTH OF READ 4 3X?G ...# 15 3XBG ... LDX 3 ACOMMUNE2(2) [READ LENGTH 20 3XFG ... BXL 3 ALENTR(1),QR1 [J IF LESS THAN WRITE LENGTH-1 15 3XJG ... LDX 3 ALENTR(1) [ELSE RESET 4 3XMG ...QR1 10 3XQG ... STO 3 ACOMMUNE3(2) 4 3XTG ...# 15 3XYG ... LDX 3 ACOMMUNE2(2) [READ LENGTH 16 3Y3G ... SBX 3 ACOMMUNE3(2) [-LENGTH MOVED-1 20 3Y6G ... BXL 3 ALENTR2(1),QR2 [J IF LESS THAN WRITE LENGTH-2 15 3Y9G ... LDX 3 ALENTR2(1) [ELSE RESET 4 3Y#G ...QR2 10 3YCG ... STO 3 ACOMMUNE6(2) 4 3YGG ...# 15 3YKG ... LDX 3 ACOMMUNE1(2) [READ ADDR 16 3YNG ... ADX 3 ACOMMUNE3(2) [+MOVE LENGTH-1 10 3YRG ... STO 3 ACOMMUNE4(2) 4 3YWG ...# 15 3Y_G ... LDX 3 ASTR2(1) [WRITE ADDR-2 10 3_4G ... STO 3 ACOMMUNE5(2) 4 3_7G ...# 15 3_=G ... LDX 3 ASTR(1) [WRITE ADDR-1 10 3_*G ... STO 3 ACOMMUNE2(2) 8 3_F= R3 LDX 1 FX1 18 3_YW BZE 0 R4 [BRANCH IF SAME LENGTH 8 42DG BPZ 0 R5 7 42QX ... NGX 0 0 9 435# ... ORS 0 AWORK3(2) 15 43CQ BRN R4 [READ REPLY 21 43XB ...R5 LDCT 4 #100 [WRITE>READ - SET LONGBLOCK BIT IN 9 44C2 ... ORS 4 AWORK3(2) 7 45B= ADX 4 0 19 45TW ... ORS 4 AWORK4(2) [STORE REM CT IN WRITE REPLY 18 46T6 R4 FINDACTFB 1,2,APET,,,BPTR [X1=PTR TO THIS END'S PCA 7 47#Q LDX 3 2 9 47SB SBX 3 AWORK1(2) 10 48#2 LDX 3 ARINGEL+1(3) 9 48RL SBN 3 ARINGEL 6 49?= #SKIP IPCG4 4 49QW ( 20 4==G HUNT2 2,ADATA,HLOCKDOWN,3 [FIND LOCKDOWN BLOCK AFTER STORED 8 4=JX ... SMO FX2 17 4=X# ... STO 2 AWORK2 [TRANSFER'S OLPA 8 4?9Q LDX 2 FX2 4 4?PB ) 19 4#92 FINDACTFB 3,,APET,,,BPTR [X3=PTR TO OTHER END'S PCA 9 4#NL TRACE 3,TRAPET 10 4#S5 ... LDX 7 ALINDIR(2) 8 4#XJ ... SBN 7 #400 4 4*33 ...# 14 4*6G ...# NOW X1=PTR TO THIS ENDS PCA 14 4*9_ ...# X3=PTR TO OTHER ENDS PCA 14 4**D ...# SWAP SO X4=PTR TO READERS PCA 14 4*DX ...# X3=PTR TO WRITERS PCA 18 4*JB ... BNZ 7 QP1 [J IF THIS END READING 11 4*MT ...# THIS END WRITING 7 4*R# ... LDX 4 3 7 4*WR ... LDX 3 1 8 4B2= ... BRN QP2 11 4B5P ...# THIS END READING 4 4B98 ...QP1 7 4B#M ... LDX 4 1 4 4BD6 ...# 13 4BHK ...# NOW PERFORM TRANSFER(S) 11 4BM4 ...# 2 FOR MODE *21 14 4BQH ...# AS SPECIFIED IN ACOMMUNE1-6 4 4BW2 ...# 11 4B_F ...# ACOMMUNE6=0 IF 11 4C4Y ...# 1)NOT MODE *21 16 4C8C ...# 2)MODE *21 SECOND TRANSFER COMPLETED 4 4C?W ...# 4 4CC* ...# 14 4CGS ...# SET DETAILS FOR FIRST MOVE 4 4CL? ...QP2 13 4CPQ ... TRACE 2,IPCTMVE1 [FX2 14 4CT9 ... LDX 7 ACOMMUNE3(2) [LENGTH 15 4CYN ... LDX 5 ACOMMUNE2(2) [WRITE ADDR 15 4D47 ... LDX 6 ACOMMUNE1(2) [READ ADDR 8 4D7L ... BRN QP8 4 4D?5 ...# 4 4DBJ ...QP6 14 4DG3 ... LDX 7 ACOMMUNE6(2) [LENGTH 19 4DKG ... BZE 7 QP9 [J IF DONE OR NOT MODE *21 4 4DN_ ...# 15 4DSD ...# SET DETAILS FOR SECOND TRANSFER 13 4DXX ... TRACE 2,IPCTMVE2 [FX2 15 4F3B ... LDX 5 ACOMMUNE5(2) [WRITE ADDR 15 4F6T ... LDX 6 ACOMMUNE4(2) [READ ADDR 16 4F=# ... STOZ ACOMMUNE6(2) [ZERO FOR DONE 4 4F*R ...# 4 4FF= ...QP8 16 4FJP ... TRACE 6,IPCTPREM [LENGTH OF MOVE 10 4FN8 ... PROGMOVE 3,5,4,6,7 8 4FRM ... BRN QP6 4 4FX6 ...QP9 4 4G2K ...# 13 4G64 ...# NOW X4=PTR TO READERS PCA 13 4G9H ...# X3=PTR TO WRITERS PCA 15 4G*2 ...# SWAP SO X1=PTR TO THIS ENDS PCA 15 4GDF ...# X3=PTR TO OTHER ENDS PCA 10 4GHY ... LDX 7 ALINDIR(2) 8 4GMC ... SBN 7 #400 18 4GQW ... BNZ 7 QZ1 [J IF THIS END READING 11 4GW* ...# THIS END WRITING 7 4G_S ... LDX 1 3 7 4H5? ... LDX 3 4 13 4H8Q ... LDN 5 AWORK3(2) [READ REP 15 4H#9 ... LDN 4 AWORK4(2) [WRITE REP 8 4HCN ... BRN QZ2 11 4HH7 ...# THIS END READING 4 4HLL ...QZ1 7 4HQ5 ... LDX 1 4 13 4HTJ ... LDN 5 AWORK4(2) [WRITE REP 13 4H_3 ... LDN 4 AWORK3(2) [READ REP 4 4J4G ...QZ2 4 4J7_ ...# 4 4J?D ...# 21 4JBX ... LDX 7 AWORK2(2) [PTR TO LOCKDOWN AFTER STORED TRANSFERS OLPA 9 4JGL RM SMO AWORK1(2) 10 4K2= LDX 0 ARINGEL(2) 9 4KFW # GIVE REPLY TO PROGRAM 7 4K_G SMO 0 9 4LF6 LDX 6 AREPPTR 7 4LYQ LDN 2 1 12 4MDB FINMOVE 3,6,5,2,HLOCKB1,7,1 6 4MY2 #SKIP IPCG4 12 4NCL ... CLEARALL 3,0,7 [FREE LOCKS 8 4NX= SMO FX2 9 4PBW LDX 5 EVENT2 7 4PWG ADN 5 1 11 4QB6 FINMOVE 1,5,4,2,HLOCK1,,1 6 4QTQ #SKIP IPCG4 10 4R*B ... CLEAR 1,0,HLOCK1,,2 9 4RT2 TRACE 5,TRREPUP 5 4RWC ...#SKI G4 4 4RXS ...( 8 4R_9 ... SMO FX2 9 4S2L ... LDX 2 ALINDIR 8 4S43 ... SBN 2 #400 8 4S5D ... BNZ 2 PZ1 12 4S6T ... MHUNTW 2,ADATA,HLOCKDOWN 9 4S8= ... CLEARALL 1,0,2 4 4S9M ...PZ1 4 4S?4 ...) 8 4S#L LDX 2 FX2 21 4SS= # FOR BOTH ENDS OF LINK CLEAR CHANNEL BUSY BIT AND REACTIVATE PROGRAM 9 4T?W SMO AWORK1(2) 10 4TRG LDX 7 ARINGEL(2) 7 4W?6 SMO 7 9 4WQQ STOZ ASTATUS1 7 4X=B SMO 7 9 4XQ2 STOZ ASTATUS2 7 4Y9L CCBB 2 9 4YP= LDX 0 AWORK1(2) 7 4_8W SBX 2 0 10 4_NG LDX 1 ARINGEL+1(2) 7 5286 ADX 2 0 9 52MQ SBN 1 ARINGEL 7 537B CCBB 1 7 53M2 SMO 7 9 546L LDX 4 ASTMEL 10 54L= TICKLE JOBNO(1),4 9 555W LDX 3 EVENT1(2) 10 55KG LDX 3 ARM1-AFW1(3) 8 5656 SRL 3 18 10 56JQ TICKLE JOBNO(2),3 5 574B RX UP 4 57J2 # 4 583L # 10 58H= MENDAREA 100,K100TRIPB 4 592W # 4 59GG # 4 5=26 #END 8 ____ ...34211561002400000000