4 <ENV-COND ((ENVIRONMENT MDL) <PUT BOOLEAN DECL '<OR ATOM FALSE>>)
5 (T <PUT-DECL BOOLEAN '<OR ATOM FALSE>>)>
9 <DEFMAC GET-FIELD ('WD 'BITS)
10 <FORM CHTYPE <FORM GETBITS .WD .BITS> FIX>>
12 <DEFMAC LHW ('WD) <FORM CHTYPE <FORM GETBITS .WD '<BITS 16 16>> FIX>>
15 <FORM CHTYPE <FORM GETBITS .WD '<BITS 16>> FIX>>
17 <DEFMAC PUT-LHW ('WD 'VAL)
18 <FORM PUTBITS .WD '<BITS 16 16> .VAL>>
20 <DEFMAC PUT-RHW ('WD 'VAL)
21 <FORM PUTBITS .WD '<BITS 16> .VAL>>