Machine-Independent MDL for TOPS-20 and VAX.

[pdp10-muddle.git] / mim / mim / mimlib / dfl.msubr

<PACKAGE "DFL">
<ENTRY DFL RDFL FLO DFL-RETRY UN-DFL DFL-FUNC-NAM DFL-FILNAM>
<USE "PP">
<INCLUDE-WHEN <DEBUGGING? "DFL"> "DFLDEFS">
<SETG SLEN 6>
<MANIFEST SLEN>
<GDECL (DFL-BUFLEN) FIX>
<SETG 6STRING <ISTRING 6>>
<SETG TV <IVECTOR ,SLEN>>
<SETG DFL-ZERO-STR <REST <SETG DFL-FILNAM <ISTRING 40 !\ >> 40>>
<SETG DFL-STRUC <REST <SETG DFL-NAM-SCRATCH <IVECTOR 10 "">> 9>>

<SETG \1adfl-IMSUBR #IMSUBR [|AAAJHSCOH\AEACDAAAAAAODAAAAAAODAAAAAAODAAAAAASCCE_CCE_CCE_CCE_BMHMAAAQBMHMAAAUCKFZA`H`H`HIDHAECOFYABBYCKDNAAACDGAOBADMAAA]BAAYBACQBLCIAAAEBKEACKDNAAAKDGAQBADMAABEBAAYBACQBLCIAAAMBLCAAAAIBMH]AAAAAICCBMH]AAAAAAE[BMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAEBMHNAAAIBMHNAAAMBMHNAAAQBMHNAAAUBMH]AAAAABCBCCE_CLHOH`HADQAEDAAAAAFECOHYAAFOAAAACOH\AEACDAAAAAAODAAAAAAODAAAAAAODAAAAAASCCE_CCE_CCE_CCE_BMHMAABIBMHMAABMCKFZA`H`H`HIDHAECOFYABBYCKDNAAACDGAOBADMAAA]BAAYBACQBLCIAAAEBKEACKDNAAAKDGAQBADMAABEBAAYBACQBLCIAAAMBLCAAAAIBMH[H`DABMH]AAAAABBYBMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAEBMHNAAAIBMHNAAAMBMHMAABQBMHMAABUBMHNAAAQBMHNAAAUCLHOH`HADQAEDAAAAAAGCOHYAAFOCCE_CCE_CKFZA`H`H`HIDHAECOFYABBYAMDNADCCAAAKDGAYBADNAAAMBCBIAAAKBSB]ABGFBCDIAAAMBLCJAAAMBLCBAAAIBADMAAA]BAGVBAFNAAAEBADMAABEBAHNAAAIBAFNAAAMBADMAAB]BCCQBOAJDHAKBCARBCDJAAAECKCBDGDGCOFYAAFUBMH[H_HOCCE_BMHMAACABMHMAACEBMHMAABIBMHMAABMDQADBADMAACMCOFYAAF[BCDMAACUBCGABCEIBADMAACUBAAYBACQBOAACCCHCICHG_F]H`H`H`GOBADMAAC]BAH]AAAAAACABAEHBADMAACUBAAYBACQGQF]H`GOAAAAGQH]AABSBCDMAADEBCGABCEICOFYAAFUBMH[H_C[BMH]AAAAACBOBMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAEBMHNAAAYBMHNAAA]CLHOH`HQDQACDAAAAAD[BMGABMGIBMHNAAAIBMHNAAAMBMHNAAAQBMHNAAAUBMHNAAAYBMHNAAA]DQAEBADMAADMCOFYAAF[COFYAAFUBCDMAACUBMGZBMGRBLCIAABEBLCAAABADQABBADMAADUCOFYAAF[COFYAAFUBMHMAABYBMHMAAB]DQABBADMAAD]COFYAAF[BADNAABEBABNAABACOHYAAFOCOH\AEH_DAAAAAAGDAAAAAAIBMH[H^HICCE_BMH]AAAAACCHCCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYBADMAAEEBAAYBACQBCDMAAEMBCAZBCCRBOABCCCHCICHAMDNADCCAAACDGAAAAFGAMDNABCBAAAKDHDGBMH]AAAAAAEABMH]AAAAAAA[BMH[H^C]BMH]AAAAADBWBMGNBMHNH`H]DMAEBNCNH`H]BCDNAAAEB]HJAAAKB]H]ABGFBMHJAAAMBLCIAAAUBLCAAAAQCLHOH`HYDQABDAAAACGYBMGABMGIBMHMAAEQBMHMAAEUBIB]AAAAABGFD[ADCOFYAAH]BLCIAAA]BLCAAAAYDABABCDNAAAEBEBJAAAKBUB]ABGFBEDJAAAMBLCKAAA]BLCCAAAYBLCIAAAUBLCAAAAQBADNAAAUBAFNAAAYBBDNAAA]AAAEBABNAAAQCOHYAAFOAMDNABGFAAACDGAAAAEMAMDNABCBAAAKDHCWBMH[H`CSBMH[H`CUBMH[H]FSBMH]AAAAADGWBMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAEBLCIAAAUBLCAAAAQCLHOH`HYDQABDAAAACBYBMGABMGIBMHMAAEQBMHMAAEUBIB[H`DAD[ADCOFYAAH]BLCIAABEBLCAAABADAAWBCDNAAAEBCAVBLCJAABEBLCBAABABLCIAAAUBLCAAAAQBADNAAAUBAFNAABABBDNAABEAAAEBABNAAAQCOHYAAFOCOFYAAFUBMGVBMHNAAAEDQABBADMAAE]BLCJAAA]BLCBAAAYBLCHAABMBLD[H^E]AABICOFYAAF[FRHNAABMDPAAAAEICOFYAAFUBMGVBMHNAAAEDQABBADMAAE]COFYAAF[C[EIBIB[H_CABKAIBLCFAABMBLD[H^DKAABICOFYACE[BLCIAABEBLCAAABAFQF]AAAAH`H`DPAUBBDMAAFEAAAEBAFMAAFAGQF]H`H`AAAACQEIDAHEBADMAAEMBAHNAABABAFNAABEBADNAABEBABNAABABCDNAABMCTEJBLCIAAA]BLCAAAAYBOAJCBHQD_AACICHEQEHBQB]ACCHBCDMAAEEBCGABCEICOFYAAFUBMGVBMHNAAAEDQABBADMAAE]COFYAAF[BCDNAABMETGIBOAJBADNAAA]CBHQD_AAE`DNAAAYBABNAAAYBCDNAAAEBCAVBLCJAABUBLCBAABQBLCIAABEBLCAAABABLCIAAA]CKFZA`H`H`HIDHAECOFYABBYCKDNAABADPAAAAGQBABNAABQBADNAABUCOFYABGIDAAAAAAGDAAAAAF]BCDNAABEBCBNAABACOFYABGOBLCIAABMBLCAAABIFQD]ADCCDGAUBEBIAAAKBUB]ABGFBEDIAAAMBLCKAABMBLCCAABIBLCJAAAUBLCBAAAQAMDNABCBAAAKDHCOBMH[H^DQBMH[H^DSBMH[H[GQBMH]AAAAAFFSBMGNBMHNH`H]DMAEBNCNH`H]BMHNAABIBMHNAABMCLHOH`HYDQABDAAAAAC]BMGABMGIBMHMAAEQBMHMAAEUBIB[H^EED[ADCOFYAAH]BLCIAABMBLCAAABIBADNAAAUBAFNAABIBBDNAABMAAAECTDNAABACQFNAABEBIBNAABQBKBNAABUCOFYABG[BLCIAABUBLCAAABQDAAAH`BABADNAAA]BABNAAAYCOHYAAFOAAAACCE_CCE_BMH[H^BSCCE_CKFZA`H`H`HIDHAECOFYABBYBADNAAAEBAAVD_AABLCHAAAMBLD[H\FMAAAIBLCIAAAUBLCAAAAQCKFZA`H`H`HIDHAECOFYABBYCKDNAAAQDPBYBADNAAAUCCEHA_AQF_F]AAAAAACBDNAOF_F]AAAAAAC[DOAGG_F]AAAAAABABMH[H]EGBMGHCSFNAAAMCTDNAAAQCSEIBLCIAAAUBLCIAAAUDAFWBIB[H]F]BKBNAAAMCOFYAAH]COHYAAFOAAAABMH[HZHQCCE_BMH[HZHKCCE_CCE_CCE_BMH[H]E[CCE_CCE_CCE_CCE_CCE_BMH]AAAAABABCCE_BMH[H`HYCCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYCOFYAAFUBMHMAAFIBMHMAAFMBMHNAAAIBMHNAAAMDQACBADMAAFUCOFYAAF[BCDMAADEBCAZBCCRBEDZA`H`H`HYBMH]AAASADBCBMHMAABIBMHMAABMBLCIAABUBLCAAABQBGDMAAF]BMGLBMHMAAGABMHMAAGEBMHZA`H`H`HYBMHLAAAEBMHZA`H`H`HUCBHOH`HABDGIA`H`H`HYBHCIAAAEBADMAAGMCOFYACFMCKCEDGA_BQD]AAAABAB[HZA_BLCKAACEBLD]AAAQADACAACABLCJAAB]BLCBAABYDAA[BADMAAGMBLCJAAB]BLCBAABYBLCKAACEBLD[H`G_AACACOFYACFSBMH[H`D[BMGABMGIBCDMAAGMBMGJBMHMAAGQBMHMAAGUBMHZA`H`H`HYBMHJAAAEBMHZA`H`H`HUCFHOH`HABDGKA`H`H`HYBDCKAAAEBAB]AAAAAVGKBACNCKFIH`H]DLAEBADIH`H]BMH[H`BUBMH]AAAMACGCBMGIBCDMAAG]BMGJBMH[HZHEBMGABMHZA`H`H`HYBMHJAAAEBMHZA`H`H`HUCFHOH`HABDGKA`H`H`HYBDCKAAAEBADNAABUBABNAABQBLCAAACIFQD]ABCBDHAAANEKCOFYAAFUBMGABMGIBMHMAAHABMHMAAHEBADMAAHMBADIAAAEBAB]AAAAAAACCOFYAAF[BMGABMGICOFYAAFUBMHNAABQBMHNAABUBMHMAAHQBMHMAAHUBADMAAH]BADIAAAEBAB[H`GWCOFYAAF[BMGABMGICOFYAAFUBMHNAABQBMHNAABUBMHMABAABMHMABAEBADMABAMBADIAAAEBAB[H`FOCOFYAAF[BMGABMGICOFYAAFUBMHNAABQBMHNAABUBMHMABAQBMHMABAUBADMABA]BADIAAAEBAB[H`EGCOFYAAF[BMGABMGIBIB[HZG[D[AECOFYAAH]BSD]AAAABUD]AAAABWD]AAAABLCLAACMBLD[HXFCAACIBLCKAACUBLCJAAC]BLCIAADEBLCAAADACKFZA`H`H`HIDHAECOFYABBYCKFNAACMDHBABADNAAB]BABNAABYBSD]AAAABLCJAACMBLD[HXDKAACIBLCIAADUBLCAAADQDACCBADMAACUBAAYBACQBCDMAAC]BMBJAAAEG]F[HYESBCDNAAB]GTGGBCAGCICBCEEBGSFNAABYBLCJAADMBLCBAADIBCCIBLCIAADUBLCAAADQBADNAADMDYBSD[AACOFYACGKCOFYAAFUBMHNAABQBMHNAABUBMHMABBABMHMABBEBMHNAABYBMHNAAB]BADMABBMBADIAAAEBAB]AAAAAAADCOFYAAF[BLCIAAD]BLCAAADYAMDNABCBAABCDGAAAGB_BMH[HWFKBMH]AAAAAJHGBMGNBMHNH`H]DMAEBNCNH`H]BMHNAADQBMHNAADUBMHMABBQBMHMABBUBMH[HWFSCCE_CLHOH`HIDQADDAAAANCQBOAIDHAAAFFGAMBIAAC[AAABDGAMD_ACBLCHAABMBLD[HXHAAABIBCDMAAC]BMBJAAAEBOAACCCHCICHE]EHCOFYAAFUBMHNAABQBMHNAABUBMHMABBYBMHMABB]BMH[HXFWBMGGBLCIAABEBLCAAABABADMABCEBADIAAAEBAB[H`C[COFYAAF[COFYAAFUBMHNAABQBMHNAABUDQABBADMABCMCOFYAAF[BMH[HWACBMH]AAAAAKEIBMGNBMHNH`H]DMAEBNCNH`H]BMHNAABQBMHNAABUBLCIAAEEBLCAAAEACLHOH`HYDQABDAAAAMAOAMDNAEABAAECDGAAABGCCKFNAAEEDHAAABF[BADNAAEEAMDIADCCAAACDGAAABFMBOBIAAAEF_FMABCUDHBYBOBIAAAEF_FMABC]DHBOBOBIAAAEF_FMABDEDHBEBCDIAAAEBEBJAAAKBUB]ABGFBEDJAAAMBIACBACKBKBMABDIBCDMABDMCOFYACGQDAAAABDKBADNAAEEBABNAAEAD_ABBMAIDHAAABC[CTEHCKEHDNAKBADIH`H]BAB[H\FSDAHKCOFYAAFUBADNAAEEBCDIH`H]BMGZBMGRCOFYAAFUBMHMABDQBMHMABDUDQABBADMABD]COFYAAF[BMGABMGIDQACBADMABEECOFYAAF[FQD]ABCBDHAAABAOBCCQBOAJDHAAABAGBCARBCDJAAAECKCBDHAAAAH[BACQBLCIAAD]BLCAAADYBAAQBADIAAAEFQD]ABABDGAAAAHCCOFYAAFUBMHNAAEABMHNAAEEBLCIAAD]BLCAAADYDQABBADMABEMCOFYAAF[BCBIAAAKBSB]ABGFBCDIAAAMBEDMAAGMBGDKAAAEBGEBBHCJAAAEBIBMABEUBLCIAAEEBLCAAAEABABNAADYBADNAAD]COFYACFYBADNAAEEBCCQBOAJDHAMBCFNAADYBDDNAAD]AAAEDAA]COFYAAFUBMHNAAEABMGIBMHNAADYBMHNAAD]DQACBADMABE]COFYAAF[COFYAAFUBMHNAADYBMHNAAD]BMHMABFABMHMABFEBMHNAAEABMHNAAEEDQADBADMABFMCOFYAAF[COFYAAFUBMHNAABQBMHNAABUBMHMABBABMHMABBEBMHNAABYBMHNAAB]BADMABBMBADIAAAEBAB[H^CWCOFYAAF[BLCIAAD]BLCAAADYDAAAADE]AMDNABCBAABKDHBACOFYAAFUBMHNAAEABMHNAAEEDQABBADMABEMCOFYAAF[BLCIAAEEBLCAAAEADADICOFYAAFUBMHNAAEABMHNAAEEDQABBADMABEMCOFYAAF[CKFIAAAQDGAKBCB[HTHSBSD]AAAADAAKBCB]AAAKADECBCDIAAAQCOFYAAFUBMHMABDQBMHMABDUBLCIAAEEBLCAAAEADQABBADMABD]BLCJAAEMBLCBAAEICOFYAAF[FRHNAAEMDHAMD_ABBLCHAABMBLD[HUH_AABIBADNAAEEBCBIAAAKBSB]ABGFBCDIAAAMBADMAAGMBEDIAAAEBEEBBFCJAAAECKFZA`H`H`HIDHAECOFYABBYCOFYAAFUBMHNAABQBMHNAABUBMHMABBABMHMABBEBMHNAABYBMHNAAB]BADMABBMBADIAAAEBAB[H]DECOFYAAF[BMH[HTBCBMH]AAAAANDWBMGNBMHNH`H]DMAEBNCNH`H]BMHNAABYBMHNAAB]BMHMABFQBMHMABFUBMH[HTBKCCE_BLCIAAD]BLCAAADYCLHOH`HIDQADDAAAAJGABOAIDHAAAAGACOFYAAFUBMHNAABQBMHNAABUBMHMABBYBMHMABB]BLCIAABEBLCAAABABADMABCEBADIAAAEBAB[H[FGCOFYAAF[ERHNAAD]BCDMAAC]BMBJAAAEBSDNAABAE]EJGRGGCOFYAAFUBMHNAABQBMHNAABUBMHMABBYBMHMABB]BMH[HUAKBMGIBADMABCEBADIAAAEBAB[H\FWCOFYAAF[COFYAAFUCOFYAAFUBMHNAABQBMHNAABUDQABBADMABCMCOFYAAF[BMGABMGIDQABBADMABEMCOFYAAF[BMH[HSCMBMH]AAAAAOBWBMGNBMHNH`H]DMAEBNCNH`H]BMHNAABQBMHNAABUCLHOH`HYDQABDAAAAIDADAAAH_GIBLCIAABEBLCAAABACKFZA`H`H`HIDHAECOFYABBYBMH[HSAMBMH]AAAAAOEGBMGNBMHNH`H]DMAEBNCNH`H]BMHNAABYBMHNAAB]BMHMABFYBMHMABF]BMHMAABIBMHMAABMCLHOH`HIDQADDAAAAIFQBOAIDHAAAAHUCOFYAAFUBMHNAABQBMHNAABUBMHMABBYBMHMABB]BLCIAABEBLCAAABABADMABCEBADIAAAEBAB[HZEWCOFYAAF[ERHNAAD]BCDMAAC]BMBJAAAEBSDNAABAE]EJGRGGCOFYAAFUBMHNAABQBMHNAABUBMHMABBYBMHMABB]BMH[HSH[BMGIBADMABCEBADIAAAEBAB[H[FGCOFYAAF[COFYAAFUCOFYAAFUBMHNAABQBMHNAABUDQABBADMABCMCOFYAAF[BMGABMGIDQABBADMABEMCOFYAAF[BMH[HRB]BMH]AAAAAPCGBMGNBMHNH`H]DMAEBNCNH`H]BMHNAABQBMHNAABUCLHOH`HYDQABDAAAAHCQCOFYAAFUBMHNAABQBMHNAABUBMHMABBABMHMABBEBMHNAABYBMHNAAB]BADMABBMBADIAAAEBAB[H[BKCOFYAAF[BLCIAAD]BLCAAADYDAAAH_GGBADMAAFEBABMAAFABLCIAABEBLCAAABADAC]COFYAAFUBMHMABGABMHMABGEBMHNAADQBMHNAADUBLCIAABEBLCAAABADQACBADMABGMCOFYAAF[FQD]ABCBDGBECOFYAAFUBMHMABGQBMHMABGUBMHNAADQBMHNAADUDQACBADMABGMCOFYAAF[FQD]ABCBDHAMD_AABLCHAABEBLD[HRHUAABACKFZA`H`H`HIDHAECOFYABBYBMH[HQDCBMH]AAAAAQBOBMGNBMHNH`H]DMAEBNCNH`H]BMHNAADQBMHNAADUBMHNAAAQBMHNAAAUBMH[HQDKCCE_CLHOH`HIDQADDAAAAHAIBOAIDGAOBCDMAAC]BMBJAAAEF]FNAAD]DOA_BOAIDHAAABCKBOAACCCHCICHBCDMAAC]BMBJAAAEE]FNAAD]F_EGDMAAABBSCOFYAAFUBMHNAABQBMHNAABUDQABBADMABG]COFYAAF[AMDNABGFAABCDGDOAMFNAAAAAAACAABMDGA[AMDNAACAAABKDGASCOFYAAFUCOFYAAFUBMHMABHABMHMABHEDABCAMFNAAAAAAABAABMDGBSAMDNAACAAABKDGBKCOFYAAFUCOFYAAFUBMHMABHIBMHMABHMDQABBADMABHUCOFYAAF[BMGABMGIDQABBADMABEMCOFYAAF[DAAOCOFYAAFUDQAABADMABH]COFYAAF[BQD]AAAABSD]AAAABEDNAAAEBEAVBLCKAAEUBLCCAAEQBLCJAADUBLD[HVFSAADQBLCIAACMBLD[HVFIAACICKFZA`H`H`HIDHAECOFYABBYCKDNAAEQDPCKBADNAAEUBCAQBCDIAAAEFSD]ABCBDHBQBQD]AAAABIABBKAJCOFYAAGACKFNAACMDGAMBLCIAACMBLD[HVDKAACIDAAIBCDNAADUBDCIH`H]BLCIAADUBLD[HVCWAADQCTDNAAEQCQFNAAEUDAFEBADNAACMBIBMACAABKBMACAECOFYAAGABLD[HPAIAACIBLCIAACMDAAAAEBKBLCIAADUBLCAAADQBOAIDHAAHXDCBADNAADUBABNAADQFQF[HSG_DPAUAMAQAABADHAWGQF[HSHECSEIFQF[HSGMDPACDAHMBQD]AAAABAB[HOGGGQF[HSGOCSEIBOAACCCHCICHBLCHAAEUBLD[HQAEAAEQBLCIAADUBLCAAADQF_F]AAAAAABIDPAAHXAQBQDNAADQBCDNAADUBCBNAADQBLCJAAEMBLCBAAEIBLCIAAEUBLD[HPGUAAEQCKFZA`H`H`HIDHAECOFYABBYBADNAAEMCCEHA_AQBCDMACAMBCBMACAIFSF[HSC[DPBEF_ARDHAQGSF[HSDCCSEJFSF[HSCKDPACDAHODAAQBQDNAAEIBLCIAAEMBLD[HPEQAAEIDAA[CTDNAAEICSFNAAEMCKDNAAEIDOFMD_AABLCHAAEMBLD[HPDUAAEIBADNAAEUERHNAAEMCOFYAAFUBCDMACAUBCAZBCCRBIAIBAABBACJCOFYABFKBCCIBLCIAADMBLCAAADIBADNAADUD[AACOFYACGKBMHNAADIBMHNAADMBMGVBMHNAAAEDQACBADMABGMCOFYAAF[BLCIAAEEBLCAAAEAFQD]ABCBDHAAH^BICOFYAAFUBMHNAABQBMHNAABUBMHMABBYBMHMABB]BADMABCEBADIAAAEBAB[HVDECOFYAAF[ERHNAAD]BCDMAAC]BMBJAAAEBSDNAADQE]EJBCDMACA]BCDJAAAEE]EJGRGGCOFYAAFUBMHNAABQBMHNAABUBMHMABBYBMHMABB]BMH[HOF_BMGIBLCIAAD]BLD[HOFUAADYBADMABCEBADIAAAEBAB[HWDACOFYAAF[BADMAABMCOFYAAFUBMHNAABQBMHNAABUDQABBLCIAACMBLD]AAAKADCCAACIBADMABCMCOFYAAF[BCDIH`H]BEDJAAAEBMH[HMHQBMH]AAAAATFEBMGNBMHNH`H]DMAEBNCNH`H]BMHNAABQBMHNAABUBLCIAADUBLCAAADQBLCKAADMBLD[H`F_AADICLHOH`HYDQABDAAAACHSBADNAAC]BIBNAADIBKBNAADMCOFYAAGACOFYAAFUBMHNAADQBMHNAADUDQABBLCIAAC]BADMABEMCOFYAAF[COFYAAFUBMHNAADIBMHNAADMBMHMACBABMHMACBEBMHNAADYBMHNAAD]COFYAAFUBMHNAABQBMHNAABUBMHMABBYBMHMABB]BADMABCEBADIAAAEBAB[HUCACOFYAAF[BMGABMGIBMHNAADABMHNAADEBADMABEUCOFYACFSBMGABMGIBIB[HOEAD[AECOFYAAH]BMGABMGIDQADBADMABFMCOFYAAF[BADNAAEEBAF[HMCGCCFIAAAEAMDNABCBAAA[DHC_BADNAADMBACQAMDIAIAHAAACDGCQCOFYAAFUCOFYAAFUBMHNAABQBMHNAABUDQABBADMABCMCOFYAAF[BMGABMGIDQABBADMABEMCOFYAAF[BMH[HLGSBMH]AAAAAUFQBMGNBMHNH`H]DMAEBNCNH`H]BMHNAABQBMHNAABUCLHOH`HYDQABDAAAABHGCOFYAAFUD_AABADNAAAEBAAVCKFZA`H`H`HIDHAECOFYABBYFQF[HPF[DPAQBMGQBMHIAAAEGQF[HPGACQEICSEHDAG_BAAHBADMACBMCOFYAAF[BLCIAAEUBLCAAAEQFQD]ABCBDGAAHUAGAMDNABGFAABCDGDOAMFNAAAAAAACAABMDGA[AMDNAACAAABKDGASCOFYAAFUCOFYAAFUBMHMABHABMHMABHEDABCAMFNAAAAAAABAABMDGBSAMDNAACAAABKDGBKCOFYAAFUCOFYAAFUBMHMABHIBMHMABHMDQABBADMABHUCOFYAAF[BMGABMGIDQABBADMABEMCOFYAAF[DAAOCOFYAAFUDQAABADMABH]COFYAAF[COFYAAFUBMHNAABQBMHNAABUDQABBADMABG]COFYAAF[CKFNAACUDHA_BADNAACUBCDIH`H]BOAJDHAEBACJDAHUBBDNAAC]H`H]BADNAACUBLCIAAC]BADNAAC]BLD[HRAKAACIBLCIAACMBCDMAAG]BEDJAAAECCFKAAAEBEF[HMAYDAAAAAFKCOFYAAFUBMHNAABQBMHNAABUDQABBADMABG]COFYAAF[AMDNABCBAABCDHAAAAFGAMFNAAAAAAACAABMDGBSAMDNAACAAABKDGBKCOFYAAFUCOFYAAFUBMHMABHABMHMABHEDQABBADMABHUCOFYAAF[BMGABMGIDQABBADMABEMCOFYAAF[DADIAMFNAAAAAAABAABMDGBSAMDNAACAAABKDGBKCOFYAAFUCOFYAAFUBMHMABHIBMHMABHMDQABBADMABHUCOFYAAF[BMGABMGIDQABBADMABEMCOFYAAF[DABMCOFYAAFUDQAABADMABH]COFYAAF[DAA]BLCIAACMBADNAACECOFYAAG_G]H]H`EUBADNAACMBABNAACICOHYAAFOCOHYACB[AAAACCE_CCE_CKFZA`H`H`HIDHAECOFYABBYCOFYAAFUBMGVBMHNAAAEDQABBADMACBUCOFYAAF[FQD]ABCBDHDQCOFYAAFUBMGVBMHNAAAEBMH[HJGACCE_DQACBADMACBUCOFYAAF[COFYAAFUBMGVBMHNAAAEBMHMABBYBMHMABB]BADMABCEBADIAAAEBAB[HRCUCOFYAAF[CTEICOFYAAFUBMGVBMHNAAAEBMHMABBYBMHMABB]BMH[HKGMBMGIBLCIAAAMBLD[HKGCAAAIBADMABCEBADIAAAEBAB[HSDOCOFYAAF[COHYAAFOAAAACCE_CCE_BMH[HKFCCCE_CCE_CCE_CCE_CCE_BMH[HLDACCE_BMH[HLC[CCE_CCE_CCE_CCE_CCE_BMH[HLHICCE_CCE_CCE_BMH[HLCCCCE_BMH[HLB]CCE_CKFZA`H`H`HIDHAECOFYABBYBQDNAAAIBAB]AAAAAHEHBKAICOFYACFGHDENCEEFBCDNAAAEBCAVBLCJAAA]BLCBAAAYBLCFAABEBLCIAABMBLCAAABICKFZA`H`H`HIDHAECOFYABBYBADNAAA]BABNAAAYFQF[HMGEDPAAACC]AMAQAAB]DHASGQF[HMGICSEIFQF[HMFQDPACDAHMDAAAACCEBLCIAAA]BLCAAAAYFRHNAAAEDHBWDYABCOFYABFKCCEHA_AQBADMACB]BABMACBYFQF[HMEEDPA_F_AQDHAQGQF[HMEMCSEIFQF[HMDUDPACDAHODAAKCTDNAAAYCSFNAAA]DAEIBQDNAAAIBIAIHDEEBADNAAAMBCDNAABMD[AACOFYACGECTDNAAAYCSFNAAA]BADNAAA]BABNAAAYBLCIAABUBLCAAABQCKFZA`H`H`HIDHAECOFYABBYCKDNAABQDPAAH`CIBADNAABUBABNAABQCCEHA_AQBSD]AAAABEDNAABMBCBNAABIBSB]ACCHBGDNAAAMBGBNAAAIBLCLAAB]BLCDAABYBLCKAACEBLCBAACABLCJAACMBLD[HHHMAACIBLCHAACUBLD[HKCMAACQBLCIAAC]BLCAAACYCKFZA`H`H`HIDHAECOFYABBYCKDNAACADPAAABCGCKDNAABYDPAAABB_BADNAACEBABNAACABCDNAAB]BCBNAABYBEAQBEDIAAAEFUD]ABCBDHAAABAMA]ASBLCIAADUBLCAAADQF]BNAACXDGAAAAHOBGDMAABMBOACCCCHCICHF_F]AAAAAAABDGAAAAGCBLCKAADEBLCCAADABUDNAACYBLCJAADMBLCBAADIFVH[H`HCDHDQBEDNAADECCEHA_ASBEDMACCEBEA[BECSBLCLAACMBLD[H[AQAACIFUF[HLB[DPASF_ASDHCMGUF[HLCCCSEKFUF[HLBKDPACDAHOBADNAAC]CCEHA_BIAAABBCDMACCEBCAZBCCRFSF[HLAQDPASF_ARDHBCGSF[HLAYCSEJFSF[HLAADPACDAHOAMDNABCBAAASDHC[BADNAAC]AMBIAABNAAABDGCOBADNAADMBCAQBCDIAAAEBOABCCCHCICHCSEHBCDMACA]BCH[HIBGBCEHBCAYBCCQBOABCCCHCICHBABNAACYBADNAAC]BIAHCOFYABFKDACUGUF[HKGACSEKBAECBBCKAAAEBLCLAACMBLD[HZDOAACIDAAMBADNAADUBAF[HGEYCCFIAAAECTDNAACACQFNAACECTDNAABYCQFNAAB]DAAAH_FKCKFNAACMDHAAH^EYCTDNAABQCSFNAABUDAAAH_BSBQD]AAAABAB[HGDECVFNAABEBOBNAABEHFEHG^GHCOHYAAFOCOH\AEH_DAAAAAAKDAAAAAAMDAAAAAAOBMH[HGCACCE_BMH[HGB[CCE_BMH[HMDCCCE_BMH[HHEACCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYAMDNADCCAAACDGAED_AGDAA]CCEHBADNAAAEBMAIDHAKCSEHBADIH`H]BKAIDGHWBMAHHHEHE_EGE_EGBAB[H]GABKAHCOFYACFGHDENCEEFBOAACCCHCICHCBHQD_AACICHEQEHBQB]ACCHBQB]ACCHBCDZA`H`H`HYBMH[HMBOCCE_CCE_BEDMAAHEBMGKBMHMAACABMHMAACEBMHZA`H`H`HYBMHKAAAEBMHZA`H`H`HUCHHOH`HABDGLA`H`H`HYBFCLAAAEBMH[HLH[CCE_CCE_BEDMAAHUBMGKBMHMAACABMHMAACEBMHZA`H`H`HYBMHKAAAEBMHZA`H`H`HUCHHOH`HABDGLA`H`H`HYBFCLAAAEBMH[HLGGCCE_CCE_BEDMABAUBMGKBMHMAACABMHMAACEBMHZA`H`H`HYBMHKAAAEBMHZA`H`H`HUCHHOH`HABDGLA`H`H`HYBFCLAAAEBMH[HLESCCE_CCE_BEDMABAEBMGKBMHMAACABMHMAACEBMHZA`H`H`HYBMHKAAAEBMHZA`H`H`HUCHHOH`HABDGLA`H`H`HYBFCLAAAEAMDNADCCAAACDGDSBMH[HEEYBMH]AAAAA\H[BMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAEBMGABMGIBLCFAABEBLCJAABMBLD[HLEIAABICLHOH`HQDQACDAAAAJAIFQD]ABCBDHAMBLCIAACMBLCAAACIDAAAABASBQD]AAAABIAVBKBNAAAECOFYAAGABIBMACCIBKBMACCMCOFYAAGABLCIAABUBLD[HKEMAABQDAAAAECIBEDNAAAEBEAVBLCKAABUBLCCAABQBLCFAABEBLCIAAB]BLCAAABYBLCJAABMBLD[HLBAAABICKFZA`H`H`HIDHAECOFYABBYCKFNAABUDHDYBADNAABUBCAQBCDIAAAEBMH[HDHGBMH]AAAAA]FIBMGNBMHNH`H]DMAEBNCNH`H]BMGBBMGJBMHNAABYBMHNAAB]BLCJAACEBLCBAACACLHOH`HQDQACDAAAAIC[FQD]ABCBDHAKBLCIAACMBLCAAACIDAAUBADNAAA]BIBNAACABKBNAACECOFYAAGABLCIAAA]BADNAABUBADIH`H]BLCIAABUBLD[HJG_AABQDAAAH`DYCKFNAAAEDHBUBADNAAAEBCDIH`H]BOAJDHBIBMH[HDDGBMH]AAAAA^A]BMGNBMHNH`H]DMAEBNCNH`H]BMHNAACIBMHNAACMCLHOH`HYDQABDAAAAJECBADNAACMBABNAACIBCBIAAAYBCDIAAA]BEBJAAAYBEDJAAA]BGDMABAUBLCJAACEBLCBAACABCDLAAAEBCECBDCKAAAEBCDNAACEBEBJAAAQBEDJAAAUBGDMABAEBCDLAAAEBCECBDCKAAAEBCDNAACEBEARBEDJAAAEBGDMAAHEBCDLAAAEBCECBDCKAAAEBCDNAACEBEBJAAAIBEDJAAAMBGDMAAHUBCDLAAAEBCECBDCKAAAEAMDNABCBAAAKDGAQBCDNAACEBCBNAACABLCJAAAMBLCBAAAIAMDNABGFAAAKDGAAAAE[COFYAAFUBMHMAAFIBMHMAAFMBMHNAAAIBMHNAAAMBLCIAACUBLCAAACQDQACBADMAAFUCOFYAAF[BLCIAAC]BLCAAACYFQD]ABCBDHAAAAFUCOFYAAFUBMGABMGIBMHMABAABMHMABAEBADMABAMBADIAAAEBAB[HKCACOFYAAF[BCDMABAEBEDJAAAEBEEABFCIAAAECOFYAAFUBMHNAACYBMHNAAC]BMHMABAQBMHMABAUBADMABA]BADIAAAEBAB[HKAOCOFYAAF[BCDMABAUBEDJAAAEBEEABFCIAAAEDACQCOFYAAFUBMHMAAFIBMHMAAFMBMHMAAFABMHMAAFEBCDNAAAMBMGRBMHJAAAEBMHMACCQBMHMACCUBMHJAAAQBMHJAAAUBMHJAAAYBMHJAAA]BLCIAACUBLCAAACQDQAGBADMAAFUCOFYAAF[BLCIAAC]BLCAAACYAMDNABCBAAC[DHDYCOFYAAFUBMHNAACYBMHNAAC]BMHMACCYBMHMACC]BADMACDEBADIAAAEBAB[HJECCOFYAAF[COFYAAFUBMHNAACYBMHNAAC]BMHMACDIBMHMACDMBMH[HCH[BMH]AAAAAAA_BLCIAADEBLCAAADABADMACDUBADIAAAEBAB[HKE[COFYAAF[COFYAAFUBMHNAACYBMHNAAC]BLCIAADMBLCAAADIDQABBADMABG]COFYAAF[COFYAAFUBMHMAAFIBMHMAAFMBMHMAAFABMHMAAFED_ACBADNAACMBCBIAAAYBCDIAAA]CKFZA`H`H`HIDHAECOFYABBYFSF[HFBUDPAQBMGRBMHJAAAEGSF[HFB[CQEJCSEHDAG_BAAHBADMAAFUCOFYAAF[FQD]ABCBDHAAAFDABLCIAADUBLCAAADQAMDNABCBAAASDGAAABAAAMDNABCBAAC[DHAAAAHWCOFYAAFUCOFYAAFUBMGABMGIBMHMACDIBMHMACDMBMH[HCBUBMH[H`B[BADMACDUBADIAAAEBAB[HJG_COFYAAF[BMGABMGIBMHNAADIBMHNAADMDQACBADMACD]COFYAAF[BOAIDGAAAAFOCOFYAAFUBMHNAADQBMHNAADUBMHMACCYBMHMACC]BADMACDEBADIAAAEBAB[HICQCOFYAAF[FRHNAADEDMAAAAECBQD]AAAABIBMACEABKBMACEECOFYAAGACOFYAAFUBMHNAADQBMHNAADUBMHMACDIBMHMACDMBLCIAABUBLD[HGEIAABQBADMACDUBADIAAAEBAB[HIAKCOFYAAF[BIAABKAIBQD]AAAACOFYAAGABCDNAABUBDCIH`H]BLCIAAD]BLD[HGC[AADYBQD]AAAABIBNAADIBKBNAADMCOFYAAGABCDNAAD]BDCIH`H]BADNAABUBAB[HAAKDAAAAECQAMDNABGFAAAKDGBACOFYAAFUBMHMACEIBMHMACEMBMHNAAAIBMHNAAAMDQACBADMAAFUCOFYAAF[DACACOFYAAFUBMHMACEIBMHMACEMBMHMAAFABMHMAAFEBADNAAAMBMGQBMHIAAAEBMHMACCQBMHMACCUBMHIAAAQBMHIAAAUBMHIAAAYBMHIAAA]DQAGBADMAAFUCOFYAAF[BCDZA`H`H`HYBMH[HGBEBMGABMGIBEDMACEUBMGKBMHMACEYBMHMACE]BMHZA`H`H`HYBMHKAAAEBMHZA`H`H`HUCHHOH`HABDGLA`H`H`HYBFCLAAAEBMH[HFHQCCE_CCE_BEDMABEUBMGKBMHMAAGQBMHMAAGUBMHZA`H`H`HYBMHKAAAEBMHZA`H`H`HUCHHOH`HABDGLA`H`H`HYBFCLAAAEBLCJAABUBLD[HGASAABQBLCIAAC]BLCAAACYCKFZA`H`H`HIDHAECOFYABBYCKDNAACIDOAAABBWBMH[G_GYBMH]AAAABBGMBMGNBMHNH`H]DMAEBNCNH`H]BMHNAADQBMHNAADUBMHNAACYBMHNAAC]COFYAAFUBMHNAADQBMHNAADUDQABBADMACFECOFYAAF[BMGABMGICLHOH`HIDQADDAAAADGOCOFYAAFUBMHNAADQBMHNAADUDQABBADMABG]COFYAAF[COFYAAFUBMHNAACYBMHNAAC]BMHMAAHABMHMAAHEBADMAAHMBADIAAAEBAB[HGCICOFYAAF[BMGABMGICOFYAAFUBMHNAACYBMHNAAC]BMHMAAHQBMHMAAHUBADMAAH]BADIAAAEBAB[HGBACOFYAAF[BMGABMGICOFYAAFUBMHNAACYBMHNAAC]BMHMABAABMHMABAEBADMABAMBADIAAAEBAB[HFHYCOFYAAF[BMGABMGICOFYAAFUBMHNAACYBMHNAAC]BMHMABAQBMHMABAUBADMABA]BADIAAAEBAB[HFGQCOFYAAF[BMGABMGIBIB[HABED[AECOFYAAH]COFYAAFUBMHNAACYBMHNAAC]BLCIAACEBLCAAACADQABBADMABG]COFYAAF[BADNAABUCOFYAAG_DAAAABF]BADNAACMBCDIAABMBEDMABEUBGDKAAAEBHCJAAAEBGF[HDHMBMH[G^EMBMH]AAAABDAEBMGNBMHNH`H]DMAEBNCNH`H]BMHNAADQBMHNAADUBMHNAACYBMHNAAC]BMGQBMHIAAAECLHOH`HIDQADDAAAACEWCOFYAAFUBMHNAACYBMHNAAC]BMHMABBYBMHMABB]BADMABCEBADIAAAEBAB[HFBGCOFYAAF[COFYAAFUBCDNAACMBEDJAAAUBGCSBGATBGDLAAAEFWD]AFCBDGBOBLCIAAD]BLCAAADYBACLBLD[HQAGAACABIB[HQAABKAKCOFYAAGABIBMACFIBKBMACFMCOFYAAGABAB]AAAAAEABDABICOFYAAFUBMHMABEYBMHMABE]BMH[HPGWBMGKBMGDBMGLBLCIAAD]BLCAAADYDQADBADMACFUCOFYAAF[BMGABMGIDQABBADMACF]COFYAAF[COFYAAFUBMHNAACYBMHNAAC]DQABBADMACGECOFYAAF[COFYAAFUBMHNAACYBMHNAAC]DQABBADMACGECOFYAAF[BADNAACMBOBIAAAMCOFYAAFUBMHNAADQBMHNAADUBMHMABBYBMHMABB]BMH[G^HMBMGHBADMABCEBADIAAAEBAB[HFEYCOFYAAF[BADNAACMBCBIAABABCDIAABEBCFNAADYBDDNAAD]AAAEBCBIAABABCDIAABECOFYAAFUBMHNAACYBMHNAAC]BMHMABBYBMHMABB]BLCJAAB]BLCBAABYBADMABCEBADIAAAEBAB[HEAACOFYAAF[BCDNAAB]BDCAAAAIBDCIAAAMC^DNAACIAGFNAAAAAABQAACMB\D]ACCHAACKDAAAH^AAG]H]H`FYCKFZA`H`H`HIDHAECOFYABBYCKDNAACQDPBMBADNAACUBCBIAABABCDIAABEBDDNAACAAAAQBDDNAACEAAAUC^DNAACQGQH]AABQBLCIAACUB\D]ACCHAACSDAGCCKFNAAA]DHAWBADNAAA]BIBMACCIBKBMACCMCOFYAAGABAB[G\GADAAGBADNAAAEBAAVBLCIAAB]BLCAAABYBADNAABMCOFYAAG_AGFNH`H`H`G[AABEBOBNAABEHFEHG^GHBADNAAB]BABNAABYCOHYAAFOCCE_CCE_CKFZA`H`H`HIDHAECOFYABBYCOFYAAFUBMGVBMHNAAAEBMHMACBABMHMACBEDQACBADMACGMCOFYAAF[FQD]ABCBDHDABLCIAAAUBLCAAAAQBABNAAAIBADNAAAMDYAGCOFYABFKBBCVAAAQBBDNAAAEAAAUBBDNAAAQAABABBDNAAAUAABEBCDNAAAUBOBJAAAEBBCHAAAEBOBJAAAMBBCHAAAMBEBJAAAQBEDJAAAUBBCCAAAYBBCKAAA]BEBJAAAYBEDJAAA]BBCCAABIBBCKAABMCOHYAAFOAAAACCE_CCE_BMH[G]B_CCE_BMH[G]BYCCE_CKFZA`H`H`HIDHAECOFYABBYBADMAADEBAAYBACQCOFYAAFUBMGVBMHNAAAEBMHMABBYBMHMABB]BLCIAAA]BLCAAAAYBADMABCEBADIAAAEBAB[HCDICOFYAAF[BOBNAAAUE_EIBLCHAABECKFZA`H`H`HIDHAECOFYABBYBOBNAABEBADMAAC]BADIAAAEBLCHAABMF_EIDPAEBLCIAABMCOFYAAFUBMGVBMHNAAAEBMHMABBABMHMABBEBMHNAAAYBMHNAAA]BMHNAABIBMHNAABMBADMABBMBADIAAAEBAB]AAAAAAAECOFYAAF[COFYAAFUBMHNAAAIBMHNAAAMBMHMACGQBMHMACGUBMHNAAAYBMHNAAA]BMGABMGIBADMACG]BADIAAAEBAB[H`GOCOFYAAF[BADMAAC]BOBIAAAECEEHG_FNAABEBLCHAABECKEHDOAAH`DCBADMAABMBABMAABICOHYAAFOCCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYBADMACHEBAAYBACQBCDNAAAEBCAVBLCJAAAMBLCBAAAIGSF]H`H[AAAAGSH]AABQBSB]ACCHBUD]AAAABLCKAAAUBLD[GZFEAAAQBLCJAAA]BLCBAAAYBLCIAABEBLCAAABACKFZA`H`H`HIDHAECOFYABBYBADNAAAMBOBIAAAEBCDNAAA]BMBJAAAEF_EGDPB[BCDNAABEDYAMD[AACOFYACGEBADNAAA]BCDNAAAMDYAMD[AACOFYACGEBADNAABEBCDNAAA]DYAMD[AACOFYACGEBADMAABMBLCIAAAUBLD[HMAEAAAQC^DNAAAYAGFNAAAAAABQAAA]CKDNAAAYDOCGCKFNAAAUDHBUBADNAAAEBAAVBLCIAAAMBLCAAAAIGQF[H`CUGQH]AABQBQB]ACCHBSD]AAAABLCJAAAUBLD[GYH[AAAQBLCIAAA]BLCAAAAYDAAAH`C]BADMAABMBABMAABICOHYAAFOC^DNAAAIAGFNAAAAAABQAAAMB\D]ACCHAAAKDAAAH`B[AAAAAAAA| dfl-IMSUBR ["DEFINE " "DEFMAC " "ROUTINE "] 
%<GBIND DFL-FUNC-NAM T>  %<GBIND DFL-FILNAM T>  T ["SETG " "GLOBAL "] TDFL-BUF 
STRING REQUEST-BUFFER %<GBIND TDFL-BUF T>  %<GBIND DFL-BUFLEN T>  %<GBIND 
DFL-BUF T>  DO-DFL RELEASE-BUFFER GUNASSIGN %<GBIND DFL-STRUC T>  %<GBIND 
DFL-NAM-SCRATCH T>  "-IMSUBR" LENGTH "" "READ" OPEN DEBUGGING? ATOM 
PACKAGE-MODE ANY UNWIND NM1 %<CHANNEL-OPERATION DISK NM1> NM2 
%<CHANNEL-OPERATION DISK NM2> DEV %<CHANNEL-OPERATION DISK DEV> SNM 
%<CHANNEL-OPERATION DISK SNM> READ-BUFFER %<CHANNEL-OPERATION DISK READ-BUFFER>
 ["PACKAGE" "ZPACKAGE" "ZSECTION" "ZZSECTION" "ZZPACKAGE" "DEFINITIONS"
"PROGRAM-MODULE" "DEFINITION-MODULE"] ACCESS %<CHANNEL-OPERATION DISK ACCESS> 
READ USE INCLUDE DEFINITIONS "ZUSE" PACKAGE MOBLIST LOOKUP EVAL OBLIST SETG 
IN-COLLECTION PUTPROP ["ENTRY" "RENTRY" "PMEXPORT"] ["USE" "INCLUDE"
"IMPORT-PM" "ZUSE"] "<SET" MEMBER "<DEF" CLOSE "<ZENDPACKAGE>" "<END-MODULE>" 
PARSE ENDPACKAGE EOF-FOUND-BEFORE-THESE "       \0" %<GBIND DFL-ZERO-STR T>  %<GBIND MATCHLEN T>  DFL OR? M-NCHR ";'" %<GBIND 
BREAKS T>  "Not DFLed?" "MUD" WRITE-DATE %<CHANNEL-OPERATION DISK WRITE-DATE> 
NAME %<CHANNEL-OPERATION DISK NAME> N=? "Would destroy later version!" "PRINT" 
OUTCHAN CHANNEL FILE-LENGTH DEFINE FORM EPRIN1 CRLF GETPROP WRITE-BUFFER 
%<CHANNEL-OPERATION DISK WRITE-BUFFER> %<GBIND TV T>  ]>
<SETG \1aDFL #MSUBR [dfl-IMSUBR DFL ("VALUE" <OR FALSE LIST> "OPTIONAL" <OR
STRUCTURED ATOM> <OR ATOM STRING> <VECTOR [REST STRING]>) 0]>
<SETG \1aRDFL #MSUBR [dfl-IMSUBR RDFL ("VALUE" <OR FALSE LIST> "OPTIONAL" <OR
STRUCTURED ATOM> <OR ATOM STRING> <OR ATOM FALSE>) 160]>
<SETG \1aFDFL #MSUBR [dfl-IMSUBR FDFL ("VALUE" <OR FALSE LIST> <OR STRUCTURED
ATOM> <OR ATOM STRING> ANY ANY) 316]>
<SETG \1aDFL-SETUP #MSUBR [dfl-IMSUBR DFL-SETUP ("VALUE" VECTOR <OR ATOM
STRUCTURED> "OPTIONAL" ANY) 660]>
<SETG \1aLC #MSUBR [dfl-IMSUBR LC ("VALUE" STRING STRING) 1548]>
<SETG \1aDO-DFL #MSUBR [dfl-IMSUBR DO-DFL ("VALUE" <OR FALSE <LIST [REST ATOM]>>
<VECTOR [REST <OR FALSE STRING>]> STRING VECTOR <OR ATOM FALSE>) 1688]>
<SETG \1aCHAN-CLEAR #MSUBR [dfl-IMSUBR CHAN-CLEAR ("VALUE" ANY <CHANNEL 'DISK>) 
5780]>
<SETG \1aSEARCH-STRING #MSUBR [dfl-IMSUBR SEARCH-STRING ("VALUE" <OR !<FALSE!>
STRING> STRING <VECTOR [REST STRING]> <OR ATOM FALSE>) 5940]>
<SETG BREAKS "
        ;\"'[]()<>{}!">
<GDECL (BREAKS) STRING>
<SETG \1aUN-DFL #MSUBR [dfl-IMSUBR UN-DFL ("VALUE" <OR ATOM FALSE <LIST [REST
ATOM]>> <OR ATOM <LIST [REST ATOM]>> "OPTIONAL" <OR FALSE STRING <VECTOR [REST
STRING]>> <OR ATOM FALSE>) 6712]>
<SETG \1aUNSET #MSUBR [dfl-IMSUBR UNSET ("VALUE" <OR FALSE <VECTOR FIX FIX ATOM
<VECTOR [4 STRING]> <VECTOR [2 FIX] VECTOR> ANY>> ATOM <PRIMTYPE VECTOR>) 9472]
>
<SETG \1aCOPY-TO-CHR #MSUBR [dfl-IMSUBR COPY-TO-CHR ("VALUE" ATOM <CHANNEL 'DISK
> <CHANNEL 'DISK> FIX) 9624]>
<SETG \1aDO-SORT #MSUBR [dfl-IMSUBR DO-SORT ("VALUE" ATOM UNTUPLE) 9884]>
<ENDPACKAGE>