;r1:move.b $bfec01,d0
;btst #6,$bfe001
;bne r1
;rts

	move.l	4,a6
	jsr	-132(a6)
	move.l	#0,d0
	lea	grlib,a1
	jsr	-$228(a6)
	move.l	d0,grlib
alku:	bsr.L	intro
	move.l	#$d874f800,car1a
	move.l	#$d874f880,car1b
	move.l	#$d8a4f800,car2a
	move.l	#$d8a4f880,car2b

	clr.w	redfrm
	clr.l	cr1b
	move.l	#$00e80148,car1x
	move.l	#$012c012c,b1
	move.l	#track+70,linepos
	move.l	#$03010000,sdreg
	clr.w	nopeus1
	clr.l	crptr1
	clr.l	s1
	clr.w	s2+1
	move.w	#$5000,t1

	move.l	#$ffffffff,$dff044
	move	#$09f0,$dff040
	move.w	#0,$dff042
	move.w	#%010000010110,$dff098

	moveq	#0,d0
	moveq	#6,d2
	move.l	#$75000,lpeilop+2
	lea	track,a0
makelp:	moveq	#9,d1
	bsr.L	lpeilop
	add.l	#1240,lpeilop+2
	dbra	d2,makelp

	moveq	#6,d2
	move.l	#$6a100,lpeilop+2
	lea	track+10,a0
makelp2:moveq	#9,d1
	bsr.L	lpeilop
	add.l	#1240,lpeilop+2
	dbra	d2,makelp2

	move.l	#copper,$dff080
	moveq	#5,d0
	lea	intstr,a1
	jsr	-$a8(a6)

mouse:
	cmp.b	#$3f,$bfec01
	beq.s	loppu
	tst.b	endiiko
	bne.s	restart
	bra.s	mouse
loppu:
	cmp.b	#$ff,$dff006
	bne.s	loppu
	move.l	4,a6
	lea	intstr,a1
	moveq	#5,d0
	jsr	-$ae(a6)
	move.l	grlib,a0
	move.l	38(a0),$dff080
	moveq	#0,d0
	rts
grlib:	dc.b	'graphics.library',0
even

restart:move.l	4,a6
	clr.b	endiiko
	lea	intstr,a1
	moveq	#5,d0
	jsr	-$ae(a6)
	bra.L	alku

irq:	movem.l	d2-d7/a2-a4/a6,-(a7)
	and.b	#0,sr
rtest:	cmp.b	#38,$dff006
	bne.s	rtest
;	move.w	#$505,$dff180
	move.b	speed,sp1
	bsr.l	sprblit
	tst.b	crptr1
	beq.s	alive1
	tst.w	pl1cars
	beq.s	bdead
	sub.b	#1,crptr1
bdead:	move.w	#$8788,spr1+6
	move.w	#$88a0,spr2+6
	btst	#2,crptr1
	beq.s	alive1
	move.w	#$880c,spr1+6
	move.w	#$8924,spr2+6
alive1:	tst.b	crptr2
	beq.s	alive2
	sub.b	#1,crptr2
	move.w	#$89b8,spr3+6
	move.w	#$8ad0,spr4+6
	btst	#2,crptr2
	beq.s	alive2
	move.w	#$8a3c,spr3+6
	move.w	#$8b54,spr4+6
alive2:	cmp.b	#0,redfrm
	beq.s	wht
	cmp.b	#32,redfrm
	beq.s	red1
	add.b	#1,redfrm
	bra.s	wht
red1:	move.b	#0,nopeus1
wht:	cmp.b	#0,whtfrm
	beq.s	notone
	cmp.b	#32,whtfrm
	beq.s	wht1
	add.b	#1,whtfrm
	bra.s	notone
wht1:	move.b	#0,nopeus2	

notone:	moveq	#0,d0
	move.w	car1x,d0
	btst	#0,d0
	beq.s	bit011
	or.b	#1,car1a+3
	or.b	#1,car1b+3
	bra.s	bitrdy1
bit011:	and.b	#254,car1a+3
	and.b	#254,car1b+3
bitrdy1:lsr	#1,d0
	move.b	d0,car1a+1
	move.b	d0,car1b+1

	moveq	#0,d0
	move.w	car2x,d0
	btst	#0,d0
	beq.s	bit012
	or.b	#1,car2a+3
	or.b	#1,car2b+3
	bra.s	bitrdy2
bit012:	and.b	#254,car2a+3
	and.b	#254,car2b+3
bitrdy2:lsr	#1,d0
	move.b	d0,car2a+1
	move.b	d0,car2b+1

;	tst.b	pl1cars
;	beq	dead1
	and.b	#0,sr
	moveq	#0,d0
	move.b	s1+2,d0		;pisteita
	moveq	#0,d1
	move.b	nopeus1,d1
	divu	#6,d1
	and.l	#$ff,d1
	abcd	d1,d0
	move.b	d0,s1+2
	move.b	sr,d0
	btst	#4,d0
	beq.s	s1c
	moveq	#1,d1
	move.b	s1+1,d0
	abcd	d1,d0
	move.b	d0,s1+1
	move.b	sr,d0
	btst	#4,d0
	beq.s	s1c
	and.b	#0,sr
	move.b	s1,d0
	abcd	d1,d0
	move.b	d0,s1

s1c:	move.b	s1+2,d0
	lsr	#4,d0
	and.l	#%1111,d0
	add.b	#48,d0
	move.b	d0,score1+4

	move.b	s1+1,d0
	move.b	d0,d1
	and.l	#$f,d0
	and.l	#$f0,d1
	lsr	#4,d1
	add.b	#48,d0
	add.b	#48,d1
	move.b	d0,score1+3
	move.b	d1,score1+2

	move.b	s1,d0
	move.b	d0,d1
	and.l	#$f,d0
	and.l	#$f0,d1
	lsr	#4,d1
	add.b	#48,d0
	add.b	#48,d1
	move.b	d0,score1+1
	move.b	d1,score1

	lea	score2,a0
	lea	statuspanel+1800+788,a2
	jsr	print

dead1:	tst.b	pl2cars
;	beq	dead2
	and.b	#0,sr
	moveq	#0,d0
	moveq	#0,d1
	move.b	s2+2,d0
	move.b	nopeus2,d1
	divu	#6,d1
	and.l	#$ff,d1
	abcd	d1,d0
	move.b	d0,s2+2
	move.b	sr,d0
	btst	#4,d0
	beq.s	s2c
	and.b	#0,sr
	moveq	#1,d1
	move.b	s2+1,d0
	abcd	d1,d0
	move.b	d0,s2+1
	move.b	sr,d0
	btst	#4,d0
	beq.s	s2c
	and.b	#0,sr
	move.b	s2,d0
	abcd	d1,d0
	move.b	d0,s2

s2c:	move.b	s2+2,d0
	lsr	#4,d0
	and.l	#%1111,d0
	add.b	#48,d0
	move.b	d0,score2+4

	move.b	s2+1,d0
	move.b	d0,d1
	and.l	#$f,d0
	and.l	#$f0,d1
	lsr	#4,d1
	add.b	#48,d0
	add.b	#48,d1
	move.b	d0,score2+3
	move.b	d1,score2+2

	move.b	s2,d0
	move.b	d0,d1
	and.l	#$f,d0
	and.l	#$f0,d1
	lsr	#4,d1
	add.b	#48,d0
	add.b	#48,d1
	move.b	d0,score2+1
	move.b	d1,score2

	lea	score1,a0
	lea	statuspanel+1800+768,a2
	jsr	print

