.file	"990128-1.c"
	.globl	count
	.section	.bss
	.align	2
	.type	count, @object
	.size	count, 4
count:
	.zero	4
	.text
	.align	2
	.globl	main
	.type	main, @function
main:
	link.w %a6,#-4
	move.l %d2,-(%sp)
	move.l #ss,p
	lea ss,%a0
	clr.l %d1
	move.l #sss,%d0
	.align	2
.L6:
	move.l %d0,(%a0)
	move.l %d0,%a0
	addq.l #1,%d1
	addq.l #4,%d0
	moveq.l #9,%d2
	cmp.l %d1,%d2
	jbge .L6
	clr.l sss+36
	pea -4(%a6)
	move.l p,-(%sp)
	jbsr sub
	addq.l #8,%sp
	moveq.l #12,%d0
	cmp.l count,%d0
	jbeq .L7
	jbsr abort
	.align	2
.L7:
	clr.l -(%sp)
	jbsr exit
	nop
	.size	main, .-main
	.align	2
	.globl	sub
	.type	sub, @function
sub:
	link.w %a6,#0
	movm.l #0x2030,-(%sp)
	move.l 8(%a6),%a2
	move.l 12(%a6),%d2
	lea look,%a3
	.align	2
.L11:
	move.l %d2,-(%sp)
	move.l %a2,-(%sp)
	jbsr (%a3)
	addq.l #8,%sp
	tst.l %d0
	jbeq .L12
	tst.l %a2
	jbeq .L12
	move.l (%a2),%a2
	jbra .L11
	.align	2
.L12:
	movm.l -12(%a6),#0xc04
	unlk %a6
	rts
	.size	sub, .-sub
	.align	2
	.globl	look
	.type	look, @function
look:
	link.w %a6,#0
	move.l 8(%a6),%a1
	tst.l %a1
	jbeq .L25
	.align	2
.L23:
	move.l (%a1),%a1
	tst.l %a1
	jbne .L23
.L25:
	move.l 12(%a6),%a0
	move.l %a1,(%a0)
	addq.l #1,count
	moveq.l #1,%d0
	unlk %a6
	rts
	.size	look, .-look
	.comm	p,4,2
	.comm	ss,4,2
	.comm	sss,40,2
	.ident	"GCC: (GNU) 3.3.2"