BSD 4_3_Tahoe development

Work on file usr/src/new/X/xfax/bits.asm.vax
Work on file usr/src/new/X/xfax/bits.spc

Synthesized-from: CSRG/cd2/4.3tahoe

diff --git a/usr/src/new/X/xfax/bits.asm.vax b/usr/src/new/X/xfax/bits.asm.vax
new file mode 100644 (file)
index 0000000..45f468d
--- /dev/null
+++ b/usr/src/new/X/xfax/bits.asm.vax
@@ -0,0 +1,30 @@
+comp = qproc (b: _bytevec)
+       extzv   2,14,(rr),n1
+       addl    4,rr,n2
+       qloop
+               mcoml   (n2),(n2)+
+               sobgtr  n1,this
+       end
+       end comp
+
+getb = qproc (b: _bytevec, bit: int) returns (bool)
+       addl    4,b,n1
+       extzv   rr,1,(n1),rr
+       return(rr)
+       end getb
+
+getn = qproc (b: _bytevec, bit, len: int) returns (int)
+       addl    4,b,n1
+       extzv   bit,rr,(n1),rr
+       return(rr)
+       end getn
+
+setb = qproc (b: _bytevec, bit: int)
+       addl    4,b,n1
+       insv    1,rr,1,(n1)
+       end setb
+
+setn = qproc (b: _bytevec, bit, len: int)
+       addl    4,b,n1
+       insv    -1,bit,rr,(n1)
+       end setn

diff --git a/usr/src/new/X/xfax/bits.spc b/usr/src/new/X/xfax/bits.spc
new file mode 100644 (file)
index 0000000..9770308
--- /dev/null
+++ b/usr/src/new/X/xfax/bits.spc
@@ -0,0 +1,14 @@
+comp = proc (b: _bytevec)
+       end comp
+
+getb = proc (b: _bytevec, bit: int) returns (bool)
+       end getb
+
+getn = proc (b: _bytevec, bit, len: int) returns (int)
+       end getn
+
+setb = proc (b: _bytevec, bit: int)
+       end setb
+
+setn = proc (b: _bytevec, bit, len: int)
+       end setn