;	Tranfers the loading parts from $1000 to $2000 and
;	adds a "blank screen" before the last segment is loaded.
;	The last segment must be packed manually with SuperPacker
;	Exomizer:  depack=$400, buffer=$700, zp_vars=$f0, load_addr=$2000
;	@com.wudsn.ide.asm.outputfile=TRIPLETH.xex

	opt h+
	org $2000
	.byte 'Triple Thread -  DOS compatible packed XEX version by JAC! on 2014-03-03',$9b
	
	opt h-
	.get 'TRIPLETH-Original.xex',+$0000,$8000
	.put [$03]=$20
	.put [$05]=$20
	.put [$29]=$20
	.put [$3267]=$20
	.put [$67d1]=$20
	.sav [0] $8000
	.get 'TRIPLETH-Original.xex',+$8000,$F7CE

	.put [$8eba-$8000]=$20
	.put [$c8fb-$8000]=$20
	.sav [0] $c8fc-$8000
	ins "TRIPLETH-$1100@$2000-Packed.xex"
	opt h+

	org $100

	.proc main
wait	lda $d40b			;Disable scren.
	bne wait
	sta 559
	sta $d400
	mva #1 580			;Force coldstart as it kills DOS
	jsr $2000			;Unpack to $1100-$bfc7
	jmp $1100
	.endp
	
	run main

