Machine-Independent MDL for TOPS-20 and VAX.
[pdp10-muddle.git] / mim / mim / mimlib / nstr.msubr
1 <PACKAGE "NSTR">
2 <ENTRY SUBSTR SUBSNC UPPERCASE SIXTOS STRTOX LOWERCASE>
3
4 <SETG \1astrtox-IMSUBR #IMSUBR [|AAABCCBMH]AAAAAACACCE_BMH[H`HYCCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYCKFZA`H`H`HIDHAECOFYABBYCKCVDOAOD_AABLCHAAA]BLD[H`GMAAAYDACGBADNAAAECCEHA_AQF_F]AAAAAAA`DPBKBLCHAAA]BLD[H`FQAAAYCKFZA`H`H`HIDHAECOFYABBYAGFNH`H`H`HAAAA]AMFNAAAAAACAAAA]DMHCDAAMD_AABLCHAAA]BLD[H`EEAAAYBOBNAAAMHNEPBMBNAAA]EMEHCSFNAAAUAMFNAAAAAAAGAAAUDGAKBACGBAB[H`DCCOHYAAFOBLCGAAAMCKCVDPAAH`DQCTCVCSFNAAAEDAAAH`DGAAAACOH\AEH_DAAAAAAGDAAAAAAKBMH]AAAAABCBCCE_CCE_CCE_BMH]AAAAAAEACCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYD_AABLCHAAAUBLD[H`AOAAAQCKFZA`H`H`HIDHAECOFYABBYCKFNAAAEDHAAAAECBOBNAAAEHNE`BMAHACEHAAAAAAB`G_F]AAAAAABAACEGH`H`H`GABLCGAAAEBKF[H_GWAMDNABCBAAAKDHCIBADMAAAUBABMAAAQFQF]AAAAH`H`DPBYF_AQDHASGQF]H`H`AAAACSEIFQF[H`HMDPACDAHMDABCBMHNAAAIBMHNAAAMCSFNAAAUBMHNAAAYBMGHCSFNAAAUBLCIAABEBLCAAABADAAAH`D]BMH[H`CWBMGHCSFNAAAUDAAAH`DOBIB]AAAAABGFBKBNAAAUCOFYAAH]COHYAAFOAAAACOH\AEH[DAAAAAAKDAAAAAAKDAAAAAAOCCE_CCE_BMHMAAAYBMHMAAA]BMH[H`AMCCE_BMH[H_B_CCE_BMH[H`GECCE_CCE_CCE_BMH[H`F[CCE_CCE_CCE_BMH[H`FQCCE_CKFZA`H`H`HIDHAECOFYABBYCKDNAAASDGAOBQDNAAAIBLCIAAAUBLD[H_AEAAAQBADNAAAEBAAVBSD]AAAABEDNAAAMBEBNAAAIBLCKAABUBLCCAABQBLCJAAB]BLD[H_FIAABYBLCIAACEBLCAAACACKFZA`H`H`HIDHAECOFYABBYCKDNAABQDPAAABAYBADNAABUBABNAABQCSFNAABMBOBNAABMF_FNAAAUDPAMBQD]AAAABAB[H_DMCOHYAAFOBCDNAACECCEGA]ARCCEFA[AQBLCFAACMBLD[H_DAAACIF]EFDHC]BLCFAACMBLD[H_CSAACIAMDNABCBAAA[DGAAAAEEF[F]AAAAAADBDNAQF[F]AAAAAAD[DOAIG[F]H`H`H`HACODRCCEGA]ARF]F[H`HEDNAUCCEGA]ARF]F[H`HCDOAKCCEGA]ARG]F[H`HADAAECCEGA]ARBLCGAACMBLD[H_AEAACIF[EGDGB[BLCIAACUBLCAAACQAMDNABCBAABCDGAIBLCIAABEBLCAAABACTDNAACACSEJCKDNAACADPAGBUD]AAAADABQBLCJAACEBADNAABEBABNAABACOHYAAFOBCDNAAAEBCAVBUD]AAAABLCKAABEBLD[H^FGAABABLCBAACABLCIAACUBLCAAACQGQF[H_AWCSEIBLCKAAB]BLD[H^EKAABYBLCJAACEBLCJAACEBLCIAABUBLCAAABQDAAAH_GYBADNAAB]BABNAABYCOHYAAFOCOH\AEH[DAAAAAAGDAAAAAAGCCE_CCE_CKFZA`H`H`HIDHAECOFYABBYCKDNAAASDGAOBQDNAAAIBLCIAAAUBLD[H]DSAAAQBMH]AAAAAICCBMH]AAAAADGSBMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAEBMHNAAAIBMHNAAAMBMHNAAAQBMHNAAAUBMH[H^AGCCE_CLHOH`HADQAEDAAAH^HMCOHYAAFOAAAACOH\AEH_DAAAAAAGDAAAAAAGCCE_CCE_BMH[H^FECCE_CKFZA`H`H`HIDHAECOFYABBYCKDNAAAKDGAMBQCVBLCIAAAMBLD[H\H[AAAIBADNAAAEBAAVBLCIAAAUBLCAAAAQCKFZA`H`H`HIDHAECOFYABBYCTFNAAAMCKFNAAAMDNBSBADNAAAUCCEHA_AQF_F[H_C[DNAUCCEHA_AQF_F[H_CYDOAKCCEHA_AQG_F[H_CWAQEHCTDNAAAQCSEIBLCIAAAUBLCIAAAUDAFYBADNAAAEBAAVCOHYAAFOCOH\AEH_DAAAAAAGDAAAAAAGCCE_CCE_BMH[H^AQCCE_CKFZA`H`H`HIDHAECOFYABBYCKDNAAAKDGAMBQCVBLCIAAAMBLD[H\DGAAAIBADNAAAEBAAVBLCIAAAUBLCAAAAQCKFZA`H`H`HIDHAECOFYABBYCTFNAAAMCKFNAAAMDNBWBADNAAAUCCEHA_AQF_F]AAAAAACBDNAWCCEHA_AQF_F]AAAAAAC[DOAKCCEHA_AQG_F[H]BWAQEHCTDNAAAQCSEIBLCIAAAUBLCIAAAUDAFUBADNAAAEBAAVCOHYAAFOAAAA| strtox-IMSUBR " :;" T ]>
5 <SETG \1aSTRTOX #MSUBR [strtox-IMSUBR STRTOX ("VALUE" FIX STRING) 0]>
6 <SETG \1aSIXTOS #MSUBR [strtox-IMSUBR SIXTOS ("VALUE" STRING <PRIMTYPE WORD>
7 "OPTIONAL" <OR CHARACTER FALSE>) 188]>
8 <SETG \1aSUBSTR #MSUBR [strtox-IMSUBR SUBSTR ("VALUE" <OR FALSE STRING> STRING
9 STRING "OPTIONAL" FIX ANY) 416]>
10 <SETG \1aSUBSNC #MSUBR [strtox-IMSUBR SUBSNC ("VALUE" <OR FALSE STRING> STRING
11 STRING "OPTIONAL" FIX) 868]>
12 <SETG \1aUPPERCASE #MSUBR [strtox-IMSUBR UPPERCASE ("VALUE" STRING STRING
13 "OPTIONAL" FIX) 984]>
14 <SETG \1aLOWERCASE #MSUBR [strtox-IMSUBR LOWERCASE ("VALUE" STRING STRING
15 "OPTIONAL" FIX) 1132]>
16 <ENDPACKAGE>