# 2.11BSD#431 - /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

_DIV2 defined in line 31; never used
_DIV24 defined in line 9; never used
_DIV4 defined in line 22; never used
_DIV42 defined in line 4; never used

Last modified: 1981-07-10 Generated: 2016-12-26 | Generated by src2html V0.67 page hit count: 585 |