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

**Defined in:** [[george:source:MACROS_FIXD|MACROS FIXD]]

**Used in:** [[george:source:GIVEA867|GIVEA867]], [[george:source:MONRESUM850|MONRESUM850]]

<code - MELPTR.mac.txt>
 2=3S ...[??? MELPTR SECT CENT FGN 11 DOC
 2=?L    #   
 2=R=    #MAC  MELPTR                       [GIVES PNTR TO MEL OF GIVEN MEMBER NO
 2?=W    #STR  %B
 2?QG          LDX   0  %B   
 2#=6    #STR  %B
 2#PQ    #SKI
 2*9B          LDX   0  ANM(%A)  
 2*P2          ANDN  0  3
 2B8L          LDN   1  AFW1(%A) 
 2BN=          LDN   2  K61  
 2C7W          MPA   0  2
 2CMG    #SKI  %A>1-1
 2D76    (   
 2DLQ          LDX   %A 1
 2F6B          LDX   1  FX1  
 2FL2    )   
 2G5L    #SKI  %A-2  
 2GK=          LDX   2  FX2  
 2H4W    #NOR
</code>