.psect c$data .psect c$code frexp: jsr r5,csv$ setd seti ldd 4(r5),r0 cfcc bne 3$ ;normal (non-zero case) clr @14(r5) ;return zero exponent jmp cret$ ;return for zero case 3$: stexp r0,@14(r5) ;store exponent ldexp #0,r0 ;clear exponent, leaving mantissa jmp cret$ ;return for non-zero case .psect c$data .even .globl frexp .globl csv$ .globl cret$ .psect c$code .even .psect c$data .even .end