.title ldexp .psect c$data .psect c$code ldexp: jsr r5,csv$ seti setd ldd 4(r5),r0 cfcc beq 1$ ;zero case, immediate return stexp r0,r0 ;get exponent add 14(r5),r0 ;add in new exponent bvc 2$ ;did not overflow so continue com r0 ;overflow, set most sig bit so as to ;make a bad exponent of the correct ;sign to cause floating under- or over- flow 2$: ldexp r0,r0 ;load sum of exponents, floating overflow ;or underflow set if out of range 1$: jmp cret$ .psect c$data .even .globl ldexp .globl csv$ .globl cret$ .psect c$code .even .psect c$data .even .end