{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: GETNO865)}}
====== GETNO865 ======
(George Source)
**Macros used:** [[george:macro:ADDRELT|ADDRELT]], [[george:macro:ALTLENR|ALTLENR]], [[george:macro:BBS|BBS]], [[george:macro:BXE|BXE]], [[george:macro:BXL|BXL]], [[george:macro:BXU|BXU]], [[george:macro:CCBB|CCBB]], [[george:macro:CHAIN|CHAIN]], [[george:macro:CLEARALL|CLEARALL]], [[george:macro:COOR2P|COOR2P]], [[george:macro:DECLINK|DECLINK]], [[george:macro:DERING|DERING]], [[george:macro:EMPTY|EMPTY]], [[george:macro:FINDACTFB|FINDACTFB]], [[george:macro:FINMOVE|FINMOVE]], [[george:macro:FPUT|FPUT]], [[george:macro:FREECORE|FREECORE]], [[george:macro:GDISREP|GDISREP]], [[george:macro:GEOERR|GEOERR]], [[george:macro:HUNT2|HUNT2]], [[george:macro:HUNT2B|HUNT2B]], [[george:macro:HUNT2J|HUNT2J]], [[george:macro:JDISENG|JDISENG]], [[george:macro:JIPCM|JIPCM]], [[george:macro:LOCK|LOCK]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MFREE|MFREE]], [[george:macro:MURDER|MURDER]], [[george:macro:QTASK|QTASK]], [[george:macro:RINGACT|RINGACT]], [[george:macro:RINGTWO|RINGTWO]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:STOPHANGER|STOPHANGER]], [[george:macro:TELEST|TELEST]], [[george:macro:TICKLE|TICKLE]], [[george:macro:TRACE|TRACE]], [[george:macro:TRAST|TRAST]], [[george:macro:UNLOCK|UNLOCK]], [[george:macro:UP|UP]]
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