.title csav ; Entry and exit. ; New names. .globl $$csav .globl $$cret $$csav: mov r5,(sp) mov r4,-(sp) mov r3,-(sp) mov r2,-(sp) mov sp,r5 jsr pc,(r0) ;tst -(sp) jmp (r0) $$cret: mov r5,sp mov (sp)+,r2 mov (sp)+,r3 mov (sp)+,r4 mov (sp)+,r5 rts pc