.file	"931013-2.c"
	.text
	.align	2
	.globl	f
	.type	f, @function
f:
	link.w %a6,#-96
	movm.l #0x3f38,-(%sp)
	move.l 8(%a6),%a2
	move.l %a6,%a3
	lea inv,%a4
	clr.l %d7
	moveq.l #6,%d6
	clr.l %d5
	.align	2
.L6:
	move.w (%a2)+,%d0
	move.w (%a2)+,-(%a3)
	move.w %d0,-(%a3)
	move.w (%a2)+,%d0
	move.w %d0,%d7
	move.l %d7,-(%sp)
	jbsr (%a4)
	move.l %d0,%d4
	move.w (%a2)+,%d2
	neg.w %d2
	move.w (%a2)+,%d3
	neg.w %d3
	move.w (%a2)+,%d0
	move.w %d0,%d5
	move.l %d5,-(%sp)
	jbsr (%a4)
	move.w %d0,-(%a3)
	move.w %d2,-(%a3)
	move.w %d3,-(%a3)
	move.w %d4,-(%a3)
	addq.l #8,%sp
	subq.l #1,%d6
	jbpl .L6
	movm.l -132(%a6),#0x1cfc
	unlk %a6
	rts
	.size	f, .-f
	.ident	"GCC: (GNU) 3.3.2"