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 / 12div.s < prev    next >
Text File  |  1980-02-17  |  493b  |  48 lines
  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
  48.