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

**Defined in:** [[george:source:MACROS_DTP|MACROS DTP]]

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

<code - CHAPENT.mac.txt>
 CT*G ...[??? CHAPENT SECT DIAG FGN 569 DOC  
 CTT6    #MAC  CHAPENT                      [M. DRUKKER  
 CW#Q    [   
 CWSB    [   
 CX#2    [     ************* 
 CXRL    [     *  CHAPENT  * 
 CY?=    [     ************* 
 CYQW    [   
 C^=G    [   
 C^Q6    #SKI  GCOMP                        [INCLUDE FOR INITIAL COMPILATION ONLY
 D29Q    (   
 D2PB    #DEF  K%A=0?
 D392          -1
 D3NL    #EXI
 D48=    )   
 D4MW    #UNS  K%A                          [INCLUDE IF THE CHAPTER IS NEW   
 D57G    #SKI
 D5M6    (   
 D64N ...#SKI   AENDCHAPS -KTAB - KLTAB-1 &#40000000 
 D6G= ...(   
 D6XS ...!   NO ROOM FOR FURTHER CHAPTERS
 D7*B ...#SKI   KLTAB-990
 D7QY ...!  PLEASE USE UMNEWFIX  
 D88G ...#ALT 23? = 1
 D8L4 ...#EXI
 D93L ...)   
 D9F8 ...#SKI  AENDCHAPS-KTAB-KLTAB-1&#40000000<1$1  
 D9WX ...(   
 D9XL ...#ALT  K%A=KLTAB                    [DEFINE A NEW CHAPTER NUMBER 
 D9Y* ...#ALT  KLTAB=K%A+1                  [AND UPDATE END OF TABLE POINTER 
 D9^4 ...)   
 D=2G ...)   
 D=3Q    #TRA  KTAB+K%A                     [SET UP THE CHAPTER TABLE ENTRY  
 D=HB          +D%A/128  
 D?32    #FID  1 8 +L%A/4
 D?=S ...#ALT 23? = 0
 D?GL    #NOR
</code>