
	move.l	hiden,a0	;where the compressed stuff is
	move.l	a0,a1
stl:
	move.b	(a1)+,d0
	bne	stl
	move.l	screen3,a2	;where to put it
decom:
	move.l	a2,a3
	moveq	#39,d0
	move.l	#199,d1
	moveq	#0,d2
	move.b	(a0)+,d2
	subq.l	#1,d2
	move.b	(a1)+,d3
	lsl.l	#8,d3
	move.b	(a1)+,d3
	lsl.l	#8,d3
	move.b	(a1)+,d3
	lsl.l	#8,d3
	move.b	(a1)+,d3
	moveq	#4,d7
decomm1:
	move.l	d3,(a2)
	dbra	d2,decomm2
	moveq	#0,d2
	move.b	(a0)+,d2
	subq.l	#1,d2
	move.b	(a1)+,d3
	lsl.l	#8,d3
	move.b	(a1)+,d3
	lsl.l	#8,d3
	move.b	(a1)+,d3
	lsl.l	#8,d3
	move.b	(a1)+,d3
decomm2:
	lea	160(a2),a2
	dbra	d1,decomm1
	adda.l	d7,a3
	move.l	a3,a2
	move.l	#199,d1
	dbra	d0,decomm1
	rts

