push push fred .globl fred pop jim .globl jim tst (r1)+ tst (sp)+ return return r4 push push jim push r1 clr -(sp) call fred jsr pc, @#jim jsr r4, @#fred jmp jim jmp @#jim return r5 .end