URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [newlib-1.17.0/] [newlib/] [libc/] [machine/] [w65/] [udivhi3.S] - Rev 158

Go to most recent revision | Compare with Previous | Blame | View Log

        .global ___udivhi3

___udivhi3:
        stz     <r0
        ldy     #1
        ldx     <r4
        lda     <r5
        
div1:   
        asl     a
        bcs     div2
        iny
        cpy     #17
        bne     div1

div2:   ror     a

div4:   pha
        txa
        sec
        sbc     1,s
        bcc     div3
        tax

div3:   rol     <r0
        pla
        lsr     a
        dey
        bne     div4
        rtl

Go to most recent revision | Compare with Previous | Blame | View Log

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [newlib-1.17.0/] [newlib/] [libc/] [machine/] [w65/] [udivhi3.S] - Rev 158