proc1(a)1 proc1 (a)
2      unsigned a;
3 {
4   return (a >> 20) & 0x010fffff;
5 }
6 
proc2(a)7 proc2 (a)
8      unsigned a;
9 {
10   return (a << 17) & 0xfffff001;
11 }
12 
proc3(a)13 proc3 (a)
14      unsigned a;
15 {
16   return (a & 0xff00000a) >> 25;
17 }
18 
proc4(a)19 proc4 (a)
20      unsigned a;
21 {
22   return (a & 0x100000ff) << 25;
23 }
24 
proc5(a)25 proc5 (a)
26      unsigned a;
27 {
28   return (unsigned char) (a >> 24);
29 }
30 
proc6(a)31 proc6 (a)
32      unsigned a;
33 {
34   return ((unsigned char) a) << 30;
35 }
36