Subversion Repositories openrisc

        .title "H8/500 DIVIDE"
!! 2 byte integer Divide code for the H8/500
!!
!! Steve Chamberlain
!! sac@cygnus.com
!!
!!

!! args in r1 and r4, result in r0/r1

#if __CODE__==32
#define RET prts
#else
#define RET rts
#endif
        .global __divmodhi4

                
__divmodhi4:
        clr.w   r0      
        tst.w   r1      ! neg arg1
        bpl     PU      


        neg.w   r1      
NU:     tst.w   r4      
        bmi     NN

NP:     divxu.w r4,r0
        neg.w   r0
        neg.w   r1
        RET

NN:     neg.w   r4
        divxu.w r4,r0
        neg.w   r0      ! get rem sign right
        RET


PU:
        tst.w   r4
        bpl     PP
        

PN:     neg.w   r4
        divxu.w r4,r0
        neg.w   r1
        RET

PP:     divxu.w r4,r0   ! rem in r0, q in r1
        RET