TESTNAME

(GIN Macro)

Used in: CONCEPT85, INCWRITE865, LEXIFIND5, LISTEND867, LISTPROC867, LOGCOM864

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