.file	"981001-1.c"
	.globl	flg
	.section	.bss
	.align	2
	.type	flg, @object
	.size	flg, 4
flg:
	.zero	4
	.text
	.align	2
	.globl	sub
	.type	sub, @function
sub:
	link.w %a6,#0
	move.l %d3,-(%sp)
	move.l %d2,-(%sp)
	move.l 8(%a6),%d1
	move.l %d1,%d0
	moveq.l #1,%d2
	cmp.l %d1,%d2
	jbge .L1
	moveq.l #1,%d0
	and.l %d1,%d0
	jbne .L3
	move.l %d1,%d2
	jbpl .L7
	addq.l #1,%d2
.L7:
	asr.l #1,%d2
	move.l %d2,-(%sp)
	jbsr sub
	move.l %d0,%d3
	move.l %d2,%a0
	pea -1(%a0)
	jbsr sub
	move.l %d3,%a0
	lea (%a0,%d0.l*2),%a0
	move.l %a0,%d0
	muls.l %d3,%d0
	jbra .L1
	.align	2
.L3:
	move.l %d1,%d2
	jbpl .L8
	addq.l #1,%d2
.L8:
	asr.l #1,%d2
	move.l %d2,%a0
	pea 1(%a0)
	jbsr sub
	move.l %d0,%d3
	move.l %d2,-(%sp)
	jbsr sub
	muls.l %d3,%d3
	muls.l %d0,%d0
	add.l %d3,%d0
	.align	2
.L1:
	move.l -8(%a6),%d2
	move.l -4(%a6),%d3
	unlk %a6
	rts
	.size	sub, .-sub
	.align	2
	.globl	main
	.type	main, @function
main:
	link.w %a6,#0
	pea 30.w
	jbsr sub
	addq.l #4,%sp
	cmp.l #832040,%d0
	jbeq .L12
	move.l flg,%d0
	or.w #256,%d0
	move.l %d0,flg
.L10:
	tst.l %d0
	jbeq .L11
	jbsr abort
	.align	2
.L12:
	move.l flg,%d0
	jbra .L10
	.align	2
.L11:
	clr.l -(%sp)
	jbsr exit
	nop
	.size	main, .-main
	.ident	"GCC: (GNU) 3.3.2"