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

Subversion Repositories or1k

[/] [or1k/] [trunk/] [newlib/] [newlib/] [libc/] [machine/] [w65/] [sdivhi3.s] - Blame information for rev 40

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


        .global ___sdivhi3
 
___sdivhi3:
        lda     <r4
        ldx     <r5
 
        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     <r0
        rtl

Line No.	Rev	Author	Line
1	39	lampret	`.global ___sdivhi3`
2
3			`___sdivhi3:`
4			`lda <r4`
5			`ldx <r5`
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 <r0`
35			`rtl`

Browse

Tools

Subversion Repositories or1k

[/] [or1k/] [trunk/] [newlib/] [newlib/] [libc/] [machine/] [w65/] [sdivhi3.s] - Blame information for rev 40