TESTNAMX [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: TESTNAMX)}}
====== TESTNAMX ======
(GIN Macro)

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

**Used in:** [[george:source:ADDICT865|ADDICT865]], [[george:source:ALLOCATE867|ALLOCATE867]], [[george:source:ARCHIVE867|ARCHIVE867]], [[george:source:ARCHIVNW83|ARCHIVNW83]], [[george:source:ATTRIBUT867|ATTRIBUT867]], [[george:source:BACKMAP864|BACKMAP864]], [[george:source:BMAPDIR865|BMAPDIR865]], [[george:source:BMAPONE867|BMAPONE867]], [[george:source:BMAPTAPE865|BMAPTAPE865]], [[george:source:BMPRCHEK860|BMPRCHEK860]], [[george:source:BMQUEST866|BMQUEST866]], [[george:source:BMSJRNL866|BMSJRNL866]], [[george:source:BMSTREAM853|BMSTREAM853]], [[george:source:COPYA867|COPYA867]], [[george:source:CREALEX864|CREALEX864]], [[george:source:DEWELL867|DEWELL867]], [[george:source:DUMP860|DUMP860]], [[george:source:ERASEA867|ERASEA867]], [[george:source:FHOBJIND860|FHOBJIND860]], [[george:source:GETFREE867|GETFREE867]], [[george:source:INCCHECK860|INCCHECK860]], [[george:source:INCOM864|INCOM864]], [[george:source:INCPTRES864|INCPTRES864]], [[george:source:INCTAPES867|INCTAPES867]], [[george:source:INCWRITE865|INCWRITE865]], [[george:source:LISTEND867|LISTEND867]], [[george:source:LISTFIND867|LISTFIND867]], [[george:source:LISTFNDA865|LISTFNDA865]], [[george:source:LISTPROC867|LISTPROC867]], [[george:source:NORMALUS864|NORMALUS864]], [[george:source:OPENFILE867|OPENFILE867]], [[george:source:OPENREL865|OPENREL865]], [[george:source:OPENTWO867|OPENTWO867]], [[george:source:OPENWAIT867|OPENWAIT867]], [[george:source:ORELMAIN867|ORELMAIN867]], [[george:source:PROPERTY867|PROPERTY867]], [[george:source:RENAME864|RENAME864]], [[george:source:RESTLIMB864|RESTLIMB864]], [[george:source:RESTMERG864|RESTMERG864]], [[george:source:RESTOREG864|RESTOREG864]], [[george:source:SYSPROP867|SYSPROP867]], [[george:source:TRAPCHEC867|TRAPCHEC867]], [[george:source:USELEX5|USELEX5]], [[george:source:USEREXCP860|USEREXCP860]], [[george:source:USEROPEN867|USEROPEN867]], [[george:source:USERSTRM867|USERSTRM867]]

<code - TESTNAMX.mac.txt>
 42DG ...[??? TESTNAMX SECT FILE FGN 6 DOC   
 43CQ    #MAC  TESTNAMX  
 43JY ...[     THIS MACRO TESTS 2 NAMES AND BRANCHES TO %D IF THEY ARE NOT EQUAL 
 43Q6 ...[     %E IS A WORK-ACCUMULATOR ,X7 BEING THE DEFAULT VALUE  
 43XB          NGN   0  %A   
 44C2    M1TESTNAMX  
 44WL    #STR  %E
 45B=    (   
 45TW          SMO      0
 46*G          LDX   %E %A+%B
 46T6          SMO      0
 47#Q          TXU   %E %A+%C
 47SB    )   
 48#2    #STR  %E
 48RL    #SKI
 49?=    (   
 49QW          SMO      0
 4==G          LDX   7  %A+%B
 4=Q6          SMO      0
 4?9Q          TXU   7  %A+%C
 4?PB    )   
 4#92          BCS      %D   
 4#NL          ADN   0  1
 4*8=          BNZ   0  M1TESTNAMX   
 4*MW    #NOR
</code>