2 <ENTRY DIVERT-AGC DIVERT-MAX DIVERT-MON>
5 <GDECL (DIVERT-MAX DIVERT-COUNT) FIX (DIVERT-ON? DIVERT-MON) <OR ATOM !<FALSE!>
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.
17 <SETG
\1aDIVERT-AGC #MSUBR [divert-agc-IMSUBR DIVERT-AGC ("VALUE" ANY "OPTIONAL"
19 <SETG
\1aPOST-GC-FCN #MSUBR [divert-agc-IMSUBR POST-GC-FCN ("VALUE" FIX "TUPLE"
21 <SETG
\1aDIVERT-FCN #MSUBR [divert-agc-IMSUBR DIVERT-FCN ("VALUE" <OR ATOM FALSE