home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / s3 / floor.s < prev    next >
Encoding:
Text File  |  1975-05-13  |  385 b   |  41 lines
  1. .globl    _floor, _ceil
  2. .globl    floor, ceil
  3. one = 40200
  4.  
  5. _floor:
  6.     mov    r5,-(sp)
  7.     mov    sp,r5
  8.     movf    4(r5),fr0
  9.     jsr    pc,floor
  10.     br    1f
  11.  
  12. _ceil:
  13.     mov    r5,-(sp)
  14.     mov    sp,r5
  15.     movf    4(r5),fr0
  16.     jsr    pc,ceil
  17. 1:
  18.     mov    (sp)+,r5
  19.     rts    pc
  20.  
  21. floor:
  22.     tstf    fr0
  23.     cfcc
  24.     bge    1f
  25.     modf    $one,fr0
  26.     cfcc
  27.     beq    2f
  28.     subf    $one,fr1
  29.     br    2f
  30. 1:
  31.     modf    $one,fr0
  32. 2:
  33.     movf    fr1,fr0
  34.     rts    pc
  35.  
  36. ceil:
  37.     negf    fr0
  38.     jsr    pc,floor
  39.     negf    fr0
  40.     rts    pc
  41.