# 2.11BSD#431 - /usr/src/ucb/pascal/px/13mod.s

       1: /
       2: / MODULO
       3: /
       4: _MOD42:
       5:         movif   (sp)+,fr0
       6:         tst     (sp)
       7:         sxt     -(sp)
       8:         br      2f
       9: _MOD24:
      10:         mov     (sp)+,r2
      11:         mov     (sp)+,r0
      12:         mov     (sp)+,r1
      13:         div     r2,r0
      14:         bvs     1f
      15:         mov     r1,-(sp)
      16:         sxt     -(sp)
      17:         return
      18: 1:
      19:         sub     $6.,sp
      20:         tst     r2
      21:         sxt     -(sp)
      22: _MOD4:
      23:         movif   (sp)+,fr0
      24: 2:
      25:         cfcc
      26:         beq     9f
      27:         movif   (sp)+,fr1
      28:         divf    fr0,fr1
      29:         modf    $ONE,fr1
      30:         mulf    fr0,fr1
      31:         cfcc
      32:         bgt     1f
      33:         subf    $HALF,fr1
      34:         br      2f
      35: 1:
      36:         addf    $HALF,fr1
      37: 2:
      38:         movfi   fr1,-(sp)
      39:         return
      40: _MOD2:
      41:         mov     (sp)+,r2
      42:         beq     9f
      43:         mov     (sp)+,r1
      44:         sxt     r0
      45:         div     r2,r0
      46:         bvs     1f
      47:         mov     r1,-(sp)
      48:         sxt     -(sp)
      49:         return
      50: 1:
      51:         clr     -(sp)
      52:         sxt     -(sp)
      53:         return
      54: 9:
      55:         mov     $EMODCHK,_perrno
      56:         error   EMODCHK

#### Defined functions

_MOD2 defined in line 40; never used
_MOD24 defined in line 9; never used
_MOD4 defined in line 22; never used
_MOD42 defined in line 4; never used

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