|
|
1.1 ! root 1: .data ! 2: /* .asciz "@(#)ldexp.s 1.1 86/02/03 SMI" */ ! 3: .text ! 4: ! 5: #include "fpcrtdefs.h" ! 6: ! 7: /* ! 8: * double ! 9: * ldexp( value, exp) ! 10: * double value; ! 11: * int exp; ! 12: * ! 13: * return a value v s.t. v == value * (2**exp) ! 14: */ ! 15: ! 16: ENTER(_ldexp) ! 17: moveml sp@( 4),d0/d1 | suck parameters into registers ! 18: lea sp@(12),a0 | a0 gets address of i. ! 19: jmp Fscaleid ! 20:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.