home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Distributions / ucb / spencer_2bsd.tar.gz / 2bsd.tar / src / px / 16dvd.s < prev    next >
Text File  |  1980-02-17  |  612b  |  62 lines
  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
  62.