Return to frexp.s CVS log

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

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

1.1       root        1: ////////
                      2: /
                      3: / Intel 8086 C runtime.
                      4: / Store binary exponent, return mantissa.
                      5: / SMALL model.
                      6: /
                      7: ////////
                      8: 
                      9:        .globl  _fpac_
                     10:        .globl  frexp_
                     11:        .globl  dzero
                     12: 
                     13: EXPBIAS        = 0x80
                     14: 
                     15: ////////
                     16: /
                     17: / double frexp(dd, xp) double dd; int *xp;
                     18: / Store binary exponent via xp, return mantissa.
                     19: /
                     20: ////////
                     21: 
                     22: frexp_:
                     23:        push    si
                     24:        push    di
                     25:        push    bp
                     26:        mov     bp, sp
                     27: 
                     28:        mov     bx, 16(bp)      / xp to BX
                     29:        mov     ax, 14(bp)      / Get most significant bits
                     30:        rol     ax, $1          / Get exponent in 1 reg
                     31:        orb     ah, ah          / Is exponent 0?
                     32:        jnz     L0              / No
                     33:        call    dzero           / Yes, zero _fpac_
                     34:        mov     (bx), ax        / and store 0 through xp
                     35:        jmp     L1
                     36: 
                     37: L0:    movb    cl, ah
                     38:        subb    ch, ch
                     39:        sub     cx, $EXPBIAS    / signed
                     40:        mov     (bx), cx        / *xp = exp
                     41: 
                     42:        movb    ah, $EXPBIAS    / zero exponent
                     43:        ror     ax, $1          / back in place
                     44:        mov     _fpac_+6, ax
                     45:        mov     ax, 12(bp)
                     46:        mov     _fpac_+4, ax
                     47:        mov     ax, 10(bp)
                     48:        mov     _fpac_+2, ax
                     49:        mov     ax, 8(bp)
                     50: L1:    mov     _fpac_, ax
                     51: 
                     52:        pop     bp
                     53:        pop     di
                     54:        pop     si
                     55:        ret

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