LFKEY [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: LFKEY)}}
====== LFKEY ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_LEF|MACROS LEF]]

**Used in:** [[george:source:LISTFILE867|LISTFILE867]], [[george:source:LISTPARS867|LISTPARS867]]

<code - LFKEY.mac.txt>
 #MHN ...[??? LFKEY SECT DEVT FGN 2 DOC  
 #MRG    #MAC  LFKEY 
 #N?6    #     THIS MACRO CREATES A PAIR OF INDEX KEYS AND STORES THEM   
 #NQQ    #     IN A GOUT/INFO.IT MUST ONLY BE ISSUED BY A CPA.   
 #P=B    #     %A       IF ABSENT THEN X2 MUST = FX2 
 #PQ2    #              IF PRESENT THEN IS POINTER TO JOBLOCK
 #Q9L    #     %B       MUST CONTAIN POINTER TO GOUT/INFO
 #QP=    #     ON EXIT X2=FX2
 #R8W    #STR  %A,2  
 #RNG          LDX   2  %A   
 #S86    #STR  %A
 #SMQ    #SKI
 #T7B          FJOCA    2
 #TM2          LDX   0  JOBNUM(2)
 #W6L          STO   0  GJOBS(%B)
 #WL=          STO   0  GOUTKEY1(%B) 
 #X5W          LDX   0  JURGE(2) 
 #XKG          ORX   0  GSIGN
 #Y56          ERX   0  GSIGN
 #YJQ          BNZ   0  M1LFKEY  
 #^4B          LDX   0  JPRIV(2) 
 #^J2          ANDN  0  JSISSUE  
 *23L          BZE   0  M2LFKEY  
 *2H=          LDN   0  #41  
 *32W          BRN      M1LFKEY  
 *3GG    M2LFKEY 
 *426          LDN   0  #55  
 *4FQ    M1LFKEY 
 *4^B          DCH   0  GOUTKEY1(%B) 
 *5F2          STOZ     GOUTKEY2(%B) 
 *5YL          LDX   2  FX2  
 *6D=    #NOR
</code>