BSD 2 development

[unix-history] / src / px / 12div.s

/
/ INTEGER DIVISION
/
_DIV42:
       movif   (sp)+,fr0
       tst     (sp)
       sxt     -(sp)
       br      2f
_DIV24:
       mov     (sp)+,r2
       mov     (sp)+,r0
       mov     (sp)+,r1
       div     r2,r0
       bvs     1f
       mov     r0,-(sp)
       sxt     -(sp)
       return
1:
       sub     $6.,sp
       tst     r2
       sxt     -(sp)
_DIV4:
       movif   (sp)+,fr0
2:
       cfcc
       beq     9f
       movif   (sp)+,fr1
       divf    fr0,fr1
       movfi   fr1,-(sp)
       return
_DIV2:
       mov     (sp)+,r2
       beq     9f
       mov     (sp)+,r1
       sxt     r0
       div     r2,r0
       bvs     1f
       mov     r0,-(sp)
       sxt     -(sp)
       return
1:
       mov     $100000,-(sp)
       sxt     -(sp)
       return
9:
       mov     $EDIVCHK,_perrno
       error   EDIVCHK