.globl _cos,cos,retrn,savr5 _cos: mov r5,-(sp) mov sp,r5 mov r5,savr5 movf 4(r5),fr0 jsr r5,cos clr savr5 jmp retrn