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

diff --git a/mim/mim/mimlib/list-hack.msub b/mim/mim/mimlib/list-hack.msub
new file mode 100644
index 0000000..ef260e5
--- /dev/null
+++ b/mim/mim/mimlib/list-hack.msub
@@ -0,0 +1,10 @@
+<PACKAGE "LIST-HACKS">
+<ENTRY LSHUFFLE LSORT LREVERSE>
+
+<SETG lshuffle-IMSUBR #IMSUBR [|AAABBNCOH\AEH_DAAAAAAGDAAAAAAGCCE_CCE_BMH]AAAAABABCCE_CCE_CCE_CCE_CCE_BMH[H`HQCCE_BMH[H`HKCCE_BMH[H`HECCE_CKFZA`H`H`HIDHAECOFYABBYCKDNAAAKDGD]COFYAAFUCCEHBADNAAAEBMAIDHAKCSEHBADIH`H]BKAIDGHWBMH]AAAAAACABMGHDQABBADMAAAUCOFYAAF[COFYAAFUBMH[H`HKBMH]AAAAAAACBLCIAAA]BLCAAAAYDQABBADMAAAUCOFYAAF[BIBNAAA]BKAICOFYABACBIAFBLCFAAA]BLD]AAAAAAGAAAAYBKB]B`EAAAAACOFYABAOBIAFCOFYABDIBLCEAAAMBLD[H`FCAAAIBQD]AAAABIB[H`CMD[AACOFYAAGABLCIAABEBLD[H`B_AABABQD]AAAABIB[H`BUD[AACOFYAAGABCDNAABEBLCIAABMBLCJAABUBLCIAAB]CKFZA`H`H`HIDHAECOFYABBYCTFNAAAMCKFNAAAMDMAMBADNAAAEBAB[H`AACOHYAAFOCKFZA`H`H`HIDHAECOFYABBYCKFNAAAEDGBOBADNAAB]BCDIH`H]BEDNAABUBFCJH`H]BCDNAABEBEDJH`H]CCFJH`H]CCFIH`H]BLCIAABMBLCJAABUBLCKAAAEDAE_BADNAAAEBCDIH`H]CCFIH`H]COFYAAFUDQAABADMAAA]BLCJAAAUCOFYAAF[COFYAAFUBLCIAAA]BLCAAAAYDQAABADMAABECOFYAAF[BOAIBMBNAAA]F^EHACEHAAAAAAABCKEHDGAUBADNAABUBBDNAAAEH`H]BADNAAAEBLCIAABUDAASBADNAABMBBDNAAAEH`H]BADNAAAEBLCIAABMBADNAAAUBLCIAAAEDAAAH`CKCOH\AEH_DAAAAAAKDAAAAAAODAAAAAAQBMH]AAAAABCBCCE_BMH[H`HYCCE_BMH[H_BCCCE_BMH[H_A]CCE_BMH[H_AWCCE_BMH[H_AQCCE_BMH[H_CWCCE_CCE_CCE_BMH]AAAAABGFCCE_CKFZA`H`H`HIDHAECOFYABBYCCEHBADNAAAEBMAIDHAKCSEHBADIH`H]BKAIDGHWF_F[H_B_DMAMBADNAAAEBAB[H^GOCOHYAAFOBMAHCKEHDMACCSEHHCEHCTEHBADNAAAECKEHDPAYCKFZA`H`H`HIDHAECOFYABBYBADIH`H]CTEHCKEHDPACDAHIBCDIH`H]CCFIH`H]BMH]AAAAAICCBMH]AAAAACGEBMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAEBMHNAAAIBMHNAAAMBMHNAAAQBMHNAAAUBLCHAABUBLD[H^FMAABQBLCJAABECLHOH`HIDQADDAAAH`BMBMH[H`F[BMH]AAAAADAABMGNBMHNH`H]DMAEBNCNH`H]BMHNAABABMHNAABEBMHNAAAIBMHNAAAMBMHNAAAQBMHNAAAUBLCIAAAECLHOH`HIDQADDAAAH_HQBSD]AAAABLCJAABMBLCIAABECKFZA`H`H`HIDHAECOFYABBYCKFNAAAEDGBICKFNAABMDGAMBADNAABEBAB[H]HICOHYAAFOBADNAABMBBDNAABEH`H]BADNAAA]BAB[H]GSCOHYAAFOCKFNAABEDGBICKFNAABMDGAMBADNAAAEBAB[H]F[COHYAAFOBADNAABMBBDNAAAEH`H]BADNAAA]BAB[H]FECOHYAAFOAMDNABCBAAASDHBWCOFYAAFUBADNAAAEBMGQBMHIAAAEBCDNAABEBMGRBMHJAAAEDQACBADMAABMCOFYAAF[BOAIDHAQBADNAAAEBADIH`H]BLCIAAAEDAAAH`C]AMDNABCBAAAKDHBOCOFYAAFUBADNAAAEBMGQBMHIAAAEBCDNAABEBMGRBMHJAAAEDYACBABNAAAIBADNAAAMCOFYACCMFQD]ABCBDHCODAB_BADNAAAEBCAQBCDIAAAEBEDNAABEBGASBGDKAAAEBIABBACJBKADBLCJAABUBLCBAABQBCCLCOFYACGWBLCEAACEBLD[H]CIAACABLCLAACMBLCDAACICKEEDMAOBADNAAAEBCDIH`H]BLCJAAAEDAAMBADNAABEBCDIH`H]BLCJAABECCFIH`H]CKFNAAA]DGAMBLCIAAA]BLCIAABMDAAAH_FYBCDNAABMBDCIH`H]BLCIAABMDAAAH_FIAAAABMH[H\FICCE_CKFZA`H`H`HIDHAECOFYABBYCKFZA`H`H`HIDHAECOFYABBYCKFNAAAEDGAMBADNAAAMBAB[H\EACOHYAAFOBADNAAAEBCDIH`H]BBDNAAAMH`H]BLCJAAAEBLCIAAAMDAGKAAAA| lshuffle-IMSUBR LOG TIME RANDOM =? ]>
+<SETG LSHUFFLE #MSUBR [lshuffle-IMSUBR LSHUFFLE ("VALUE" LIST LIST "OPTIONAL"
+FIX) 0]>
+<SETG LSORT #MSUBR [lshuffle-IMSUBR LSORT ("VALUE" LIST LIST "OPTIONAL" <OR
+FALSE APPLICABLE> ANY) 464]>
+<SETG LREVERSE #MSUBR [lshuffle-IMSUBR LREVERSE ("VALUE" LIST LIST) 1128]>
+<ENDPACKAGE>