mim/mim/mimlib/flags.msubr

   1 <PACKAGE "FLAGS">
   2 <RENTRY FLAGS BIT>
   3 <USE "NEWSTRUC">
   4
   5 <SETG \1aflags-IMSUBR #IMSUBR [|AAAACPBEAAB]GCB]H]AHEHCCE_BMH]AAAMACGCBMGNBGAOB]GCB]H]AHEHBMGNBKCDCKFZA`H`H`HIDHAECOFYABBYCKFZA`H`H`HIDHAECOFYABBYBQCVFRH]AAAAAAABDOAQBADMAAAUBABMAAAQBKDNH`H]COHYAAFOCOFYAAFUBADNAAAEBMGQBMHIAAAEBMH]AAAAAICCBMH]AAAAAAEOBMGNBCDNH`H]CKDJH`H]DNAEBCDJH`H]BMGJBMHIAAAIBMHIAAAMCLHOH`HYDQABDAAAAABEBMGABMGIDQACBADMAAA]COFYAAF[CVCVAGFNAAAAAAAQAAAEB\D]ACCHAAACDAAAH`D]CKFZA`H`H`HIDHAECOFYABBYCKFNAAAEDGAOBQD]AAABBAB]AAAAAACACOHYAAFOAMFNAAAAAABDAAAEDPA_COFYAAFUBMHMAABABMHMAABEBMGVBMHNAAAEDQACBADMAABMCOFYAAF[DABGAMFNAAAAAAA`AAAEDPA]COFYAAFUBMHMAABQBMHMAABUBMGVBMHNAAAEDQACBADMAABMCOFYAAF[D_ABBMBNAAAEDOAGCEEGHMFPDAACHNFPBACHBAB[H`EWCOHYAAFOAAAA| flags-IMSUBR T MSETG
   6 BIT-NOT-20-COMPATIBLE!-ERRORS ERROR BIT-NOT-VAX-COMPATIBLE!-ERRORS ]>
   7 <SETG \1aFLAGS #MSUBR [flags-IMSUBR FLAGS ("VALUE" ATOM "TUPLE" ANY) 0]>
   8 <SETG \1aBIT #MSUBR [flags-IMSUBR BIT ("VALUE" FIX FIX) 176]>
   9 <ENDPACKAGE>