Return to bits.asm.vax CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / X / xfax

Annotation of 43BSD/contrib/X/xfax/bits.asm.vax, revision 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.