{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: FSHPFOUT)}}
====== FSHPFOUT ======
(GIN Macro)
**Defined in:** [[george:source:MACROS_SHFSB|MACROS SHFSB]]
**Used in:**
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