{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: MACROS SHFS)}}
====== MACROS SHFS ======
(George Source)
22FL #
22^= #
23DW #
23YG # MACROS SHFS IS FOR SHARED FILESTORE TRANSFER MACROS.
24D6 # IT CONTAINS THE FOLLOWING MACROS :
24XQ #
25CB #
25X2 [??? TRANSBEG SECT FILE FGN 1 DOC
26BL #
26W= [??? TRANSBEX SECT FILE FGN 1 DOC
27*W #
27TG [??? TRANSA SECT FILE FGN 1 DOC
28*6 #
28SQ [??? TRANSB SECT FILE FGN 1 DOC
29#B #
29S2 [??? TRANSFIN SECT FILE FGN 1 DOC
2=?L #
2=R= [??? ALIEN SECT FILE FGN 1 DOC
2?=W #
2?QG [??? NOTALIEN SECT FILE FGN 1 DOC
2#=6 #
2#PQ [??? JNESTED SECT FILE FGN 1 DOC
2*9B #
2*P2 [??? TRANCHK SECT FILE FGN 1 DOC
2B8L #
2BN= [??? TRANCHKN SECT FILE FGN 1 DOC
2C7W #
2CMG [??? TRANSRET SECT FILE FGN 1 DOC
2D76 #
2DLQ [??? FSHTABLE SECT FILE FGN 1 DOC
2F6B #
2FL2 [??? FSHACTNO SECT FILE FGN 1 DOC
2G5L #
2GK= [??? FSHACTPR SECT FILE FGN 1 DOC
2H4W #
2HJG [??? FSHKILL SECT FILE FGN 1 DOC
2J46 #
2JHQ [??? TRANSACT SECT FILE FGN 1 DOC
2K3B #
2KH2 [??? TESTUNPR SECT FILE FGN 1 DOC
2L2L [
2LG= [??? TESTPAIR SECT FILE FGN 1 DOC
2L^W [
2MFG [??? TRANSIDC SECT FILE FGN 1 DOC
2MH9 ...[
2MJY ...[??? TRANSFRZ SECT FILE FGN 1 DOC
2MLM ...[
2MNB ...[??? TRANSFRE SECT FILE FGN 1 DOC
2MQ5 ...[
2MRS ...[??? TRANSET SECT FILE FGN 1 DOC
2MTH ...[
2MX= ...[??? TRANSEND SECT FILE FGN 1 DOC
2MXL ...[
2MY2 ...[??? FSHACCWK SECT FILE FGN 1 DOC
2MYB ...[
2MYQ ...[??? TRANSDIE SECT FILE FGN 1 DOC
2M^6 #
2NDQ #
2NYB #
2PD2 #
2PXL #
2QC= [??? TRANSBEG SECT FILE FGN 1 DOC
2QWW #MAC TRANSBEG
2RBG CALL 1 (FSHSTPARAM)
2RW6 #STR OWNFSHREQ,%A
2S*Q #STR
2STB +FSHOWNSHREQ
2T*2 #STR OWNFSHREQ,%A
2TSL +%A^FSHZ%H^FSHZ%I^FSHZ%J^FSHZ%K
2W#= #STR %D
2WRW (
2X?G #STR %D,NOBLOCKS
2XR6 #FID 0,11,%E+%D
2Y=Q #STR %D,NOBLOCKS
2YQB #STR
2^=2 #FID 0,11,FSHNOBLOCKS+FSH
2^PL )
329= LINK %B,%C
32NW #SKI %F-ACOMMUNE1>7-7
338G ! PARAMETER F IS OUT OF RANGE
33N6 #SKI %F-ACOMMUNE1>7-7
347Q #SKI
34MB #DEF MTRANSBEG=%F-ACOMMUNE1
3572 +MTRANSBEG
35LL #STR %G
366= BRN %G
36KW #STR %G
375G #STR
37K6 BRN (GEOERR)
384Q #SKI +MTRANSBEG
38JB #SKI
3942 DOWN FSHTRANA,10
39HL #SKI +MTRANSBEG-1
3=3= #SKI
3=GW DOWN FSHTRANA,11
3?2G #SKI +MTRANSBEG-2
3?G6 #SKI
3?^Q DOWN FSHTRANA,12
3#FB #SKI +MTRANSBEG-3
3#^2 #SKI
3*DL DOWN FSHTRANA,13
3*Y= #SKI +MTRANSBEG-4
3BCW #SKI
3BXG DOWN FSHTRANA,14
3CC6 #SKI +MTRANSBEG-5
3CWQ #SKI
3DBB DOWN FSHTRANA,15
3DW2 #SKI +MTRANSBEG-6
3F*L #SKI
3FT= DOWN FSHTRANA,16
3G#W #SKI +MTRANSBEG-7
3GSG #SKI
3H#6 DOWN FSHTRANA,17
3HRQ #FRE MTRANSBEG
3J?B #NOR
3JR2 [??? TRANSBEX SECT FILE FGN 1 DOC
3K=L #MAC TRANSBEX
3KQ= #SKI %A
3L9W LDX 0 %A
3LPG ADX 0 %C
3M96 LDX 1 %B
3MNQ LDX 2 FX2
3N8B #SKI %D-ACOMMUNE1>7-7
3NN2 ! PARAMETER D IS OUT OF RANGE
3P7L #SKI %D-ACOMMUNE1>7-7
3PM= #SKI
3Q6W #DEF MTRANSBEX=%D-ACOMMUNE1
3QLG STO 0 %D(2)
3R66 STO 1 %D+1(2)
3RKQ #STR %E
3S5B JBC %E,,FSHRUNNING
3SK2 #STR %E
3T4L #STR
3TJ= JBC (GEOERR),,FSHRUNNING
3W3W #SKI +MTRANSBEX
3WHG #SKI
3X36 DOWN FSHTRANA,10
3XGQ #SKI +MTRANSBEX-1
3Y2B #SKI
3YG2 DOWN FSHTRANA,11
3Y^L #SKI +MTRANSBEX-2
3^F= #SKI
3^YW DOWN FSHTRANA,12
42DG #SKI +MTRANSBEX-3
42Y6 #SKI
43CQ DOWN FSHTRANA,13
43XB #SKI +MTRANSBEX-4
44C2 #SKI
44WL DOWN FSHTRANA,14
45B= #SKI +MTRANSBEX-5
45TW #SKI
46*G DOWN FSHTRANA,15
46T6 #SKI +MTRANSBEX-6
47#Q #SKI
47SB DOWN FSHTRANA,16
48#2 #SKI +MTRANSBEX-7
48RL #SKI
49?= DOWN FSHTRANA,17
49QW #FRE MTRANSBEX
4==G #NOR
4=Q6 [??? TRANSA SECT FILE FGN 1 DOC
4?9Q #MAC TRANSA
4?PB FSHCODE A,MTRANSA1
4#92 (
4#NL TRANSBEG %A^FSHZNEST,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K
4*8= MTRANSA1
4*MW )
4B7G FSHCODE B,MTRANSA2
4BM6 (
4C6Q TRANSBEG %A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K
4CLB MTRANSA2
4D62 )
4DKL #NOR
4F5= [??? TRANSB SECT FILE FGN 1 DOC
4FJW #MAC TRANSB
4G4G FSHCODE B,MTRANSB1
4GJ6 (
4H3Q TRANSBEG %A^FSHZNEST,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K
4HHB MTRANSB1
4J32 )
4JGL FSHCODE A,MTRANSB2
4K2= (
4KFW TRANSBEG %A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K
4K^G MTRANSB2
4LF6 )
4LYQ #NOR
4MDB [??? TRANSFIN SECT FILE FGN 1 DOC
4MY2 #MAC TRANSFIN
4NCL #STR ALIEN,%C
4NX= #STR
4PBW NOTALIEN MTRANSFIN
4PWG MHUNTW 1,FSH,FSHREQ
4QB6 #STR %A
4QTQ STO %A FSHOFFSET(1)
4R*B #STR %A
4RT2 #STR
4S#L STOZ FSHOFFSET(1)
4SS= #STR AUT,%B
4T?W #STR
4TRG BS 1,FSHAUTOTRAN
4W?6 DOWN FSHTRANA,20
4WQQ MTRANSFIN
4X=B #NOR
4XQ2 [??? ALIEN SECT FILE FGN 1 DOC
4Y9L #MAC ALIEN
4YP= #STR %B
4^8W JBS %A,%B,FSHALIEN
4^NG #STR %B
5286 #STR
52MQ JBS %A,FX2,FSHALIEN
537B #NOR
53M2 [??? NOTALIEN SECT FILE FGN 1 DOC
546L #MAC NOTALIEN
54L= #STR %B
555W JBC %A,%B,FSHALIEN
55KG #STR %B
5656 #STR
56JQ JBC %A,FX2,FSHALIEN
574B #NOR
57J2 [??? JNESTED SECT FILE FGN 1 DOC
583L #MAC JNESTED
58H= STO 1 GEN0
592W MHUNTW 1,FSH,FSHREQ
59GG LF 1,FSHNESTCT,0
5=26 LDX 1 GEN0
5=FQ BNZ 0 %A
5=^B #NOR
5?F2 [??? TRANCHK SECT FILE FGN 1 DOC
5?YL #MAC TRANCHK
5#D= HUNT 1,FSH,FSHREQ
5#XW #STR %D
5*CG BNG 1 %D
5*X6 #DEF MTC%B=1
5BBQ LF 1,FSHCODENUM,0
5BWB #UNS MTCEQUAL
5CB2 (
5CTL SBN 0 %A
5D*= LDX 1 FX1
5DSW BZE 0 %C
5F#G )
5FS6 #UNS MTCGREATER
5G?Q (
5GRB NGX 0 0
5H?2 ADN 0 %A
5HQL LDX 1 FX1
5J== BNG 0 %C
5JPW )
5K9G #UNS MTCLESS
5KP6 (
5L8Q SBN 0 %A
5LNB LDX 1 FX1
5M82 BNG 0 %C
5MML )
5N7= #FRE MTCEQUAL,MTCLESS,MTCGREATER
5NLW #NOR
5P6G [??? TRANCHKN SECT FILE FGN 1 DOC
5PL6 #MAC TRANCHKN
5Q5Q HUNT 1,FSH,FSHREQ
5QKB #STR %D
5R52 BNG 1 %D
5RJL #DEF MTC%B=1
5S4= LF 1,FSHCODENUM,0
5SHW #UNS MTCEQUAL
5T3G (
5TH6 SBN 0 %A
5W2Q LDX 1 FX1
5WGB BNZ 0 %C
5X22 )
5XFL #UNS MTCGREATER
5X^= (
5YDW NGX 0 0
5YYG ADN 0 %A
5^D6 LDX 1 FX1
5^XQ BPZ 0 %C
62CB )
62X2 #UNS MTCLESS
63BL (
63W= SBN 0 %A
64*W LDX 1 FX1
64TG BPZ 0 %C
65*6 )
65SQ #FRE MTCEQUAL,MTCLESS,MTCGREATER
66#B #NOR
66S2 [??? TRANSRET SECT FILE FGN 1 DOC
67?L #MAC TRANSRET
67R= LDX 2 FX2
68=W LDX 0 ATYPE(2)
68QG SRL 0 12
69=6 SBN 0 IPCA+FSHARED
69PQ BZE 0 MTRANSRET
6=9B GEOERR 1,WRONGACT
6=P2 MTRANSRET
6?8L ACROSS FSHTRANC,2
6?N= #NOR
6#7W [??? FSHTABLE SECT FILE FGN 1 DOC
6#MG #MAC FSHTABLE
6*76 #STR MOVEAREA,%A
6*LQ #STR
6B6B (
6BL2 #UNS MTABY
6C5L (
6CK= #SKI %C>127-127
6D4W ! PARAMETER C IS OUT OF RANGE
6DJG #SKI %C>127-127
6F46 #SKI
6FHQ (
6G3B %C:%B
6GH2 #DEF 21?=21?+1
6H2L #DEF 22?=22?+%C
6HG= )
6H^W )
6JFG #UNS MTABY
6J^6 #SKI
6KDQ ! PREVIOUS 'BLOCKTYPE' FAILED/MISSING
6KYB #EXI
6LD2 )
6LXL #STR MASKAREA,%A
6MC= #STR
6MWW (
6NBG #UNS MTABY
6NW6 (
6P*Q #SKI %C>127-127
6PTB ! PARAMETER C IS OUT OF RANGE
6Q*2 #SKI %C>127-127
6QSL #SKI
6R#= (
6RRW #200+%C:%B
6S?G #DEF 21?=21?+1
6SR6 #DEF 22?=22?+1
6T=Q )
6TQB )
6W=2 #UNS MTABY
6WPL #SKI
6X9= ! PREVIOUS 'BLOCKTYPE' FAILED/MISSING
6XNW #EXI
6Y8G )
6YN6 #STR BLOCKTYPE,%A
6^7Q #STR
6^MB (
7272 #UNS MTABX
72LL (
736= #FRE MTABY
73KW #SKI %B>3-3
745G ! PARAMETER B IS OUT OF RANGE
74K6 #SKI %B>3-3
754Q #SKI
75JB (
7642 #400+%B:0
76HL #DEF 21?=21?+1
773= #DEF MTABY=1
77GW )
782G #EXI
78G6 )
78^Q #UNS MTABX
79FB #SKI
79^2 ! PREVIOUS 'NEWENTRY' FAILED/MISSING
7=DL #EXI
7=Y= )
7?CW #STR NEWENTRY,%A
7?XG #STR
7#C6 (
7#WQ #UNS MTABX
7*BB (
7*W2 #DEF 20?=20?+21?
7B*L #DEF 23?=0?
7BT= #TRA MTABX
7C#W +21?
7CSG #TRA MTABX+2
7D#6 +22?
7DRQ #UNS MTABZ
7F?B #DEF TABASELEN=22?
7FR2 #FRE MTABZ
7G=L #TRA 23?
7GQ= #FRE MTABX
7H9W )
7HPG #DEF 21?=3
7J96 #DEF 22?=0
7JNQ #UNS TABASELEN
7K8B #DEF 22?=+TABASELEN
7KN2 #DEF MTABX=0?
7L7L +0
7LM= #STR %B
7M6W (
7MLG #HAL %C+%B,0
7N66 +0
7NKQ )
7P5B #STR %B
7PK2 #STR
7Q4L (
7QJ= #UNS TABASELEN
7R3W ! BASIC ENTRY ALREADY COMPILED
7RHG +0,+0
7S36 #DEF MTABZ=1
7SGQ )
7T2B #FRE MTABY
7TG2 #EXI
7T^L )
7WF= #STR INITIALISE,%A
7WYW #STR
7XDG (
7XY6 #FRE TABLEN,TABLE,TABASELEN,MTABX,MTABY,MTABZ
7YCQ #DEF 20?=0
7YXB #DEF 21?=3
7^C2 #DEF 22?=0
7^WL #DEF TABLEN=0?
82B= +0
82TW #DEF TABLE=0?
83*G #EXI
83T6 )
84#Q #STR ENDTABLE,%A
84SB #STR
85#2 (
85RL #DEF 23?=0?
86?= #UNS MTABX
86QW (
87=G #DEF 20?=20?+21?
87Q6 #TRA MTABX
889Q +21?
88PB #TRA MTABX+2
8992 +22?
89NL )
8=8= #TRA TABLEN
8=MW +20?
8?7G #TRA 23?
8?M6 #FRE MTABX,MTABY
8#6Q )
8#LB #NOR
8*62 [??? FSHACTNO SECT FILE FGN 1 DOC
8*KL #MAC FSHACTNO
8B5= STO 1 GEN0
8BJW LDX 1 FSHINPTR
8C4G BZE 1 MFSHACTNO4
8CJ6 LDX 1 FSHRINGA+BPTR(1)
8D3Q LDX 1 BPTR(1)
8DHB SBN 1 FSHRINGA
8F32 LDX 0 FSHMARKPTR(1)
8FGL BZE 0 MFSHACTNO3
8G2= ADN 0 FSHMARKLIST(1)
8GFW STO 0 GEN1
8G^G LDX 0 %A
8HF6 MFSHACTNO1
8HYQ #STR %C
8JDB BXE 0 FSHMARKLIST+1(1),MFSHACTNO2
8JY2 #STR %C
8KCL #STR
8KX= BXE 0 FSHMARKLIST(1),MFSHACTNO2
8LBW ADN 1 FSHMARKELEM
8LWG BXU 1 GEN1,MFSHACTNO1
8MB6 MFSHACTNO4
8MTQ LDN 0 0
8N*B BRN MFSHACTNO3
8NT2 MFSHACTNO2
8P#L #STR %C
8PS= LDX 0 FSHMARKLIST(1)
8Q?W #STR %C
8QRG #STR
8R?6 LDX 0 FSHMARKLIST+1(1)
8RQQ MFSHACTNO3
8S=B LDX 1 GEN0
8SQ2 #SKI %B
8T9L LDX %B 0
8TP= #NOR
8W8W [??? FSHACTPR SECT FILE FGN 1 DOC
8WNG #MAC FSHACTPR
8X86 DOWN FSHTRANC,5
8XMQ #STR %A
8Y7B #STR
8YM2 BRN (GEOERR)
8^6L #STR %A
8^L= BRN %A
925W #NOR
92KG [??? FSHKILL SECT FILE FGN 1 DOC
9356 #MAC FSHKILL
93JQ TRANSBEG FSHNOID,SUICIDE,1,NOBLOCKS,,ACOMMUNE1,M1FSHKILL,AUT
944B DOWN FSHTRANC,4
94J2 M1FSHKILL
953L #NOR
95H= [??? TRANSACT SECT FILE FGN 1 DOC
962W #MAC TRANSACT
96GG LDX 2 FX2
9726 CALL 1 M1TRANSACT
97FQ LINK %A,%B
97^B M1TRANSACT
98F2 LDX 0 0(1)
98YL STO 0 ACOMMUNE3(2)
99D= LDN 4 0
99XW #STR %E
9=CG (
9=X6 BS 2,FSHALIEN
9?BQ ORN 4 1
9?WB )
9#B2 #STR %E
9#TL #STR
9**= (
9*SW NOTALIEN M2TRANSACT,2
9B#G ORN 4 1
9BS6 M2TRANSACT
9C?Q )
9CRB TRANSBEG FSHTRANSACT,FSHTRANC,3,%C,%D,ACOMMUNE1,%F,GETACT
9D?2 #NOR
9DQL [??? TESTUNPR SECT FILE FGN 1 DOC
9F== #MAC TESTUNPR
9FPW #STR %B
9G9G JBC %A,%B,FSHNOTJOBNO
9GP6 #STR %B
9H8Q #SKI
9HNB JBC %A,FX2,FSHNOTJOBNO
9J82 #NOR
9JML #
9K7= [??? TESTPAIR SECT FILE FGN 1 DOC
9KLW #MAC TESTPAIR
9L6G #STR %B
9LL6 JBS %A,%B,FSHNOTJOBNO
9M5Q #STR %B
9MKB #SKI
9N52 JBS %A,FX2,FSHNOTJOBNO
9NJL #NOR
9P4= #
9PHW [??? TRANSIDC SECT FILE FGN 1 DOC
9Q3G #MAC TRANSIDC
9QH6 HUNTW 1,FSH,FSHREQ
9R2Q BNG 1 M1TRANSIDC
9RGB LF 1,FSHCODENUM,0
9S22 SBN 0 %A
9SFL BNZ 0 M1TRANSIDC
9S^= LDN 2 %B
9TDW STF 1,FSHCODENUM,2
9TYG TRACE FSHCODEID(1),TRANSIDC
9WD6 M1TRANSIDC
9WXQ LDX 1 FX1
9XCB LDX 2 FX2
9XX2 #NOR
9YBL ...[??? TRANSFRZ SECT FILE FGN 1 DOC
9YW= ...#MAC TRANSFRZ
9^*W ...M1TRANSFRZ
9^TG ... POP M1TRANSFRZ,,FSHCHAIN
=2*6 ...#NOR
=2SQ ...[??? TRANSFRE SECT FILE FGN 1 DOC
=3#B ...#MAC TRANSFRE
=3S2 ... MFREE FSH,FSHREQ
=4?L ... MFREE FSH,FSHTERM
=4R= ...#NOR
=5=W ...[??? TRANSET SECT FILE FGN 1 DOC
=5QG ...#MAC TRANSET
=6=6 ... SMO FX2
=6PQ ... LDN 2 ACOMMUNE8
=79B ... CALL 1 MTRANSET1
=7P2 ... +%A^FSHZAUT^FSHZSUP
=88L ... LINK %B,%C
=8N= ...MTRANSET1
=97W ... MOVE 1 2
=9MG ... DOWN FSHTRANA,33
==76 ...#NOR
==LQ ...[??? TRANSEND SECT FILE FGN 1 DOC
=?6B ...#MAC TRANSEND
=?L2 ...#STR %A
=#5L ... JBC %A,,FSHRUNNING
=#K= ...#STR %A
=*4W ...#STR
=*JG ... JBC (GEOERR),,FSHRUNNING
=B46 ... HUNTW 1,FSH,FSHREQX
=BHQ ...#STR %A
=C3B ... BNG 1 %A
=CH2 ...#STR %A
=D2L ...#STR
=DG= ... BNG 1 (GEOERR)
=D^W ... NAME 1,FSH,FSHREQ
=FFG ... LDX 2 FSHINPTR
=F^6 ... CHAIN 1,BPTR(2)
=GDQ ...#NOR
=GYB ...[??? FSHACCWK SECT FILE FGN 1 DOC
=HD2 ...#MAC FSHACCWK
=HXL ... DOWN FSHTRAND,11
=JC= ...#NOR
=JWW ...[??? TRANSDIE SECT FILE FGN 1 DOC
=KBG ...#MAC TRANSDIE
=KW6 ... ACROSS FSHTRANF,1
=L*Q ...#NOR
=LTB ...#
^^^^ ...255770240137