Return to div.m CVS log

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

Annotation of coherent/b/lib/libc/gen/i8086/div.m, revision 1.1.1.1

1.1       root        1: //////////
                      2: / i8086 general utilities library.
                      3: / div()
                      4: / ANSI 4.10.6.2.
                      5: / Division and remainder.
                      6: //////////
                      7: 
                      8: #include "larges.h"
                      9: 
                     10: //////////
                     11: / #include <stdlib.h>
                     12: / div_t div(int numer, int denom)
                     13: /
                     14: / Compute quotient and remainder of 'numer' by 'denom'.
                     15: / Return a pointer to a statically allocated div_t object.
                     16: //////////
                     17: 
                     18:        .prvd
                     19: quot:  .word   0
                     20: rem:   .word   0
                     21: 
                     22: numer  =       RASIZE
                     23: denom  =       2 + numer
                     24: 
                     25:        .shri
                     26:        .globl  div_
                     27: 
                     28: div_:
                     29:        mov     bx, sp
                     30:        mov     ax, Pss numer(bx)       / Dividend to AX
                     31:        cwd                             / Sign-extend to DX:AX
                     32:        idiv    Pss denom(bx)           / Divide by divisor
                     33:        Map     (ds, bx, $@quot)
                     34:        mov     bx, $quot               / Pointer to result to DS:BX
                     35:        mov     (bx), ax                / Store quotient
                     36:        mov     2(bx), dx               / Store remainder
                     37: #if    LARGE
                     38:        mov     dx, ds
                     39: #endif
                     40:        mov     ax, bx                  / Return pointer in DX:AX
                     41:        Gret
                     42: 
                     43: / end of div.m

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