.file	"951204-1.c"
	.text
	.align	2
	.globl	f
	.type	f, @function
f:
	link.w %a6,#0
	move.l 8(%a6),%a0
	move.b #120,(%a0)
	unlk %a6
	rts
	.size	f, .-f
	.align	2
	.globl	main
	.type	main, @function
main:
	link.w %a6,#-4
	move.l %a2,-(%sp)
	move.l %d2,-(%sp)
	clr.b -1(%a6)
	lea f,%a2
	moveq.l #99,%d2
	.align	2
.L8:
	pea -1(%a6)
	jbsr (%a2)
	addq.l #4,%sp
	cmp.b #120,-1(%a6)
	jbne .L11
	subq.l #1,%d2
	jbpl .L8
	jbra .L12
	.align	2
.L11:
	jbsr abort
	.align	2
.L12:
	clr.l -(%sp)
	jbsr exit
	nop
	.size	main, .-main
	.ident	"GCC: (GNU) 3.3.2"