11 22FL SEG GETNO,,J.R.BAILEY 4 22_= # 11 23DW SEGENTRY K1GETNO,X1GETNO 11 23YG SEGENTRY K3GETNO,X3GETNO 11 24D6 SEGENTRY K4GETNO,X4GETNO 11 24XQ SEGENTRY K5GETNO,X5GETNO 11 25CB SEGENTRY K8GETNO,X8GETNO 4 25X2 # 9 26BL STH LDX 2 ALINUM(3) 8 26W= ANDN 2 #7777 8 27*W STOPHANGER 2 7 27TG EXIT 4 0 5 28*6 X1GETNO 9 28SQ # ENTERED BY GETNO MACRO 6 29#B #SKIP IPCV4 7 29S2 LDN 5 0 13 2=?L P1 FINDACTFB 1,FX2,IPCA,INTERN,,BPTR 9 2=R= TRACE 1,PTRIPCA 18 2?=W LDX 4 ALTSTACK(1) [GO TO SLEEP IF IPSTACK 16 2?QG BZE 4 P2 [BEING ALTERED 6 2#=6 ... COOR2P 8 2#PQ BRN P1 7 2*9B P2 LDN 4 1 10 2*P2 STO 4 ALTSTACK(1) 18 2B8L LDX 7 FRELINUM(1) [LEAST FREE LINK NUMBER 19 2BN= BNZ 7 P3 [SET ZERO REPLY IF ALL LINK 16 2C7W STOZ ACOMMUNE1(2) [NUMBERS IN USE 8 2CMG BRN P9 12 2D76 P3 HUNT2B 3,IPCD,IPSTACK,FX2 20 2DLQ ALTLENR 3,4 [LENGTHEN IPSTACK 1 RING ELEMENT 9 2F6B TRACE 4,ADDREC 12 2FL2 HUNT2B 3,IPCD,IPSTACK,FX2 10 2G5L SMO ALOGLEN(3) 8 2GK= LDN 4 A1 9 2H4W SBN 4 ARECLEN 7 2HJG ADX 4 3 19 2J46 ADDRELT 3,NULL [RING NEW ELEMENT TO ITSELF 7 2J9# ... SMO 4 9 2JBG ... STOZ ASTATUS2 7 2JHQ SMO 4 17 2K3B STO 7 ALINUM [INSERT LINK NUMBER 7 2KH2 SMO 4 9 2L2L STOZ ATIMCT 7 2LG= LDN 6 1 7 2L_W ADX 6 7 8 2MFG BNZ 5 P10 9 2M_6 ... SEGENTRY IPCLIMB 8 2NDQ ... LDN 5 #7776 7 2NYB P10 ADN 5 1 17 2PD2 SBX 6 5 [LAST LINK JUST USED? 8 2PXL BNG 6 P4 17 2QC= LDN 6 0 [YES - SET FRELINUM=0 8 2QWW BRN P7 7 2RBG P4 ADX 6 5 8 2RW6 LDN 1 A1(3) 9 2S*Q P5 LDX 4 ALINUM(1) 8 2STB ANDN 4 #7777 7 2T*2 TXU 4 6 8 2TSL BCS P6 7 2W#= ADN 6 1 7 2WRW SBX 6 5 8 2X?G BNG 6 P4 16 2XR6 LDN 6 0 [ALL LINKS USED 8 2Y=Q BRN P7 9 2YQB P6 ADN 1 ARECLEN 10 2_=2 SMO ALOGLEN(3) 8 2_PL LDN 4 A1(3) 7 329= TXL 1 4 8 32NW BCS P5 13 338G P7 FINDACTFB 1,FX2,IPCA,INTERN,,FPTR 9 33N6 TRACE 6,LINKNO 20 347Q STO 6 FRELINUM(1) [SET FRELINUM=LOWEST FREE LINK NO 10 34MB P8 STO 7 ACOMMUNE1(2) 21 3572 P9 STOZ ALTSTACK(1) [UNSET 'STACK BEING ALTERED' MARKER 5 35LL UP 5 366= # GETNOG 5 36KW X8GETNO 8 375G LDN 5 #7777 8 37K6 BRN P1 6 384Q # INFIPCA 5 38JB X3GETNO 14 3942 # FIND ELEMENT IN STACK BELONGING TO LINK 10 39HL LDX 3 ACOMMUNE1(2) 11 3=3= HUNT2B 2,IPCD,IPSTACK 9 3=GW LDX 7 BLINO(3) 7 3?2G STO 2 1 8 3?G6 LDN 2 A1(2) 9 3?_Q V1 LDX 0 ALINUM(2) 7 3#FB TXU 0 7 8 3#_2 BCC V2 9 3*DL ADN 2 ARECLEN 10 3*Y= SMO ALOGLEN(1) 9 3BCW LDN 4 A1-1(1) 7 3BXG TXL 4 2 8 3CC6 BCC V1 9 3CWQ GEOERR 1,LOSTREC 11 3DBB # RING LINK'S RECORD TO AOLPT 12 3DW2 V2 RINGTWO ARINGEL(3),FPTR(2) 10 3F*L STOZ ASTATUS1(2) 10 3FT= STOZ APTRIPB(2) 10 3G#W STOZ ALTPROG(2) 10 3GSG # MARK LINK NOT ESTABLISHED 8 3H#6 LDX 0 GSIGN 7 3HRQ SRL 0 1 10 3J?B STO 0 ASTATUS2(2) 7 3JR2 LDN 4 1 8 3K=L SLL 4 18 19 3KQ= ORS 4 ASTATUS2(2) [MARK LINK 'OPEN IN PROGRESS' 9 3L9W LDX 0 AREQPR(3) 8 3LPG BPZ 0 V3 7 3M96 SRL 4 2 10 3MNQ ORS 4 ASTATUS2(2) 8 3N8B LDX 0 GSIGN 9 3NN2 ERS 0 AREQPR(3) 4 3P7L V3 13 3PM= # SET UP TASK BLOCK FOR INTERN ACTIVITY 11 3Q6W SETNCORE 6,1,IPCD,ATASK 9 3QLG TRACE 1,GETASK 8 3R66 STO 7 A1(1) 7 3RKQ LDN 0 1 9 3S5B STO 0 A1+1(1) 17 3SK2 # PUT TASK BLOCK ON QUEUE AND WAKE INTERN IF NECESSARY 7 3T4L LDX 7 1 14 3TJ= FINDACTFB 2,FX2,IPCA,HANGER,,BPTR 7 3W3W STO 2 6 8 3WHG CHAIN 7,2 8 3X36 TXU 3 FX2 8 3XGQ BCS XEND 4 3XK* ...V4 9 3XMY ... LDX 3 FPTR(3) 9 3XQH ... LDX 0 ATYPE(3) 9 3XT6 ... BXL 0 CACT,V4 8 3XXP ... SRL 0 12 8 3Y2# ... ANDN 0 #7700 8 3Y4X ... LDN 4 AOLPT 8 3Y7G ... BXE 0 4,V4 7 3Y=8 ... LDX 2 6 9 3YG2 LDX 4 FPTR(2) 8 3Y_L RINGACT 2,3 7 3_F= XNEXT SMO 4 8 3_YW LDX 0 ATYPE 8 42DG TXL 0 CACT 8 42Y6 BCC X2 7 43CQ SMO 4 8 43XB LDX 5 FPTR 9 44C2 CHAIN 4,BPTR(3) 7 44WL LDX 4 5 8 45B= BRN XNEXT 8 45TW X2 LDX 3 FX2 7 46*G XEND LDX 2 6 6 46T6 FPUT 9 47#Q TRACE 2,QTASK 8 47SB TXU 3 FX2 8 48#2 BCC VT1 7 48RL UNLOCK 3 5 49?= VT1 UP 5 49QW # CLINK 5 4==G X4GETNO 10 4=Q6 LDX 3 ACOMMUNE9(2) 10 4?9Q LDX 0 ALINDIR(3) 8 4?PB LDN 4 #1700 7 4#92 TXU 0 4 18 4#NL BCS XT [J IF NOT ENQUIRY LINK 7 4*8= STO 3 6 8 4*MW BRN XGE 11 4B7G XT SETNCORE 2,2,IPCD,ATASK 9 4BM6 SMO AWORK1(3) 10 4C6Q LDX 1 ARINGEL(3) 9 4CLB LDX 5 ALINUM(1) 10 4D62 LDN 6 ARINGEL(3) 8 4DKL STO 5 A1(2) 7 4F5= LDN 0 3 9 4FJW STO 0 A1+1(2) 10 4G4G LDX 1 APTRIPB(1) 8 4GJ6 BNZ 1 XT1 7 4H3Q FREECORE 2 8 4HHB BRN XWMC 4 4J32 XT1 16 4JGL BZE 1 XWMC [BRANCH IF WMC 9 4K2= ... DECLINK CPPTR(1) 9 4KFW STOZ CPPTR(3) 9 4K_G JIPCM DS,XSA,1 10 4LF6 ... JDISENG CPPTR(1),XSA 7 4LYQ LDX 7 2 8 4MDB LOCK FX2 10 4MY2 LDX 3 ARINGEL(3) 7 4NCL DERING 3 8 4NMD ... EMPTY 0(3) 10 4NX= STOZ ASTATUS1(3) 8 4PBW LDCT 0 #200 10 4PWG ORS 0 ASTATUS2(3) 10 4QB6 LDX 1 APTRIPB(3) 8 4QTQ BRN XSC 10 4R*B XSA LDX 3 ARINGEL(3) 7 4RT2 DERING 6 7 4S#L LDX 1 6 8 4SS= EMPTY 0(1) 8 4T?W BRN XSD 8 4TRG ...XSC LDCT 0 #10 10 4W?6 ANDX 0 ASTATUS2(3) 8 4WQQ BZE 0 XSX 8 4X=B CALL 4 STH 10 4XG8 ... LDX 1 APTRIPB(3) 8 4XQ2 XSX QTASK 7,6,1 7 4Y9L UNLOCK 2 8 4YP= BRN XOK1 10 4_8W XS LDX 3 ARINGEL(3) 11 4_NG XSD BBS 5,ASTATUS2(3),XS1 9 52BB ... LDX 1 FPTR(3) 9 52CY ... EMPTY FPTR(1) 9 52FG ... EMPTY FPTR(3) 8 52H4 ... LDN 0 #40 10 52JL ... ORS 0 ASTATUS2(3) 10 52MQ TRACE 0,IPSTSHOR 10 537B MFREE IPCD,ATASK 8 53M2 BRN XX 9 546L XS1 STOZ FPTR(3) 9 54L= STOZ BPTR(3) 10 555W MFREE IPCD,ATASK 8 55KG CALL 4 STH 8 5656 BRN XOK1 8 56JQ XWMC TELEST 0,3 7 574B LDX 2 3 9 57J2 SMO AWORK1(2) 10 583L LDX 3 ARINGEL(2) 7 58H= LDN 4 1 7 592W TXU 0 4 19 59GG BCC XEST [BRANCH IF LINK ESTABLISHED 12 5=26 BBS 5,ASTATUS2(3),XNIM 9 5=N2 ... LDX 1 FPTR(3) 9 5=PJ ... EMPTY FPTR(1) 9 5=R6 ... EMPTY FPTR(3) 8 5=SN ... LDN 0 #40 10 5=W= ... ORS 0 ASTATUS2(3) 8 5=_B BRN XX 4 5?F2 XNIM 8 5?YL CALL 4 STH 7 5#D= XNIMA DERING 6 9 5#XW STOZ FPTR(3) 9 5*CG STOZ BPTR(3) 7 5*X6 LDX 1 6 8 5BBQ EMPTY 0(1) 9 5BWB SBN 6 ARINGEL 8 5CB2 BRN XGE 7 5CTL XEST LDN 0 3 20 5D*= # REMOVE AOLPT OF END BEING CLOSED FROM RING ELEMENT AND LEAVE LINK 17 5DSW # NOT ESTABLISHED WITH JUST DISESTABLISHED MARKER SET 8 5F#G SLL 0 21 10 5FS6 ORS 0 ASTATUS2(3) 9 5G?Q LDX 0 AWORK1(2) 7 5GRB SBX 2 0 10 5H?2 LDX 1 ARINGEL+1(2) 7 5HQL ADX 2 0 9 5J53 ... SBX 3 AWORK1(2) 10 5JCD ... LDX 0 ASTATUS2(3) 7 5JPW ANDN 0 1 9 5K9G SBN 1 ARINGEL 8 5KP6 BZE 0 XOK 7 5L8Q LDN 0 1 10 5LH7 ... ERS 0 ASTATUS2(3) 9 5LTJ ... ADX 3 AWORK1(2) 8 5M82 LDN 0 #240 8 5MML SLL 0 12 9 5N7= STOZ ATIMCT(3) 10 5NLW LDX 4 AREPPTR(3) 9 5P6G LDX 5 ASTMEL(3) 8 5PL6 LDN 3 2*G4 6 5Q5Q #SKIP IPCG4 4 5QKB ( 8 5R52 SMO FX2 9 5RJL STO 6 ACOMMUNE1 21 5S4= HUNT2 2,ADATA,HLOCKDOWN,1 [FIND LOCKDOWN BLOCK AFTER CANCELLED 16 5SHW STO 2 6 [TRANSFER'S OLPA 8 5T3G LDCT 2 #24 4 5TH6 ) 5 5W2Q #SKI G3 10 5WGB LDX 2 APETADDR(1) 7 5X22 LDN 7 1 12 5XFL FINMOVE 2,4,3,7,HLOCKB1,6,1 7 5X_= CCBB 1 7 5YDW STO 1 3 10 5YYG TICKLE JOBNO(3),5 6 5_D6 #SKIP IPCG4 4 5_XQ ( 14 62CB ... CLEARALL APETADDR(3),0,6 [FREE LOCKS 10 62X2 LDX 6 ACOMMUNE1(2) 4 63BL ) 7 63W= LDX 1 3 7 64*W GDISREP 1 7 64TG LDX 1 3 9 65*6 XOK STOZ AWORK1(1) 10 65SQ STOZ IPPROPS(1) 7 66#B DERING 6 7 66S2 LDX 1 6 8 67?L EMPTY 0(1) 9 67R= XOK1 TRACE 6,DERING 9 68=W SBN 6 ARINGEL 8 68QG BRN XGE 15 69=6 # UPDATE NEXT FREE LINK NUMBER IN INTERN BLOCK 9 69PQ XX SBN 6 ARINGEL 21 6*LQ XGE LOCK 6 [MURDER AOLPT OF LINK TO BE CLOSED 7 6B6B MURDER 6 5 6BL2 UP 5 6C5L # CANTR 5 6CK= X5GETNO 11 6D4W # TEST IF A TRANSFER IS STORED 10 6DJG LDX 0 ACOMMUNE9(2) 8 6F46 BNZ 0 TB 7 6FHQ TRAST 6 8 6G3B BPZ 6 TA 10 6GH2 STO 6 ACOMMUNE9(2) 8 6H2L BRN TX 11 6HG= TB TRAST 6,ACOMMUNE9(2) 8 6H_W BPZ 6 TA 19 6JFG # IF NO TRANSFER OR TRANSFER IN PROGRESS SET REPLY AND GO UP. 10 6J_6 STO 6 ACOMMUNE9(2) 8 6KDQ BRN TX 8 6KYB TA BZE 6 TX 10 6LD2 LDX 2 ACOMMUNE9(2) 8 6LXL BNZ 2 TA1 8 6MC= LDX 2 FX2 9 6MWW TA1 SMO AWORK1(2) 10 6NBG LDX 1 ARINGEL(2) 10 6NW6 LDX 3 APTRIPB(1) 8 6P*Q BNZ 3 T1 11 6PTB HUNT2B 3,IPCA,INTERN,2 12 6Q*2 # X3 -> INTERN IF WMC;IPCBX IF IMC 12 6QSL # REMOVE ANY ASSOCIATED TASK BLOCKS 7 6R26 ...T1 LDN 0 1 9 6R7L ... SMO AWORK1(2) 18 6R*6 ... ERX 0 ASTATUS1(1) [CLEAR TRANSFER STORED 9 6RGL ... SMO AWORK1(2) 10 6RN6 ... ANDS 0 ASTATUS1(1) 8 6RTN ... LDX 3 FX2 4 6RXG ...T1XB 12 6R_# ... HUNT2J 3,IPCD,ATASK,,T1XA 11 6S36 ... LDX 0 A1+1(3) [TYPE 7 6S4Y ... SBN 0 2 11 6S6Q ... BZE 0 T1XC [TRANSFER 7 6S8J ... SBN 0 2 12 6S=B ... BNZ 0 T1XB [NOT COND 4 6S#8 ...T1XC 8 6SB2 ... LDX 0 A1(3) 16 6SCS ... BXU 0 ALINUM(1),T1XB [JI IF NOT OURS 7 6SFL ... LDX 5 1 8 6SHD ... FREECORE 3 8 6SK= ... LDX 1 5 8 6SM4 ... BRN T1XB 4 6SNW ...T1XA 8 6SQ2 ... LDX 2 FX2 10 6SR6 LDX 2 ACOMMUNE9(2) 8 6T=Q BNZ 2 TA2 8 6TQB LDX 2 FX2 9 6W=2 TA2 SMO AWORK1(2) 10 6WPL LDX 1 ARINGEL(2) 10 6X9= LDX 5 AREPPTR(1) 15 6XNW # REMOVE DETAILS OF TRANSFER FROM LINK RECORD 9 6Y8G STOZ ATIMCT(1) 9 6YN6 STOZ ALENTR(1) 9 6_7Q STOZ ASTR(1) 10 6_#Y ... STOZ ALENTR2(1) 9 6_G6 ... STOZ ASTR2(1) 10 6_MB STOZ AREPPTR(1) 12 7272 # SET CANCELLED REPLY TO TRANSFER 10 72LL LDX 0 ASTATUS2(1) 7 736= SLL 0 1 8 73KW BPZ 0 TA3 8 745G LDN 0 #240 8 74K6 BRN TA4 8 754Q TA3 LDN 0 #300 8 75JB TA4 SLL 0 12 8 7642 LDN 4 6*G4 7 76HL LDN 7 1 10 773= LDX 3 APETADDR(2) 8 77GW SMO FX2 9 782G STO 6 ACOMMUNE9 6 78G6 #SKIP IPCG4 4 78_Q ( 7 79FB LDX 6 0 21 79_2 HUNT2 1,ADATA,HLOCKDOWN,2 [LOCKDOWN AFTER CANCELLED TR'S OLPA 4 7=DL ) 12 7=Y= FINMOVE 3,5,4,7,HLOCKB1,1,1 6 7?CW #SKIP IPCG4 12 7?XG ... CLEARALL 3,0,1 [FREE LOCKS 18 7#C6 CCBB 2 [CLEAR CHANNEL BUSY BIT 5 7#WQ TX UP 9 7*BB MENDAREA 100,K2GETNO 4 7*W2 #END 8 ____ ...13610412000300000000