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

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

**Used in:** [[george:source:ACCESS867|ACCESS867]], [[george:source:DISPCOM867|DISPCOM867]], [[george:source:LOADFIN860|LOADFIN860]], [[george:source:MONEVENT867|MONEVENT867]], [[george:source:MONRESUM850|MONRESUM850]], [[george:source:QUESCOM867|QUESCOM867]]

<code - FPERENTA.mac.txt>
 4T44 ...[??? FPERENTA SECT CENT FGN 2 DOC   
 4T?W    #   
 4TRG    # THIS IS A SHORTER AND LESS GENERAL VERSION OF FPERENT 
 4W?6    # ON ENTRY  %A IS MODIFIER PNTG TO APERIRES BLOCK ,%B CONTAINS TYPE/UNIT
 4WQQ    # NO. IN B0-8,9-23 RESPECTIVELY 
 4X=B    # ON EXIT   %A -> ENTRY IF FOUND ELSE CONTROL JUMPS TO %C   
 4XQ2    #MAC  FPERENTA  
 4Y9L          ADN   %A A1-2 
 4YP=    MFPERENTA1  
 4^8W          ADN   %A 2
 4^NG          LDX   0  0(%A)
 5286          BNG   0  %C   
 52MQ          ERX   0  %B   
 537B          BNZ   0  MFPERENTA1   
 53M2    #NOR
</code>