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