mim/mim/mimlib/gc-utils.msubr

   1 <PACKAGE "GC-UTILS">
   2 <ENTRY DIVERT-AGC DIVERT-MAX DIVERT-MON>
   3 <SETG DIVERT-ON? <>>
   4 <SETG DIVERT-MON <>>
   5 <GDECL (DIVERT-MAX DIVERT-COUNT) FIX (DIVERT-ON? DIVERT-MON) <OR ATOM !<FALSE!>
   6 >>
   7 <SETG DIVERT-MAX 5>
   8 <SETG DIVERT-COUNT 0>
   9
  10 <SETG \1adivert-agc-IMSUBR #IMSUBR [|AAAAFGCOH\AEACDAAAAAAGDAAAAAAKBMHMAAAQBMHMAAAUCKFZA`H`H`HIDHAECOFYABBYAMDNABCBAAACDHAOBADMAAA]BAAYBACQBOAIDGAAABA_AMDNABCBAAACDGAYBADMAAA]BAAYBACQBOAIDGAMBADMAAAUBABMAAAQCOHYAAFOAMDNABCBAAACDHAAAAFSBADMAAA]BAHMAAAQBAFMAAAUBADMAABEBCCQBOAJDHAKBCARBCDJAAAECKCBDGDACOFYAAFUBMHMAABIBMHMAABMBADMAABUBMGYBMGQBMH]AAAAAACABMH]AAAAABBMDQADBADMAAB]COFYAAF[BCDMAACEBCGABCEICOFYAAFUBMHMAACIBMHMAACMBADMAACUBMGYBMGQBMH[H`GOBMH[H`GQDQADBADMAAB]COFYAAF[BCDMAAC]BCGABCEICOFYAAFUBADMAACEBMGYBMGQDQABBADMAADECOFYAAF[COFYAAFUBADMAAC]BMGYBMGQDQABBADMAADECOFYAAF[COHYAAFOBADMAAA]BAH]AAAAABCBCCEQBADMAADMBAH[H`DUCCEQCOFYAAFUBADMAACEBMGYBMGQDQABBADMAADUCOFYAAF[COFYAAFUBADMAAC]BMGYBMGQDQABBADMAADUCOFYAAF[COHYAAFOAAAABEAAB]GCB]H]AHEHCCE_BMH]AAAMACGCBMGNBGAOB]GCB]H]AHEHBMGNBKCDCKFZA`H`H`HIDHAECOFYABBYBADMAADMBAH[H`AOCCEQBQD]AAAABAB[H`AEBKDNH`H]COHYAAFOBMH[H_HYCCE_CKFZA`H`H`HIDHAECOFYABBYBADMAAD]BAAYBACQBCBIAABQBCDIAABUBEDMAAEEBKBKAAAEBOBNAAAMCKEFDOAGCEEFHKFPDAACHLFPBEDMAADMBKBKAAAECSEFBEDMAADMBEH[H_FQBEEFBEDMAAEMBEDKAAAEF[EKDPAWBADMAADMBAH[H_E[CCEQBQD]AAAABAB[H_EQCOHYAAFOBEDMAAEUBGCSBMALDHAKBGATBGDLAAAECKCDDGAMBQD]AAAABAB[H_HQCOHYAAFOCOFYAAFUBCCRG_EJBMHNAAAQBMGHBMGABMGIDQACBADMAAE]BLCHAAAUCOFYAAF[BADMAAFEBAAYBACQBOAIDHBWCOFYAAFUBADMAAFMBMGYBMGQBMHMAAFQBMHMAAFUBMHMAAFYBMHMAAF]BMHNAAAQBMHNAAAUBMHMAAGABMHMAAGEDQAFBADMAAGMCOFYAAF[COHYAAFOAAAAAAAA| divert-agc-IMSUBR T %<GBIND DIVERT-ON? T>
  11 DIVERT-HANDLER "DIVERT-AGC" %<GBIND DIVERT-FCN T>  HANDLER %<GBIND
  12 DIVERT-HANDLER T>  "GC" %<GBIND POST-GC-FCN T>  %<GBIND GC-HANDLER T>  ON
  13 %<GBIND DIVERT-COUNT T>  OFF %<GBIND CURRENT-ZONE T>  %<GBIND ADDR-SHIFT T>
  14 %<GBIND DIVERT-MAX T>  SPARE-AREA GROW-SPACE %<GBIND DIVERT-MON T>  %<GBIND
  15 DEBUG-CHANNEL T>  PRINC "DIVERT-AGC allocated " " bytes.
  16 " PRINT-MANY ]>
  17 <SETG \1aDIVERT-AGC #MSUBR [divert-agc-IMSUBR DIVERT-AGC ("VALUE" ANY "OPTIONAL"
  18 ANY) 0]>
  19 <SETG \1aPOST-GC-FCN #MSUBR [divert-agc-IMSUBR POST-GC-FCN ("VALUE" FIX "TUPLE"
  20 ANY) 344]>
  21 <SETG \1aDIVERT-FCN #MSUBR [divert-agc-IMSUBR DIVERT-FCN ("VALUE" <OR ATOM FALSE
  22 FIX> ANY FIX) 412]>
  23 <ENDPACKAGE>