.sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text .sect .text .define cmf~ .extern setfloat~ ! $Header$ cmf~: jsr pc,setfloat~ mov (sp)+,r1 movf (sp)+,r0 movf (sp)+,r1 clr r0 cmpf r0,r1 setd cfcc beq 1f blt 2f dec r0 jmp (r1) 2: inc r0 1: jmp (r1)