Return to udiv.s CVS log

Up to [Research Unix] / researchv10no / cmd / PDP11 / crt

Annotation of researchv10no/cmd/PDP11/crt/udiv.s, revision 1.1

1.1     ! root        1: / unsigned divide routine
        !             2: 
        !             3: .globl udiv, urem
        !             4: 
        !             5: udiv:
        !             6:        cmp     r1,$1
        !             7:        ble     9f
        !             8:        mov     r1,-(sp)
        !             9:        mov     r0,r1
        !            10:        clr     r0
        !            11:        div     (sp)+,r0
        !            12:        rts     pc
        !            13: 9:
        !            14:        bne     9f
        !            15:        tst     r0
        !            16:        rts     pc
        !            17: 9:
        !            18:        cmp     r1,r0
        !            19:        blos    9f
        !            20:        clr     r0
        !            21:        rts     pc
        !            22: 9:
        !            23:        mov     $1,r0
        !            24:        rts     pc
        !            25: 
        !            26: urem:
        !            27:        cmp     r1,$1
        !            28:        ble     9f
        !            29:        mov     r1,-(sp)
        !            30:        mov     r0,r1
        !            31:        clr     r0
        !            32:        div     (sp)+,r0
        !            33:        mov     r1,r0
        !            34:        rts     pc
        !            35: 9:
        !            36:        bne     9f
        !            37:        clr     r0
        !            38:        rts     pc
        !            39: 9:
        !            40:        cmp     r0,r1
        !            41:        blo     9f
        !            42:        sub     r1,r0
        !            43: 9:
        !            44:        tst     r0
        !            45:        rts     pc

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