MACROS SHFSB
(George Source)
- MACROS SHFSB.txt
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