Return to ldexp.s CVS log

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

Annotation of coherent/b/lib/libc/crt/i8086/ldexp.s, revision 1.1.1.1

1.1       root        1: ////////
                      2: /
                      3: / Intel 8086 C runtime.
                      4: / Build a double from its mantissa and exponent parts.
                      5: / SMALL model.
                      6: /
                      7: ////////
                      8: 
                      9:        .globl  _fpac_
                     10:        .globl  ldexp_
                     11:        .globl  dzero
                     12: 
                     13: ////////
                     14: /
                     15: / double ldexp(dd, exp) double dd; int exp;
                     16: / returns dd * 2**exp
                     17: /
                     18: ////////
                     19: 
                     20: ldexp_:
                     21:        push    si
                     22:        push    di
                     23:        push    bp
                     24:        mov     bp, sp
                     25: 
                     26:        mov     ax, 14(bp)      / most significant word
                     27:        rol     ax, $1          / get exp isolated in register
                     28:        orb     ah, ah          / is exp 0?
                     29:        jnz     L0              / no
                     30:        call    dzero           / dd is 0, zero _fpac_
                     31:        jmp     L1              / and return it
                     32: L0:
                     33:        addb    ah, 16(bp)      / add exp
                     34:        ror     ax, $1          / back in place
                     35: 
                     36:        mov     _fpac_+6, ax
                     37:        mov     ax, 12(bp)
                     38:        mov     _fpac_+4, ax
                     39:        mov     ax, 10(bp)
                     40:        mov     _fpac_+2, ax
                     41:        mov     ax, 8(bp)
                     42:        mov     _fpac_, ax
                     43: L1:
                     44:        pop     bp
                     45:        pop     di
                     46:        pop     si
                     47:        ret

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