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

**Defined in:** [[george:source:MACROS_FIXD|MACROS FIXD]]

**Used in:** [[george:source:BCAST867|BCAST867]], [[george:source:CORE867|CORE867]], [[george:source:DOMONOP867|DOMONOP867]], [[george:source:FREEBUFF860|FREEBUFF860]]

<code - TESTCOR.mac.txt>
 3HHY ...[??? TESTCOR SECT CENT FGN 11 DOC   
 3HRQ    #   
 3J?B    #   
 3JR2    #MAC  TESTCOR                      [TESTS FOR EXISTENCE OF A CORE IMAGE 
 3K=L                                       [%A IS POINTER TO THE JOB BLOCK  
 3KQ=          SMO      %A                  [%B IS LABEL TO BRANCH TO IF A CORE  
 3L9W          LDCH  0  JMISC               [IMAGE EXISTS.   
 3LPG          BNZ   0  %B   
 3M96    [   
 3MNQ    #NOR
</code>