dead2:	move.b	pl1cars,d0
	move.b	d0,d1
	and.l	#%1111,d0
	and.l	#%11110000,d1
	lsr.b	#4,d1
	add.b	#48,d0
	add.b	#48,d1
	move.b	d0,cars1+1
	move.b	d1,cars1
	lea	cars1,a0
	lea	statuspanel+1800+1368,a2
	jsr	print

	move.b	pl2cars,d0
	move.b	d0,d1
	and.l	#%1111,d0
	and.l	#%11110000,d1
	lsr.b	#4,d1
	add.b	#48,d0
	add.b	#48,d1
	move.b	d0,cars2+1
	move.b	d1,cars2
	lea	cars2,a0
	lea	statuspanel+1800+1388,a2	
	jsr	print

	tst.b	pl1cars
	beq.s	yli1
	tst.b	pl2cars
	beq.s	yli2
	bra.s	yli
yli1:	tst.b	pl2cars
	beq.s	yli
	bra.s	taimi
yli2:	tst.b	pl1cars
	beq.s	yli
	btst	#0,flags
	beq	yli
taimi:	moveq	#1,d0
	move.b	t1+1,d1
	move.b	t1,d2
	move.b	d1,d3
	move.b	d2,d4
	sbcd	d0,d1
	bcc.s	eitoin
	moveq	#0,d0
	sbcd	d0,d2
eitoin:	move.b	d2,t1
	move.b	d1,t1+1
	tst.w	t1
	bne.s	yli
	clr.w	pl1cars
	clr.b	crptr1
yli:	move.b	t1+1,d3
	move.b	t1,d4
	move.b	d4,d2
	move.b	d3,d1
	lsr.b	#4,d1
	lsr.b	#4,d2
	and.l	#$f,d2
	and.l	#$f,d1
	and.l	#$f,d3
	and.l	#$f,d4
	add.b	#48,d1
	add.b	#48,d2
	add.b	#48,d3
	add.b	#48,d4
	move.b	d3,time+3
	move.b	d1,time+2
	move.b	d4,time+1
	move.b	d2,time
	
	lea	time,a0
	lea	clock+780,a2
	moveq	#0,d0
	moveq	#3,d1
cprtlp:	move.b	(a0),d0
	addq	#1,a0
	lea	num2+280,a1
	sub.b	#48,d0
	add.l	d0,a1
	move.b	(a1),(a2)
	move.b	40(a1),40(a2)
	move.b	80(a1),80(a2)
	move.b	120(a1),120(a2)
	move.b	160(a1),160(a2)
	move.b	200(a1),200(a2)
	move.b	240(a1),240(a2)

	move.b	280(a1),600(a2)
	move.b	320(a1),640(a2)
	move.b	360(a1),680(a2)
	move.b	400(a1),720(a2)
	move.b	440(a1),760(a2)
	move.b	480(a1),800(a2)
	move.b	520(a1),840(a2)
	addq	#1,a2
	dbra	d1,cprtlp

	move.l	#$ffffffff,$dff044
	move	#$09f0,$dff040

	jsr	scrolldown
	moveq	#0,d1
	move.b	$bfe001,d1
	and.b	#%10000000,d1
	ror.b	#6,d1
	eor.b	#2,d1
	addq	#1,d1
	move.w	$dff00c,d0
	lea	car1x,a0
	moveq	#0,d2
	lea	nopeus1,a2
	tst.b	redfrm
	bne.s	nomuch
	bsr.L	joy
	cmp.b	#120,nopeus1
	bls.s	nomuch
	tst.b	nopeus1
	bpl	plussa
	clr.b	nopeus1
	bra	miinus
plussa:	move.b	#120,nopeus1
miinus:	cmp.b	#2,d1
	bne.s	nomuch
	add.w	#1,b1
nomuch:	move.l	$68788,$688a0
	eor.b	#$80,$688a3
	move.b	$bfe001,d1
	and.b	#%01000000,d1
	ror.b	#5,d1
	eor.b	#2,d1
	addq	#1,d1
	and.l	#$ff,d1
	move.w	$dff00a,d0
	lea	car2x,a0
	moveq	#1,d2
	lea	nopeus2,a2
	tst.b	whtfrm
	bne.s	nomuch2
	bsr.L	joy
	cmp.b	#120,nopeus2
	bls.s	nomuch2
	tst.b	nopeus2
	bpl	plussa2
	clr.b	nopeus2
	bra	miinus2
plussa2:move.b	#120,nopeus2
miinus2:cmp.b	#2,d1
	bne.s	nomuch2
	add.w	#1,b2
nomuch2:move.l	$689b8,$68ad0
	eor.b	#$80,$68ad3
	moveq	#0,d0
	move.w	b1,d0
	divu	#10,d0
	and.l	#$000000ff,d0
	move.b	#$27,$6880c
	sub.b	d0,$6880c
	move.w	b2,d0
	divu	#10,d0
	and.l	#$000000ff,d0
	move.b	#$27,$68924
	sub.b	d0,$68924	
	bra.L	carcol
pl1:	tst.b	crptr1
	beq.L	pl1col
pl2:	tst.b	crptr2
	beq.L	pl2col

irqend:	cmp.b	#$78,nopeus1
	bls	sopnop
	clr.b	nopeus1
sopnop:	cmp.b	#$78,nopeus1
	bls	sopnop2
	clr.b	nopeus2
sopnop2:moveq	#0,d0
	move.b	cr1b,d0
	beq.s	then
	cmp.b	#10,d0
	blo	ok
	cmp.b	#-10,d0
	bhi	ok
	tst.b	d0
	bpl	ok1
	move.b	#-9,d0
	move.b	d0,cr1b
	bra	ok
ok1:	move.b	#9,d0
	move.b	d0,cr1b
ok:	ext.w	d0
	add.w	d0,car1x
	tst.b	d0
	bpl	plus
	add.b	#1,cr1b
	bra.s	then
plus:	sub.b	#1,cr1b
then:	move.b	cr2b,d0
	beq.s	then2
	cmp.b	#10,d0
	blo	ok2
	cmp.b	#-10,d0
	bhi	ok2
	tst.b	d0
	bpl	ok21
	move.b	#-9,d0
	move.b	d0,cr2b
	bra	ok2
ok21:	move.b	#9,d0
	move.b	d0,cr2b
ok2:	ext.w	d0
	add.w	d0,car2x
	tst.b	d0
	bpl	plus2
	add.b	#1,cr2b
	bra.s	then2
plus2:	sub.b	#1,cr2b

then2:	move.b	cr1b+1,d0
	beq.s	then3
	cmp.b	#10,d0
	blo	ok3
	cmp.b	#-10,d0
	bhi	ok3
	tst.b	d0
	bpl	ok31
	move.b	#-9,d0
	move.b	d0,cr1b+1
	bra	ok3
ok31:	move.b	#9,d0
	move.b	d0,cr1b+1
ok3:	add.b	d0,car1a
	tst.b	d0
	bpl	plus3
	add.b	#1,cr1b+1
	bra.s	then3
plus3:	sub.b	#1,cr1b+1
then3:	move.b	cr2b+1,d0
	beq.s	then4
	cmp.b	#10,d0
	blo	ok4
	cmp.b	#-10,d0
	bhi	ok4
	tst.b	d0
	bpl	ok41
	move.b	#-9,d0
	move.b	d0,cr2b+1
	bra	ok4
ok41:	move.b	#9,d0
	move.b	d0,cr2b+1
ok4:	add.b	d0,car2a
	tst.b	d0
	bpl	plus4
	add.b	#1,cr2b+1
	bra.s	then4
plus4:	sub.b	#1,cr2b+1

then4:	move.b	car1a,d0
	move.b	d0,car1b
	add.b	#$20,d0
	cmp.b	#$20,d0
	bhi.s	lower1
	move.b	#$10,d0
lower1:	move.b	d0,car1a+2
	move.b	d0,car1b+2

	move.b	car2a,d0
	move.b	d0,car2b
	add.b	#$20,d0
	cmp.b	#$20,d0
	bhi.s	lower2
	move.b	#$10,d0
lower2:	move.b	d0,car2a+2
	move.b	d0,car2b+2

	tst.b	pl1cars
	bne.s	viela
	move.w	#$6488,d0
	move.w	d0,spr1+6
	move.w	d0,spr2+6
	move.w	#$aaa,col1
	clr.b	nopeus1
	move.b	#32,redfrm
