Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Blame | Last modification | View Log | Download | RSS feed

  1. /* Copyright (C) 1994 DJ Delorie, see COPYING.DJ for details */
  2.         .text
  3.  
  4. .global modf;
  5.  
  6. modf:
  7.         pushl   %ebp
  8.         movl    %esp,%ebp
  9.         subl    $16,%esp
  10.         pushl   %ebx
  11.         fnstcw  -4(%ebp)
  12.         fwait
  13.         movw    -4(%ebp),%ax
  14.         orw     $0x0c3f,%ax
  15.         movw    %ax,-8(%ebp)
  16.         fldcw   -8(%ebp)
  17.         fwait
  18.         fldl    8(%ebp)
  19.         frndint
  20.         fstpl   -16(%ebp)
  21.         fwait
  22.         movl    -16(%ebp),%edx
  23.         movl    -12(%ebp),%ecx
  24.         movl    16(%ebp),%ebx
  25.         movl    %edx,(%ebx)
  26.         movl    %ecx,4(%ebx)
  27.         fldl    8(%ebp)
  28.         fsubl   -16(%ebp)
  29.         leal    -20(%ebp),%esp
  30.         fclex
  31.         fldcw   -4(%ebp)
  32.         fwait
  33.         popl    %ebx
  34.         leave
  35.         ret
  36.