.file	"strct-pack-3.c"
	.text
	.align	2
	.globl	f
	.type	f, @function
f:
	link.w %a6,#0
	move.l 8(%a6),%a0
	move.w 8(%a0),%d0
	lsl.w #1,%d0
	addq.l #4,%a0
	move.w (%a0),%d1
	add.w %d1,%d0
	add.w 4(%a0),%d0
	move.w %d0,%a0
	move.l %a0,%d0
	unlk %a6
	rts
	.size	f, .-f
	.align	2
	.globl	main
	.type	main, @function
main:
	link.w %a6,#-12
	moveq.l #100,%d0
	move.l %d0,-8(%a6)
	moveq.l #13,%d0
	move.l %d0,-4(%a6)
	pea -10(%a6)
	jbsr f
	addq.l #4,%sp
	cmp.l #139,%d0
	jbeq .L14
	jbsr abort
	.align	2
.L14:
	clr.l -(%sp)
	jbsr exit
	nop
	.size	main, .-main
	.ident	"GCC: (GNU) 3.3.2"