FSHPFOUT
(GIN Macro)
Defined in: MACROS SHFSB
Used in:
- FSHPFOUT.mac.txt
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