| Line | |
|---|
| 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
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
