lib/ack/math/modf.s

   1 #
   2 .sect .text; .sect .rom; .sect .data; .sect .bss
   3 .extern _modf
   4 .sect .text
   5 _modf:
   6 #if __i386
   7         push    ebp
   8         mov     ebp, esp
   9         push    12(ebp)
  10         push    8(ebp)
  11         push    1
  12         push    4
  13         call    .cif8
  14         mov     eax, esp
  15         push    eax
  16         call    .fif8
  17         pop     ecx
  18         mov     edx, 16(ebp)
  19         pop     ecx
  20         pop     ebx
  21         mov     0(edx), ecx
  22         mov     4(edx), ebx
  23         pop     eax
  24         pop     edx
  25         leave
  26         ret
  27 #else /* i86 */
  28         push    bp
  29         mov     bp, sp
  30         lea     bx, 4(bp)
  31         mov     cx, #8
  32         call    .loi
  33         mov     dx, #1
  34         push    dx
  35         push    dx
  36         push    dx
  37         mov     ax, #2
  38         push    ax
  39         call    .cif8
  40         mov     ax, sp
  41         push    ax
  42         call    .fif8
  43         pop     bx
  44         mov     bx, 12(bp)
  45         mov     cx, #8
  46         call    .sti
  47         call    .ret8
  48         jmp     .cret
  49 #endif