TESTNAMX

(GIN Macro)

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

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