TESTCOR

(GIN Macro)

Used in: BCAST867, CORE867, DOMONOP867, FREEBUFF860

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