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

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

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

<code - PMCHAINP.mac.txt>
 4FJW    [??? PMCHAINP SECT DIAG FGN 104 DOC 
 4G4G    #MAC  PMCHAINP                     [M.C.D. MANN 
 4GJ6    [   
 4H3Q    [   
 4HHB    [     **************
 4J32    [     *  PMCHAINP  *
 4JGL    [     **************
 4K2=    [   
 4KFW    [   
 4K^G    [     THIS MACRO CAUSES ENTRY TO CHAIN AND RING PRINTING ROUTINES   
 4LF6    [   
 4LYQ    [     %A=NO. OF CHARS. IN %B
 4MDB    [     %B=CHAIN(RING) HEADING
 4MY2    [     %C=BASE ADDR. OF CHAIN(RING)  
 4NCL    [     %D=DISTANCE FROM RING ELEMENT TO START OF BLOCK OR
 4NX=    [       =X IF DISTANCE HELD IN 3RD WORD OF RING ELEMENT 
 4PBW    [     %E=ADDR. CONTAINING NO. OF WORDS TO BE PRINTED FROM EACH BLOCK OR 
 4PWG    [       =N IF WORD SELECTION REQUIRED[SEE PMVAL MACRO]  
 4QB6    [     %F=OPTIONAL=1 IF TYPES ETC. TO BE PRINTED 
 4QTQ    [                =2 IF CHAPTER CHAIN BEING PRINTED  
 4R*B    [     %G  OPTIONAL  
 4RT2    [       =4H MNEMONIC USED TO LABEL ROWS 
 4S#L    [        USED FOR CHAINS ONLY   
 4SS=    #SKI  CRAB  
 4T?W    (   
 4TRG    #STR  %G
 4W?6    (   
 4WQQ       CALL  2   MNEM   
 4X=B                 4H%G   
 4XQ2    )   
 4Y9L    #STR  %G
 4YP=    #SKI
 4^8W    (   
 4^NG       CALL  2   MNEM   
 5286                +0  
 52MQ    )   
 537B    )   
 53M2    [   
 546B     CALL 2 START   
 54KQ     +%C
 5556    #FID 0 7 %A 
 55JG    #STR %F 
 563W    #FID 8 11 %F
 56H=     %AH%B  
 572L    #STR %D,X   
 57G2     +%D
 57^B    #STR %D,X   
 58DQ    #SKI
 58Y6     #7777  
 59CG    #STR %E,N   
 59WW    #FID 0 11 %E
 5=B=    #STR %E,N   
 5=TL    #SKI
 5?*2    (   
 5?SB    #FID 0 0 1  
 5#?Q     #77777777  
 5#R6    )   
 5*=G    #DEF 20?=0                         [USED BY PMVAL MACRO,IF FOLLOWING
 5*PW    #NOR
</code>