Sceptic De-/Cruncher V1.01 description
		   released at the 10. November 1992
		   	  by Fuszy of Sceptic

These two little utilities are coded especially for trackmos. (Very fast
decrunching!) You can use the cruncher to crunch your code and datas. At code
he won't be very efficient but at datas he gives you a better result than the
DPaint algorithm.
It's a very basic version ! So if you have hints or found a terrible bug...
watch out for a new release or...
... write/call me if you can't wait/get it...

		"Fuszy of Sceptic"
		 Torsten Curdt
		 Oberdorf 4
		 3401 Landolfshausen
		 GERMANY
		 05507 - 2711

...or call "the Factory" +49-551-43249 and leave a message to me.
Here you will find also the actuell version of it.

And watch out for forthcomming productions !

				Bye, Fuszy of Sceptic


;***	Decrunchroutine of Fuszy's RUNNING BYTE V1.01
;***	(c) Copyright 1992 by Fuszy of Sceptic, done in Oktober
;***	contact me:	Torsten Curdt
;***			Oberdorf 4
;***			3401 Landolfshausen
;***			GERMANY
;***	or call:	05507 - 2711

DeCrunchRunningByte:			;uses d0-d1/d6-d7/a0-a2
	lea	$50000,a0		;module pointer
	lea	$60000,a1		;decrunch position
	move.l	a1,a2
	move.l	(a0)+,d7		;num of STATUSBYTES-1
	moveq	#0,d0			;bits 8-31 have to be 0
.nxtSTATUS:
	moveq	#0,d6
	move.b	(a0)+,d0		;get STATUSBYTE
	bmi.s	.crunched		;test if crunched
	add.w	d0,d6			;not crunched -> copy data
.copy:	move.b	(a0)+,(a1)+
	dbf	d6,.copy
	bra.s	.ready			;eof or next STATUSBYTE
.crunched:
	sub.b	d0,d6
	move.b	(a0)+,d1		;get FILLBYTE
.fill:	move.b	d1,(a1)+		;fill with FILLBYTE
	dbf	d6,.fill
.ready:	dbf	d7,.nxtSTATUS		;next STATUSBYTE or end
	sub.l	a2,a1			;a1 = length of decrunched file
	rts