Return to srlq.s,v CVS log

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

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

1.1       root        1: head     1.1;
                      2: branch   ;
                      3: access   ;
                      4: symbols  ;
                      5: locks    bin:1.1; strict;
                      6: comment  @@;
                      7: 
                      8: 
                      9: 1.1
                     10: date     92.10.01.12.05.14;  author bin;  state Exp;
                     11: branches ;
                     12: next     ;
                     13: 
                     14: 
                     15: desc
                     16: @@
                     17: 
                     18: 
                     19: 
                     20: 1.1
                     21: log
                     22: @Initial revision
                     23: @
                     24: text
                     25: @////////
                     26: /
                     27: / srlq( w0, w1, w2, w3, count ) - shift right logical a quad word.
                     28: /
                     29: /      Input:  w0..w3 form a quad word.
                     30: /              count is the number of bits
                     31: /
                     32: /      Action: Perform a shift right logical of w0..w3 by count bits.
                     33: /
                     34: /      Return: _fpac_ contains the shifted result.
                     35: /
                     36: ////////
                     37: 
                     38:        .globl  srlq_
                     39:        .shri
                     40: 
                     41: srlq_: push    si
                     42:        push    di
                     43:        push    bp
                     44:        mov     bp,sp
                     45:        mov     ax,8(bp)
                     46:        mov     dx,10(bp)
                     47:        mov     si,12(bp)
                     48:        mov     di,14(bp)
                     49:        mov     cx,16(bp)
                     50:        jcxz    1f
                     51: 
                     52: 0:     shr     di,$1
                     53:        rcr     si,$1
                     54:        rcr     dx,$1
                     55:        rcr     ax,$1
                     56:        loop    0b
                     57: 
                     58: 1:     mov     _fpac_+0,ax
                     59:        mov     _fpac_+2,dx
                     60:        mov     _fpac_+4,si
                     61:        mov     _fpac_+6,di
                     62:        pop     bp
                     63:        pop     di
                     64:        pop     si
                     65:        ret
                     66: @

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