mim/development/mim/vaxc/cinit.mud

   1
   2 <USE "NEWSTRUC">
   3
   4 <ENV-COND ((ENVIRONMENT MDL) <PUT BOOLEAN DECL '<OR ATOM FALSE>>)
   5           (T <PUT-DECL BOOLEAN '<OR ATOM FALSE>>)>
   6
   7 <SETG FCN ,FUNCTION>
   8
   9 <DEFMAC GET-FIELD ('WD 'BITS)
  10         <FORM CHTYPE <FORM GETBITS .WD .BITS> FIX>>
  11
  12 <DEFMAC LHW ('WD) <FORM CHTYPE <FORM GETBITS .WD '<BITS 16 16>> FIX>>
  13
  14 <DEFMAC RHW ('WD)
  15         <FORM CHTYPE <FORM GETBITS .WD '<BITS 16>> FIX>>
  16
  17 <DEFMAC PUT-LHW ('WD 'VAL)
  18         <FORM PUTBITS .WD '<BITS 16 16> .VAL>>
  19
  20 <DEFMAC PUT-RHW ('WD 'VAL)
  21         <FORM PUTBITS .WD '<BITS 16> .VAL>>
  22
  23 <DEFMAC TAB ()
  24         '<PRINC !\      >>