viela:	tst.b	pl2cars
	bne.s	viela2
	tst.b	pl1cars
	bne.s	nodead
	cmp.b	#1,crptr1
	bne.s	ends2
	move.b	#1,endiiko
ends2:	sub.b	#1,crptr1

nodead:	move.w	#$6488,d0
	move.w	d0,spr3+6
	move.w	d0,spr4+6
	move.w	#$aaa,col2
	clr.b	nopeus2
	move.b	#32,whtfrm
viela2:	moveq	#1,d0
	movem.l	(a7)+,d2-d7/a2-a4/a6
	move.w	#0,$dff180
	rts

print:	moveq	#0,d0
	moveq	#4,d1
prtlp:	move.b	(a0),d0
	addq	#1,a0
	lea	num2+280,a1
	sub.b	#48,d0
	add.l	d0,a1
	move.b	(a1),(a2)
	move.b	40(a1),40(a2)
	move.b	80(a1),80(a2)
	move.b	120(a1),120(a2)
	move.b	160(a1),160(a2)
	move.b	200(a1),200(a2)
	move.b	240(a1),240(a2)

	move.b	280(a1),1800(a2)
	move.b	320(a1),1840(a2)
	move.b	360(a1),1880(a2)
	move.b	400(a1),1920(a2)
	move.b	440(a1),1960(a2)
	move.b	480(a1),2000(a2)
	move.b	520(a1),2040(a2)
	addq	#1,a2
	dbra	d1,prtlp
	rts

crush1:	tst.b	pl1cars
	beq.L	jaa
	move.b	#223,crptr1
	moveq	#0,d6
	move.b	pl1cars,d6
	moveq	#1,d7
	sbcd	d7,d6
	bne.s	ei
	clr.b	crptr1
ei:	move.b	d6,pl1cars
	move.b	#$c0,car1a
	clr.b	redfrm
	tst.b	whtfrm
	beq.s	flying
	tst.b	pl1cars
	beq.s	flying
	clr.b	speed
flying:	move.b	speed,nopeus1
	move.b	#$74,car1a+1
	move.w	#223,car1x
	tst.b	pl2cars
	bne.L	jaa
	clr.b	nopeus1
	bra.L	jaa

crush2:	tst.b	pl2cars
	beq.L	jaa2
	move.b	#223,crptr2
	moveq	#0,d6
	move.b	pl2cars,d6
	moveq	#1,d7
	sbcd	d7,d6
	bne.s	ei2
	clr.b	crptr2
ei2:	move.b	d6,pl2cars
	move.b	#$c0,car2a
	clr.b	whtfrm
	tst.b	redfrm
	beq.s	flying2
	tst.b	pl2cars
	beq.s	flying2
	clr.b	speed
flying2:move.b	speed,nopeus2
	move.b	#$a4,car2a+1
	move.w	#328,car2x
	tst.b	pl1cars
	bne.L	jaa2
	clr.b	nopeus2
	bra.L	jaa2

scrolldown:
	sub.b	#1,wsreg
	moveq	#0,d3
	moveq	#0,d5
	move.b	nopeus1,d5
	move.b	nopeus2,d3
	cmp.b	d3,d5
	bhi.s	car2

	cmp.w	#$2020,redfrm
	beq.s	eimu
	move.b	d3,speed
eimu:	move.b	d5,d1
	bsr.L	whatspeed
	move.b	d4,d0
	move.b	d3,d1
	move.b	d5,d2
	bsr.L	whatspeed
	divu	#4,d3
	moveq	#0,d6
	move.b	d5,d6
	divu	#4,d5
	divu	#15,d6
	sub.b	d4,d6
	move.b	car2a,d1
	divu	#15,d2
	moveq	#0,d7
	move.b	nopeus2,d7
	divu	#2,d7
	not.b	d7
	sub.b	#83,d7
	cmp.b	d0,d2
	beq.s	laba1
	add.b	#1,d6
laba1:	cmp.b	d7,d1
	bls.s	laba
	add.b	d6,d1
	sub.b	d7,d1
	bpl	neg1
	sub.b	d1,d6
neg1:	add.b	d6,car2a
	add.b	d6,d4
	bra.L	spdrdy
laba:;	cmp.b	#$ff,car1a
;	beq.L	crush1
;	cmp.b	#$20,car1a
;	blo.L	crush1
	sub.b	d6,car1a
	bra.s	spdrdy
car2:	cmp.w	#$2020,redfrm
	beq.s	eimu2
	move.b	d5,speed
eimu2:	move.b	d3,d1
	move.b	d3,d0
	bsr.L	whatspeed
	move.b	d4,d2
	move.b	d5,d1
	bsr.L	whatspeed
	divu	#4,d5
	moveq	#0,d6
	move.b	d3,d6
	divu	#4,d3
	cmp.b	d3,d5
	beq.s	spdrdy
	divu	#15,d6
	divu	#15,d0
	sub.b	d4,d6
 	move.b	car1a,d1
	moveq	#0,d7
	move.b	nopeus1,d7
	divu	#2,d7
	not.b	d7
	sub.b	#83,d7
	cmp.b	d0,d2
	beq.s	labb1
	add.b	#1,d6
labb1:	cmp.b	d7,d1
	bls.s	labb
	add.b	d6,d1
	sub.b	d7,d1
	bpl	neg2
	sub.b	d1,d6
neg2:	add.b	d6,car1a
	add.b	d6,d4
	bra.s	spdrdy
labb:;	cmp.b	#$ff,car2a
;	beq.L	crush2
;	cmp.b	#$20,car2a
;	blo.L	crush2
	sub.b	d6,car2a

spdrdy:	cmp.b	#$ff,car1a
;	beq.L	crush1
	cmp.b	#$20,car1a
	blo.L	crush1
jaa:	cmp.b	#$ff,car2a
;	beq.L	crush2
	cmp.b	#$20,car2a
	blo.L	crush2
jaa2:	eor.b	#$ff,d3
	eor.b	#$ff,d5
	sub.b	#216,d3
	sub.b	#216,d5
	move.b	d5,$68a3c
	move.b	d3,$68b54
	tst.b	sdreg
	beq.s	eiblit
	jsr	makeblit
eiblit:	cmp.w	#$2020,redfrm
	bne.s	spiidi
	moveq	#0,d4
	move.b	speed,d4
	divu	#15,d4
	add.b	d4,car1a
	add.b	d4,car2a
spiidi:	tst.w	pl1cars
	bne.s	spiidi1
	moveq	#0,d4
	move.b	speed,d4
	divu	#15,d4
spiidi1:and.l	#$f,d4
	mulu	#40,d4
	sub.w	d4,pl1ptl
	sub.w	d4,pl2ptl
	sub.w	d4,pl3ptl
	sub.w	d4,pl4ptl
	sub.w	d4,pl5ptl
	cmp.w	#$9f00,pl1ptl
	blo.s	screen2
	cmp.w	#$a100,pl1ptl
	blo.s	sc1
	rts
sc1:	sub.w	#$a100,pl1ptl
	move.w	pl1ptl,d3
	move.w	#$7,pl1pth
	move.w	#$7,pl2pth
	move.w	#$7,pl3pth
	move.w	#$5500,pl1ptl
	move.w	#$7800,pl2ptl	
	move.w	#$9b00,pl3ptl
	move.w	#$be00,pl4ptl
	move.w	#$e100,pl5ptl
	bra.s	ch
screen2:cmp.w	#$5000,pl1ptl
	blo.s	sc2
	rts
sc2:	sub.w	#$5000,pl1ptl
	move.w	pl1ptl,d3
	move.w	#$6,pl1pth
	move.w	#$6,pl2pth
	move.w	#$6,pl3pth
	move.w	#$a600,pl1ptl
	move.w	#$c900,pl2ptl	
	move.w	#$ec00,pl3ptl
	move.w	#$0f00,pl4ptl
	move.w	#$3200,pl5ptl
