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] - Blame information for rev 855

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


        .global ___udivhi3
 
___udivhi3:
        stz     
        ldy     #1
        ldx     
        lda     
 
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     
        pla
        lsr     a
        dey
        bne     div4
        rtl

Line No.	Rev	Author	Line
1	148	jeremybenn	`.global ___udivhi3`
2
3			`___udivhi3:`
4			`stz`
5			`ldy #1`
6			`ldx`
7			`lda`
8
9			`div1:`
10			`asl a`
11			`bcs div2`
12			`iny`
13			`cpy #17`
14			`bne div1`
15
16			`div2: ror a`
17
18			`div4: pha`
19			`txa`
20			`sec`
21			`sbc 1,s`
22			`bcc div3`
23			`tax`
24
25			`div3: rol`
26			`pla`
27			`lsr a`
28			`dey`
29			`bne div4`
30			`rtl`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [newlib-1.17.0/] [newlib/] [libc/] [machine/] [w65/] [udivhi3.S] - Blame information for rev 855