1 <DEFINITIONS "EXPOSE-DEFS">
7 <MSETG COMMENT-COLUMN 40>
9 <MSETG LENGTH-MASK 255>
10 <MSETG BRANCH-BIT 256>
13 <DEFMAC BRANCH? ('FOO)
14 <FORM NOT <FORM 0? <FORM ANDB .FOO ',BRANCH-BIT>>>>
17 <FORM NOT <FORM 0? <FORM ANDB .FOO ',CASE-BIT>>>>
19 <MSETG KERNEL-TABLE-LENGTH 53>
21 <MSETG LABEL-TABLE-LENGTH 101>
23 <DEFMAC HEX-CHAR ('NUM)
24 <FORM PROG ((N <FORM ANDB .NUM 15>))
26 <CHTYPE <+ .N %<- <ASCII !\a> 10>> CHARACTER>)
28 <CHTYPE <+ .N %<ASCII !\0>> CHARACTER>)>>>