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

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

**Used in:** [[george:source:COMPSG4|COMPSG4]], [[george:source:CORE867|CORE867]], [[george:source:GIVE867|GIVE867]]

<code - EXTRACOR.mac.txt>
 HHGQ    #   
 HJ2B    #MAC  EXTRACOR     [EXTENDS AN O/P WITHOUT SWAPOUT  
 HJG2                       [%A=ADDR OF WORD CONTG NEW REQU;J TO %B IF SUCCESSFUL
 HJ^L          LDX   2  FX2  
 HKF=          BRN      MEXT2
 HKYW    MEXT1 SMO      JOBRING+FPTR(2)     [S/R TO J TO MEXT3 IF O/P NOT SWPD IN
 HLDG          LDX   0  JMISC-AJBRING
 HLY6          SLL   0  9                   [B9 OR B10 OF JMISC SET IF O/P IN COR
 HMCQ          SLA   0  1                   [V CLEAR => EITHER BOTH 1(IMPOSSIBLE)
 HMXB          BVC      MEXT3               [OR BOTH 0 => O/P NOT SWAPPED IN 
 HNC2          EXIT  1  0
 HNWL    MEXT2 CALL  1  MEXT1
 HPB=          LDX   0  %A   
 HPTW          STO   0  ACOMMUNE1(2) 
 HQ*G          DOWN     COREALLF,3          [TRY TO EXTEND PROGRAM BLOCK 
 HQT6          CALL  1  MEXT1
 HR#Q          BRN      %B                  [SUCCESS EXIT
 HRSB    MEXT3 SLL   0  1
 HS#2          BNG   0  MEXT4               [J IF PROGRAM ALREADY SWAPPED OUT
 HSRL          SWAPOUT                      [COME UP TO HERE FROM COREALLF FAIL  
 HT?=    MEXT4 LDX   1  FX1  
 HTQW    #NOR
</code>