2.9BSD - /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