
LoadView	= -222
OpenLibrary	= -552

world	= 1

begin:
	lea	graphics_name,a1
	move.l	4,a6
	moveq	#0,d0
	jsr	OpenLibrary(a6)
	move.l	d0,a6
	lea	0.w,a1
	jsr	LoadView(a6)


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

	move.w	#$0020,$dff1dc

	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	file,a0
.again:
	move.l	a0,a2
	move.l	(a2)+,d7
	beq.s	.start
	move.l	(a2)+,a1
	move.l	d7,d0
	addq.l	#3,d0
	lsr.l	#2,d0
.copyfile:
	move.l	(a2)+,(a1)+
	dbf	d0,.copyfile

	add.l	d7,a0
	bra.s	.again
.start:
	move.l	(a2)+,a0
	jmp	(a0)	
end:

	IFNE	world=1
file:

file1:
	dc.l	fileend1-file1
	dc.l	$a00
	incbin	work:objects/t3_w1.obj
fileend1:
file2:
	dc.l	fileend2-file2
	dc.l	$39b3c
	incbin	work:objects/t3_spr.obj
fileend2:
file3:
	dc.l	fileend3-file3
	dc.l	$5b500
	incbin	work:objects/t3_mid.obj
fileend3:
file4:
	dc.l	fileend4-file4
	dc.l	$6ecb0
	incbin	work:objects/t3_w1_2.obj
fileend4:

	dc.l	0
	dc.l	$a00
	ENDC

	IFNE	world=2
file:

file1:
	dc.l	fileend1-file1
	dc.l	$a00
	incbin	work:objects/t3_w2.obj
fileend1:
file2:
	dc.l	fileend2-file2
	dc.l	$5b500
	incbin	work:objects/t3_mid.obj
fileend2:
file3:
	dc.l	fileend3-file3
	dc.l	$6ecb0
	incbin	work:objects/t3_w2_2.obj
fileend3:

	dc.l	0
	dc.l	$a00
	ENDC

	IFNE	world=3
file:

file1:
	dc.l	fileend1-file1
	dc.l	$a00
	incbin	work:objects/t3_w3.obj
fileend1:
file2:
	dc.l	fileend2-file2
	dc.l	$5b500
	incbin	work:objects/t3_mid.obj
fileend2:
file3:
	dc.l	fileend3-file3
	dc.l	$6ecb0
	incbin	work:objects/t3_w3_2.obj
fileend3:

	dc.l	0
	dc.l	$a00
	ENDC

	IFNE	world=4
file:

file1:
	dc.l	fileend1-file1
	dc.l	$a00
	incbin	work:objects/t3_w4.obj
fileend1:
file2:
	dc.l	fileend2-file2
	dc.l	$5b500
	incbin	work:objects/t3_mid.obj
fileend2:
file3:
	dc.l	fileend3-file3
	dc.l	$6ecb0
	incbin	work:objects/t3_w4_2.obj
fileend3:

	dc.l	0
	dc.l	$a00
	ENDC

	IFNE	world=5
file:

file1:
	dc.l	fileend1-file1
	dc.l	$a00
	incbin	work:objects/t3_w5.obj
fileend1:
file2:
	dc.l	fileend2-file2
	dc.l	$5d000
	incbin	work:objects/t3.score.gfx
fileend2:
;file3:
;	dc.l	fileend3-file3
;	dc.l	$70000
;	incbin	work:objects/t3_w5_2.obj
;fileend3:

	dc.l	0
	dc.l	$a00
	ENDC

graphics_name:	dc.b	"graphics.library",0