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] - Rev 345

Compare with Previous | Blame | 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

Compare with Previous | Blame | View Log

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] - Rev 345