ch:	add.w	d3,pl1ptl
	add.w	d3,pl2ptl
	add.w	d3,pl3ptl
	add.w	d3,pl4ptl
	add.w	d3,pl5ptl
	move.b	#4,sdreg
	rts
ptr:	dc.w	0
carcol:
	tst.b	pl1cars
	beq.L	paluu
	tst.b	pl2cars
	beq.L	paluu
	moveq	#0,d0
	moveq	#0,d3
	moveq	#0,d4
	moveq	#0,d5
	moveq	#0,d6
	moveq	#0,d7
	move.b	car1a,d6
	sub.b	car2a,d6
	cmp.b	#31,d6
	bls.s	next
	cmp.b	#225,d6
	bhs.s	next
	bra.L	paluu
next:	move.b	car1a+1,d6
	sub.b	car2a+1,d6
	cmp.b	#7,d6
	bls.s	jatkuu
	cmp.b	#249,d6
	bhs.s	jatkuu
	bra.L	paluu
jatkuu:	move.b	car1a+1,d6
	move.b	car2a+1,d7
	move.b	nopeus1,d4
	move.b	d4,d3
	move.b	nopeus2,d5
	add.b	d5,d4
	add.w	#50,d4
	divu	#60,d4
	cmp.b	d3,d5
	blo.s	other
	sub.b	d3,d5
	bra.s	othrohi
other:	sub.b	d5,d3
	move.b	d3,d5
othrohi:lsr	#2,d5

	cmp.b	d6,d7
	bhi.s	car2rg
	sub.b	d7,d6
	move.b	d6,d0
	lsr.b	#1,d0
	eor.b	#%111,d0
	and.b	#%111,d0
	sub.b	#2,d0
	add.b	d0,d4
	cmp.b	#8,d6
	bhi.s	updown
	cmp.b	#3,d6
	blo.s	updown
			;punainen auto vasemmalla
	lsr.w	#1,d4
	and.b	#7,d4
	add.b	d4,cr1b
	sub.b	d4,cr2b

	bra.s	updown
car2rg:	sub.b	d6,d7
	move.b	d7,d0
	lsr.b	#1,d0
	eor.b	#%111,d0
	and.b	#%111,d0
	sub.b	#2,d0
	add.b	d0,d4
	cmp.b	#8,d7
	bhi.s	updown
	cmp.b	#3,d7
	blo.s	updown
				;valkoinen auto vasemmalla
	lsr.w	#1,d4
	and.b	#7,d4
	add.b	d4,cr2b
	sub.b	d4,cr1b

updown:	moveq	#0,d0
	moveq	#0,d6
	moveq	#0,d7
	move.b	car1a,d6
	move.b	car2a,d7
	cmp.b	d6,d7
	bhi.s	car1up
	sub.b	d7,d6
	move.b	d6,d0
	lsr.b	#1,d0
	eor.b	#%1111,d0
	and.b	#%1111,d0
	cmp.b	#31,d6
	bhi.s	car1up
	cmp.b	#22,d6
	blo.s	car1up
	add.b	d0,d5
	addq	#4,d5			;punainen auto alhaalla
	divu	#3,d5
	and.b	#7,d5
	sub.b	d5,cr2b+1
	add.b	d5,cr1b+1
move.b	d5,ptr
	move.b	nopeus1,d0
	add.b	nopeus2,d0
	lsr.b	#1,d0
	move.b	d0,nopeus1
	move.b	d0,nopeus2
	bra.s	paluu

car1up:	sub.b	d6,d7
	move.b	d7,d0
	lsr.b	#1,d0
	eor.b	#%1111,d0
	and.b	#%1111,d0
	add.w	d0,d5
	cmp.b	#31,d7
	bhi.s	paluu
	cmp.b	#22,d7
	blo.s	paluu
	addq	#4,d5			;valkoinen auto alhaalla
	divu	#3,d5
	and.b	#7,d5
	sub.b	d5,cr1b+1
	add.b	d5,cr2b+1
move.b	d5,ptr

	move.b	nopeus1,d0
	add.b	nopeus2,d0
	lsr.b	#1,d0
	move.b	d0,nopeus1
	move.b	d0,nopeus2

paluu:;	move.w	#$f00,$dff180
	bra.L	pl1

pl1col:
	tst.b	pl1cars
	beq.L	pl2
	tst.b	redfrm
	bne.L	pl2
	move.w	pl1pth,d7
	swap	d7
	move.w	pl1ptl,d7
	move.l	d7,a4
	moveq	#0,d0
	move.b	car1a+1,d0
	sub.b	#$40,d0
	lsl.w	#1,d0
	moveq	#0,d1
	move.b	car1a,d1
	sub.b	#63,d1
	lea	sprpos,a2
	lea	spadd-4,a3
	moveq	#0,d2
	move.b	(a2)+,d2
	lea	cr1b,a0
	moveq	#0,d4

col1lp:	moveq	#0,d5
	moveq	#0,d6
	add.l	#4,a3
	move.b	(a2)+,d5
	move.b	(a2)+,d6
	add.w	d0,d5
	add.w	d1,d6
	move.l	a4,a5
	bsr.L	bittst	

	tst.b	d5
	bne.s	olicol1
	dbra	d2,col1lp
	bra.s	joo1
olicol1:
	move.l	(a3),a6
	jsr	(a6)
	dbra	d2,col1lp

joo1:	and.b	#$0f,d4
	beq.L	pl2
	cmp.b	#$f,d4
	beq.L	pl2
	moveq	#0,d5
	moveq	#0,d6
	move.b	nopeus1,d5
	move.b	d5,d6
	divu	#15,d5
	add.w	#25,d6
	add.b	#2,d5
	divu	#30,d6
	and.w	#%111,d6
	add.w	#3,d6
	lea	nopeus1,a1
	lea	car1x,a2
	bsr.L	movecar
rdy1:	cmp.b	#50,nopeus1
	bls.L	pl2
	cmp.b	#$78,nopeus1
	bhi	pl2
	move.b	#1,redfrm
	bra.L	pl2

oik:	or.b	#8,d4
	rts
vas:	or.b	#4,d4
	rts
alas:	or.b	#2,d4
	rts
oikyl:	or.b	#9,d4
	rts
vasyl:	or.b	#5,d4
	rts
oikal:	or.b	#10,d4
	rts
vasal:	or.b	#6,d4
	rts
kesk:	rts
pl2col:
	tst.b	pl2cars
	beq.L	irqend
	tst.b	whtfrm
	bne.L	irqend
	moveq	#0,d0
	moveq	#0,d1
	move.w	pl1pth,d7
	swap	d7
	move.w	pl1ptl,d7
	move.l	d7,a4
	move.b	car2a+1,d0
	sub.b	#$40,d0
	mulu	#2,d0
	move.b	car2a,d1
	sub.b	#63,d1
	lea	sprpos,a2
	lea	spadd-4,a3
	lea	cr2b,a0
	moveq	#0,d2
	move.b	(a2)+,d2
	moveq	#0,d4
col2lp:	moveq	#0,d5
	moveq	#0,d6
	add.l	#4,a3
	move.b	(a2)+,d5
	move.b	(a2)+,d6
	add.w	d0,d5
	add.w	d1,d6
	move.l	a4,a5
	bsr.L	bittst	

	tst.b	d5
	bne.s	olicol2
	dbra	d2,col2lp
	bra.s	joo2
olicol2:
	move.l	(a3),a6
	jsr	(a6)
	dbra	d2,col2lp

joo2:	and.b	#$0f,d4
	beq.L	irqend
	cmp.b	#$f,d4
	beq.L	irqend
	moveq	#0,d5
	moveq	#0,d6
	move.b	nopeus2,d5
	move.b	d5,d6
	add.w	#25,d6
	divu	#30,d6
	and.w	#%111,d6
	add.w	#3,d6
	divu	#15,d5
	lea	nopeus2,a1
	lea	car2x,a2
	bsr.s	movecar
