mim/development/mim/vax/mimlib/flags.mud

   1 <PACKAGE "FLAGS">
   2
   3 <RENTRY FLAGS BIT>
   4
   5 <USE "NEWSTRUC">
   6
   7 <DEFINE FLAGS ("TUPLE" F)
   8         <REPEAT ()
   9                 <COND (<LENGTH? .F 1> <RETURN>)>
  10                 <MSETG <1 .F> <BIT <2 .F>>>
  11                 <SET F <REST .F 2>>>>
  12
  13 <DEFINE BIT (N)
  14         #DECL ((N) FIX)
  15         <COND (<0? .N> 1)
  16               (ELSE
  17                <COND (<G? .N 35>
  18                       <ERROR BIT-NOT-20-COMPATIBLE!-ERRORS .N>)
  19                      (<G? .N 31>
  20                       <ERROR BIT-NOT-VAX-COMPATIBLE!-ERRORS .N>)>
  21                <CHTYPE <LSH 1 .N> FIX>)>>
  22
  23 <ENDPACKAGE>