5 <GFCN
\1aGET-FIELD ("VALUE" FIX <PRIMTYPE FIX> BITS) WD4 BITS5>
6 <TEMP TEMP10:FIX MSK9:FIX RB11:BITS SHFT12:FIX>
8 <GVAL 'M$$R-BHWD = TEMP10>
9 <SUB 0 TEMP10 = TEMP10 (TYPE FIX)>
10 <LSH -1 TEMP10 = MSK9 (TYPE FIX)>
14 <AND RB11 MSK9 = SHFT12>
15 <GVAL 'M$$R-BHWD = TEMP10>
16 <SUB 0 TEMP10 = TEMP10 (TYPE FIX)>
17 <LSH RB11 TEMP10 = TEMP10 (TYPE FIX)>
19 <AND TEMP10 MSK9 = TEMP10>
21 <GETBITS WD4 TEMP10 SHFT12 = TEMP10>
28 <GFCN
\1aLHW ("VALUE" FIX <PRIMTYPE FIX>) WD4>
31 <GETBITS WD4 16 16 = TEMP5>
38 <GFCN
\1aRHW ("VALUE" FIX <PRIMTYPE FIX>) WD4>
41 <AND WD4 #WORD *177777* = TEMP5>
48 <GFCN
\1aPUT-LHW ("VALUE" FIX <PRIMTYPE FIX> <PRIMTYPE FIX>) WD4 VAL5>
51 <PUTBITS WD4 16 16 VAL5 = TEMP6>
58 <GFCN
\1aPUT-RHW ("VALUE" FIX <PRIMTYPE FIX> <PRIMTYPE FIX>) WD4 VAL5>
61 <PUTBITS WD4 16 0 VAL5 = TEMP6>
68 <GFCN
\1aTAB ("VALUE" CHARACTER)>
73 <GEN-LVAL 'OUTCHAN = STACK>
74 <CALL '
\1aPRINC 2 = TEMP5>
79 <ENV-COND ((ENVIRONMENT MIM) <PUT-DECL BOOLEAN '<OR ATOM FALSE>>) (T <PUT BOOLEAN DECL '<OR ATOM FALSE>>)>