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

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

**Used in:** [[george:source:CHTAB|CHTAB]], [[george:source:CORESHED861|CORESHED861]], [[george:source:INKS|INKS]]

<code - STRATEGY.mac.txt>
 FNMY ...[??? STRATEGY SECT CENT FGN 32 DOC  
 FPX2    [ THIS MACRO GETS A PROGRAM PLACEMENT STRATEGY  
 FQBL    #MAC  STRATEGY  
 FQHS ...#SKI  G3
 FQP2 ...(   
 FQW=          LDX   2  FX2  
 FQYT ...#UNS  ISTDP 
 FR3D ...(   
 FR63 ...      LDX   0  COBJUNUSE           [STORE TOTAL FREE PROGRAM CORE FOR   
 FR8L ...      STO   0  ACOMMUNE9(2)        [ CORESHED TO STORE FOR UNJAMMER 
 FR?9 ...)   
 FR*W          LDX   0  %A   
 FRN= ...      STO   0  ACOMMUNE4(2) 
 FS*6          LDX   0  %B   
 FT76 ...      STO   0  ACOMMUNE3(2) 
 FT=Q ...#UNS CA1D   
 FTBB ...      ADX   0  CA1D 
 FTG2 ...#UNS CA1D   
 FTKL ...#SKI
 FTP* ...      ADN   0  A1D  
 FTS2          ANDX  0  BITS22LS 
 FW?L          SBX   0  CFREE
 FWR=          SBX   0  ACHAP
 FX=W          ADX   0  CHAPQUOTA
 FXQG          SBX   0  FREZFREE            [ ADD AMOUNT THAT MAY BE NEEDED TO   
 FY=6          SBX   0  FREZCHAP            [   RECEIVE SWAPPED-OUT BLOCKS FROM  
 FYPQ          ADX   0  FREZTOT             [   THE AREAS ALREADY FROZEN 
 FYWY ...#UNS  ISTDP 
 F^46 ...      SBX   0  COBJUNUSE           [CAN USE FREE PROGRAM BLOCKS AS WELL 
 F^9B          SMO   FX2 
 F^P2          STO   0  ACOMMUNE1
 G28L          BPZ   0  MSTR2               [J IF NOT ENOUGH SPARE CORE  
 G2N= ...MSTR1 DOWN     STRATEGY,1   
 G37W          BRN      MSTR4               [SUCCESS 
 G3MG          BRN      %E                  [CORE FRAGMENTED BY REALTIME PROG(S) 
 G476          BRN      %C                  [ NOT ENOUGH CORE BUT TRY SWAP OUT   
 G4LQ    MSTR2 LDX   1  FX1  
 G56B          LDX   2  FX2  
 G5L2          SBX   0  COBJUSE  
 G65L          ADX   0  COBJUSRT            [IF NOT ENOUGH CORE EVEN IF ALL NON- 
 G6=# ...      BPZ   0  MSTR3               [ REALTIME PROGX SWAPPED,TAKE %D EXIT
 G6C2 ...[     IF REALTIME PROG.,THEN AS THERE ARE PROGRAMS TO SWAP OUT WE STILL 
 G6HN ...[     GO DOWN TO STRATEGY FOR IT TO DECIDE WHICH PROG. TO SWAP OUT  
 G6NB ...      LDXC  0  ACOMMUNE3(2) 
 G6T4 ...      BCS      MSTR1
 G6^Q ...      BRN      %C   
 G76D ...MSTR3 LDN   0  0
 G7?6 ...      ADSC  0  ACOMMUNE3(2) 
 G7CS ...      BRN      %D   
 G7JG    MSTR4   
 G8HQ ...)   
 GBC=    #SKIP          G4   
 GBWW    (   
 GYKT ...#ACC           %A   
 GYL8 ...      ACCSTO   %A,ACOMMUNE2,FX2       [JOBNO.   
 GYLH ...#ACC           %B   
 GYLW ...      ACCSTO   %B,ACOMMUNE3,FX2       [CORE REQUIRED B2-23: B0= REALTIME
 GYM9 ...#ACC           %A   
 GYMJ ...#SKI
 GYMX ...(   
 GYN= ...      LDX   0  %A   
 GYNK ...      ACCSTO   0,ACOMMUNE2,FX2     [JOBNO.  
 GYNY ...)   
 GYP? ...#ACC           %B   
 GYPL ...#SKI
 GYP^ ...(   
 GYQ# ...      LDX   0  %B   
 GYQM ...      ACCSTO   0,ACOMMUNE3,FX2     [SIZE!!  
 GYR2 ...)   
 GYR* ...      DOWN     SWAPIN,1            [GO TO IT!   
 GYRN ...[   
 GYS3 ...      BRN      MSTRTED             [SUCCESS 
 GYSB ...      BRN      %C                  [NO STRATEGY WITHOUT SWAPOUT 
 GYT4 ...      BRN      %D                  [NO STRATEGY EVEN IF ALL NON R/T S/O 
 GYTC ...MSTRTED 
 GYTJ ...)   
 GYTQ ...#NOR
</code>