lea	$50000,a6
	lea	$60000,a5
	moveq	#32,d1

loop2:	move.l	a6,a0
	move.l	a5,a1
	bsr	conv
	move.l	a5,a1
	add.l	#2,a1
	bsr	conv
	move.l	a6,a0
	add.l	#$80,a0
	move.l	a5,a1
	add.l	#$80,a1
	bsr	conv
	move.l	a5,a1
	add.l	#$82,a1
	bsr	conv

	add.l	#256,a6
	add.l	#256,a5
	dbra	d1,loop2
	illegal
conv:
	moveq	#31,d0
loop:	move.w	(a0)+,(a1)+
	addq	#2,a1	
	dbra	d0,loop
	rts