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

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

**Used in:** [[george:source:REQESLIP861|REQESLIP861]], [[george:source:UNPLUG867|UNPLUG867]]

<code - MELUNRING.mac.txt>
 6QMQ ...[??? MELUNRIN SECT CENT FGN 6 DOC   
 6QSL    [   
 6R#=    [ THIS MACRO REMOVES A MEL OR ALL MELS FROM THE PROGRAM RING
 6RRW    [   
 6S?G    #MAC  MELUNRING 
 6SR6          STO   3  GEN0 
 6T=Q    #STR  %A,3  
 6TQB          LDX   3  %A                  [X3 -> PCA   
 6W=2    #STR  %B
 6WPL    (   
 6X9=          LDN   0  AFW2-AFW1
 6XNW    #STR  %B,3  
 6Y8G          MPY   0  %B   
 6YN6    #STR  %B,3  
 6^7Q    #SKI
 6^MB          MPY   0  GEN0 
 7272          ADX   3  1                   [X3 -> MEL   
 72LL    )   
 736=    #STR  %B
 73KW    #SKI
 745G    (   
 74K6          STO   4  GEN1 
 754Q          LDN   4  4                   [COUNT OF MEMBERS
 75JB          LDN   3  AFW1(3)             [X3 -> MEL FOR MEMBER 0  
 7642    )   
 765Y ...#UNS  ICT   
 767W ...(   
 769S ...      JBC   MELUN2,,ICTSW   
 76?Q ...      STOZ      FX2LAST 
 76*N ...      STOZ      GMEL+ASU   [ENSURE GMEL 0 DESUSPENDED   
 76CL ...MELUN2  
 76FJ ...)   
 76HL          PROGRING LOCKON   
 773=    MELUN LDX   0  ABW(3)   
 77GW          BZE   0  MELUN1              [J IF NOT RINGED 
 782G          DERING   3                   [REMOVE FROM PROGRAM RING
 78G6    MELUN1  
 78^Q    #STR  %B
 79FB    #SKI
 79^2    (   
 7=DL          ADN   3  AFW2-AFW1           [UPDATE PTRS FOR NEXT MEMBER 
 7=Y=          BCT   4  MELUN
 7?CW          LDX   4  GEN1                [RESTORE X4  
 7?XG    )   
 7#C6          PROGRING LOCKOFF  
 7#WQ          LDX   3  GEN0                [RESTORE X3  
 7*BB    #NOR
</code>