mim/development/mim/vaxc/init.mud

   1
   2 <USE "NEWSTRUC">
   3
   4 <DEFINE GET-FIELD (WD BITS)
   5         #DECL ((WD) <PRIMTYPE FIX> (BITS) BITS)
   6         <CHTYPE <GETBITS .WD .BITS> FIX>>
   7
   8 <DEFINE LHW (WD)
   9         #DECL ((WD) <PRIMTYPE FIX>)
  10         <CHTYPE <GETBITS .WD <BITS 16 16>> FIX>>
  11
  12 <DEFINE RHW (WD)
  13         #DECL ((WD) <PRIMTYPE FIX>)
  14          <CHTYPE <GETBITS .WD <BITS 16>> FIX>>
  15
  16 <DEFINE PUT-LHW (WD VAL)
  17         #DECL ((WD VAL) <PRIMTYPE FIX>)
  18         <PUTBITS .WD <BITS 16 16> .VAL>>
  19
  20 <DEFINE PUT-RHW (WD VAL)
  21         #DECL ((WD VAL) <PRIMTYPE FIX>)
  22         <PUTBITS .WD <BITS 16> .VAL>>
  23
  24
  25 <DEFINE TAB ()
  26         <PRINC !\       >>
  27
  28 <ENV-COND
  29  ((ENVIRONMENT MIM)
  30   <PUT-DECL BOOLEAN '<OR ATOM FALSE>>)
  31  (T <PUT BOOLEAN DECL '<OR ATOM FALSE>>)>
  32
  33 <SETG FCN ,FUNCTION>