rdy2:	cmp.b	#50,nopeus2
	bls.L	irqend
	cmp.b	#$78,nopeus2
	bhi	irqend
	move.b	#1,whtfrm
	bra.L	irqend

movecar:
;	addq	#4,d5
	divu	#3,d5
	lsr.b	#1,d6
	and.b	#%111,d5
	and.b	#%111,d6
	btst	#1,d4
	beq.s	up2
	btst	#0,d4
	bne.s	lft2
	add.b	#1,1(a0)
	sub.b	#5,(a1)
	btst	#3,d4
	bne.s	rgt2
	btst	#2,d4
	bne.s	lft2
	add.b	d5,1(a0)
	clr.b	(a1)
up2:	btst	#0,d4
	beq.s	lft2
	sub.b	d5,1(a0)
;	sub.b	#2,2(a0)
;	sub.b	#2,280(a0)
;	sub.b	#2,282(a0)
	add.b	#3,(a1)
lft2:	btst	#2,d4
	beq.s	rgt2
	btst	#3,d4
	bne.s	tama
	sub.b	d6,(a0)
	sub.b	#2,(a1)
rgt2:	btst	#3,d4
	beq.s	tama
	add.b	d6,(a0)
	sub.b	#2,(a1)
tama:	rts

bittst:	cmp.b	#192,d6
	bhs	clip
	mulu	#40,d6	;d5=X
	add.l	d6,a5	;d6=Y
	move.b	d5,d7	;a5=PTR
	and.b	#7,d7	;d7=---
	lsr.w	#3,d5
	add.l	d5,a5
	move.b	(a5),d5
	move.b	#128,d6
	ror.b	d7,d6
	and.b	d6,d5	;d5=0 => nocol
	rts
clip:	moveq	#0,d5
	rts
sprblit:move.l	#0,$dff064
	moveq	#0,d5
	moveq	#0,d6
	move.b	redfrm,d5
	move.b	whtfrm,d6
	mulu	#256,d5	;d5=redframe
	mulu	#256,d6	;d6=whiteframe
	lea	red,a0	;a0=redframepos
	lea	white,a1;a1=whiteframepos
	add.l	d5,a0
	add.l	d6,a1
sb1:	btst	#14,$dff002
	bne.s	sb1
	move.l	a0,$dff050
	move.l	#car1a+4,$dff054
	move.w	#$1001,$dff058
sb2:	btst	#14,$dff002
	bne.s	sb2
	move.l	a1,$dff050
	move.l	#car2a+4,$dff054
	move.w	#$1001,$dff058
sb3:	btst	#14,$dff002
	bne.s	sb3
	add.l	#128,a0
	add.l	#128,a1
	move.l	a0,$dff050
	move.l	#car1b+4,$dff054
	move.w	#$1001,$dff058
sb4:	btst	#14,$dff002
	bne.s	sb4
	move.l	a1,$dff050
	move.l	#car2b+4,$dff054
	move.w	#$1001,$dff058
	rts

makeblit:
	moveq	#0,d0
	moveq	#0,d5
	sub.b	#1,sdreg
	bne.L	sdrei0
	lea	linepos,a1
	move.l	(a1),a0
	add.l	#10,linepos
	moveq	#9,d1
	lea	track,a5
	move.w	track-2,d5
	add.l	a5,d5
	move.l	linepos,a5
	cmp.l	d5,a5
	bne.s	jatkoa
	move.l	#track,linepos
jatkoa:	cmp.w	#$a000,pl1ptl
	blo.s	scr2
	move.l	#$75000,lpeilop+2
	bra.s	lpeilop
scr2:	move.l	#$6a100,lpeilop+2
lpeilop:move.l	#$12345,a4
	move.b	(a0)+,d0
	mulu	#2,d0
	lea	blockpos,a2
	add.l	d0,a2
	move.w	(a2),a1
	add.l	#blocks,a1
	jsr	blitblock
	add.l	#4,lpeilop+2
	dbra	d1,lpeilop
	rts	
sdrei0:	
	cmp.w	#$9f00,pl1ptl
	blo.s	scr2blt
	lea	$6a100,a1
	lea	$75000,a3
	bra.s	scrxblt
scr2blt:lea	$75000,a1
	lea	$6a100,a3
scrxblt:move.b	sdreg,d0
	add.b	sdreg,d0
	lea	lineadd-2,a0
	add.l	d0,a0
	add.w	(a0),a1
	add.w	(a0),a3
	add.w	#1280,a3
	jsr	blitline
	rts
whatspeed:
	tst.b	wsreg
	bne.s	wsrei0
	move.b	#3,wsreg
wsrei0:	moveq	#0,d4
	move.b	d1,d4
	divu	#15,d4
	move.l	d4,d1
	swap	d1
	and.l	#$ff,d1
	and.l	#$ff,d4
	tst.b	wsreg
	bne.s	addsome	
	rts
addsome:cmp.b	#1,wsreg
	bne.s	wsreg2
	cmp.b	#4,d1
	bhi.s	lisyks
	rts
lisyks:	add.b	#1,d4
	rts
wsreg2:	cmp.b	#9,d1
	bhi.s	lisyks
	rts
blitline:
	btst	#14,$dff002
	bne.s	blitline
	move.l	a1,$dff050
	move.l	a3,$dff054
	move	#0,$dff064
	move	#0,$dff066
	move	#$1014,$dff058
bl2:	btst	#14,$dff002
	bne.s	bl2
	add.l	#$2300,a1
	add.l	#$2300,a3
	move.l	a1,$dff050
	move.l	a3,$dff054
	move	#$1014,$dff058
bl3:	btst	#14,$dff002
	bne.s	bl3
	add.l	#$2300,a1
	add.l	#$2300,a3
	move.l	a1,$dff050
	move.l	a3,$dff054
	move	#$1014,$dff058
bl4:	btst	#14,$dff002
	bne.s	bl4
	add.l	#$2300,a1
	add.l	#$2300,a3
	move.l	a1,$dff050
	move.l	a3,$dff054
	move	#$1014,$dff058
bl5:	btst	#14,$dff002
	bne.s	bl5
	add.l	#$2300,a1
	add.l	#$2300,a3
	move.l	a1,$dff050
	move.l	a3,$dff054
	move	#$1014,$dff058
	rts
blitblock:
	btst	#14,$dff002
	bne.s	blitblock
	move.l	a1,$dff050
	move.l	a4,$dff054
	move	#36,$dff064
	move	#36,$dff066
	move	#$802,$dff058
bb2:	btst	#14,$dff002
	bne.s	bb2
	add.l	#$2300,a4
	add.l	#$2300,a1
	move.l	a1,$dff050
	move.l	a4,$dff054
	move	#$802,$dff058
bb3:	btst	#14,$dff002
	bne.s	bb3
	add.l	#$2300,a4
	add.l	#$2300,a1
	move.l	a1,$dff050
	move.l	a4,$dff054
	move	#$802,$dff058
bb4:	btst	#14,$dff002
	bne.s	bb4
	add.l	#$2300,a4
	add.l	#$2300,a1
	move.l	a1,$dff050
	move.l	a4,$dff054
	move	#$802,$dff058
bb5:	btst	#14,$dff002
	bne.s	bb5
	add.l	#$2300,a4
	add.l	#$2300,a1
	move.l	a1,$dff050
	move.l	a4,$dff054
	move	#$802,$dff058
	rts
joy:
	and.w	#%1100000011,d0
	bne.s	action
	rts
action:	moveq	#0,d3
	move.b	(a2),d3
	add.w	#25,d3
	divu	#30,d3
	and.w	#%111,d3
	cmp.w	#$101,d0
	bhi.s	vasen
	cmp.w	#$3,d0
	bne.s	alaoik
	add.w	d3,(a0)
	rts
alaoik:	cmp.w	#$2,d0	
	bne.s	ala	
	cmp.b	#3,(a2)
	blo.s	ao
	sub.b	d1,(a2)
