--- /dev/null
+<PACKAGE "GC-UTILS">
+<ENTRY DIVERT-AGC DIVERT-MAX DIVERT-MON>
+<SETG DIVERT-ON? <>>
+<SETG DIVERT-MON <>>
+<GDECL (DIVERT-MAX DIVERT-COUNT) FIX (DIVERT-ON? DIVERT-MON) <OR ATOM !<FALSE!>
+>>
+<SETG DIVERT-MAX 5>
+<SETG DIVERT-COUNT 0>
+
+<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>
+DIVERT-HANDLER "DIVERT-AGC" %<GBIND DIVERT-FCN T> HANDLER %<GBIND
+DIVERT-HANDLER T> "GC" %<GBIND POST-GC-FCN T> %<GBIND GC-HANDLER T> ON
+%<GBIND DIVERT-COUNT T> OFF %<GBIND CURRENT-ZONE T> %<GBIND ADDR-SHIFT T>
+%<GBIND DIVERT-MAX T> SPARE-AREA GROW-SPACE %<GBIND DIVERT-MON T> %<GBIND
+DEBUG-CHANNEL T> PRINC "DIVERT-AGC allocated " " bytes.
+" PRINT-MANY ]>
+<SETG \1aDIVERT-AGC #MSUBR [divert-agc-IMSUBR DIVERT-AGC ("VALUE" ANY "OPTIONAL"
+ANY) 0]>
+<SETG \1aPOST-GC-FCN #MSUBR [divert-agc-IMSUBR POST-GC-FCN ("VALUE" FIX "TUPLE"
+ANY) 344]>
+<SETG \1aDIVERT-FCN #MSUBR [divert-agc-IMSUBR DIVERT-FCN ("VALUE" <OR ATOM FALSE
+FIX> ANY FIX) 412]>
+<ENDPACKAGE>