Return to bits.asm.vax CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / new / X / xfax

Annotation of 43BSDTahoe/new/X/xfax/bits.asm.vax, revision 1.1.1.1

1.1       root        1: comp = qproc (b: _bytevec)
                      2:        extzv   2,14,(rr),n1
                      3:        addl    4,rr,n2
                      4:        qloop
                      5:                mcoml   (n2),(n2)+
                      6:                sobgtr  n1,this
                      7:        end
                      8:        end comp
                      9: 
                     10: getb = qproc (b: _bytevec, bit: int) returns (bool)
                     11:        addl    4,b,n1
                     12:        extzv   rr,1,(n1),rr
                     13:        return(rr)
                     14:        end getb
                     15: 
                     16: getn = qproc (b: _bytevec, bit, len: int) returns (int)
                     17:        addl    4,b,n1
                     18:        extzv   bit,rr,(n1),rr
                     19:        return(rr)
                     20:        end getn
                     21: 
                     22: setb = qproc (b: _bytevec, bit: int)
                     23:        addl    4,b,n1
                     24:        insv    1,rr,1,(n1)
                     25:        end setb
                     26: 
                     27: setn = qproc (b: _bytevec, bit, len: int)
                     28:        addl    4,b,n1
                     29:        insv    -1,bit,rr,(n1)
                     30:        end setn

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.