Return to negq.s,v CVS log

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

Annotation of coherent/b/lib/libc/old/negq.s,v, revision 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.13;  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: / negq( w0, w1, w2, w3 ) - negate a quad word.
        !            28: /
        !            29: /      Action: Negate a quad word.
        !            30: /
        !            31: /      Return: Negated result in _fpac_.
        !            32: /
        !            33: ////////
        !            34:        .globl  negq_
        !            35:        .shri
        !            36: 
        !            37: negq_: push    si
        !            38:        push    di
        !            39:        push    bp
        !            40:        mov     bp,sp
        !            41:        mov     ax,8(bp)
        !            42:        mov     bx,10(bp)
        !            43:        mov     cx,12(bp)
        !            44:        mov     dx,14(bp)
        !            45:        not     dx
        !            46:        not     cx
        !            47:        not     bx
        !            48:        neg     ax
        !            49:        sbb     bx,$0
        !            50:        sbb     cx,$0
        !            51:        sbb     dx,$0
        !            52:        mov     _fpac_+0,ax
        !            53:        mov     _fpac_+2,bx
        !            54:        mov     _fpac_+4,cx
        !            55:        mov     _fpac_+6,dx
        !            56:        pop     bp
        !            57:        pop     di
        !            58:        pop     si
        !            59:        ret
        !            60: @

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