Return to srlq.s CVS log

Up to [MW Coherent from dump] / coherent / b / lib / libc / old

Annotation of coherent/b/lib/libc/old/srlq.s, revision 1.1

1.1     ! root        1: ////////
        !             2: /
        !             3: / srlq( w0, w1, w2, w3, count ) - shift right logical a quad word.
        !             4: /
        !             5: /      Input:  w0..w3 form a quad word.
        !             6: /              count is the number of bits
        !             7: /
        !             8: /      Action: Perform a shift right logical of w0..w3 by count bits.
        !             9: /
        !            10: /      Return: _fpac_ contains the shifted result.
        !            11: /
        !            12: ////////
        !            13: 
        !            14:        .globl  srlq_
        !            15:        .shri
        !            16: 
        !            17: srlq_: push    si
        !            18:        push    di
        !            19:        push    bp
        !            20:        mov     bp,sp
        !            21:        mov     ax,8(bp)
        !            22:        mov     dx,10(bp)
        !            23:        mov     si,12(bp)
        !            24:        mov     di,14(bp)
        !            25:        mov     cx,16(bp)
        !            26:        jcxz    1f
        !            27: 
        !            28: 0:     shr     di,$1
        !            29:        rcr     si,$1
        !            30:        rcr     dx,$1
        !            31:        rcr     ax,$1
        !            32:        loop    0b
        !            33: 
        !            34: 1:     mov     _fpac_+0,ax
        !            35:        mov     _fpac_+2,dx
        !            36:        mov     _fpac_+4,si
        !            37:        mov     _fpac_+6,di
        !            38:        pop     bp
        !            39:        pop     di
        !            40:        pop     si
        !            41:        ret

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