Return to divide.s CVS log

Up to [Research Unix] / researchv10no / cmd / xref

Annotation of researchv10no/cmd/xref/divide.s, revision 1.1

1.1     ! root        1: / long / int
        !             2: 
        !             3:        .globl  _divide
        !             4: _divide:
        !             5:        jsr     r5,csv
        !             6:        mov     6(r5),r3        / divisor
        !             7:        mov     4(r5),r4        / dividend address
        !             8: 
        !             9:        clr     r0
        !            10:        mov     0(r4),r1        / hi dividend
        !            11:        div     r3,r0
        !            12:        mov     r0,0(r4)        /high quotient
        !            13:        mov     r1,r0           / r
        !            14:        mov     2(r4),r1        / lo dividend
        !            15:        div     r3,r0
        !            16:        bvc     1f
        !            17:        sub     r3,r0           / this is the clever part
        !            18:        div     r3,r0
        !            19:        tst     r1
        !            20:        bge     1f
        !            21:        add     r3,r1
        !            22:        dec     r0
        !            23: 1:
        !            24:        mov     r0,2(r4)        / lo quotient
        !            25:        mov     r1,r0           / remainder
        !            26:        jmp     cret

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