.file	"20020201-1.c"
	.text
	.align	2
	.globl	leave
	.type	leave, @function
leave:
	link.w %a6,#0
	tst.l 8(%a6)
	jbeq .L2
	jbsr abort
	.align	2
.L2:
	clr.l -(%sp)
	jbsr exit
	nop
	.size	leave, .-leave
	.align	2
	.globl	doit
	.type	doit, @function
doit:
	link.w %a6,#0
	move.l %a2,-(%sp)
	pea 12.w
	jbsr srand
	lea rand,%a2
	jbsr (%a2)
	move.l %d0,globvar
	jbsr (%a2)
	addq.l #4,%sp
	tst.l %d0
	jble .L4
	clr.l globvar
.L4:
	move.l globvar,-(%sp)
	jbsr leave
	move.l -4(%a6),%a2
	unlk %a6
	rts
	.size	doit, .-doit
	.align	2
	.globl	main
	.type	main, @function
main:
	link.w %a6,#0
	jbsr doit
	unlk %a6
	rts
	.size	main, .-main
	.comm	globvar,4,2
	.ident	"GCC: (GNU) 3.3.2"