{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: FPERENT)}}
====== FPERENT ======
(GIN Macro)

**Defined in:** [[george:source:MACROS2JSR|MACROS2JSR]]

**Used in:** [[george:source:CONTXCOD60|CONTXCOD60]], [[george:source:IFEXPAN867|IFEXPAN867]], [[george:source:ILLPERI70|ILLPERI70]], [[george:source:MODEA65|MODEA65]], [[george:source:OLMTB867|OLMTB867]], [[george:source:OLMTD65|OLMTD65]], [[george:source:OLMTE85|OLMTE85]], [[george:source:OPCA867|OPCA867]], [[george:source:SETPC867|SETPC867]]

<code - FPERENT.mac.txt>
 4?FJ ...[??? FPERENT SECT CENT FGN 2 DOC
 4?PB    #     THIS MACRO LOOKS UP ENTRIES IN THE PRB
 4#92    #     %A & %D MUST BE ACCUMULATORS  
 4#NL    #     %B &%C MUST BE MODIFIERS  
 4*8=    #MAC  FPERENT   
 4*MW    #STR  %B,%C 
 4B7G          LDX   %C %B   
 4BM6          SBN   %C 2
 4C6Q    #STR  %D
 4CLB    (   
 4D62    #STR  %A,%D 
 4DKL    #STR
 4F5=          STO   %A GEN6 
 4FJW          STOZ     %D   
 4G4G    )   
 4GJ6    M1  
 4H3Q          ADN   %C 2
 4HHB    #STR  %D
 4J32    (   
 4JGL          LDX   0  1(%C)
 4K2=          BPZ   0  M2   
 4KFW          ADN   %D 1
 4K^G    )   
 4LF6    M2  
 4LYQ          LDX   0  0(%C)
 4MDB          BNG   0  M3   
 4MY2    #STR  %A,%D 
 4NCL          TXU   0  %A   
 4NX=    #STR  %A,%D 
 4PBW    #STR
 4PWG          TXU   0  GEN6 
 4QB6          BCS      M1   
 4QTQ          BRN      MEND 
 4R*B    M3  
 4RT2          NGN   %C 1
 4S#L    MEND
 4SS=    #NOR
</code>