{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: MACROS SHFSB)}}
====== MACROS SHFSB ======
(George Source)
22FL #
22^= #
23DW #
23YG # MACROS SHFSB IS FOR MISCELLANEOUS SHARED FILESTORE MACROS.
24D6 # IT CONTAINS THE FOLLOWING MACROS :
24XQ #
25CB #
25X2 [??? BODGECOM SECT FILE FGN 1 DOC
26BL #
26W= [??? NOBOPCM SECT FILE FGN 1 DOC
27*W #
27TG [??? FSHMOVE SECT FILE FGN 1 DOC
28*6 #
28SQ [??? INSBLKS SECT FILE FGN 1 DOC
29#B #
29S2 [??? DELBLKS SECT FILE FGN 1 DOC
2=?L #
2=R= [??? TRANSBICHECK SECT FILE FGN 1 DOC
2?=W #
2?QG [??? FSHPFOUT SECT FILE FGN 1 DOC
2#=6 #
2#PQ [??? FSHPFIN SECT FILE FGN 1 DOC
2*9B #
2*P2 [??? CONSPFIX SECT FILE FGN 1 DOC
2B8L #
2BN= [??? FSHIPS SECT FILE FGN 1 DOC
2C7W [
2CMG [??? FSHIPSHAPE SECT FILE FGN 1 DOC
2D76 [
2DLQ [??? FSHIPCON SECT FILE FGN 1 DOC
2F6B [
2FL2 [??? FSHGTPER SECT FILE FGN 1 DOC
2G5L #
2GK= [??? HUNTJWEL SECT FILE FGN 1 DOC
2H4W #
2HJG [??? FSHTRMC SECT FILE FGN 1 DOC
2HPN ...#
2HWW ...[??? FSHCOPY SECT FILE FGN 1 DOC
2J46 #
2JHQ #
2K3B #
2KH2 #
2L2L [??? BODGECOM SECT FILE FGN 1 DOC
2LG= #MAC BODGECOM
2L^W #STR ON,%A
2MFG #SKI
2M^6 (
2NDQ HIDECOM AM,OFF
2NYB HIDECOM ME,OFF
2PD2 #EXI
2PXL )
2QC= #STR OFF,%A
2QWW #SKI
2RBG (
2RW6 HIDECOM AM
2S*Q HIDECOM ME
2STB #EXI
2T*2 )
2TSL ! %A MUST BE "ON" OR "OFF"
2W#= #NOR
2WRW #
2X?G [??? NOBOPCM SECT FILE FGN 1 DOC
2XR6 #MAC NOBOPCM
2Y=Q FSHCODE AORB
2YQB (
2^=2 #UNS FSHTEST
2^PL #SKI
329= (
32NW FSHSKIP A
338G (
3572 HIDECOM DU
35LL HIDECOM FN
36KW HIDECOM LK
3=3= HIDECCCM DU
3=GW HIDECCCM FN
3?G6 )
3?^Q )
3#FB )
3#^2 #NOR
3*DL #
3*Y= [??? FSHMOVE SECT FILE FGN 1 DOC
3BCW #MAC FSHMOVE
3BXG #STR CANCEL,%A
3CC6 #SKI
3CWQ (
3DBB DOWN FSHMVSTA,7
3DW2 #EXI
3F*L )
3FT= #STR END,%A
3G#W (
3GSG #STR START,%A
3H#6 ! %A MUST BE "START" OR "END" OR "CANCEL"
3HRQ #STR COPY,%B
3J?B #SKI
3JR2 (
3K=L DOWN FSHMVSTA,5
3KQ= #EXI
3L9W )
3LPG #STR %B
3M96 LDX 0 %B
3MNQ #STR %B
3N8B #SKI
3NN2 LDN 0 1
3P7L SMO FX2
3PM= STO 0 ACOMMUNE1
3Q6W DOWN FSHMVSTA,1
3QLG #EXI
3R66 )
3RKQ #STR COPY,%B
3S5B #SKI
3SK2 (
3T4L DOWN FSHMVEND,2
3TJ= #EXI
3W3W )
3WHG DOWN FSHMVEND,1
3X36 #NOR
3XGQ [??? INSBLKS SECT FILE FGN 1 DOC
3Y2B #MAC INSBLKS
3YG2 DOWN FSHBSAL,2
3Y^L #NOR
3^F= [??? DELBLKS SECT FILE FGN 1 DOC
3^YW #MAC DELBLKS
42DG #STR ALLOWFAIL,%A
42Y6 #SKI
43CQ NGN 0 1
43XB #STR %A
44C2 #SKI
44WL LDN 0 0
45B= SMO FX2
45TW STO 0 ACOMMUNE4
46*G DOWN FSHBSAL,1
46T6 #NOR
47#Q [??? TRANSBICHECK SECT FILE FGN 1 DOC
47SB #MAC TRANSBICHECK
48#2 LDCH 0 ATYPE(2)
48RL SBN 0 CPAT/64
49?= BNZ 0 M1BICHECK
49QW JBCC M1BICHECK,2,EXBIAWAY
4==G TRACE 2,TBICHECK
4=Q6 DOWN PROCONTX,22
4?9Q M1BICHECK
4?PB #NOR
4#92 [??? FSHPFOUT SECT FILE FGN 1 DOC
4#NL #MAC FSHPFOUT
4*8= #STR #,%A
4*MW (
4B7G ! PARAMETER 1 MUST BEGIN WITH A '#'
4BM6 #EXI
4C6Q ) [#STR #,%A
4CLB #SKI %A<1$1
4D62 (
4DKL ! PARAMETER 1 MAY NOT BE ZERO
4F5= #EXI
4FJW ) [#SKI %A<1$1
4G4G #DEF 20?=0
4GJ6 #ALT FSHPREFIX=0
4H3Q #ALT FSHPREFIXA=0
4HHB #ALT FSHPREFIXB=0
4J32 FSHSKIP [TEMPORARILY NO PARAMETER 3
4JGL (
4K2= #ALT FSHPREFIX%B=1
4KFW #SKI FSHA&FSHB [INCLUDE IF IN ONE MACHINE ENVIRONMENT
4K^G (
4LF6 #SKI FSHPREFIXA [PARAMETER 3 IS 'A' AND BOTH ENTRIES
4LYQ #DEF 20?=3 [ HAVE BEEN COMPILED IN THIS ENVIRONMENT
4MDB #SKI FSHPREFIXA^FSHPREFIXB<1$1
4MY2 (
4NCL ! PARAMETER 3 MUST BE 'A' OR 'B'
4NX= #EXI
4PBW )
4PWG ) [#SKI FSHA&FSHB
4QB6 #SKI FSHA$FSHB [INCLUDE IF IN TWO MACHINE ENVIRONMENT
4QTQ (
4R*B #SKI FSHPREFIX<1$1
4RT2 ! PARAMETER 3 SHOULD BE NULL
4S#L ) [#SKI FSHA$FSHB
4SS= ) [FSHSKIP (TEMPORARY)
4T?W FSHSKIP [TEMPORARILY NO PARAMETER 3
4TRG #SKI
4W?6 (
4WQQ #SKI FSHA&FSHB
4X=B #ALT FSHPREFIXB=1
4XQ2 #SKI FSHA&FSHB<1$1
4Y9L #ALT FSHPREFIX=1
4YP= )
4^8W #SKI ((FSHA&FSHB)&(FSHPREFIXA^FSHPREFIXB)) ^ ((FSHA$FSHB)&(FSHPREFIX))
4^NG (
5286 #SKI %A�<1$1 [FIRST 3 CHARACTERS ARE ZERO
52MQ (
537B #MEN CONSROOT
53M2 #TRA K60CONSROOT+20? [CHANGE APPROPRIATE ENTRY
546L +%A@L18 [1 CHARACTER PREFIX
54L= +1
555W +#00777777 [MASK OUT FOR PREFIX
55KG #END
5656 #SKI FSHPREFIXB^(FSHA&FSHPREFIX) [ONLY CHANGE ENTRY IN MACHINE A
56JQ (
574B #MEN CANTDO
57J2 #TRA K60CANTDO
583L +%A@L18 [1 CHARACTER PREFIX
58H= +1
592W +#77000000 [MASK FOR PREFIX
59GG #END
5=26 #MEN ABANDONA
5=FQ #TRA K60ABANDONA
5=^B +%A@L18 [1 CHARACTER PREFIX
5?F2 +1
5?YL +#77000000 [MASK FOR PREFIX
5#D= #END
5#XW ) [#SKI FSHPREFIXB^(FSHB&FSHPREFIX)
5*CG #EXI
5*X6 ) [#SKI %A�<1$1
5BBQ #SKI %A�<1$1 [FIRST 2 CHARACTERS ARE ZERO
5BWB (
5CB2 #MEN CONSROOT
5CTL #TRA K60CONSROOT+20? [CHANGE APPROPRIATE ENTRY
5D*= +%A@L12 [2 CHARACTER PREFIX
5DSW +2
5F#G +#00007777 [MASK OUT FOR PREFIX
5FS6 #END
5G?Q #SKI FSHPREFIXB^(FSHA&FSHPREFIX) [ONLY ALTER ENTRY IN MACHINE A
5GRB (
5H?2 #MEN CANTDO
5HQL #TRA K60CANTDO
5J== +%A@L12 [2 CHARACTER PREFIX
5JPW +2
5K9G +#77770000 [MASK FOR PREFIX
5KP6 #END
5L8Q #MEN ABANDONA
5LNB #TRA K60ABANDONA
5M82 +%A@L12 [2 CHARACTER PREFIX
5MML +2
5N7= +#77770000 [MASK FOR PREFIX
5NLW #END
5P6G ) [#SKI FSHPREFIXB^(FSHB&FSHPREFIX)
5PL6 #EXI
5Q5Q ) [#SKI %A�<1$1
5QKB #SKI %A�<1$1 [FIRST CHARACTER IS ZERO
5R52 (
5RJL #MEN CONSROOT
5S4= #TRA K60CONSROOT+20? [CHANGE APPROPRIATE ENTRY
5SHW +%A@L6 [3 CHARACTER PREFIX
5T3G +3
5TH6 +#00000077 [MASK OUT FOR PREFIX
5W2Q #END
5WGB #SKI FSHPREFIXB^(FSHA&FSHPREFIX) [ONLY ALTER ENTRY IN MACHINE A
5X22 (
5XFL #MEN CANTDO
5X^= #TRA K60CANTDO
5YDW +%A@L6 [3 CHARACTER PREFIX
5YYG +3
5^D6 +#77777700 [MASK FOR PREFIX
5^XQ #END
62CB #MEN ABANDONA
62X2 #TRA K60ABANDONA
63BL +%A@L6 [3 CHARACTER PREFIX
63W= +3
64*W +#77777700 [MASK FOR PREFIX
64TG #END
65*6 ) [#SKI FSHPREFIXB^(FSHB&FSHPREFIX)
65SQ #EXI
66#B ) [#SKI %A�<1$1
66S2 #MEN CONSROOT
67?L #TRA K60CONSROOT+20? [CHANGE APPROPRIATE ENTRY
67R= +%A [4 CHARACTER PREFIX
68=W +4
68QG +#00000000 [MASK OUT FOR PREFIX
69=6 #END
69PQ #SKI FSHPREFIXB^(FSHA&FSHPREFIX) [ONLY ALTER ENTRY IN MACHINE A
6=9B (
6=P2 #MEN CANTDO
6?8L #TRA K60CANTDO
6?N= +%A [4 CHARACTER PREFIX
6#7W +4
6#MG +#77777777 [MASK FOR PREFIX
6*76 #END
6*LQ #MEN ABANDONA
6B6B #TRA K60ABANDONA
6BL2 +%A [4 CHARACTER PREFIX
6C5L +4
6CK= +#77777777 [MASK FOR PREFIX
6D4W #END
6DJG ) [#SKI FSHPREFIXB^(FSHB&FSHPREFIX)
6F46 ) [#SKI ((FSHA&FSHB)&(FSHPREFIXA^FSHPREFIXB)) ^
6FHQ [ ((FSHA$FSHB)&(FSHPREFIX))
6G3B #NOR
6GH2 [??? FSHPFIN SECT FILE FGN 1 DOC
6H2L #MAC FSHPFIN
6HG= #SKI FSHA<1$1 [INCLUDE IF NOT COMPILING FOR MACHINE A
6H^W (
6JFG ! PARAMETER 2 ONLY APPLIES IN M/C A
6J^6 #EXI
6KDQ ) [#SKI FSHA<1#1
6KYB #SKI FSHA [INCLUDE IF COMPILING FOR MACHINE A
6LD2 (
6LXL #STR #,%A
6MC= (
6MWW ! PARAMETER 2 MUST BEGIN WITH A '#'
6NBG #EXI
6NW6 ) [#STR #,%A
6P*Q #SKI %A<1$1
6PTB (
6Q*2 ! PARAMETER 2 MAY NOT BE ZERO
6QSL #EXI
6R#= ) [#SKI %A<1$1
6RRW #SKI %A�<1$1 [FIRST 3 CHARACTERS ARE ZEROS
6S?G (
6SR6 #MEN CONSOLE
6T=Q #TRA K60CONSOLE [ALTER PREFIX ENTRY
6TQB +%A@L18 [1 CHARACTER PREFIX
6W=2 +#77000000 [MASK FOR PREFIX
6WPL +#00777777 [MASK OUT PREFIX
6X9= +#20000000 [REPLACE WITH SPACE
6XNW #END
6Y8G #EXI
6YN6 ) [#SKI %A�<1$1
6^7Q #SKI %A�<1$1 [FIRST 2 CHARACTERS ARE ZEROS
6^MB (
7272 #MEN CONSOLE
72LL #TRA K60CONSOLE [ALTER PREFIX ENTRY
736= +%A@L12 [2 CHARACTER PREFIX
73KW +#77770000 [MASK FOR PREFIX TEST
745G +#00007777 [MASK OUT PREFIX
74K6 +#20200000 [REPLACE WITH SPACES
754Q #END
75JB #EXI
7642 ) [#SKI %A�<1$1
76HL #SKI %A�<1$1 [FIRST CHARACTER IS ZERO
773= (
77GW #MEN CONSOLE
782G #TRA K60CONSOLE [ALTER PREFIX ENTRY
78G6 +%A@L6 [3 CHARACTER PREFIX
78^Q +#77777700 [MASK FOR PREFIX TEST
79FB +#00000077 [MASK OUT PREFIX
79^2 +#20202000 [REPLACE WITH SPACES
7=DL #END
7=Y= #EXI
7?CW ) [#SKI %A�<1$1
7?XG #MEN CONSOLE
7#C6 #TRA K60CONSOLE [ALTER PREFIX ENTRY
7#WQ +%A [4 CHARACTER PREFIX
7*BB +#77777777 [MASK FOR PREFIX TEST
7*W2 +#00000000 [MASK OUT PREFIX
7B*L +#20202020 [REPLACE WITH SPACES
7BT= #END
7C#W #EXI
7CSG ) [#SKI FSHA
7D#6 #NOR
7DRQ [??? CONSPFIX SECT FILE FGN 1 DOC
7F?B #MAC CONSPFIX
7FR2 FSHSKIP
7G=L (
7GQ= ! THIS IS THE WRONG ENVIRONMENT
7H9W #EXI
7HPG ) [FSHSKIP
7J96 FSHSKIP B [TEMPORARILY MUST NOT COMPILE IN M/C B
7JNQ (
7K8B #STR %A%B
7KN2 #SKI
7L7L (
7LM= ! PARAMETER 1 ORR 2 MUST BE SET
7M6W #EXI
7MLG ) [#STR %A%B THEN #SKI
7N66 FSHSKIP [TEMPORARILY NO PARAMETER 3
7NKQ (
7P5B #STR %A
7PK2 #SKI [INCLUDE IF %A NOT SET
7Q4L (
7QJ= #STR %C
7R3W ! PARAMETER 3 SHOULD NOT BE SET
7RHG ) [#STR %A THEN #SKI
7S36 ) [FSHSKIP (TEMPORARY)
7SGQ #STR %A [INCLUDE IF %A SET
7T2B FSHPFOUT %A,%C [ALTER OUTPUT PREFIX
7TG2 #STR %B [INCLUDE IF %B SET
7T^L FSHPFIN %B [ALTER INPUT PREFIX
7WF= ) [FSHSKIP B (TEMPORARY)
7WYW #NOR
7XDG [??? FSHIPS SECT FILE FGN 1 DOC
7XY6 [
7YCQ #MAC FSHIPS
7YXB #STR SHAPE,%A [SKIP 'IPEXTST' ETC. IF EXTENSION
7^C2 ( [ TABLE ALREADY DECLARED
7^WL [('SHAPE' PARAMETER - USED BY IPALL)
82B= IPEXTST
82TW IPEXTDEF JMANAGER0 ,#40000000
83*G IPEXTDEF JMANAGER1 ,#40000000
83T6 IPEXTDEF JMANAGER2 ,#40000000
84#Q IPEXTDEF JMANAGER3 ,#40000000
84SB IPEXTDEF JMANAGER4 ,#40000000
85#2 IPEXTDEF JMANAGER5 ,#40000000
85RL IPEXTDEF JMANAGER6 ,#40000000
86?= IPEXTDEF JMANAGER7 ,#40000000
86QW IPEXTDEF JOBJQUOTA ,50*1024
87=G IPEXTDEF JMOPLIMIT ,1
87Q6 IPEXTDEF JBACKGROUND ,5
889Q IPEXTDEF JMOPCPI ,50
88PB IPEXTDEF JWAITWEIGHT ,120
8992 IPEXTDEF JCPIRATIO ,120
89NL IPEXTDEF JSLOTTIME ,250
8=8= IPEXTDEF JCOREOBJECT ,6144
8=MW IPEXTDEF JHOLDUP ,300
8?7G IPEXTDEF JCHAPQUOTA ,15*1024
8?M6 IPEXTDEF JBACKJOBS ,5
8#6Q IPEXTDEF JMOPJOBS ,1
8#LB IPEXTDEF JMOPTOTAL ,1
8*62 IPEXTDEF JCLUSBACKCP ,30
8*KL IPEXTDEF JCLUSMOPCP ,30
8B5= IPEXTDEF JBACKCP ,30
8BJW IPEXTDEF JMOPCP ,30
8C4G IPEXTEND
8CJ6 #MEN IPALL
8D3Q #TRA K50IPALL
8DHB )
8F32 FSHIPSHAPE 0 ,JMANAGER0
8FGL FSHIPSHAPE 1 ,JMANAGER1
8G2= FSHIPSHAPE 2 ,JMANAGER2
8GFW FSHIPSHAPE 3 ,JMANAGER3
8G^G FSHIPSHAPE 4 ,JMANAGER4
8HF6 FSHIPSHAPE 5 ,JMANAGER5
8HYQ FSHIPSHAPE 6 ,JMANAGER6
8JDB FSHIPSHAPE 7 ,JMANAGER7
8JY2 FSHIPSHAPE COBJQUOTA -INSTPARAM ,JOBJQUOTA
8KCL FSHIPSHAPE IMOPLIMIT -INSTPARAM ,JMOPLIMIT
8KX= FSHIPSHAPE BACKGROUND -INSTPARAM ,JBACKGROUND
8LBW FSHIPSHAPE IMOPCPI -INSTPARAM ,JMOPCPI
8LWG FSHIPSHAPE IK -INSTPARAM ,JWAITWEIGHT
8MB6 FSHIPSHAPE CPIRATIO -INSTPARAM ,JCPIRATIO
8MTQ FSHIPSHAPE ASLOTTIME -INSTPARAM ,JSLOTTIME
8N*B FSHIPSHAPE AOBJCORES -INSTPARAM ,JCOREOBJECT
8NT2 FSHIPSHAPE HOLDUP -INSTPARAM ,JHOLDUP
8P#L FSHIPSHAPE CHAPQUOTA -INSTPARAM ,JCHAPQUOTA
8PS= FSHIPSHAPE BACKJOBS -INSTPARAM ,JBACKJOBS
8Q?W FSHIPSHAPE IMOPJOBS -INSTPARAM ,JMOPJOBS
8QRG FSHIPSHAPE IMOPTOTAL -INSTPARAM ,JMOPTOTAL
8R?6 FSHIPSHAPE CLUSBACKCP -INSTPARAM ,JCLUSBACKCP
8RQQ FSHIPSHAPE CLUSMOPCP -INSTPARAM ,JCLUSMOPCP
8S=B FSHIPSHAPE BACKCP -INSTPARAM ,JBACKCP
8SQ2 FSHIPSHAPE IMOPCP -INSTPARAM ,JMOPCP
8T9L #STR SHAPE,%A [IGNORE '#END' IF 'FSHIPS SHAPE'
8TP= #END
8W8W #NOR
8WNG [
8X86 [??? FSHIPSHAPE SECT FILE FGN 1 DOC
8XMQ [
8Y7B #MAC FSHIPSHAPE
8YM2 #HAL %A@C1,%B@C1
8^6L #NOR
8^L= [
925W [??? FSHIPCON SECT FILE FGN 1 DOC
92KG [
9356 #MAC FSHIPCON
93JQ #SKI %A
944B (
94J2 #ACC %A
953L #SKI
95H= (
962W SMO FX2
96GG STO %A ACOMMUNE1
9726 )
97FQ #ACC %A
97^B (
98F2 LDX 0 %A
98YL SMO FX2
99D= STO 0 ACOMMUNE1
99XW )
9=CG DOWN IPALL,3
9=X6 #SKI %B
9?BQ (
9?WB #ACC %B
9#B2 #SKI
9#TL LDX %B ACOMMUNE1(2)
9**= #ACC %B
9*SW (
9B#G LDX 0 ACOMMUNE1(2)
9BS6 STO 0 %B
9C?Q )
9CRB )
9D?2 #SKI %B
9DQL #SKI
9F== (
9FPW #ACC %A
9G9G #SKI
9GP6 LDX %A ACOMMUNE1(2)
9H8Q #ACC %A
9HNB (
9J82 LDX 0 ACOMMUNE1(2)
9JML STO 0 %A
9K7= )
9KLW )
9L6G )
9LL6 #SKI %A
9M5Q #SKI
9MKB ! PARAMETER ! MUST NOT BE BLANK
9N52 #NOR
9NJL [??? FSHGTPER SECT FILE FGN 1 DOC
9P4= #MAC FSHGTPER
9PHW #ACC %A
9Q3G (
9QH6 LDX 0 %A
9R2Q SMO FX2
9RGB STO 0 ACOMMUNE7
9S22 )
9SFL #ACC %A
9S^= #SKI
9TDW (
9TYG SMO FX2
9WD6 STO %A ACOMMUNE7
9WXQ )
9XCB DOWN GETFREE,22
9XX2 BRN %B
9YBL BRN %C
9YW= #NOR
9^*W [??? HUNTJWEL SECT FILE FGN 1 DOC
9^TG #MAC HUNTJWEL
=2*6 #UNS MHUNTJWEL%A
=2SQ #SKI
=3#B (
=3S2 BRN MHUNTJWELX
=4?L #DEF MHUNTJWEL%A=0?
=4R= STO %A GEN0
=5=W LDX 0 0(%A)
=5QG HUNTMISX %A,0
=6=6 LDX 0 GEN0
=6PQ EXIT 0 1
=79B )
=7P2 MHUNTJWELX
=88L CALL %A MHUNTJWEL%A
=8N= #HAL +JWELL+%BCOUNTS,0
=97W #NOR
=9MG [??? FSHTRMC SECT FILE FGN 1 DOC
==76 #MAC FSHTRMC
==LQ FSHCODE AORB
=?6B (
=?L2 #STR ON,%A
=#5L #SKI
=#K= (
=*4W HIDECOM AZ,OFF [MACHINE SWITCH
=*JG HIDECOM ZF,OFF [ACCOUNTING FRIG
=B46 #EXI
=BHQ )
=C3B #STR OFF,%A
=CH2 #SKI
=D2L (
=DG= HIDECOM AZ
=D^W HIDECOM ZF
=FFG #EXI
=F^6 )
=GDQ ! %A MUST BE "ON" OR "OFF"
=GYB #NOR
=HD2 ...[??? FSHCOPY SECT FILE FGN 1 DOC
=HXL ...#MAC FSHCOPY
=JC= ...#UNS M1%C%DFSHCOPY
=JWW ...#SKI
=KBG ...(
=KW6 ... BRN M3FSHCOPY
=L*Q ...#DEF M1%C%DFSHCOPY=0?
=LTB ...M1FSHCOPY
=M*2 ... SBX %C FX1
=MSL ... LDX %D ALOGLEN(1)
=N#= ... GETCORE %D,1
=NRW ... FINDCORE 2
=P?G ... ADX %C FX1
=PR6 ... EXIT %C 0
=Q=Q ...#DEF M2%C%DFSHCOPY=0?
=QQB ...M2FSHCOPY
=R=2 ... LDN 0 A1(1)
=RPL ... LDN 1 A1(2)
=S9= ... SMO ALOGLEN(2)
=SNW ... MOVE 0 0
=T8G ... EXIT %C 0
=TN6 ...)
=W7Q ...M3FSHCOPY
=WMB ... MHUNT 1,%A,%B
=X72 ... CALL %C M1%C%DFSHCOPY
=XLL ... MHUNT 1,%A,%B
=Y6= ... LDX 0 ATYPE(1)
=YKW ... STO 0 ATYPE(2)
=^5G ... CALL %C M2%C%DFSHCOPY
=^K6 ... LDX 1 FX1
?24Q ...#NOR
^^^^ ...310605560012