ao:	add.w	d3,(a0)
	rts
ala:	cmp.w	#$1,d0
	bne.s	ylos
	cmp.b	#3,(a2)
	blo.s	return
	sub.b	d1,(a2)
	rts
ylos:	bsr.s	btest
	or.b	#1,flags
	add.b	d1,(a2)
	subq	#1,d1
	beq.s	return
	bra.s	buusti

vasen:
	cmp.w	#$300,d0
	bne.s	ylaoik
	sub.w	d3,(a0)
	rts
ylaoik:	cmp.w	#$103,d0
	bne.s	ylavas
	or.b	#1,flags
	add.w	d3,(a0)
yo:	bsr.s	btest
	add.b	d1,(a2)
	subq	#1,d1
	beq.s	return
	bra.s	buusti
ylavas:	cmp.w	#$200,d0
	bne.s	alavas
	or.b	#1,flags
	sub.w	d3,(a0)
yv:	bsr.s	btest
	add.b	d1,(a2)
	subq	#1,d1
	beq.s	return
	bra.s	buusti
alavas:	sub.w	d3,(a0)
av:	cmp.b	#3,(a2)
	blo.s	return
	sub.b	d1,(a2)
return:	rts
buusti:
	tst.b	d2
	beq.s	pl1bst
	sub.w	#1,b2
	rts
btest:	tst.b	d2
	beq.s	pl1tst
	tst.w	b2
	bne.s	return
	moveq	#1,d1
	rts
pl1tst:	tst.w	b1
	bne.s	return
	moveq	#1,d1
	rts
pl1bst:	sub.w	#1,b1
	rts

intro:	move.l	#copper2,$dff080
	move.w	#$8788,spr1+6
	move.w	#$88a0,spr2+6
	move.w	#$ccc,col1
	move.b	#$10,pl1cars
	bra.s	nappula
key:	move.b	$bfec01,d0
	btst	#0,d0
	bne.s	key
nappula:move.b	$bfec01,d0
	cmp.b	#$5f,d0
	beq.s	F1
	cmp.b	#$5d,d0
	beq.s	F2
	cmp.b	#$5b,d0
	beq.s	F3
	cmp.b	#$59,d0
	beq.L	F4
	cmp.b	#$57,d0
	beq.L	F5
	bra.s	nappula
F1:	cmp.b	#$d2,bp1l
	beq.s	p1
	bra.s	key
p1:	move.w	#$aaa,col2
	move.w	#$8a3c,spr3+6
	move.w	#$8b54,spr4+6
	clr.b	pl2cars
	rts
F2:	cmp.b	#$d2,bp1l
	beq.s	p2
	bra.s	key
p2:	move.w	#$ccc,col2
	move.w	#$89b8,spr3+6
	move.w	#$8ad0,spr4+6
	move.b	#$10,pl2cars
	rts
F3:	cmp.b	#$d2,bp1l
	beq.s	zak
	bra.L	key
zak:	move.w	#$00b8,d0
	bsr.L	mkptrs
	move.w	#5,d0
	move.w	d0,bp1h
	move.w	d0,bp2h
	move.w	d0,bp3h
	move.w	d0,bp4h
	bra.L	key
F4:	cmp.b	#$d2,bp1l
	beq.s	trax
	bra.L	key
trax:	move.w	#$2f38,d0
	bsr.s	mkptrs
	move.w	#5,d0
	move.w	d0,bp1h
	move.w	d0,bp2h
	move.w	d0,bp3h
	move.w	d0,bp4h
	bra.L	key
F5:	cmp.b	#$d2,bp1l
	beq.s	cars
	move.w	#$d238,d0
	bsr.s	mkptrs
	move.w	#4,d0
	move.w	d0,bp1h
	move.w	d0,bp2h
	move.w	d0,bp3h
	move.w	d0,bp4h
	bra.L	key
cars:	move.w	#$5db8,d0
	bsr.s	mkptrs
	move.w	#5,d0
	move.w	d0,bp1h
	move.w	d0,bp2h
	move.w	d0,bp3h
	move.w	d0,bp4h
	bra.L	key

mkptrs:	move.w	d0,bp1l
	add.w	#$ba0,d0
	move.w	d0,bp2l
	add.w	#$ba0,d0
	move.w	d0,bp3l
	add.w	#$ba0,d0
	move.w	d0,bp4l
	rts
copper:
dc.w	$008e,$0000,$0090,$3fff,$0092,$0038,$0094,$00d0
dc.w	$0108,$0000,$01a6,$0fff,$01a2,$0000,$01a4,$000f
dc.w	$01a8,$0000,$0108,$0000,$010a,$0000,$01ac,$0f00
dc.w	$01aa,$0f00,$01ae,$000f,$0104,$0024	
spr1:	dc.w	$0120,$0006,$0122,$8788
spr2:	dc.w	$0124,$0006,$0126,$88a0
spr3:	dc.w	$0128,$0006,$012a,$89b8
spr4:	dc.w	$012c,$0006,$012e,$8ad0
	dc.w	$0130,$0007,$0132,$ff00
	dc.w	$0134,$0007,$0136,$ff00
	dc.w	$0138,$0007,$013a,$ff00
	dc.w	$013c,$0007,$013e,$ff00
dc.w	$e0,5,$e4,5,$e8,5,$e2,$ea80-6400,$e6,$ecd8-6400,$ea,$ef30-6400
dc.w	$2fff,$ff08
dc.w	$100,$3200;,$180
;vari:dc.w $000

