1: / double modf(x, *fp) 2: / double x, *fp; 3: / return fractional part 4: / stash integer part (as double) 5: 6: .globl _modf 7: .globl csv, cret 8: one = 040200 9: 10: _modf: 11: jsr r5,csv 12: movf 4(r5),fr0 13: modf $one,fr0 14: movf fr1,*12.(r5) 15: jmp cret