.file	"930603-2.c"
	.text
	.align	2
	.globl	f
	.type	f, @function
f:
	link.w %a6,#0
	move.l %a2,-(%sp)
	sub.l %a0,%a0
	lea w,%a2
.L12:
	lea (%a0,%a0.l*2),%a1
	tst.l %a0
	jbeq .L23
.L17:
	moveq.l #1,%d0
	cmp.l %a0,%d0
	jbeq .L24
.L20:
	addq.l #1,%a0
	moveq.l #1,%d0
	cmp.l %a0,%d0
	jbge .L12
	jbra .L25
	.align	2
.L24:
	move.l %d0,(%a2,%a1.l*4)
	jbra .L20
	.align	2
.L23:
	moveq.l #1,%d0
	move.l %d0,(%a2,%a1.l*4)
	jbra .L17
	.align	2
.L25:
	move.l (%sp)+,%a2
	unlk %a6
	rts
	.size	f, .-f
	.align	2
	.globl	main
	.type	main, @function
main:
	link.w %a6,#0
	jbsr f
	moveq.l #1,%d0
	cmp.l w,%d0
	jbne .L28
	cmp.l w+12,%d0
	jbeq .L29
.L28:
	jbsr abort
	.align	2
.L29:
	tst.l w+8
	jbne .L28
	tst.l w+4
	jbne .L28
	clr.l -(%sp)
	jbsr exit
	nop
	.size	main, .-main
	.comm	w,16,2
	.ident	"GCC: (GNU) 3.3.2"