.file	"960116-1.c"
	.text
	.align	2
	.globl	f
	.type	f, @function
f:
	link.w %a6,#0
	move.l %d2,-(%sp)
	move.l 8(%a6),%d1
	move.l %d1,%d0
	eor.w #1,%d0
	moveq.l #1,%d2
	and.l %d2,%d0
	jbeq .L2
	move.l %d1,%a0
	tst.l (%a0)
	jbeq .L2
	moveq.l #1,%d0
	jbra .L1
	.align	2
.L2:
	clr.l %d0
.L1:
	move.l (%sp)+,%d2
	unlk %a6
	rts
	.size	f, .-f
	.align	2
	.globl	main
	.type	main, @function
main:
	link.w %a6,#0
	pea -1.w
	jbsr f
	addq.l #4,%sp
	tst.l %d0
	jbeq .L5
	jbsr abort
	.align	2
.L5:
	clr.l -(%sp)
	jbsr exit
	nop
	.size	main, .-main
	.ident	"GCC: (GNU) 3.3.2"