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

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.