.file	"980506-1.c"
	.text
	.align	2
	.type	clear_modes, @function
clear_modes:
	link.w %a6,#0
	move.l 8(%a6),%a0
	jbra .L2
	.align	2
.L3:
	clr.b (%a0)
.L2:
	tst.l %a0
	jbne .L3
	unlk %a6
	rts
	.size	clear_modes, .-clear_modes
	.align	2
	.globl	main
	.type	main, @function
main:
	link.w %a6,#0
	clr.l -(%sp)
	jbsr clear_modes
	clr.l -(%sp)
	jbsr exit
	nop
	.size	main, .-main
	.ident	"GCC: (GNU) 3.3.2"