Return to shlq.s CVS log

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

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

1.1     ! root        1: ///////
        !             2: /
        !             3: / shlq( w0, w1, w2, w3, count ) - shift left a quad word.
        !             4: /
        !             5: /      Input:  w0..w3 = quad word to be shifted.
        !             6: /              count  = number of bits to shift by.
        !             7: /
        !             8: /      Action: Shift left quad word w0..w3 by count bits.
        !             9: /
        !            10: /      Return: Shifted result left in _fpac_.
        !            11: /
        !            12: ////////
        !            13:        .globl  shlq_
        !            14:        .shri
        !            15: 
        !            16: shlq_: push    si
        !            17:        push    di
        !            18:        push    bp
        !            19:        mov     bp,sp
        !            20:        mov     ax,8(bp)
        !            21:        mov     dx,10(bp)
        !            22:        mov     si,12(bp)
        !            23:        mov     di,14(bp)
        !            24:        mov     cx,16(bp)
        !            25:        jcxz    1f
        !            26: 
        !            27: 0:     shl     ax,$1
        !            28:        rcl     dx,$1
        !            29:        rcl     si,$1
        !            30:        rcl     di,$1
        !            31:        loop    0b
        !            32: 
        !            33: 1:     mov     _fpac_+0,ax
        !            34:        mov     _fpac_+2,dx
        !            35:        mov     _fpac_+4,si
        !            36:        mov     _fpac_+6,di
        !            37:        pop     bp
        !            38:        pop     di
        !            39:        pop     si
        !            40:        ret

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