(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