dc.w	$3eff,$ff08
dc.w	$100,0
dc.w	$00e0
pl1pth:dc.w $0007,$00e2
pl1ptl:dc.w $5500,$00e4
pl2pth:dc.w $0007,$00e6
pl2ptl:dc.w $7800,$00e8
pl3pth:dc.w $0007,$00ea
pl3ptl:dc.w $9b00,$00ec,$0007,$00ee
pl4ptl:dc.w $be00,$00f0,$0007,$00f2
pl5ptl:dc.w $e100
dc.w	$182,$222,$184,$444,$186,$777,$188,$999,$18a,$0a0
dc.w	$18c,$080,$18e,$060,$190,$eee,$192,$830,$194,$333,$196,$620
dc.w	$198,$ba0,$19a,$b50,$19c,$d80,$19e,$888,$1a0,$666,$1a2,$eee
dc.w	$1a4,$f00,$1a6,$a00,$1a8,$c00,$1aa,$f44,$1ac,$00f,$1ae,$00a
dc.w	$1b0,$ff0,$1b2,$00d,$1b4,$e00,$1b6,$ddd,$1b8,$ccc,$1ba,$bbb
dc.w	$1bc,$000,$1be,$aaa
dc.w	$1a2,$eee,$1a4,$f00,$1a6,$a00,$1a8,$c00,$1aa,$f44,$1ac,$00f
dc.w	$1ae,$00a,$1b0,$ff0,$1b2,$00d,$1b4,$e00,$1b6,$ddd,$1b8,$ccc
dc.w	$1ba,$bbb,$1bc,$000,$1be,$aaa
dc.w	$0104,$0024
dc.w	$3fff,$ff08
dc.w	$0100,$5200
dc.w	$ffff,$ff08
dc.w	$0100,$0000
dc.w	$00e0,$0006,$00e2,$8be8
dc.w	$00e4,$0006,$00e6,$92f0
dc.w	$00e8,$0006,$00ea,$99f8
dc.w	$0140,$0170,$0142,$0106
dc.w	$0148,$0170,$014a,$0106
dc.w	$0150,$0170,$0152,$0106
dc.w	$0158,$0170,$015a,$0106
dc.w	$ffe1,$fffe,$100,0,$00ff,$ff08
dc.w	$0100,$3200
dc.w	$0180,$0888
dc.w	$182
col1:	dc.w	$ccc,$184
col2:	dc.w	$ccc,$186,$ccc
dc.w	$188,$aaa,$18a,$888,$18c,$666,$18e,$444
dc.w	$0120,$0006,$0122,$880c
dc.w	$0124,$0006,$0126,$8924
dc.w	$0128,$0006,$012a,$8a3c
dc.w	$012c,$0006,$012e,$8b54
dc.w	$0154,$4687
dc.w $0104,$0000,$1a6,$0f0,$1ae,$f00,$0701,$ff00,$1a6,$1f0,$1ae,$f20
dc.w $0801,$ff00,$1a6,$2f0,$1ae,$f40,$0901,$ff00,$1a6,$3f0,$1ae,$f60
dc.w $0a01,$ff00,$1a6,$4f0,$1ae,$f80,$0b01,$ff00,$1a6,$5f0,$1ae,$fa0
dc.w $0c01,$ff00,$1a6,$5f0,$1ae,$fc0,$0d01,$ff00,$1a6,$6f0,$1ae,$fe0
dc.w $0e01,$ff00,$1a6,$6f0,$1ae,$ff0,$0f01,$ff00,$1a6,$7f0,$1ae,$ef0
dc.w $1001,$ff00,$1a6,$7f0,$1ae,$ef0,$1101,$ff00,$1a6,$8f0,$1ae,$df0
dc.w $182,$ccc
dc.w $1201,$ff00,$1a6,$8f0,$1ae,$df0,$1301,$ff00,$1a6,$9f0,$1ae,$cf0
dc.w $1401,$ff00,$1a6,$9f0,$1ae,$cf0,$1501,$ff00,$1a6,$af0,$1ae,$bf0
dc.w $1601,$ff00,$1a6,$af0,$1ae,$bf0,$1701,$ff00,$1a6,$bf0,$1ae,$af0
dc.w $1801,$ff00,$1a6,$bf0,$1ae,$af0,$1901,$ff00,$1a6,$cf0,$1ae,$9f0
dc.w $1a01,$ff00,$1a6,$cf0,$1ae,$9f0,$1b01,$ff00,$1a6,$df0,$1ae,$8f0
dc.w $1c01,$ff00,$1a6,$df0,$1ae,$8f0,$1d01,$ff00,$1a6,$ef0,$1ae,$7f0
dc.w $1e01,$ff00,$1a6,$ef0,$1ae,$7f0,$1f01,$ff00,$1a6,$ff0,$1ae,$6f0
dc.w $2001,$ff00,$1a6,$fd0,$1ae,$6f0,$2101,$ff00,$1a6,$fc0,$1ae,$5f0
dc.w $2201,$ff00,$1a6,$fa0,$1ae,$5f0,$2301,$ff00,$1a6,$f80,$1ae,$4f0
dc.w $2401,$ff00,$1a6,$f60,$1ae,$3f0,$2501,$ff00,$1a6,$f40,$1ae,$2f0
dc.w $2601,$ff00,$1a6,$f20,$1ae,$1f0,$2701,$ff00,$1a6,$f00,$1ae,$0f0
dc.w	$2dff,$ff08
dc.w	$0180,$0000,$100,0
dc.w	$ffff,$fffe

copper2:
	dc.w	$0120,0,$0122,0
	dc.w	$0124,0,$0126,0
	dc.w	$0128,0,$012a,0
	dc.w	$012c,0,$012e,0
	dc.w	$0130,0,$0132,0
	dc.w	$0134,0,$0136,0
	dc.w	$0138,0,$013a,0
	dc.w	$013c,0,$013e,0
	dc.w	$100,0
	dc.w	$180,$000,$182,$111,$184,$222,$186,$333
	dc.w	$188,$444,$18a,$555,$18c,$666,$18e,$777
	dc.w	$190,$888,$192,$999,$194,$aaa,$196,$bbb
	dc.w	$198,$ccc,$19a,$ddd,$19c,$eee,$19e,$fff
	dc.w	$e0,4,$e2,$c338,$e4,4,$e6,$c518,$e8,4
	dc.w	$ea,$c6f8
	dc.w	$ec,4,$ee,$c8d8,$108,0,$10a,0;,$8e,$a0,$90,$3fa0
	dc.w	$92,$44,$94,$b8
	dc.w	$a0ff,$ff08,$100,$4200
	dc.w	$aeff,$ffc8,$e0
bp1h:	dc.w	4,$e2
bp1l:	dc.w	$d238,$e4
bp2h:	dc.w	4,$e6
bp2l:	dc.w	$ddd8,$e8
bp3h:	dc.w	4,$ea
bp3l:	dc.w	$e978,$ec
bp4h:	dc.w	4,$ee
bp4l:	dc.w	$f518
	dc.w	$ffe1,$fffe
	dc.w	$0bff,$ffc8,$e0,4,$e2,$cab8,$e4,4,$e6,$cc98
	dc.w	$e8,4,$ea,$ce78,$ec,4,$ee,$d058
	dc.w	$1bff,$ff08,$100,0
	dc.w	$ffff,$fffe

blockpos:
	dc.w	0,4,8,12,16,20,24,28,32,36
	dc.w	1280,1284,1288,1292,1296,1300,1304,1308,1312,1316
	dc.w	2560,2564,2568,2572,2576,2580,2584,2588,2592,2596
	dc.w	3840,3844,3848,3852,3856,3860,3864,3868,3872,3876
	dc.w	5120,5124,5128,5132,5136,5140,5144,5148,5152,5156
	dc.w	6400,6404,6408,6412,6416,6420,6424,6428,6432,6436
	dc.w	7680,7684,7688,7692,7696,7700,7704,7708,7712,7716

lineadd:
	dc.w	0,2560,5120

intstr:	dc.l	0,0
	dc.b	2,3
	dc.l	score1,0,irq

