Return to shlq.s,v CVS log

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

Annotation of coherent/b/lib/libc/old/shlq.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: / shlq( w0, w1, w2, w3, count ) - shift left a quad word.
                     28: /
                     29: /      Input:  w0..w3 = quad word to be shifted.
                     30: /              count  = number of bits to shift by.
                     31: /
                     32: /      Action: Shift left quad word w0..w3 by count bits.
                     33: /
                     34: /      Return: Shifted result left in _fpac_.
                     35: /
                     36: ////////
                     37:        .globl  shlq_
                     38:        .shri
                     39: 
                     40: shlq_: push    si
                     41:        push    di
                     42:        push    bp
                     43:        mov     bp,sp
                     44:        mov     ax,8(bp)
                     45:        mov     dx,10(bp)
                     46:        mov     si,12(bp)
                     47:        mov     di,14(bp)
                     48:        mov     cx,16(bp)
                     49:        jcxz    1f
                     50: 
                     51: 0:     shl     ax,$1
                     52:        rcl     dx,$1
                     53:        rcl     si,$1
                     54:        rcl     di,$1
                     55:        loop    0b
                     56: 
                     57: 1:     mov     _fpac_+0,ax
                     58:        mov     _fpac_+2,dx
                     59:        mov     _fpac_+4,si
                     60:        mov     _fpac_+6,di
                     61:        pop     bp
                     62:        pop     di
                     63:        pop     si
                     64:        ret
                     65: @

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