.file	"930718-1.c"
	.text
	.align	2
	.type	f, @function
f:
	link.w %a6,#0
	move.l 8(%a6),%a0
	move.b (%a0),%d0
	and.b #-64,%d0
	jbne .L1
	or.b #64,(%a0)
.L1:
	move.l %a0,%d0
	unlk %a6
	rts
	.size	f, .-f
	.align	2
	.globl	f2
	.type	f2, @function
f2:
	link.w %a6,#0
	jbsr abort
	nop
	.size	f2, .-f2
	.align	2
	.globl	main
	.type	main, @function
main:
	link.w %a6,#-4
	move.b -1(%a6),%d0
	or.b #-128,%d0
	and.b #-65,%d0
	move.b %d0,-1(%a6)
	pea -1(%a6)
	jbsr f
	addq.l #4,%sp
	move.l %a6,%d0
	subq.l #1,%d0
	cmp.l %a0,%d0
	jbne .L6
	move.b (%a0),%d0
	and.b #64,%d0
	jbeq .L5
.L6:
	jbsr abort
	.align	2
.L5:
	clr.l -(%sp)
	jbsr exit
	nop
	.size	main, .-main
	.ident	"GCC: (GNU) 3.3.2"