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

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

**Used in:** 

<code - XMELGUTS.mac.txt>
 5YYG    [   
 5^D6    #MAC  XMELGUTS  
 5^XQ    #STR  %B
 62CB    #SKI
 62X2    (   
 63BL          SMO      5
 63W=          LDXC  0  ASU  
 64*W          BCS      MGUTS4              [J IF MEMBER DOES NOT EXIST  
 64TG    )   
 65*6          LDCH  6  APR1(3)             [PRIORITY
 65SQ          LDN   0  BPROG               [START AND END CONDITIONS
 66#B          LDN   2  GMEL                [FOR PROGRAM RING
 66S2          SMO      7
 67?L          LDXC  1  ACR1(3)  
 67R=          BCC      MGUTS1              [J IF NOT HIPRI  
 68=W          LDN   0  GMEL                [SET NOW START AND END CONDITIONS
 68QG          LDN   2  BPROG
 69=6    MGUTS1 LDX  2  FPTR(2)  
 69PQ          BXE   2  0,MGUTS2            [J IF END OF SEARCH  
 6=9B          LDCH  1  ARM(2)   
 6=P2          SRC   1  2
 6?8L          ADX   1  APD(2)              [CHAR PR FOR PRIORITY
 6?N=          LDCH  1  APR1-ASTOP(1)
 6#7W          BXGE  1  6,MGUTS1 
 6#MG    MGUTS2 ENRING  5,BPTR(2)           [RING IN PLACE   
 6*76    #STR  %B
 6*LQ    #SKI
 6B6B    (   
 6BL2    MGUTS4 ADN  7  2                   [UPDATE PTRS 
 6C5L          BCHX  3  £
 6CK=          ADN   5  AFW2-AFW1
 6D4W          BCT   4  %A   
 6DJG    )   
 6F46          PROGRING LOCKOFF  
 6FHQ          LDN   0  GEN0                [TIDY UP 
 6G3B          LDN   1  3
 6GH2          MOVE  0  5
 6H2L          LDX   1  FX1                 [X2 ALREADY RESET BY ENRING  
 6HG=    #NOR
</code>