
begin:
	move.w	#$7fff,$dff096
	move.w	#$7fff,$dff09a

	move.w	#$000,$dff180

	lea	end(pc),a2
	lea	start(pc),a1
	sub.l	a1,a2
	add.l	#$80000,a2
	move.l	a2,a1
	lea	start(pc),a0
	move.w	#end-start-1,d7
.copy:
	move.b	(a0)+,(a1)+
	dbf	d7,.copy
	jmp	(a2)

start:
	lea	$a00,a1
	lea	file,a0
	move.w	#(fileend-file)/4-1,d7
.copyfile:
	move.l	(a0)+,(a1)+
	dbf	d7,.copyfile
	jmp	$a00
end:

file:
	incbin	work:objects/t3.obj
fileend:
