Return to dodiv.c CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / ucb / lisp / franz / tahoe

Annotation of 43BSDTahoe/ucb/lisp/franz/tahoe/dodiv.c, revision 1.1.1.1

1.1       root        1: /* Copyright (c) 1982, Regents, University of California */
                      2: 
                      3: struct sdot
                      4:        {long I;
                      5:        struct sdot *CDR;
                      6:        };
                      7: struct vl
                      8:        {long high;
                      9:         long low;
                     10:        };
                     11: 
                     12: long dodiv(top,bottom)
                     13: long *top, *bottom; /* top least significant; bottom most */
                     14: {
                     15:        struct vl work;
                     16:        char error;
                     17:        register long *p = bottom;      /* r12 */
                     18:        register long rem = 0;          /* r11 */
                     19: 
                     20:        for(;p <= top;p++)
                     21:        {
                     22:        /*      emul(0x40000000,rem,*p,&work);          */
                     23:        /*      *p = ediv(&work,1000000000,&error);     */
                     24:        /*      rem = work.high;                        */
                     25: 
                     26:                asm("emul       $0x40000000,r11,(r12),r0");
                     27:                asm("ediv       $1000000000,r0,(r12),r11");
                     28:        }
                     29:        return(rem);
                     30: }
                     31: 
                     32: long dsneg(top,bottom)
                     33: long *top, *bottom;
                     34: {
                     35:        register long *p = top;
                     36:        register carry = 0;
                     37:        register digit;
                     38: 
                     39:        while(p >= bottom)
                     40:        {
                     41:                digit = carry - *p;
                     42:                /* carry = digit >> 30; is slow on 68K */
                     43:                if(digit < 0) carry = -2;
                     44:                if(digit & 0x40000000) carry += 1;
                     45:                *p-- = digit & 0x3fffffff;
                     46:        }
                     47: }

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