4 <DEFINE GET-FIELD (WD BITS)
5 #DECL ((WD) <PRIMTYPE FIX> (BITS) BITS)
6 <CHTYPE <GETBITS .WD .BITS> FIX>>
9 #DECL ((WD) <PRIMTYPE FIX>)
10 <CHTYPE <GETBITS .WD <BITS 16 16>> FIX>>
13 #DECL ((WD) <PRIMTYPE FIX>)
14 <CHTYPE <GETBITS .WD <BITS 16>> FIX>>
16 <DEFINE PUT-LHW (WD VAL)
17 #DECL ((WD VAL) <PRIMTYPE FIX>)
18 <PUTBITS .WD <BITS 16 16> .VAL>>
20 <DEFINE PUT-RHW (WD VAL)
21 #DECL ((WD VAL) <PRIMTYPE FIX>)
22 <PUTBITS .WD <BITS 16> .VAL>>
30 <PUT-DECL BOOLEAN '<OR ATOM FALSE>>)
31 (T <PUT BOOLEAN DECL '<OR ATOM FALSE>>)>