.title modf .psect c$data .psect c$code modf: jsr r5,csv$ setd ldd 4(r5),r0 modd c1,r0 std r1,@14(r5) .1: jmp cret$ .psect c$data .even .globl modf .globl csv$ .globl cret$ .psect c$code .even .psect c$data .even c1: .flt4 1.0 .even .end