.file	"980726-1.c"
	.text
	.align	2
	.globl	int1a
	.type	int1a, @function
int1a:
	link.w %a6,#0
	move.l %d3,-(%sp)
	move.l %d2,-(%sp)
	move.l 8(%a6),%d3
	moveq.l #102,%d2
	not.b %d2
	cmp.b #99,%d3
	jbhi .L3
	and.w #0xFF,%d3
	clr.l %d0
	move.b %d3,%d0
	move.l %d0,%a0
	lea (%a0,%d0.l*2),%a1
	move.l %a1,%d0
	move.l %a1,%d1
	lsl.l #4,%d1
	add.l %d1,%d0
	move.l %d0,%d1
	lsl.l #8,%d1
	add.l %d1,%d0
	lea (%a0,%d0.l*4),%a0
	move.l %a0,%d0
	clr.w %d0
	swap %d0
	lsr.w #3,%d0
	clr.l %d2
	move.b %d0,%d2
	lsl.l #4,%d2
	move.w %d0,%d1
	lsl.w #2,%d1
	add.w %d0,%d1
	lsl.w #1,%d1
	sub.w %d1,%d3
	or.b %d3,%d2
	and.l #0xFF,%d2
.L3:
	move.b %d2,1.w
	move.l (%sp)+,%d2
	move.l (%sp)+,%d3
	unlk %a6
	rts
	.size	int1a, .-int1a
	.ident	"GCC: (GNU) 3.3.2"