2.9BSD - /usr/src/ucb/pascal/px/modf.s

   1: / double modf(x, *fp)
   2: / double x, *fp;
   3: / return fractional part
   4: / stash integer part (as double)
   5: 
   6: .globl  _modf
   7: .globl  csv, cret
   8: .globl  __fr0,__modf,__fr1
   9: one     = 040200
  10: 
  11: _modf:
  12:         jsr     r5,csv
  13:         setd
  14:         movf    4(r5),fr0
  15:         movf    fr0,__fr0
  16:         modf    $one,fr0
  17:         movf    fr0,__modf
  18:         movf    fr1,*12.(r5)
  19:         movf    fr1,__fr1
  20:         jmp     cret
  21:         .data
  22: __fr0:  0
  23:         0
  24: __modf: 0
  25:         0
  26: __fr1:  0
  27:         0
  28:         .text

Defined functions

Defined variables