X-Git-Url: https://jxself.org/git/?p=pdp10-muddle.git;a=blobdiff_plain;f=mim%2Fmim%2Fmimlib%2Fgc-dump-d.msub;fp=mim%2Fmim%2Fmimlib%2Fgc-dump-d.msub;h=c988d930f925e7ae11a65455a3f311ee72488cd7;hp=0000000000000000000000000000000000000000;hb=d73ace3f3292e320b461b8fcd2e9f5dc5d9684d7;hpb=d530283ea60fb0ddcc28e9c5bd072456afe06e07

diff --git a/mim/mim/mimlib/gc-dump-d.msub b/mim/mim/mimlib/gc-dump-d.msub
new file mode 100644
index 0000000..c988d93
--- /dev/null
+++ b/mim/mim/mimlib/gc-dump-d.msub
@@ -0,0 +1,38 @@
+<PACKAGE "GC-DUMP-D">
+<ENTRY GC-DUMP>
+<INCLUDE-WHEN <DEBUGGING? "GC-DUMP-D"> "GC-DUMP-DEFS">
+<GDECL (SPACE-END WORDS-NEEDED NUMBER-OF-NEWTYPES AL) FIX>
+
+<SETG gc-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 
+%<CHANNEL-OPERATION DISK GET-BYTE-SIZE> "BINARY" %<GBIND CURRENT-ZONE T>  
+%<GBIND ADDR-SHIFT T>  CREATE-NEW-GC-SPACE %<GBIND NEW-ZONE T>  %<GBIND AL T>  
+%<GBIND SPACE-END T>  %<GBIND WORDS-NEEDED T>  %<GBIND NUMBER-OF-NEWTYPES T>  
+DUMP-FRAME FRAME FLUSH-ZONE GC-DUMP ERROR UNDUMPABLE-OBJECT!-ERRORS WRITE-BYTE 
+%<CHANNEL-OPERATION DISK WRITE-BYTE> WRITE-BUFFER %<CHANNEL-OPERATION DISK 
+WRITE-BUFFER> CHANNEL-HAS-WRONG-BYTE-SIZE!-ERRORS RETURN PRIMTYPE ATOM GBIND 
+%<GBIND OLD-TYPES T>  %<GBIND M$$TYPE-INFO!-INTERNAL T>  T NO-MORE-ROOM!-ERRORS
+ %<GBIND CHARS-WD-1 T>  %<GBIND CHARS-WD T>  %<GBIND BYTES-WD-1 T>  %<GBIND 
+BYTES-WD T>  ROOT %<GBIND M$$UNBOUND T>  NTH ]>
+<SETG GC-DUMP #MSUBR [gc-dump-IMSUBR GC-DUMP ("VALUE" ANY ANY "OPTIONAL" <
+CHANNEL 'DISK>) 0]>
+<SETG DUMP #MSUBR [gc-dump-IMSUBR DUMP ("VALUE" ANY ANY) 1196]>
+<SETG DUMP-NEWTYPE? #MSUBR [gc-dump-IMSUBR DUMP-NEWTYPE? ("VALUE" <OR ATOM
+FALSE> ANY) 1724]>
+<SETG DUMP-VECTOR #MSUBR [gc-dump-IMSUBR DUMP-VECTOR ("VALUE" <PRIMTYPE
+VECTOR> <PRIMTYPE VECTOR>) 1968]>
+<SETG DUMP-UVECTOR #MSUBR [gc-dump-IMSUBR DUMP-UVECTOR ("VALUE" <PRIMTYPE
+UVECTOR> <PRIMTYPE UVECTOR>) 2448]>
+<SETG DUMP-STRING #MSUBR [gc-dump-IMSUBR DUMP-STRING ("VALUE" <PRIMTYPE
+STRING> <PRIMTYPE STRING>) 2804]>
+<SETG DUMP-BYTES #MSUBR [gc-dump-IMSUBR DUMP-BYTES ("VALUE" <PRIMTYPE BYTES>
+<PRIMTYPE BYTES>) 3240]>
+<SETG DUMP-LIST #MSUBR [gc-dump-IMSUBR DUMP-LIST ("VALUE" <PRIMTYPE LIST> <
+PRIMTYPE LIST>) 3660]>
+<SETG DUMP-ATOM #MSUBR [gc-dump-IMSUBR DUMP-ATOM ("VALUE" <PRIMTYPE ATOM> <
+PRIMTYPE ATOM>) 4192]>
+<SETG DUMP-GBIND #MSUBR [gc-dump-IMSUBR DUMP-GBIND ("VALUE" <<PRIMTYPE GBIND>
+[2 ANY] <OR ATOM FALSE FORM>> <PRIMTYPE GBIND>) 4628]>
+<SETG UNMARK #MSUBR [gc-dump-IMSUBR UNMARK ("VALUE" ATOM ANY) 4948]>
+<SETG DO-SPACS #MSUBR [gc-dump-IMSUBR DO-SPACS ("VALUE" ATOM FIX FIX FIX) 
+5924]>
+<ENDPACKAGE>