mim/development/mim/vax/mimlib/expose-defs.mud

   1 <DEFINITIONS "EXPOSE-DEFS">
   2
   3 <USE "NEWSTRUC">
   4
   5 <MSETG OP-COLUMN 8>
   6 <MSETG ARG-COLUMN 16>
   7 <MSETG COMMENT-COLUMN 40>
   8
   9 <MSETG LENGTH-MASK 255>
  10 <MSETG BRANCH-BIT 256>
  11 <MSETG CASE-BIT 512>
  12
  13 <DEFMAC BRANCH? ('FOO)
  14    <FORM NOT <FORM 0? <FORM ANDB .FOO ',BRANCH-BIT>>>>
  15
  16 <DEFMAC CASE? ('FOO)
  17    <FORM NOT <FORM 0? <FORM ANDB .FOO ',CASE-BIT>>>>
  18
  19 <MSETG KERNEL-TABLE-LENGTH 53>
  20
  21 <MSETG LABEL-TABLE-LENGTH 101>
  22
  23 <DEFMAC HEX-CHAR ('NUM)
  24    <FORM PROG ((N <FORM ANDB .NUM 15>))
  25          '<COND (<G? .N 9>
  26                  <CHTYPE <+ .N %<- <ASCII !\a> 10>> CHARACTER>)
  27                 (ELSE
  28                  <CHTYPE <+ .N %<ASCII !\0>> CHARACTER>)>>>
  29
  30 <END-DEFINITIONS>