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

**Defined in:** [[george:source:MACROS_RM59B|MACROS RM59B]]

**Used in:** [[george:source:CONCEPT85|CONCEPT85]], [[george:source:INCWRITE865|INCWRITE865]], [[george:source:LEXIFIND5|LEXIFIND5]], [[george:source:LISTEND867|LISTEND867]], [[george:source:LISTPROC867|LISTPROC867]], [[george:source:LOGCOM864|LOGCOM864]]

<code - TESTNAME.mac.txt>
 3NN2 ...[??? TESTNAME SECT FILE FGN 6 DOC   
 3QLG    #MAC  TESTNAME  
 3QPL ...[     THIS  TESTS  TWO  NAMES  AND  SETS  X7  ZERO   IF   THEY  ARE 
 3QSQ ...[     NOT  ALIKE     %A=LENGTH OF NAME    %B, %C  CONTAIN   THE 
 3QXW ...[     STARTING    ADDRESSES   OF  THE  TWO   NAMES  
 3R32 ...[     IT  USES   X7  AND  X0
 3R66          NGN   0  %A                  [SET  UP   X0   AS  COUNT
 3RKQ    TTEST   
 3S5B          SMO      0
 3SK2          LDX   7  %A+%B               [ LOAD   INTO  X7   FIRST  WORD  
 3T4L          SMO      0                   [J  IF  NOTSAME  
 3TJ=          TXU   7  %A+%C
 3W3W          BCS      NOTSAME  
 3WHG          ADN   0  1                   [ADD  ONE   TO  COUNT
 3X36          BNZ   0  TTEST               [ J   IF  COUNT   NOT   EXPIRED  
 3XGQ          LDN   7  1                   [SET   X7   FOR   ALIKE  
 3Y2B          BRN      TOUT 
 3YG2    NOTSAME 
 3Y^L          LDN   7  0
 3^F=    TOUT                               [SET    X7  FOR   NOTALIKE   
 3^YW    #NOR
</code>