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

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.