1 <SETG 32MASK #WORD *37777777777*>
5 <DEFMAC ROT32!- ('A 'B "AUX" PT)
6 <FORM IFSYS ("UNIX" <FORM ROT .A .B>)
8 <COND (<AND <OR <==? <SET PT <PRIMTYPE .A>> FIX>
10 <==? <SET PT <TYPE .A>> GVAL>
14 <OR <==? <1 .A> LVAL> <==? <1 .A> GVAL>>
20 <FORM ORB <FORM LSH .A .B>
21 <FORM LSH <FORM ANDB .A ,32MASK>
22 <COND (<L? .B 0> <+ .B 32>)
28 <FORM ORB <FORM LSH '.OBJ .B>
29 <FORM LSH <FORM ANDB '.OBJ ,32MASK>
30 <COND (<L? .B 0> <+ .B 32>)
34 <FORM PROG ((OBJ .A) (SHFT .B))
36 <FORM ORB <FORM LSH '.OBJ '.SHFT>
37 <FORM LSH <FORM ANDB '.OBJ ,32MASK>
38 <FORM COND (<FORM L? '.SHFT 0>
40 (ELSE <FORM - '.SHFT 32>)>>>