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