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