Machine-Independent MDL for TOPS-20 and VAX.
[pdp10-muddle.git] / mim / mim / mimlib / sortx.msubr
diff --git a/mim/mim/mimlib/sortx.msubr b/mim/mim/mimlib/sortx.msubr
new file mode 100644 (file)
index 0000000..92f7a98
--- /dev/null
@@ -0,0 +1,10 @@
+<PACKAGE "SORTX">
+<RENTRY SORT>
+
+<SETG \1asort-IMSUBR #IMSUBR [|AAACFSFQD]AAAEDMBCCOH\AEH[DAAAAAAKDAAAAAASDAAAAAAUBMH]AAAAAACABMH]AAAAAAABBMH[H`HUCCE_BEAACZECDMACCCECB]GCB]H]AHEHCCE_BMH]AAAMACGCBMGNBGAOBMGVBMHNAAAEBMHNAAAIBMHNAAAMBMHNAAAQBMHNAAAUBMHNAAAYBMHNAAA]B]GCB]H]AHEHBMGNAGFOAAAAAABAH`H]BKCDBMH]AAAAABCBCCE_CCE_CCE_BMH[H`EYCCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_BMH[H`ECCCE_CCE_CCE_CCE_CCE_BMH[H`DUCCE_CKFZA`H`H`HIDHAECOFYABBYBOBNAAA]CSEHAMDNACCHAAAKDGBYBADNAAAMBCBQD_HYBCDQD_H]BABNAAAIBLCIAABUBLCAAABQBMBNAAAUCBHQDOAACICGEQEGBQB]ACCHBLCJAACEBLCBAACABLCHAAB]DAAAABBOAMDNAHGGAAAKDGBWBADNAAAMBCDQD]H]BABNAAAIBLCIAABUBLCAAABQBMBNAAAUCBHQDMAACICGEQEGBQB]AHGGBLCJAACEBLD[H_HMAACABLCHAAB]DAAAAAHQAMDNABABAAAKDGAAAAEGBADNAAAMBABNAAAIBLCHAAB]CTEHCKEHDPBCCKFZA`H`H`HIDHAECOFYABBYBADIH`H]CTEHBAB]AAAAABABCKEHDPAGBAB[H`HWDAG_BCAYBCCQBADNAAAMBABNAAAIBMBNAAAUBLCIAABUBLCAAABQBLCJAACEBLCBAACACKEGDPBACKFZA`H`H`HIDHAECOFYABBYBADIH`H]CTEGBAB[H`F[CKEGDPAGBAB[H`FSDAHABLCGAACMBLD[H_CYAACIDADAAMDNAHEHAAAKDGB[BADNAAAMBCBQD_HYBCDQD_H]BABNAAAIBQB]ACCHBLCIAABUBLCAAABQBMBNAAAUCBHQDOAACICGEQEGBQB]ACCHBLCJAACEBLCBAACABLCHAAB]DAA_COFYAAFUBMHMAAAQBMHMAAAUDQABBADMAAA]COFYAAF[BKDNH`H]COHYAAFOBLCIAACUBLCAAACQCKDNAABADPAAAAHGCOFYAAFUBMHNAAAIBMHNAAAMDQABBADMAABECOFYAAF[BOAICMDNDYAHAAAUBADNAABEBABNAABABLCIAAC]BLCAAACYBLCHAADECKFZA`H`H`HIDHAECOFYABBYCKDNAACYDPAAAAFABADNAAC]BCAQBCDIAAAECTDNAACYCQEICKDNAACYDOAED_ABDAAKBOBIAAAECTDNAACYCQEICOFYAAFUBMGBBMGJDQABBLCIAAC]B\D]ACCHAAC[BADMAABEBLCJAADMBLCBAADIBLCHAADUBLD[H^CSAADQCOFYAAF[BOAICMDNDYAHAADUBLCIAAD]F_FNAADEDGAYBOAICMDNDYAGAADUBLCGAACMBLD[H^BKAACICKEGDHAAH`DSCOFYAAFUBMHMAABIBMHMAABMBMHNAADIBMHNAADMDQACBADMAAA]COFYAAF[DAAAH`CQAMDNABGFAACCDHAIAMDNADCCAACCDGAQBADMAABUBLCIAABMBLD]AAAKADCCAABICKFZA`H`H`HIDHAECOFYABBYAMDNACCHAACSDGAKCKDNAACQDOAAABGSDAA[AMDNAHGGAACSDGAKCKDNAACQDOAAABGADAAICKFNAACUDGAAABFWAMDNACCHAABSDGAWBOBNAAAUBADNAABUCBHQD_AAE`DNAABQBLCIAABUDADAAMDNAHGGAABSDGAWBOBNAAAUBADNAABUCBHQD]AAE`DNAABQBLCIAABUDACCBOBNAAAUBLCHAAC]BLD[H]DAAACYCKEHDPBQBADNAABUCKFZA`H`H`HIDHAECOFYABBYBADIH`H]CTEHBLCHAAC]BLD[H]B]AACYBLCIAABUBLD[H^ECAABQCKEHDPACDAGUCOFYAAFUBMHNAABQBMHNAABUBMHNAAAQBMHNAAAUDQACBADMAAB]COFYAAF[FQD]ABCBDHAQBADNAAAMBABNAAAIBKDNH`H]COHYAAFOAMDNACCHAABSDGB[BOBNAAB]BADNAABUBCBQD_HYBCDQD_H]BMBNAAAUCBHQDOAABAAGCICACEEAGQFNAABQBQB]ACCHBLCIAACUBLCAAACQBLCJAACEBLCBAACADAAAAAGCAMDNAHGGAABSDGBYBADNAABUBOBNAAB]BCDQD]H]BMBNAAAUCBHQDMAABAAGCICACEEAGQFNAABQBQB]AHGGBLCIAACUBLCAAACQBLCJAACEBLD[H\D[AACADAAAAAECBOBNAAB]BADNAABUBABNAABQCTEHCKEHDPBACKFZA`H`H`HIDHAECOFYABBYBADIH`H]CTEHBAB[H]E]CKEHDPAGBAB[H]EUDAHABCAYBCCQBMBNAAAUBADNAABUBABNAABQBLCJAACEBLCBAACACKEGDPBACKFZA`H`H`HIDHAECOFYABBYBADIH`H]CTEGBAB[H]DACKEGDPAGBAB[H]CYDAHABLCIAACUBLCAAACQBLCGAACMBLD[H[HWAACIAMDNACCHAABSDGBACOFYAAFUBMHNAACQBMHNAACUBMHNAABYBMHNAAB]DQACBADMAACECOFYAAF[DACGAMDNAHGGAABSDGBACOFYAAFUBMHNAACQBMHNAACUBMHNAABYBMHNAAB]DQACBADMAACECOFYAAF[DAA_COFYAAFUBMHNAACQBMHNAACUBMHNAABYBMHNAAB]DQACBADMAACECOFYAAF[AMDNABCBAAACDHBOCOFYAAFUBMHNAACABMHNAACEBMGABMGIDYACBLCIAADMBLCAAADIBAAVBADNAAAECOFYACCMFQD]ABCBDHAAABG]DAC[CKFNAABMDHBKBKAABCCIBIBNAACABLCIAADMBLCAAADIBADNAACECOFYACGWBLCEAADUBLD[H[BKAADQCKEEDPAAABFMDABKCOFYAAFUBMHNAACABMHNAACEBMGABMGIBLCIAADMBLCAAADIDQACBADMAACMCOFYAAF[FQD]ABCBDHAAABEABADNAADMBABNAADIBMH]AAAAAICCBMH]AAAAAGDUBMGNBCDNH`H]CKDJH`H]DNAEBCDJH`H]BMGJBMHNAABQBMHNAABUBMHNAACQBMHNAACUBMHNAAAQBMHNAAAUBLCIAACEBLCAAACACLHOH`HIDQADDAAAABGGCKDNAABADPAAABBIBADNAABEBABNAABABLCIAACMBLCAAACICKFZA`H`H`HIDHAECOFYABBYCKDNAACIDPAAABAEBADNAACMBCAQBCDIAAAECTDNAACICQEICKDNAACIDOAED_ABDAAKBOBIAAAECTDNAACICQEIBMH[H`DIBMH]AAAAAHE_BMGNBEDNH`H]CKDKH`H]DNAEBEDKH`H]BMGKCOFYAAFUBMGBBMGJCOFYAAFUBMHNAABQBMHNAABUDQABBLCIAACMB\D]ACCHAACKBADMAABEBLCJAADMBLCBAADIBLCHAADUBLD[HZAGAADQCOFYAAF[BOAICMDNDYAHAAAUCEEHG_FNAADECMBNDYAAAADUBMH[HYHIBMGHDQACBADMAACUCOFYAAF[BMGABMGICOFYAAFUBMHNAADIBMHNAADMCOFYAAFUBMHNAACQBMHNAACUDQABBADMAABECOFYAAF[BOAICMDNDYAHAAAUCEEHG_FNAADECMBNDYAAAADUBMH[HYE_BMGHDQACBADMAACUCOFYAAF[BMGABMGIBMHNAADQBMHNAADUCLHOH`HIDQADDAAAAAE]DAAAH_HMAMDNACCHAACSDGA]BOBNAAAUBADNAACUCBHQD_AAE`DNAACQBLCIAACUBLCIAACUDAAAH\DWAMDNAHGGAACSDGA]BOBNAAAUBADNAACUCBHQD]AAE`DNAACQBLCIAACUBLCIAACUDAAAH\CSBOBNAAAUBLCHAAC]BLD[HYBEAACYCKEHDPAAH\B_BADNAACUBCDNAAC]CKFZA`H`H`HIDHAECOFYABBYBADIH`H]CTEJBOAJDPACDAHIBLCIAACUBLD[HZCEAACQBLCJAAC]BLD[HXHKAACYDAAAH\AGAAAACCE_CCE_CCE_CCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYAMDNACCHAAACDGAAAAGEAMDNACCHAAAKDGAAAAF[BQD]AAAABCDNAAAEBCAVBEDNAAAMBEBNAAAIBLCKAAA]BLCCAAAYBLCJAABEBLCBAABABLCIAABMBLD[HXHIAABICKFZA`H`H`HIDHAECOFYABBYCKDNAABADPAAACAUCKDNAAAYDPAAACAMBADNAABEBABNAABABCDNAAA]BCBNAAAYBEAQBEDIAAAEBGARBGDJAAAEBAEDBBCLAAAEBCECBDCKAAAECTFNAAAUCKFNAAAUDHAGBUD]AAAADAAMBADMAABUBABMAABQCOHYAAFOGQF]H`H`AAAACQEIGSF[H`HYCQEJBLCIAABEBLCAAABABLCJAAA]BLCBAAAYBLCKAABMBLD[HXDAAABIDAAAH`DWAMDNAHGGAAACDGAAAAFYAMDNAHGGAAAKDGAAAAFOBQD]AAAABCDNAAAEBCAVBEDNAAAMBEBNAAAIBLCKAABEBLCCAABABLCJAAA]BLCBAAAYBLCIAABMBLD[HXA]AABICKFZA`H`H`HIDHAECOFYABBYCKDNAAAYDPDCCKDNAABADPC]BADNAAA]BABNAAAYBCDNAABEBCBNAABABECQBGCRBAELBCEKCTFNAAAUCKFNAAAUDHAGBUD]AAAADAAMBADMAABUBABMAABQCOHYAAFOGQF[H`CICYEIGSF[H`CCCYEJBLCIAAA]BLCAAAAYBLCJAABEBLCBAABABLCKAABMBLD[HWFKAABIDAEMBADNAABMBABNAABICOHYAAFOAMDNABABAAACDHAMBQD]AAAABAB[HWEKCOHYAAFOAMDNABABAAAKDHAMBQD]AAAABAB[HWDWCOHYAAFOBQD]AAAABCDNAAAEBCAVBEDNAAAMBEBNAAAIBLCKAAA]BLCCAAAYBLCJAABEBLCBAABABLCIAABMBLD[HWCIAABICKFZA`H`H`HIDHAECOFYABBYCKFNAABEDHDUCKFNAAA]DHDOBADNAABEBABNAABABCDNAAA]BCBNAAAYBEAQBEDIAAAEBGARBGDJAAAEBAEDBBCLAAAEBCECBDCKAAAECTFNAAAUCKFNAAAUDHAGBUD]AAAADAAMBADMAABUBABMAABQCOHYAAFOBADIH`H]BCDJH`H]BLCJAAA]BLD[HWGOAAAYBLCIAABEBLD[HWGEAABABLCKAABMBLD[HVGGAABIDAAAH`D]BADNAABMBABNAABICOHYAAFOAAAAAAAA| sort-IMSUBR BAD-SORT-RECORD!-ERRORS ERROR LENGTH 
+INCONSISTENT-SORT-RECORD!-ERRORS T LENGTH? NTH G? REST ]>
+<SETG \1aSORT #MSUBR [sort-IMSUBR SORT ("VALUE" ANY <OR FALSE APPLICABLE> ANY
+"OPTIONAL" FIX FIX "TUPLE" ANY) 0]>
+<SETG \1aSWITCH #MSUBR [sort-IMSUBR SWITCH ("VALUE" <OR ATOM FALSE> ANY ANY FIX)
+ 2104]>
+<ENDPACKAGE>