2.9BSD - /usr/src/ucb/pascal/px/16dvd.s

   1: /
   2: / FLOATING DIVISION
   3: /
   4: _DVD2:
   5:         tst     (sp)
   6:         sxt     -(sp)
   7: _DVD42:
   8:         movif   (sp)+,fr0
   9:         br      1f
  10: _DVD82:
  11:         movf    (sp)+,fr0
  12: 1:
  13:         cfcc
  14:         beq     9f
  15:         tst     (sp)
  16:         sxt     -(sp)
  17:         movif   (sp)+,fr2
  18:         divf    fr0,fr2
  19:         cfcc
  20:         bvs     8f
  21:         movf    fr2,-(sp)
  22:         return
  23: _DVD24:
  24:         tst     (sp)
  25:         sxt     -(sp)
  26: _DVD4:
  27:         movif   (sp)+,fr0
  28:         br      1f
  29: _DVD84:
  30:         movf    (sp)+,fr0
  31: 1:
  32:         cfcc
  33:         beq     9f
  34:         movif   (sp)+,fr2
  35:         divf    fr0,fr2
  36:         cfcc
  37:         bvs     8f
  38:         movf    fr2,-(sp)
  39:         return
  40: _DVD28:
  41:         tst     (sp)
  42:         sxt     -(sp)
  43: _DVD48:
  44:         movif   (sp)+,fr0
  45:         br      1f
  46: _DVD8:
  47:         movf    (sp)+,fr0
  48: 1:
  49:         cfcc
  50:         beq     9f
  51:         movf    (sp)+,fr2
  52:         divf    fr0,fr2
  53:         cfcc
  54:         bvs     8f
  55:         movf    fr2,-(sp)
  56:         return
  57: 9:
  58:         mov     $EFDIVCHK,_perrno
  59:         error   EFDIVCHK
  60: 8:
  61:         jmp     fpovflo

Defined functions