OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [newlib-1.18.0/] [newlib/] [libc/] [machine/] [w65/] [sdivhi3.S] - Rev 437

Go to most recent revision | 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

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

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.