1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <mach.h>
# BITMOV -- Move a sequence of bits in a bit array of arbitrary length.
procedure bitmov (a, a_off, b, b_off, nbits)
int a[ARB] # input bit array
int a_off # first bit to be moved
int b[ARB] # output bit array
int b_off # first bit to be written
int nbits # number of bits to be moved
int ip, op, ip_top, nbits_left
int bitupk()
begin
ip_top = a_off + nbits - NBITS_INT
op = b_off
for (ip = a_off; ip <= ip_top; ip = ip + NBITS_INT) {
call bitpak (bitupk(a,ip,NBITS_INT), b, op, NBITS_INT)
op = op + NBITS_INT
}
nbits_left = (a_off + nbits) - ip
if (nbits_left > 0)
call bitpak (bitupk(a,ip,nbits_left), b, op, nbits_left)
end
|
