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

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.