.file	"loop-13.c"
	.text
	.align	2
	.globl	scale
	.type	scale, @function
scale:
	link.w %a6,#0
	move.l %a2,-(%sp)
	move.l %d2,-(%sp)
	move.l 8(%a6),%a2
	move.l 16(%a6),%d0
	move.l (%a2),%d1
	moveq.l #1,%d2
	cmp.l %d1,%d2
	jbeq .L1
	tst.l %d0
	jble .L1
	move.l %d0,%a1
	move.l 12(%a6),%a0
	.align	2
.L7:
	move.l %d1,%d0
	muls.l 4(%a0),%d0
	muls.l (%a0),%d1
	move.l %d1,(%a0)
	move.l %d0,4(%a0)
	subq.l #1,%a1
	addq.l #8,%a0
	tst.l %a1
	jbeq .L1
	move.l (%a2),%d1
	jbra .L7
	.align	2
.L1:
	move.l (%sp)+,%d2
	move.l (%sp)+,%a2
	unlk %a6
	rts
	.size	scale, .-scale
	.align	2
	.globl	main
	.type	main, @function
main:
	link.w %a6,#-44
	moveq.l #2,%d0
	move.l %d0,-44(%a6)
	clr.l %d0
	lea (-40,%a6),%a0
	.align	2
.L15:
	move.l %d0,(%a0)+
	addq.l #1,%d0
	moveq.l #9,%d1
	cmp.l %d0,%d1
	jbge .L15
	pea 5.w
	pea -40(%a6)
	pea -44(%a6)
	jbsr scale
	lea (12,%sp),%sp
	moveq.l #18,%d0
	cmp.l -4(%a6),%d0
	jbeq .L16
	jbsr abort
	.align	2
.L16:
	clr.l %d0
	unlk %a6
	rts
	.size	main, .-main
	.ident	"GCC: (GNU) 3.3.2"