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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [newlib-1.18.0/] [newlib-1.18.0-or32-1.0rc1/] [newlib/] [libc/] [machine/] [w65/] [sdivhi3.S] - Blame information for rev 345

Details | Compare with Previous | View Log


        .global ___sdivhi3
 
___sdivhi3:
        lda     
        ldx     
 
        ldy     #0              !flag positive result
        rol     a
        ror     a
        bpl     L10
 
        iny                     !flag negative result
        eor     #0xFFFF
        inc     a
 
L10:    pha
        txa
        bpl     L20
 
        dey                     !flag negative/positive result
        eor     #0xFFFF
        inc     a
        tax
 
L20:    pla
        phy
        jsr     >udv
        ply
        beq     Lend            !if positive result
 
        eor     #0xFFFF         !negate result
        inc     a
 
Lend:   sta     
        rtl

Line No.	Rev	Author	Line
1	207	jeremybenn	`.global ___sdivhi3`
2
3			`___sdivhi3:`
4			`lda`
5			`ldx`
6
7			`ldy #0 !flag positive result`
8			`rol a`
9			`ror a`
10			`bpl L10`
11
12			`iny !flag negative result`
13			`eor #0xFFFF`
14			`inc a`
15
16			`L10: pha`
17			`txa`
18			`bpl L20`
19
20			`dey !flag negative/positive result`
21			`eor #0xFFFF`
22			`inc a`
23			`tax`
24
25			`L20: pla`
26			`phy`
27			`jsr >udv`
28			`ply`
29			`beq Lend !if positive result`
30
31			`eor #0xFFFF !negate result`
32			`inc a`
33
34			`Lend: sta`
35			`rtl`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [newlib-1.18.0/] [newlib-1.18.0-or32-1.0rc1/] [newlib/] [libc/] [machine/] [w65/] [sdivhi3.S] - Blame information for rev 345