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

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

**Used in:** [[george:source:CHARGESC867|CHARGESC867]]

<code - REDUCELL.mac.txt>
 F?G4 ...[??? REDUCELL SECT CENT FGN 32 DOC  
 F?PW    #   
 F#9G    # THIS MACRO PERIODICALLY MONITORS THE DENSITY OF LONGLOCK BLOCKS IN THE
 F#P6    # LONGLOCK AREA, AND TAKES STEPS TO INCREASE IT IF IT FALLS TOO LOW.
 F*8Q    #     PRIVATE TO CHARGESC CHAPTER   
 F*NB    #   
 FB82    #MAC  REDUCELL                     [ REDUCELL   
 FBML          SBS   %A BLLCLOCK 
 FC7=          LDX   0  BLLCLOCK 
 FCLW          BPZ   0  MRED1
 FD6G          LDX   0  GLLSEMA             [ DO NOT SHIFT CTOP DURING   
 FDL6          BNZ   0  MRED1               [   A LONGLOCK GETCORE   
 FF5Q          LDN   0  BLLINT   
 FFKB          STO   0  BLLCLOCK            [ RESTORE COUNT  
 FG52          LDX   0  GFIXCHAP            [ 'THRESHOLD' TEST   
 FGJL          SBN   0  17                  [ INCLUDES EMS CASE WHERE
 FH4=          TXL   0  CTOP                [   GFIXCHAP=-2  
 FHHW          BCS      MRED1               [   CTOP    =-1  
 FJ3G          ACROSS  COREALLG,1          [ TO RETURN, MUST HAVE A SEGENTRY CALL
 FJH6    MRED1                              [   SEGENTRY K13CHARGESC,MRED1   
 FK2Q    #NOR
</code>