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

**Defined in:** [[george:source:LLSMACROS|LLSMACROS]]

**Used in:** [[george:source:LOADPROG865|LOADPROG865]], [[george:source:PROSTART867|PROSTART867]]

<code - NOCORJOB.mac.txt>
 88MQ ...[??? NOCORJOB SECT CENT FGN 6 DOC   
 88PB    #   
 8992    #     THIS MACRO INITIALISES OR RE-INITIALISES A JOB BLOCK FOR NO CORE  
 89NL    #     IMAGE CONTEXT 
 8=8=    #   
 8=MW    #MAC  NOCORJOB  
 8?7G    #STR  %A,3  
 8?M6    (   
 8#6Q          SMO      FX2  
 8#LB          STO   3  ACC3 
 8*62          LDX   3  %A   
 8*KL    )   
 8B5=          LDX   2  FX2  
 8BJW          STO   5  ACC5(2)  
 8C4G          LDX   5  JCLASS(3)
 8CJ6          STOZ     APROGTIME(3) 
 8D3Q          LDN   0  APROGTIME(3) 
 8DHB          LDN   1  APROGTIME+1(3)   
 8F32 ...      MOVE  0  HMSLOT-APROGTIME-1   
 8GFW          LDN   0  1024 
 8G^G          STO   0  JCSIZE(3)
 8HF6          LDX   0  APROCTIME
 8HYQ          STO   0  JSLOT(3) 
 8JDB          ORN   5  #104 
 8JY2          STO   5  JCLASS(3)
 8KCL          LDX   1  FX1  
 8KX=          LDX   2  FX2  
 8LBW    #STR  %A,3  
 8LWG          LDX   3  ACC3(2)  
 8MB6          LDX   5  ACC5(2)  
 8MTQ    #NOR
</code>