.file	"r1.c"
	.text
	.align	2
	.globl	assert
	.type	assert, @function
assert:
	link.w %a6,#0
	moveq.l #1,%d0
	cmp.l 8(%a6),%d0
	jbeq .L1
	jbsr abort
	.align	2
.L1:
	unlk %a6
	rts
	.size	assert, .-assert
	.align	2
	.globl	h1
	.type	h1, @function
h1:
	link.w %a6,#0
	move.l 8(%a6),%a0
	clr.l %d0
	move.b 3(%a0),%d0
	unlk %a6
	rts
	.size	h1, .-h1
	.align	2
	.globl	p1
	.type	p1, @function
p1:
	link.w %a6,#-4
	move.l #16909060,-4(%a6)
	pea -4(%a6)
	jbsr h1
	moveq.l #4,%d1
	cmp.l %d0,%d1
	seq %d0
	extb.l %d0
	neg.l %d0
	move.l %d0,(%sp)
	jbsr assert
	unlk %a6
	rts
	.size	p1, .-p1
	.align	2
	.globl	h2
	.type	h2, @function
h2:
	link.w %a6,#0
	tst.l 8(%a6)
	sgt %d0
	extb.l %d0
	neg.l %d0
	unlk %a6
	rts
	.size	h2, .-h2
	.align	2
	.globl	p2
	.type	p2, @function
p2:
	link.w %a6,#0
	pea 1.w
	jbsr h2
	move.l %d0,(%sp)
	jbsr assert
	unlk %a6
	rts
	.size	p2, .-p2
	.align	2
	.globl	h3
	.type	h3, @function
h3:
	link.w %a6,#0
	move.l 8(%a6),%a0
	or.w #255,2(%a0)
	unlk %a6
	rts
	.size	h3, .-h3
	.align	2
	.globl	p3
	.type	p3, @function
p3:
	link.w %a6,#0
	move.l %d0,-(%sp)
	jbsr h3
	unlk %a6
	rts
	.size	p3, .-p3
	.section	.rodata.str1.1,"aMS",@progbits,1
.LC0:
	.string	"Compiler test passed."
	.text
	.align	2
	.globl	main
	.type	main, @function
main:
	link.w %a6,#0
	jbsr p1
	jbsr p2
	jbsr p3
	pea .LC0
	jbsr puts
	unlk %a6
	rts
	.size	main, .-main
	.ident	"GCC: (GNU) 3.3.2"