mim/mim/mimlib/gc-dump-d.msub

   1 <PACKAGE "GC-DUMP-D">
   2 <ENTRY GC-DUMP>
   3 <INCLUDE-WHEN <DEBUGGING? "GC-DUMP-D"> "GC-DUMP-DEFS">
   4 <GDECL (SPACE-END WORDS-NEEDED NUMBER-OF-NEWTYPES AL) FIX>
   5
   6 <SETG \1agc-dump-IMSUBR #IMSUBR [|AAAFGSCOH\AEH_DAAAAAAGDAAAAAAGCCE_CCE_CCE_CCE_CCE_CCE_BMH]AAAAAKCGCCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_BQBNAAAKGAF]AAAAD`G`CKCADGAMBADMAAAUCOFYACFSBLCIAAAMCOFYAAFUBMGABMHNAAAMBMHMAAAYBMHMAAA]BLCAAAAIBADMAABEBADIAAAEBAB]AAAAAAACCOFYAAF[BIAABLCIAAAUBLCAAAAQBKBMAABIBCDMAABMCOFYACGQDAAAAEAABADMAABUBAAYBACQBCAQBCDIAAAED_AABEDIAABMBLCKAAAUBLD]AAAAABABAAAQBLCHAAA]BLD]AAAAAACAAAAYBLCJAABEBLCBAABABLCIAABMBLCAAABICKFNAAAUDHCSBADNAAAUBCAQBCDIAAAEBEDJAAAEBGDNAABEBADLAABUFVGIDGAOBADLAABYBDCIAAAIBADLAABQBCEIBACRBEDJAAAEERGKGRHNAAA]BCDNAAAUBCDJH`H]BLCJAAAUBLD[H`EWAAAQBLCIAAA]BLD[H`EYAAAYDAFIBADNAAA]BABNAAAYCOFYAAFUBCDMAAB]BCAZBCCRBUD]AAAAEVGJBOAIBMAKDOAGCEEGHMFPDAACHNFPBMH[H`DIBMGHBADNAABMBCBIAABQBCDIAABUGCF]H`H`D`G`BMGBBMGJDQACBADMAACECOFYAAF[BCDMAACMBCGABCEIBCAQBCDIAAAEBEDJAABUBGDMAACUBGH[H`BMBGEKBEDJAABYBGDMAAC]BGH[H`A_BGEKBEDMAADEBEH[H`AUCCESBEDMAADMBEH[H`AKCCESBLCIAABMBLCAAABIBLCJAABEBLCBAABACOFYAAGGDAAAAAAOBLCAAABQBLCIAABUDAAAAAFSCCE_CCE_BACNCKFIH`H]DLAEBADIH`H]BCDIH`HUBACNCKFIH`H]DLAEBADIH`H]BMH]AAASADBCBMH]AAAMACGCBMGIBEDMAADUBMGKBMHMAADYBMHMAAD]BMHZA`H`H`HYBMHKAAAEBMHZA`H`H`HUCHHOH`HABDGLA`H`H`HYBFCLAAAEBLCJAAAEBKF[H`GICOFYABA[BMH]AAAAAICCBMH]AAAAACDGBMGNBMHNH`H]DMAEBNCNH`H]BADNAAAEBCAQBCDIAAAEBMGBBMGJCLHOH`HYDQABDAAAACCIBCDNAAAEBDCAAABYBDCIAAB]BQD]AAAABAB]AAAAABCBCOHYAAFOBMH[H`FWBMH]AAAAACFGBMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAECLHOH`HYDQABDAAAAQFQBQBNAABSGAF[H^EKFQD]ADCCDGBYCOFYAAFUBMHNAABIBMHNAABMDQABBADMAAEECOFYAAF[COFYAAFUBMHNAABQBMHNAABUBMHMAAEIBMHMAAEMDQACBADMAAEUCOFYAAF[COHYAAFOFQD]ABCBDHCACOFYAAFUBMHNAABIBMHNAABMDQABBADMAAEECOFYAAF[COFYAAFUBMHMAAEYBMHMAAE]BMHNAABQBMHNAABUBMHMAAEIBMHMAAEMDQADBADMAAEUCOFYAAF[COHYAAFOBCDMAACUBCAZBCCRBACJCYEJBCFNAABYBDDNAAB]AAAEBDCJH`H]BCDMAAB]BCAZBCCRD_ADBMAJDOAGCEEGHMFPDAACHNFPBCDMAACUBCAZBCCRG_EJBADNAABEBCDIAABUE_EJBCDMAAB]BCAZBCCRBUD]AAAAEVGJBMAKDOAGCEEGHMFPDAACHNFPBCDIAABUBUAHCICCBUB]AHGGBECJBCDMAADMBCAZBCCRCOFYAAFUBMHNAAAIBMHNAAAMBMHMAAFABMHMAAFEBMGBBMGJBLCKAACEBLCCAACABLCHAAA]BLD[H]HGAAAYBADMAAFMBADIAAAEBAB]AAAAAAADCOFYAAF[BADMAADEBAAYBACQCOFYAAFUBMHNAAAIBMHNAAAMBMHMAAFABMHMAAFEBMGABMGIBADMAAFMBADIAAAEBAB[H`GOCOFYAAF[COFYAAFUBMHNAAAIBMHNAAAMBMHMAAFABMHMAAFEBMHNAAAYBMHNAAA]BADMAAFMBADIAAAEBAB[H`FCCOFYAAF[COFYAAFUBMHNAAAIBMHNAAAMBMHMAAFQBMHMAAFUBMHNAACABMHNAACEBADMAAF]BADIAAAEBAB[H`DWCOFYAAF[COFYAAFUBMHNAABIBMHNAABMDQABBADMAAEECOFYAAF[BADNAAAEBAAVCOHYAAFOCOFYAAFUBMHMAAGABMHMAAGEBMHMAAEIBMHMAAEMDQACBADMAAEUCOFYAAF[COHYAAFOCCE_CCE_B_BNAAACGOF[H\EAACEHAAAAAAAHCKEHDNBMF_F]AAAAAAAHDOBECOH\DUACDAAAAACGDAAAABA[DAAAABCADAAAAAASDAAAAAF[DAAAAAEMDAAAAAC_DAAAAAGYCOFYAAFUBMGVBMHNAAAEBADMAADUCOFYACFSGAF[H]C[BMGABMGIDQACBADMAAGMCOFYAAF[COHYAAFOBMH[H^BABMH]AAAAAFB]BMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAECLHOH`HYDQABDAAAABECBADNAAAEBAAVCOHYAAFOBMH[H]HQBMH]AAAAAFDMBMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAECLHOH`HYDQABDAAAAEBGCOHYAAFOBMH[H]GGBMH]AAAAAFEWBMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAECLHOH`HYDQABDAAAAFDACOHYAAFOBMH[H]E]BMH]AAAAAFGABMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAECLHOH`HYDQABDAAAAGHKCOHYAAFOBMH[H]DSBMH]AAAAAFHKBMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAECLHOH`HYDQABDAAAABGICOHYAAFOBMH[H]CIBMH]AAAAAGAUBMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAECLHOH`HYDQABDAAAAIB[COHYAAFOCOFYAAFUBMGVBMHNAAAEDQABBADMAAGUCOFYAAF[FRHMAAG]DGBSBMH[H]AEBMH]AAAAAGDABMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAEBLCIAAAMBLCAAAAICLHOH`HYDQABDAAAAKACCOHYAAFOFRHMAAHEDGBKBMH[H\GMBMH]AAAAAGEQBMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAECLHOH`HYDQABDAAAALEGCOHYAAFOCOFYAAFUBMGVBMHNAAAEBADMAADUCOFYACFSGAF[H[FUBMGABMGIDQACBADMAAGMCOFYAAF[COHYAAFOCCE_CCE_BMH]AAAKADCCCCE_B_BNAAACGOF[HZDIHMEPBADMAAHMBAAYBACQF_EIDOAMBQD]AAAABAB[H\EUCOHYAAFOBADMAAHUBAAYBACQCSEHBCBQD_HYBCDQD_H]BMH[H\B[BMH]AAAAAHBOBMGNBMHNH`H]DMAEBNCNH`H]BADJAAAEBMH[H`FKBMGIBLCJAAAMBLCBAAAICLHOH`HYDQABDAAAAJBUCKEQDGAKBCB[H\CEBSD]AAAADAAIBCB]AAAKADGCBCCQBOAJDGC]BCDMAADMCSFJAAAEBCDMAADEAGFJAAAAAAAQAAAEBMH[H[G[BMH]AAAAAHEOBMGNBMHNH`H]DMAEBNCNH`H]BCDNAAAMBEDJAAAMBMH[H`CGBMGKBLCIAAAUCLHOH`HYDQABDAAAAIGUBCB[H`FOBCCIBADNAAAUFSD]ABCBDGAECCEQDAACBAEJBADMAAH]BABMAAHYCOHYAAFOCCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_BAAVBADNAAAECOFYABFQBOAACCCHCICHHHEHG_EIBCCHCKBJAAACDNAMBCD]AAAAAAAABCB[HYGKDAAGBCDJAAAEBCAABLCJAAAUBLCBAAAQBLCIAAAMBLCAAAAIFSD]AACADGAAABC[BMH[H[BMBMH]AAAAAIBQBMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAECLHOH`HYDQABDAAAH_EOBADMAACUBAAYBACQBCBNAAAIB_BNAAAIGOF]AAAAH`H`HHEHG_FNAAAMBCCHAAERAAAAEAAABDCIAAAEBSDNAAAIBOAJHDEPCUEHBEDMAAB]BEA[BECSBMAKDOAGCEEGHMFPDAACHNFPG_EIBEDMAAC]BEA[BECSF_EKDPB[COFYAAFUBMHMABAABMHMABAEBLCIAAAUBLCBAAAQBADMAADUBLCHAAA]BLD[HYAQAAAYCOFYACFSGAF[HYFQBMGABMGIDQACBADMAAGMCOFYAAF[DAASBCDMAACUBCH[HXHOBCEHBLCIAAAUBLCBAAAQBQDNAAAIBOAIHDEPCUEHBMAHBADNAAAMBADNAAAUB_BNAAAQGOF[H`CYHHEHG_FNAAAUBACHACEQH`H`D`H`BADNAAAUBABNAAAQBLCIAABEBLCAAABACKDNAABADPCSBADNAABEBABNAABABMH[HZA_BMH]AAAAAJCOBMGNBMHNH`H]DMAEBNCNH`H]BCAQBCDIAAAEGCF[HYBGBMGBBMGJBLCIAABMBLCAAABICLHOH`HYDQABDAAAH\DABCDNAABMBCEABDCIAAAECTDNAABACQFNAABEDAFIBQDNAAAIBSCVERGJBOAIBCDNAAAUCDHRD_AABCAICICBCEEBGSFNAAAQBSB]ACCHBSBNAAACBACJBAABCOHYAAFOAAAABMH]AAAAAHGGCCE_CCE_CCE_BMH[HXAUCCE_BAAVBADNAAAECOFYABFQBOAACCCHCICHHFEHG_EIBCCHCKBJAAACDNAKBCD[H_BCBCB[HWHODAAGBCDJAAAEBCAABLCJAAAUBLCBAAAQBLCIAAAMBLCAAAAIFSD]AACADGAAAAHEBMH[HYCQBMH]AAAAAKAMBMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAECLHOH`HYDQABDAAAH]FSBADMAACUBAAYBACQBCBNAAAIB_BNAAAIGOF[H_BEHFEHG_FNAAAMBCCHAAERAAAAEAAABDCIAAAEBSDNAAAICUEJBEDMAAB]BEA[BECSBOAJBMAKDOAGCEEGHMFPDAACHNFPG_EIBEDMAAC]BEA[BECSF_EKDPBUCOFYAAFUBMHMABAABMHMABAEBLCIAAAUBLCBAAAQBADMAADUBLCHAAA]COFYACFSGAF[HWG_BMGABMGIDQACBADMAAGMCOFYAAF[DAASBCDMAACUBCHNAAAYBCEHBLCIAAAUBLCBAAAQBQDNAAAICUEIBOAIBCDNAAAMBCDNAAAUB_BNAAAQGOF[H^EKHFEHG_FNAAAUBACHACEQH`H`D`H`BQDNAAAIBSCVERGJBOAIBCDNAAAUCDHRD]AABCAICICBCEEBGSFNAAAQBSB]AHGGBSBNAAACBACJBAABCOHYAAFOBMH]AAAAABGFCCE_CCE_CCE_BMH[HVFQCCE_CCE_CCE_BAAVBADNAAAECOFYABFQBOAACCCHCICHG_EICWEHACEHH`H`H`H]BCCHCKBJAAACDNAKBCD[H]FUBCB[HVEADAAGBCDJAAAEBCAABLCJAAAUBLCIAAAMFSD]AACADGAAABBOBMH[HWHKBMH]AAAAALECBMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAEBLCIAAAMBLCAAAAIBLCJAAAUBLCBAAAQCLHOH`HYDQABDAAAH\B]BADMAACUBAAYBACQBSDNAAAIBEDMABAMBEA[BECSGTGKBEDMABAUBEA[BECSBOAKBMAJCMCHDIAGCUEGBCBNAAAIB_BNAAAIGOF[H]EOG_FNAAAMCWEHACEHH`H`H`H]BCCHAAERAAAAEAAABDCIAAAEBEDMAAB]BEA[BECSBOAGBKAKDOAGCEEFHKFODAACHLFOG]EIBEDMAAC]BEA[BECSF]EKDPB_COFYAAFUBMHMABAABMHMABAEBLCIAAAUBLCBAAAQBADMAADUBLCHAAA]BLCGAABEBLD[HUE_AABACOFYACFSGAF[HVB_BMGABMGIDQACBADMAAGMCOFYAAF[DAAWBCDMAACUBCH[HUD]BCEGBLCHAAA]BLCIAAAUBLCBAAAQBADNAAAMBABNAAAIBCDNAAAUBCBNAAAQBOBNAAA]BECIBGCJB_BNAAAQGOF[H\G_G_ELCWEHACEHH`H`H`H]BACHACEQH`H`D`H`BLCAAAAIBQDNAAAIBSCVERGJBLCBAAAQBCDNAAAUGTGIBCAICICBCEEBGSFNAAAQBSB]ABGFBSBNAAACBACJBAABCOHYAAFOBMH]AAAAALAECCE_CCE_CCE_BMH[HTH]CCE_CCE_CCE_BAAVBADNAAAECOFYABFQBOAACCCHCICHG_EICWEHACEHH`H`H`H]BCCHCKBJAAACDNAKBCD[H\AABCB[HTGMDAAGBCDJAAAEBCAABLCIAAAMFSD]AACADGAAABBOBMH[HVB[BMH]AAAAANBSBMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAEBLCIAAAMBLCAAAAIBLCJAAAUBLCBAAAQCLHOH`HYDQABDAAAHZEMBADMAACUBAAYBACQBSDNAAAIBEDMABA]BEA[BECSGTGKBEDMABBEBEA[BECSBOAKBMAJCMCHDIAGCUEGBCBNAAAIB_BNAAAIGOF[H[G_G_FNAAAMCWEHACEHH`H`H`H]BCCHAAERAAAAEAAABDCIAAAEBEDMAAB]BEA[BECSBOAGBKAKDOAGCEEFHKFODAACHLFOG]EIBEDMAAC]BEA[BECSF]EKDPB_COFYAAFUBMHMABAABMHMABAEBLCIAAAUBLCBAAAQBADMAADUBLCHAAA]BLCGAABEBLD[HSHOAABACOFYACFSGAF[HTEOBMGABMGIDQACBADMAAGMCOFYAAF[DAAWBCDMAACUBCH[HSGMBCEGBLCHAAA]BLCIAAAUBLCBAAAQBOBNAAAMBABNAAAIBADNAAAUBCBNAAAQBMBNAAA]BCCHBCCIB]BNAAAQGMF[H[BOG]EJCWEGACEGH`H`H`H]BACGACEQH`H`D`H`BLCAAAAIBQDNAAAIBUCVERGKGTGIBOAICICHESEHBSB]ALAEBSBNAAACBACJBAABCOHYAAFOCCE_CCE_CCE_CCE_BMH[HSCQCCE_CCE_CCE_CCE_CCE_BMH[HSCOCCE_BMH[HSCICCE_BADNAAAEBAAVBMH[HTGCBMH]AAAAAOFABMGNBMHNH`H]DMAEBNCNH`H]BMGABMGIBLCIAAAMBLCAAAAICLHOH`HYDQABDAAAHYA_CKFNAAAEDGASBADNAAAEBAAVBLCIAABMBLCAAABIDAAAABEYBQD]AAAABLCIAAAUBLD[HTFWAAAQCKFNAAAEDGAMBADNAAAUCCFIH`H]DAAAABDYBADNAAAECKBIAAACDNAGBAD[HYH_DAAGBAD]AAAAAAABBOAIDGAAABBMBADMAACUBAAYBACQBCCICYEIBEDMAAB]BEA[BECSD_ADBMAKDOAGCEEGHMFPDAACHNFPGTGHBEDMAAC]BEA[BECSFTGKDPBWCOFYAAFUBMHMABAABMHMABAEBLCIAAA]BADMAADUBLCJAABEBLD[HRDUAABACOFYACFSGAF[HSAUBMGABMGIDQACBADMAAGMCOFYAAF[DAAOBEDMAACUBEH[HRCSBEEJBLCIAAA]BQBNAABKGAF[HQGICKCADGAMBADNAAA]BLCIAABMBAB[HRBIBSBNAAASGCF[HQFQFSD]ABCBDHAKBADNAAAUBBDNAAA]H`H]BADNAAAEBCDIH`H]BEDNAAA]BFCJH`H]BGAQBGDIAAAEAAEQAAAAEAAABMH[HSECBMH]AAAAAPHGBMGNBMHNH`H]DMAEBNCNH`H]BMGDBMGLB\CAAABKBLCJAABEBLD[HQGOAABACLHOH`HYDQABDAAAHUGIBSBNAABWCICBBSBNAAB_BCCIBADNAAA]BAEBBBCJAAAEBCDNAAAEBDCIH`H]BCDNAABEBLCJAAAEBKF[HQEYBLCIAAAUBLD[HQEQAAAQDAAAH_FKBQBNAABKGAF[HQASCKCADGAUBADNAAAEBCDIH`H]BLCJAABMBLD[HQDOAABIDAAQBADNAAAEBCDIH`H]BADNAAAUBBCJH`H]BADNAABMBABNAABIBQBNAAAKCOHYAAFOAAAACCE_CCE_BMH[HQCMCCE_CCE_CCE_BADNAAAEFRHMABBMDGA[B_BNAAACGOF[HPFYBQB]AAAKCICABQAHBAD]H`H`H`H`COHYAAFOBAAVCOFYACAWFQD]AACADGAAABDQBMH[HREWBMH]AAAAAQGOBMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAEBLCIAAAMBLCAAAAICLHOH`HYDQABDAAAHVHQBADMAACUBAAYBACQBCDMAADECWFJAAAEBCAVBIAIBLCEAAAUBAABBADNAAAECOFYACAQBCDMAAB]BCAZBCCRD_AHBMAJDOAGCEEGHMFPDAACHNFPG_FNAAAUBCDMAAC]BCAZBCCRF_EJDPBUCOFYAAFUBMHMABAABMHMABAEBADMAADUBLCEAAA]BLCAAAAYBLCHAAAUCOFYACFSGAF[HQBEBMGABMGIDQACBADMAAGMCOFYAAF[DAASBCDMAACUBCHNAAAQBCEHBLCEAAA]BLCAAAAYBYF]AAAABADNAAAEBADNAAA]BABNAAAYBADNAAA]DYAACOFYACAQCCEQCCFIAAAEBMH[HQF[BMH]AAAAARFIBMGNBMHNH`H]DMAEBNCNH`H]B]HIAAAKB]H]ABGFBMHIAAAMCLHOH`HYDQABDAAAHZCOBCDNAAA]BDCIAAAMCICABTCAAAAKCICABMH[HQD_BMH]AAAAARHQBMGNBMHNH`H]DMAEBNCNH`H]CKFJAAAQDGAIBMH[HQFCCCE_DAAKBMH]AAAKADECBMHJAAAQCLHOH`HYDQABDAAAHSF_BCDNAAA]FQD]ABCBDGAGCCFJAAAQDAAEBDCIAAAQBACJBABNAAAYCOHYAAFOCOHYAAFOAAAACCE_CCE_BMH[HOEYCCE_BAAVBADNAAAECOFYACAWFQD]AACADGAAABBCBMH[HQAGBMH]AAAAASC_BMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAEBLCIAAAMBLCAAAAICLHOH`HYDQABDAAAHUDABADMAACUBAAYBACQBCAVBIAIBLCEAAAUBAABBADNAAAECOFYACAQBCDMAAB]BCAZBCCRD_AHBMAJDOAGCEEGHMFPDAACHNFPG_FNAAAUBCDMAAC]BCAZBCCRF_EJDPBUCOFYAAFUBMHMABAABMHMABAEBADMAADUBLCEAAAMBLCAAAAIBLCHAAAUCOFYACFSGAF[HOE]BMGABMGIDQACBADMAAGMCOFYAAF[DAASBCDMAACUBCHNAAAQBCEHBLCEAAAMBLCAAAAIBYF]AAAABADNAAAEBADNAAAMBABNAAAIBADNAAAMDYAACOFYACAQBCDMABBUBCAZBCCRBAEBBBCJAAAEBMH[HPBKBMH]AAAAATBUBMGNBMHNH`H]DMAEBNCNH`H]BMH[HTE_BMHIAAAICLHOH`HYDQABDAAAHRD[BCDNAAAMBDCIAAAICCFJAAAQBDD[HPBWAAAMBACJBABNAAAICOHYAAFOCOHYAAFOCCE_CCE_BMH[HNCYCCE_B_BNAAACGOF[HMGSHMEPBADMAAHMBAAYBACQBLCHAAAUF_EIDPAAAAESBADMAAHUBAAYBACQCSEHBCBQD_HYBCDQD_H]BMH[HOFKBMH]AAAAATGEBMGNBMHNH`H]DMAEBNCNH`H]BAABBACJBLCIAAAMBLCAAAAICOFYABGOGAF[HNFIBMGABMGICLHOH`HYDQABDAAAH`ESBMH[HODSBMH]AAAAAUAKBMGNBMHNH`H]DMAEBNCNH`H]COFYAAFUBMHNAAAIBMHNAAAMBMH[HMGKBMH[HMD_DQACBADMABB]COFYAAF[GAF[HNDCBMGABMGICLHOH`HYDQABDAAAH`CMBOAVGOF[HQFWCKEHDPBGF_F[HQFODOBACOH\DUH_DAAAABBIDAAAABHUDAAAAAASDAAAAADADAAAAABWDAAAAAASDAAAAAD[BADMAAH]BABMAAHYCOHYAAFOB_AVGOF[HTHYHFEHG_FNAAAEBACHACEQH`H`D`H`BADMAAH]BABMAAHYCOHYAAFOB_AVGOF[HTGYG_FNAAAECWEHACEHH`H`H`H]BACHACEQH`H`D`H`BADMAAH]BABMAAHYCOHYAAFOB_AVGOF[HTFSG_FNAAAECWEHACEHH`H`H`H]BACHACEQH`H`D`H`BADMAAH]BABMAAHYCOHYAAFOB_AVGOF[HTEMHHEHG_FNAAAEBACHCKBIAAACDNAKBAD[HTA[BAB[HLHGDAAGBADIAAAEBAAVFQD]AACADHAAACB[B_AVGOF[HTDAHHEHG_FNAAAEBACHACEQH`H`D`H`BADNAAAEBAAVBQB]ACCHBLCIAAAMBLCAAAAICKDNAAAIDPAAACAMBMH[HNBKBMH]AAAAAVB_BMGNBMHNH`H]DMAEBNCNH`H]BADNAAAMBCAQBCDIAAAEGCF[HMBOBMGBBMGJCLHOH`HYDQABDAAAH_AYCTDNAAAICQFNAAAMDAF]BADNAAAECKBIAAACDNAGBAD[HSEODAAEBAD[HZEQBOAIDHAAABFWBCDNAAAEBEDJH`H]BGASBGDKAAAEBCB[HLBUBCCIBADNAAAEBBCJH`H]BCAQBCDIAAAEBOABGOF[HKFOBCAQBCDIAAAEBMABCCCGCICGBSAGCICBBSAHBCCLBEEBBFCJAAAEACEQH`H`D`H`ACESH`H`D`H`BMH[HMEGBMH]AAAAAVG_BMGNBMHNH`H]DMAEBNCNH`H]BCAQBCDIAAAEGCF[HLEOBMGBBMGJCLHOH`HYDQABDAAAH^DYBMH[HMCYBMH]AAAAAWAMBMGNBMHNH`H]DMAEBNCNH`H]BADNAAAEBCDIH`H]BMH[HKFIBMGJCLHOH`HYDQABDAAAH^CKBADMAAH]BABMAAHYCOHYAAFOCOFYAAFUBMGVBMHNAAAEDQABBADMAAGUCOFYAAF[FRHMAAG]DGAAAAE[BLCIAAAMBLCAAAAIBAAVBADNAAAECOFYACAWFQD]AACADHAAAAGKBAAVBADNAAAEDYAACOFYACAQBMH[HLG]BMH]AAAAAWEGBMGNBMHNH`H]DMAEBNCNH`H]B]HIAAAKB]H]ABGFBMHIAAAMCLHOH`HYDQABDAAAH]GQBMH[HLFQBMH]AAAAAWGABMGNBMHNH`H]DMAEBNCNH`H]BADNAAAECKFIAAAQDGAIBMH[HLGQCCE_DAAIBMH[H\BOBMHIAAAQCLHOH`HYDQABDAAAH]EWBADMAAH]BABMAAHYCOHYAAFOFRHMAAHEDGCEBAAVBADNAAAECOFYACAWFQD]AACADHBUBAAVBADNAAAEDYAACOFYACAQBMH[HLCIBMH]AAAAAXAWBMGNBMHNH`H]DMAEBNCNH`H]BMH[HPF]BMHIAAAICLHOH`HYDQABDAAAH]CABADMAAH]BABMAAHYCOHYAAFOAAAABOBNAAAEF_FNAAAMDGAMBADMAAH]BABMAAHYCOHYAAFOCSEHBLCHAAAEDAHCAAAAAAAA| gc-dump-IMSUBR OUTCHAN GET-BYTE-SIZE
   7 %<CHANNEL-OPERATION DISK GET-BYTE-SIZE> "BINARY" %<GBIND CURRENT-ZONE T>
   8 %<GBIND ADDR-SHIFT T>  CREATE-NEW-GC-SPACE %<GBIND NEW-ZONE T>  %<GBIND AL T>
   9 %<GBIND SPACE-END T>  %<GBIND WORDS-NEEDED T>  %<GBIND NUMBER-OF-NEWTYPES T>
  10 DUMP-FRAME FRAME FLUSH-ZONE GC-DUMP ERROR UNDUMPABLE-OBJECT!-ERRORS WRITE-BYTE
  11 %<CHANNEL-OPERATION DISK WRITE-BYTE> WRITE-BUFFER %<CHANNEL-OPERATION DISK
  12 WRITE-BUFFER> CHANNEL-HAS-WRONG-BYTE-SIZE!-ERRORS RETURN PRIMTYPE ATOM GBIND
  13 %<GBIND OLD-TYPES T>  %<GBIND M$$TYPE-INFO!-INTERNAL T>  T NO-MORE-ROOM!-ERRORS
  14  %<GBIND CHARS-WD-1 T>  %<GBIND CHARS-WD T>  %<GBIND BYTES-WD-1 T>  %<GBIND
  15 BYTES-WD T>  ROOT %<GBIND M$$UNBOUND T>  NTH ]>
  16 <SETG \1aGC-DUMP #MSUBR [gc-dump-IMSUBR GC-DUMP ("VALUE" ANY ANY "OPTIONAL" <
  17 CHANNEL 'DISK>) 0]>
  18 <SETG \1aDUMP #MSUBR [gc-dump-IMSUBR DUMP ("VALUE" ANY ANY) 1196]>
  19 <SETG \1aDUMP-NEWTYPE? #MSUBR [gc-dump-IMSUBR DUMP-NEWTYPE? ("VALUE" <OR ATOM
  20 FALSE> ANY) 1724]>
  21 <SETG \1aDUMP-VECTOR #MSUBR [gc-dump-IMSUBR DUMP-VECTOR ("VALUE" <PRIMTYPE
  22 VECTOR> <PRIMTYPE VECTOR>) 1968]>
  23 <SETG \1aDUMP-UVECTOR #MSUBR [gc-dump-IMSUBR DUMP-UVECTOR ("VALUE" <PRIMTYPE
  24 UVECTOR> <PRIMTYPE UVECTOR>) 2448]>
  25 <SETG \1aDUMP-STRING #MSUBR [gc-dump-IMSUBR DUMP-STRING ("VALUE" <PRIMTYPE
  26 STRING> <PRIMTYPE STRING>) 2804]>
  27 <SETG \1aDUMP-BYTES #MSUBR [gc-dump-IMSUBR DUMP-BYTES ("VALUE" <PRIMTYPE BYTES>
  28 <PRIMTYPE BYTES>) 3240]>
  29 <SETG \1aDUMP-LIST #MSUBR [gc-dump-IMSUBR DUMP-LIST ("VALUE" <PRIMTYPE LIST> <
  30 PRIMTYPE LIST>) 3660]>
  31 <SETG \1aDUMP-ATOM #MSUBR [gc-dump-IMSUBR DUMP-ATOM ("VALUE" <PRIMTYPE ATOM> <
  32 PRIMTYPE ATOM>) 4192]>
  33 <SETG \1aDUMP-GBIND #MSUBR [gc-dump-IMSUBR DUMP-GBIND ("VALUE" <<PRIMTYPE GBIND>
  34 [2 ANY] <OR ATOM FALSE FORM>> <PRIMTYPE GBIND>) 4628]>
  35 <SETG \1aUNMARK #MSUBR [gc-dump-IMSUBR UNMARK ("VALUE" ATOM ANY) 4948]>
  36 <SETG \1aDO-SPACS #MSUBR [gc-dump-IMSUBR DO-SPACS ("VALUE" ATOM FIX FIX FIX)
  37 5924]>
  38 <ENDPACKAGE>