2.9BSD - /usr/src/ucb/pascal/px/12div.s

   1: /
   2: / INTEGER DIVISION
   3: /
   4: _DIV42:
   5:         movif   (sp)+,fr0
   6:         tst     (sp)
   7:         sxt     -(sp)
   8:         br      2f
   9: _DIV24:
  10:         mov     (sp)+,r2
  11:         mov     (sp)+,r0
  12:         mov     (sp)+,r1
  13:         div     r2,r0
  14:         bvs     1f
  15:         mov     r0,-(sp)
  16:         sxt     -(sp)
  17:         return
  18: 1:
  19:         sub     $6.,sp
  20:         tst     r2
  21:         sxt     -(sp)
  22: _DIV4:
  23:         movif   (sp)+,fr0
  24: 2:
  25:         cfcc
  26:         beq     9f
  27:         movif   (sp)+,fr1
  28:         divf    fr0,fr1
  29:         movfi   fr1,-(sp)
  30:         return
  31: _DIV2:
  32:         mov     (sp)+,r2
  33:         beq     9f
  34:         mov     (sp)+,r1
  35:         sxt     r0
  36:         div     r2,r0
  37:         bvs     1f
  38:         mov     r0,-(sp)
  39:         sxt     -(sp)
  40:         return
  41: 1:
  42:         mov     $100000,-(sp)
  43:         sxt     -(sp)
  44:         return
  45: 9:
  46:         mov     $EDIVCHK,_perrno
  47:         error   EDIVCHK

Defined functions