floor.s

Functions

_ceil             X
_floor            X
ceil              X
floor             X

   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

Defined functions

_ceil declared in line 1; defined in line 12; used 1 times

in line 1

_floor declared in line 1; defined in line 5; used 1 times

in line 1

ceil declared in line 2; defined in line 36; used 2 times

in line 2, 16

floor declared in line 2; defined in line 21; used 3 times

in line 2, 9, 38

one defined in line 3; used 3 times

in line 25-31(3)

Last modified: 1975-05-14
Generated: 2016-12-26

Generated by src2html V0.67
page hit count: 413