.file	"ultrasp9.c"
	.text
	.align	2
	.globl	to_octal
	.type	to_octal, @function
to_octal:
	link.w %a6,#0
	move.l %d2,-(%sp)
	move.l 16(%a6),%a1
	move.l 8(%a6),%d1
	move.l 12(%a6),%d2
	move.l 20(%a6),%a0
	.align	2
.L2:
	subq.l #1,%a0
	move.b %d2,%d0
	and.b #7,%d0
	add.b #48,%d0
	move.b %d0,(%a0,%a1.l)
	lsr.l #1,%d1
	roxr.l #1,%d2
	lsr.l #1,%d1
	roxr.l #1,%d2
	lsr.l #1,%d1
	roxr.l #1,%d2
	tst.l %a0
	jbne .L2
	move.l (%sp)+,%d2
	unlk %a6
	rts
	.size	to_octal, .-to_octal
	.align	2
	.globl	main
	.type	main, @function
main:
	link.w %a6,#-8
	pea 6.w
	pea -8(%a6)
	pea 4516.w
	clr.l -(%sp)
	jbsr to_octal
	lea (16,%sp),%sp
	cmp.b #49,-7(%a6)
	jbeq .L7
	jbsr abort
	.align	2
.L7:
	clr.l %d0
	unlk %a6
	rts
	.size	main, .-main
	.ident	"GCC: (GNU) 3.3.2"