; This sourcecode was written on the ASM-One V1.02 assembler (the best!)
; I think if you`re using this source you`ll be able to modify it for your
; prefered assembler...

;				Synthetic/The Incal Inc.


 *****************************************************************************
 * FAST V2.1d 			(c) by Synthetic & Errox/The Incal Inc.	     *
 * FAST V2.1d Decruncher	[V1.1]	(c) by Synthetic/The Incal Inc.	     *
 *****************************************************************************

;==============================================================================

Crunch_beg=$a0000			; Startadress of crunched prog

Crunch_lenght=7187			; Lenght of crunched prog

Crunch_end=Crunch_beg+Crunch_lenght

DeCrunch_to=$b0000			; Decrunchadress

** used regs: a0-a2(a3) , d0-d3

>extern	"dh0:synthetic.fpkd",Crunch_Beg

;==============================================================================

	lea	Crunch_beg+4,a0
	move.b	(a0)+,d0
	lea	Crunch_end,a1		; Crunch_end-Crunch_beg-5(a0)
	lea	DeCrunch_to,a2
	lea	$dff180,a3
	moveq	#-1,d3
	bra.b	lab1
lab4:
	move.b	d2,(a2)+
lab1:
	move.w	d2,(a3)
	cmp.l	a0,a1
	ble.b	End
	move.b	(a0)+,d2
	cmp.b	d0,d2
	bne.b	lab4
	moveq	#0,d1
	move.b	(a0)+,d1
	beq.b	lab4
	cmp.b	d3,d1
	bne.b	lab6
	moveq	#0,d2
	move.b	(a0)+,d1
	move.b	(a0)+,d2
	sub.w	d1,d2
	lsl.w	#8,d1
	add.w	d2,d1
lab6:
	move.b	(a0)+,d2
loop:
	move.b	d2,(a2)+
	dbf	d1,loop
	bra.b	lab1
End:
	illegal