tracklenght:	dc.w	900
track:
	dc.b	02,00,00,20,00,00,20,00,00,03
	dc.b	02,00,00,00,00,00,00,00,00,03
	dc.b	02,00,00,20,00,00,20,00,00,03
	dc.b	02,00,00,00,00,00,00,00,00,03
	dc.b	02,00,00,20,00,00,20,00,00,03
	dc.b	02,00,00,00,00,00,00,00,00,03
	dc.b	02,00,00,20,00,00,20,00,00,03

	dc.b	02,00,00,00,00,00,00,00,00,03
	dc.b	02,00,00,20,00,00,20,00,00,03
	dc.b	02,55,00,00,00,00,00,00,54,03
	dc.b	08,09,00,20,00,00,20,00,06,05
	dc.b	01,18,09,00,00,00,00,06,19,01
	dc.b	01,32,07,00,00,00,00,04,01,32
	dc.b	01,01,02,00,00,00,00,03,01,01
	dc.b	01,01,02,00,00,00,00,03,32,01
	dc.b	01,32,02,00,54,54,00,03,01,01
	dc.b	01,15,14,00,00,00,06,05,01,01
	dc.b	15,17,00,00,00,06,19,01,01,01
	dc.b	13,00,00,00,06,19,01,01,29,30
	dc.b	02,00,00,00,04,01,52,53,27,28
	dc.b	02,00,00,00,03,01,50,51,29,30
	dc.b	02,00,55,00,03,01,52,53,27,28
	dc.b	02,00,00,00,11,12,50,51,29,30
	dc.b	08,09,00,00,00,16,12,01,27,28
	dc.b	01,18,09,00,00,00,16,12,01,01
	dc.b	32,01,18,09,00,00,00,10,01,01
	dc.b	01,01,01,07,00,00,00,03,01,01
	dc.b	46,49,46,47,00,00,00,48,49,46
	dc.b	59,56,59,57,00,55,00,58,59,56
	dc.b	01,01,01,02,00,00,00,11,12,01
	dc.b	01,01,32,08,09,00,00,00,16,12
	dc.b	32,01,01,01,18,09,00,00,00,10
	dc.b	01,01,01,01,01,07,00,00,00,03
	dc.b	01,35,36,01,01,02,00,00,00,03
	dc.b	01,33,34,01,32,02,00,00,00,03
	dc.b	35,36,01,01,15,14,00,00,00,03
	dc.b	33,34,01,15,17,00,00,00,00,03
	dc.b	01,01,15,17,00,00,00,00,00,03
	dc.b	01,15,17,00,00,00,00,00,00,03
	dc.b	15,17,00,00,00,00,00,00,00,03
	dc.b	13,00,00,00,00,00,00,00,00,03
	dc.b	47,00,00,20,00,00,20,00,00,48
	dc.b	37,00,00,00,54,55,00,00,00,38
	dc.b	37,44,00,20,00,00,20,00,00,38
	dc.b	37,00,00,00,54,55,00,00,00,38
	dc.b	57,00,00,20,00,00,20,00,00,58

	dc.b	02,00,00,00,00,00,00,00,00,03
	dc.b	08,09,00,20,00,00,20,00,06,05
	dc.b	32,18,09,00,00,00,00,06,19,01
	dc.b	01,01,07,00,06,09,00,04,32,01
	dc.b	01,01,02,06,19,18,09,03,01,01
	dc.b	01,32,02,04,35,36,07,03,01,01
	dc.b	01,01,02,03,33,34,02,03,01,01
	dc.b	01,32,02,11,12,15,14,03,01,32
	dc.b	01,01,02,00,16,17,00,03,01,01
	dc.b	32,01,08,09,00,00,06,05,01,01
	dc.b	01,01,01,18,09,06,19,01,01,01
	dc.b	01,25,26,01,07,04,32,29,30,01
	dc.b	01,23,24,15,14,11,12,27,28,01
	dc.b	01,32,15,17,00,00,16,12,01,01
	dc.b	01,15,17,00,00,00,00,16,12,32
	dc.b	15,17,00,00,00,00,00,00,16,12
	dc.b	13,00,00,20,00,00,20,00,00,10
	dc.b	02,00,00,00,00,00,00,00,00,03
	dc.b	02,00,00,20,00,00,20,00,00,03

	dc.b	08,09,00,00,00,00,00,00,00,03
	dc.b	01,18,09,00,00,00,00,00,00,03
	dc.b	01,01,18,09,00,00,00,00,00,03

	dc.b	25,26,01,07,00,00,20,00,00,03
	dc.b	23,24,32,02,00,00,00,00,00,03
	dc.b	01,01,15,14,00,00,20,00,06,05
	dc.b	01,15,17,00,00,00,00,00,04,01
	dc.b	01,13,00,00,00,06,09,00,03,01
	dc.b	01,02,00,00,06,19,18,09,03,01
	dc.b	01,02,00,06,19,01,01,07,03,01
	dc.b	15,14,00,04,01,01,01,02,03,01
	dc.b	13,00,00,11,12,01,01,02,11,12
	dc.b	02,00,00,00,16,12,15,14,00,10
	dc.b	08,09,00,00,00,16,17,00,00,03
	dc.b	01,07,00,00,00,00,00,00,06,05
	dc.b	01,08,09,00,00,00,20,00,04,01
	dc.b	01,01,18,09,00,00,00,00,11,12
	dc.b	35,36,01,07,00,00,20,00,00,10
	dc.b	33,34,01,02,00,00,00,00,00,03

	dc.b	01,01,15,14,00,00,20,00,00,03
	dc.b	01,15,17,00,00,00,00,00,00,03
	dc.b	15,17,00,00,00,00,00,00,00,03
	dc.b	13,00,00,00,00,00,00,00,00,03

	dc.b	47,00,00,20,00,00,20,00,00,48
	dc.b	37,00,00,00,00,00,00,00,00,38
	dc.b	37,00,00,20,00,00,20,00,00,38
	dc.b	37,00,00,00,00,00,00,00,00,38
	dc.b	57,00,00,55,00,00,55,00,00,58
	dc.b	08,09,00,00,00,00,00,00,00,03
	dc.b	01,18,09,00,00,00,00,00,00,03
	dc.b	01,01,18,09,00,00,00,00,00,03
	dc.b	01,32,01,18,09,00,00,00,00,03
	dc.b	01,01,01,01,18,09,00,00,00,03
	dc.b	01,25,26,01,01,18,09,00,00,03
	dc.b	01,23,24,01,52,53,18,09,00,03
	dc.b	01,25,26,01,50,51,01,18,09,03
	dc.b	01,23,24,01,01,01,01,01,07,03
	dc.b	01,25,26,01,01,01,35,36,02,03
	dc.b	01,23,24,01,52,53,33,34,02,03
	dc.b	01,25,26,01,50,51,01,15,14,03
	dc.b	01,23,24,01,01,01,01,13,00,03
	dc.b	46,46,49,46,49,49,46,47,00,48
	dc.b	39,39,39,39,39,39,39,37,54,38
	dc.b	59,56,59,56,56,59,56,57,00,58
	dc.b	01,01,01,32,01,01,15,14,00,03
	dc.b	01,35,36,01,01,15,17,00,06,05
	dc.b	01,33,34,01,15,17,00,06,19,01
	dc.b	01,01,01,15,17,00,06,19,01,01
	dc.b	01,01,15,17,00,06,19,01,01,01
	dc.b	32,15,17,00,06,19,32,32,01,01
	dc.b	15,17,00,06,19,01,01,01,29,30
	dc.b	13,00,00,04,01,01,01,01,27,28
	dc.b	08,09,31,11,12,01,32,32,01,01
	dc.b	01,18,09,00,16,12,01,01,01,01
	dc.b	01,01,18,09,00,16,12,01,01,01
	dc.b	32,01,01,07,00,00,10,01,01,01
	dc.b	01,01,01,02,00,00,03,01,35,36
	dc.b	25,26,01,02,00,00,03,01,33,34
	dc.b	23,24,01,02,00,00,03,01,01,01
	dc.b	01,01,15,14,00,00,11,12,01,01
	dc.b	01,15,17,00,00,00,00,16,12,01
	dc.b	15,17,00,00,00,00,00,00,16,12
	dc.b	13,00,00,20,00,00,20,00,00,10
	dc.b	02,00,00,00,00,00,00,00,00,03

cr1b:	dc.w	0
cr2b:	dc.w	0
redfrm:	dc.b	0
whtfrm:	dc.b	0
car1x:	dc.w	232
car2x:	dc.w	328
b1:	dc.w	300
b2:	dc.w	300
linepos:dc.l	track+70
sdreg:	dc.b	003
wsreg:	dc.b	001
speed:	dc.b	000
sp1:	dc.b	000
nopeus1:dc.b	000
nopeus2:dc.b	000
pl1cars:dc.b	$10
pl2cars:dc.b	$10
crptr1:	dc.b	0
crptr2:	dc.b	0
endiiko:dc.b	0
flags:	dc.b	0

cars1:	dc.b	'10:::'
cars2:	dc.b	'10:::'
even
s1:	dc.b	0,0,0
s2:	dc.b	0,0,0
score1:	dc.b	'00000'
score2:	dc.b	'00000'
even
t1:	dc.b	$50,$00
time:	dc.b	'5000'

sprpos:	dc.b	11
	dc.b	0,3,15,3,0,27,15,27,3,31,12,31,7,0,8,0
	dc.b	3,0,5,0,10,0,12,0
even
spadd:	dc.l	oik,vas,oik,vas,oikyl,vasyl,alas,alas
	dc.l	alas,alas,alas,alas

car1a=$68788
car1b=$688a0
car2a=$689b8
car2b=$68ad0

bar1=$6880c
bar2=$68924
bar3=$68a3c
bar4=$68b54

menut       =$4c338
red         =$58c38
white       =$5ad38
num2        =$5ce38
clock       =$5d180
blocks      =$5d888
sprites     =$68788
statuspanel =$68be8
>extern "menut",menut
>extern "red",red
>extern "white",white
>extern "num2",num2
>extern "clock",clock
>extern "blocks",blocks
>extern "sprites",sprites
>extern "statuspanel",statuspanel