*************************************************
* Decrunch-Routine für Megacruncher V1.0        *
* Source by Nekron of PROTON. For Private use!  *
*************************************************

ExecBase=	4
OldopenLib=	-408
CloseLib=	-414

OutPut=		-60
Write=		-48


MEMSTART=	$40000-8		; Prg-Start
CRLENGTH=	$2ec8			; Crunch-Länge (!)


ReCrunch
	bra	recrmain

	dc.b	"Hi Pirate!  Are you interested in this nice"
	dc.b	" Program?  Okay,don´t hack´ it, but write to:"
	dc.b	" Postfach 1105    2988 Dornum 1 / Germany!"
	dc.b	"          A NEKRON PRODUCTION!           "        
	EVEN

recrmain
	move.l	(ExecBase).w,a6
	lea	DosName,a1
	jsr	OldopenLib(a6)
	move.l	d0,a6
	jsr	OutPut(a6)
	move.l	d0,d1
	move.l	#TxtBuffer,d2
	move.l	#TxtBufferE-TxtBuffer,d3
	jsr	Write(a6)
	move.l	a6,a1
	move.l	(ExecBase).w,a6
	jsr	CloseLib(a6)

	lea	repack1(pc),a3
	move.l	a3,d0
	move.l	8(a3),d1
	lea	repack2(pc),a0
	adda.l	d1,a0
	movea.l	4(a3),a1
	movea.l	-(a0),a2
	adda.l	a1,a2
	move.l	-(a0),d0
repack3	
	moveq	#3,d1
	bsr	repack4
	tst.b	d2
	beq	repack11
	cmpi.w	#7,d2
	bne	repack7
	lsr.l	#1,d0
	bne	repack5
	bsr	repack22
repack5	
	bcc	repack6
	moveq	#$a,d1
	bsr	repack4
	tst.w	d2
	bne	repack7
	moveq	#$12,d1
	bsr	repack4
	bra	repack7
repack6	
	moveq	#4,d1
	bsr	repack4
	addq.w	#7,d2
repack7	
	subq.w	#1,d2
repack8	
	moveq	#7,d1
repack9	
	lsr.l	#1,d0
	beq	repack10
	roxl.l	#1,d3
	dbf	d1,repack9
	move.b	d3,-(a2)
	;move.b	d3,$dff180
	dbf	d2,repack8
	bra	repack11
repack10	
	move.l	-(a0),d0
	move.b	#$10,CCR
	roxr.l	#1,d0
	roxl.l	#1,d3
	dbf	d1,repack9
	move.b	d3,-(a2)
	dbf	d2,repack8
repack11	
	cmpa.l	a2,a1
	bge	repack21
	moveq	#2,d1
	bsr	repack4
	moveq	#2,d3
	moveq	#8,d1
	tst.w	d2
	beq	repack19
	moveq	#4,d3
	cmpi.w	#2,d2
	beq	repack16
	moveq	#3,d3
	cmpi.w	#1,d2
	beq	repack14
	moveq	#2,d1
	bsr	repack4
	cmpi.w	#3,d2
	beq	repack13
	cmpi.w	#2,d2
	beq	repack12
	addq.w	#5,d2
	move.w	d2,d3
	bra	repack16
repack12	
	moveq	#2,d1
	bsr	repack4
	addq.w	#7,d2
	move.w	d2,d3
	bra	repack16
repack13	
	moveq	#8,d1
	bsr	repack4
	move.w	d2,d3
	bra	repack16
repack14	
	moveq	#8,d1
	lsr.l	#1,d0
	bne	repack15
	bsr	repack22
repack15	
	bcs	repack19
	moveq	#$e,d1
	bra	repack19
repack16	
	moveq	#$10,d1
	lsr.l	#1,d0
	bne	repack17
	bsr	repack22
repack17	
	bcc	repack19
	moveq	#8,d1
	lsr.l	#1,d0
	bne	repack18
	bsr	repack22
repack18	
	bcs	repack19
	moveq	#$c,d1
repack19	
	bsr	repack4
	subq.w	#1,d3
repack20	
	move.b	-1(a2,d2.l),-(a2)
	dbf	d3,repack20
	bra	repack3
repack21	
	jmp	MEMSTART+8
repack22	
	move.l	-(a0),d0
	move.b	#$10,CCR
	roxr.l	#1,d0
	rts
repack23	
	move.l	-(a0),d0
	move.b	#$10,CCR
	roxr.l	#1,d0
	roxl.l	#1,d2
	dbf	d1,repack24
	rts
repack4	
	subq.w	#1,d1
	clr.l	d2
repack24	
	lsr.l	#1,d0
	beq	repack23
	roxl.l	#1,d2
	dbf	d1,repack24
	rts

************************** Daten und Texte **********************

DosName		dc.b	"dos.library",0


TxtBuffer	dc.b	$0c,$0a,$0a,$0a,$0a,$0a
		dc.b	" Boot-O-Matic v1.02 / Serial: 099021"
		dc.b	$0a
		dc.b	" This Utilitie is a full-working preview"
		dc.b	" version."
		dc.b	$0a
		dc.b	" Coded in August 1990 by Nekron."
		dc.b	$0a,$0a
		dc.b	" All Rights Reserved  (C) PROTON Ltd."
		dc.b	$0a,$0a
TxtBufferE
		EVEN

	
repack1		dc.l	$00040624		; Unbekannt??
		dc.l	MEMSTART
		dc.l	CRLENGTH


repack2		INCBIN	"df1:Data",0