Subversion Repositories openrisc_me

        .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