(GIN Macro)
Defined in: COREMACROS
Used in: CHTAB, CORESHED861, INKS
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