	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
