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

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

**Used in:** [[george:source:IPBPM84|IPBPM84]], [[george:source:PMDUMPMT85|PMDUMPMT85]]

<code - PMCOUNT.mac.txt>
 G=MF    [??? PMCOUNT SECT DIAG FGN 104 DOC  
 G?5Y    #MAC  PMCOUNT                      [M.C.D. MANN 
 G?JC    [   
 G#2W    [   
 G#F*    [     ************* 
 G#XS    [     *  PMCOUNT  * 
 G*B?    [     ************* 
 G*SQ    [   
 GB?9    [   
 GBPN    [     THIS MACRO INSERTS A RECORD OF THE NUMBER OF SUBTYPES IN THE TYPE 
 GC87    [     MNEMONIC AREA 
 GCLL    #STRING     %A  
 GD55    (   
 GDHJ    #SKI  %A>64$64  
 GF23    #SKI
 GFDG    (   
 GFW^ ...#FIDDLE 3 11 +3                         [UPDATE WORD COUNT OF SUBTYPE EN
 GG*D    #DEF TRA1=TRA   
 GGRX    #FREE TRA   
 GH=B ...#DEF  TRA=TRA1+3                        [UPDATE POINTER POINTING TO SUBT
 GHNT    #FREE TRA1  
 GJ7#    )   
 GJKR          PMCOUNT  %B,%C,%D,%E  
 GK4=    )   
 GKGP    #NOR
</code>