Return to cmpd.s CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / lib / libc / tahoe / fpe

Annotation of 43BSDTahoe/lib/libc/tahoe/fpe/cmpd.s, revision 1.1.1.1

1.1       root        1: #ifdef LIBC_SCCS
                      2:        .asciz  "@(#)cmpd.s     1.2 (Berkeley/CCI) 7/2/86"
                      3: #endif LIBC_SCCS
                      4: 
                      5: #include "DEFS.h"
                      6: 
                      7: XENTRY(cmpd, R12|R11|R10|R9)
                      8:        movl    4(fp),r12
                      9:        movl    8(fp),r10
                     10:        movl    12(fp),r11
                     11:        movl    16(fp),r9
                     12:        tstl    r12
                     13:        jgeq    L16
                     14:        xorl2   $-2147483648,r12
                     15:        tstl    r10
                     16:        jeql    L17
                     17:        mnegl   r10,r10
                     18:        mcoml   r12,r12
                     19:        jbr     L16
                     20: L17:   mnegl   r12,r12
                     21: L16:   tstl    r11
                     22:        jgeq    L19
                     23:        xorl2   $-2147483648,r11
                     24:        tstl    r9
                     25:        jeql    L20
                     26:        mnegl   r9,r9
                     27:        mcoml   r11,r11
                     28:        jbr     L19
                     29: L20:   mnegl   r11,r11
                     30: L19:   cmpl    r12,r11
                     31:        jeql    L22
                     32:        cmpl    r12,r11
                     33:        jleq    L9999
                     34:        movl    $1,r0
                     35:        jbr     L9998
                     36: L9999: mnegl   $1,r0
                     37: L9998: ret
                     38: L22:   cmpl    r10,r9
                     39:        jeql    L23
                     40:        cmpl    r10,r9
                     41:        jlequ   L9997
                     42:        movl    $1,r0
                     43:        jbr     L9996
                     44: L9997: mnegl   $1,r0
                     45: L9996: ret
                     46: L23:   clrl    r0
                     47:        ret

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