Return to negq.s CVS log

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

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

1.1       root        1: ////////
                      2: /
                      3: / negq( w0, w1, w2, w3 ) - negate a quad word.
                      4: /
                      5: /      Action: Negate a quad word.
                      6: /
                      7: /      Return: Negated result in _fpac_.
                      8: /
                      9: ////////
                     10:        .globl  negq_
                     11:        .shri
                     12: 
                     13: negq_: push    si
                     14:        push    di
                     15:        push    bp
                     16:        mov     bp,sp
                     17:        mov     ax,8(bp)
                     18:        mov     bx,10(bp)
                     19:        mov     cx,12(bp)
                     20:        mov     dx,14(bp)
                     21:        not     dx
                     22:        not     cx
                     23:        not     bx
                     24:        neg     ax
                     25:        sbb     bx,$0
                     26:        sbb     cx,$0
                     27:        sbb     dx,$0
                     28:        mov     _fpac_+0,ax
                     29:        mov     _fpac_+2,bx
                     30:        mov     _fpac_+4,cx
                     31:        mov     _fpac_+6,dx
                     32:        pop     bp
                     33:        pop     di
                     34:        pop     si
                     35:        ret

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