;Remember to clear from $5b446 to $7fe00 before loading datas

drevsel= $bfd100
drevsta= $bfe001
drevinx= $bfdd00
dskpth=  $dff020
dsklen=  $dff024
dskbytr= $dff01a
dsksync= $dff07e
intreqr= $dff01e
intreq=  $dff09c
adkcon=  $dff09e
adkconr= $dff010
dmaconw= $dff096
leftmus= $bfe001
sync=    $4489
>EXTERN "Sinustable",sinustabel
>EXTERN "mod.soul1",mt_data
>EXTERN "balls.raw",$5b446
>EXTERN "ballshape.raw",$5c446
>EXTERN "introfont.raw",$5cc46
>EXTERN "intrologo1.raw",$5ef6e
>EXTERN "intrologo2.raw",$62e8e
>EXTERN "floffylogo.raw",$7e000
>EXTERN "7*7.raw",$7f000
>EXTERN "greetsfont.raw",$29c00
>EXTERN "theendfont.raw",$2B500+$2760
>EXTERN "theendlogo.raw",$2B500
>EXTERN "toplogo1.raw",$49c00
>EXTERN "toplogo2.raw",$49c00+$1e00
>EXTERN "topshape1.raw",$50000
>EXTERN "topshape2.raw",$50000+$780
>EXTERN "toplogo1.colors",$5b000
>EXTERN "toplogo2.colors",$5b000+$20


mt_data:	EQU	$38000
sinustabel:	EQU	$30000

	ORG	$51000
	LOAD	$51000
start:
	MOVEM.L	D0/D1/D2/D3/D4/D5/D6/D7/A0/A1/A2/A3/A4/A5/A6,-(A7)
	MOVE.L	4,a6
	JSR	-132(a6)
	CLR.L	4
	MOVE.L	a7,olda7
	MOVE.L	#$30000,a7
	MOVE.L	#startsupervisor,$80
	TRAP	#0
startsupervisor:
	MOVE.L	a7,oldssp
	MOVE.L	#$2ff00,a7
	MOVE.W	#$2000,sr
	BSR.L	mt_init
	CLR.L	0
	MOVE.L	#$fffffffe,$5b442
	LEA	$dff000,a6
clearblitter:
	CLR.L	$dff040
	CLR.L	$dff044
	CLR.L	$dff048
	CLR.L	$dff04c
	CLR.L	$dff050
	CLR.L	$dff054
	CLR.L	$dff060
	CLR.L	$dff064
	CLR.L	$dff068
	CLR.L	$dff070
	CLR.W	$dff074
	MOVE.W	$1c(a6),d0
	OR.W	#$c000,d0
	BSET	#1,$bfe001
	MOVE.W	d0,oldintena
	MOVE.W	#$7fff,$9a(a6)
	MOVE.W	#$7fff,$9c(a6)
	MOVE.W	#$05ff,$96(a6)
	MOVE.L	$6c,oldinterrupt
	MOVE.L	$64,oldlev1
	MOVE.L	#lev3interrupt,$6c
	MOVE.L	#lev1int,$64
	MOVE.L	#logoscopper,$80(a6)
	MOVE.L	#$5b442,$84(a6)
	MOVE.W	d0,$88(a6)
startwaitras:
	CMP.B	#$38,$6(a6)
	BNE.S	startwaitras
	TST.B	$5(a6)
	BEQ.S	startwaitras
	MOVE.W	#$85f0,$96(a6)
	MOVE.W	#$c020,$9a(a6)
; demo korer herfra.
	BSR.L	introinit
	BSR.L	creditsinit
button2:
	CMP.B	#2,creditsmode
	BNE.S	button2
	BSR.L	greetingsinit
button0:
	BTST	#6,$bfe001
	BEQ.S	button3
	CMP.L	#greetingstextend,greetingstextpointer
	BNE.S	button0
button3:
	BSR.L	greetingsend
	BSR.L	wobbleinit
	TST.B	d7
	BNE.S	button4
button1:
	BTST	#6,$bfe001
	BNE.S	button1
	BSR.L	wobbleend
button4:
	MOVE.B	#$1,wobblefade2mode
	MOVE.W	#15,d0
	LEA	logoscopper+14,a0
wobbleend3:
	CLR.W	(a0)
	ADD.W	#4,a0
	DBRA	d0,wobbleend3
	BSR.L	theendinit

end:
	BRA.S	end
greetingsvektor:
;beregn roteringsframes
	LEA	$70000,a0
	MOVE.W	#255,d7
	LEA	$30000,a1
	LEA	greetingsangles,a4
	CLR.W	d2
greetingsvek5:
	AND.W	#$7fff,d3
	MOVE.W	0(a1,d2.W),d4
	SUB.W	#$8000,d4
	ASR.W	#8,d4
	ASR.W	#2,d4

	MOVE.W	d2,d3
	ADD.W	#$2000,d3
	AND.W	#$7fff,d3
	MOVE.W	0(a1,d3.W),d3
	SUB.W	#$8000,d3
	ASR.W	#8,d3
	ASR.W	#2,d3

	MOVE.W	#15,d6
greetingsvek6:
	MOVE.W	d6,d1
	LSL.W	#3,d1
	SUB.W	#60,d1
	MOVE.W	d1,d5		;-60 til +60

	MULS	d4,d1
	ASR.L	#5,d1	;y	;-60 til +60

	MULS	d3,d5
	ASR.L	#8,d5	;z	;-8 til +7

	ADD.W	#40,d5

	MOVE.L	#512,d0
	DIVS	d5,d0
	SUB.W	#10,d0
	MULU	#80,d0	
	ASR.W	#3,d1
	ADD.W	#8,d1
	MULU	#180,d1
	MOVE.W	d1,(a0)+
	MOVE.W	d0,(a0)+
	DBRA	d6,greetingsvek6
	ADD.W	(a4)+,d2
	AND.W	#$7fff,d2
	DBRA	d7,greetingsvek5
	MOVE.L	#$70780+2,a0
	MOVE.W	#$3100/4-1,d0
greetingsvek7:
	MOVE.W	#160,(a0)
	ADDQ.W	#4,a0
	DBRA	d0,greetingsvek7
	RTS
greetingsangles:
	BLK.W	32,$200
	BLK.W	192,0
	BLK.W	32,$200
greetingsinit:
	MOVE.L	#$5b442,$84(a6)
	MOVE.L	#nosubs,jumpsub+2
	MOVE.L	#$64000,a0
	MOVE.W	#$3fff,d0
greetingsinit13:
	CLR.L	(a0)+
	DBRA	d0,greetingsinit13
	BSR.L	greetingsvektor
	LEA	$74000,a1
	LEA	farver,a2
	MOVE.W	#15,d7
	MOVE.W	#89,d5
greetingsinit2:
	MOVE.L	(a2)+,(a1)+
	DBRA	d5,greetingsinit2
	CLR.W	d1
greetingsinit10:
	MOVE.W	#179,d6
greetingsinit11:
	MOVE.W	-360(a1),d0
	BSR.L	fade
	MOVE.W	d0,(a1)+
	DBRA	d6,greetingsinit11
	DBRA	d7,greetingsinit10
	LEA	$29c00,a0
	LEA	$68000,a1
	MOVE.W	#$59f,d0
greetingsinit9:
	MOVE.L	(a0)+,(a1)+
	DBRA	d0,greetingsinit9
	LEA	greetingscopper,a0
	LEA	$5b446,a1
greetingsinit1:
	MOVE.L	(a0)+,(a1)+
	CMP.L	#greetingscopper2,a0
	BNE.S	greetingsinit1
	MOVE.L	#$5931fffe,d1
	MOVE.W	#16*5-1,d0
greetingsinit3:
	MOVE.L	d1,(a1)+
	ADD.L	#$01000000,d1
	MOVE.L	#$00e2ed00,(a1)+
	MOVE.L	#$00e6ed00,(a1)+
	MOVE.L	#$00eaed00,(a1)+
	MOVE.W	#40,d7
greetingsinit4:
	MOVE.L	#$01020088,(a1)+
	DBRA	d7,greetingsinit4
	DBRA	d0,greetingsinit3
	LEA	greetingscopper2,a0
greetingsinit12:
	MOVE.L	(a0)+,d0
	MOVE.L	d0,(a1)+
	CMP.L	#$fffffffe,d0
	BNE.S	greetingsinit12
	SUB.W	#4,a1
	MOVE.W	#114,d7
	MOVE.L	#$ba2dfffe,(a1)+
	MOVE.L	#$01800000,(a1)+
	MOVE.L	#$bb2dfffe,(a1)+
	MOVE.L	#$01800000,(a1)+
	MOVE.L	#$bc2dfffe,(a1)+
	MOVE.L	#$01800000,(a1)+
	MOVE.L	#$bd2dfffe,(a1)+
	MOVE.L	#$01800000,(a1)+
	MOVE.L	#$be2dfffe,(a1)+
	MOVE.L	#$01800000,(a1)+
	MOVE.L	#$bf2dfffe,(a1)+
	MOVE.L	#$01800000,(a1)+
	MOVE.L	#$c02dfffe,(a1)+
	MOVE.L	#$01800000,(a1)+
	MOVE.L	#$c12dfffe,(a1)+
	MOVE.L	#$01800000,(a1)+
	MOVE.L	#$c22dfffe,d2
greetingsinit5:
	MOVE.L	d2,(a1)+
	ADD.L	#$01000000,d2
	MOVE.W	#50,d6
greetingsinit6:
	MOVE.L	#$01800000,(a1)+
	DBRA	d6,greetingsinit6
	DBRA	d7,greetingsinit5
	MOVE.L	#$01800000,(a1)+
	MOVE.L	#$fffffffe,(a1)
	MOVE.W	#130,d6
greetingsinit7:
	BSR.L	twiggle1
	DBRA	d6,greetingsinit7
	LEA	$6c000,a0
	MOVE.W	#$b49,d0
greetingsinit8:
	CLR.L	(a0)+
	DBRA	d0,greetingsinit8
	MOVE.L	#$5b446,$84(a6)
	MOVE.L	#greetings,jumpsub+2
	RTS
greetingsend:
	MOVE.B	#1,twigglefademode
	MOVE.W	#$10,framecountdown
	MOVE.B	#1,wobblefade2mode
greetingsend2:
	TST.W	framecountdown
	BNE.S	greetingsend2
	RTS
greetings:
	BSR.S	wobblefade2
	BSR.L	twiggle1
	BSR.L	twiggle2
	BSR.S	twigglefade
	BSR.L	greetingssetlines
	BSR.L	greetingssettext
	RTS
wobblefade2:
	TST.B	wobblefade2mode
	BEQ.S	wobblefade2end
	MOVE.W	#6,d7
	LEA	$5b446+$1e,a0
	CLR.W	d1
wobblefade3:
	MOVE.W	(a0),d0
	BSR.L	fade
	MOVE.W	d0,(a0)
	ADD.W	#4,a0
	DBRA	d7,wobblefade3
wobblefade2end:
	RTS
wobblefade2mode:
	DC.B	0
	EVEN
twigglefadepause:
	DC.W	$110
twigglefademode:
	DC.B	0
	EVEN
twigglefade:
	TST.W	twigglefadepause
	BNE.S	twigglefadewait
	TST.B	twigglefademode
	BNE.S	twigglefadeout
	CMP.L	#$74000,twigglepointer+2
	BEQ.S	twigglefadeend
	SUB.W	#360,twigglepointer+4
twigglefadeend:
	RTS
twigglefadeout:
	MOVE.W	#6,d7
	LEA	$5ecd0,a0
	CLR.W	d1
twigglefadeout1:
	MOVE.W	(a0),d0
	BSR.L	wobblefadesimple
	MOVE.W	d0,(a0)
	ADD.W	#8,a0
	DBRA	d7,twigglefadeout1
	CMP.L	#$75518,twigglepointer+2
	BEQ.S	twigglefadeend2
	ADD.W	#360,twigglepointer+4
twigglefadeend2:
	RTS
twigglebar:
	DC.W	$444,$888,$ccc,$fff,$ccc,$888,$444
twigglefadewait:
	SUB.W	#1,twigglefadepause
	CMP.W	#$80,twigglefadepause
	BPL.S	twigglefadewait2
	MOVE.W	#6,d7
	LEA	$5ecd0,a0
	LEA	twigglebar,a1
twigglefadein:
	MOVE.W	(a0),d0
	MOVE.W	(a1)+,d1
	BSR.L	wobblefadesimple
	MOVE.W	d0,(a0)
	ADD.W	#8,a0
	DBRA	d7,twigglefadein
twigglefadewait2:
	RTS
add1:
	dc.l	sinus
add2:
	dc.w 	$fe
add3:
	dc.w	$4
add4:
	dc.w	$4
twiggle1:
lea	xsin,a3
lea	$5eccb+64,a2
move.w	#114,d7
move.w	add2,d0
add.w	add3,d0
move.w	d0,add2
and.w	#$7e,d0		;max 512
	MOVE.W	#$d0,d4
again2:
	MOVE.B	$d0(a2),(a2)
	ADD.W	d4,a2
	DBRA	d7,again2
move.w	$00(a3,d0.w),d2
and.B	#$fe,d2		;ulige
add.b	#17,d2
move.b	d2,(a2)
	RTS
twiggle2:
	MOVE.W	#114*64+1,d3
move.l	add1,a3
move.l	#$5ecd0+64,d6
move.w	#50,d7
move.w	#0000,$64(a6)
move.w	#$ce,$66(a6)
move.L	#$09f00000,$40(a6)
again:
move.w	(a3),d4
addq.w	#4,a3
twigglepointer:
move.l	#$753b0+360,d5
add.w	d4,d5
move.l	d5,$50(a6)
move.l	d6,$54(a6)
move.w	d3,$58(a6)
addq.w	#4,d6
dbf	d7,again
addQ.l	#2,add1
cmp.l	#sinusend,add1
blt.s	hi
move.l	#sinus,add1
hi:
rts

farver:
dc.w 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,14,13,12,11,10,9,8,7,6,5,4,3,2,1,0
dc.w $10,$20,$30,$40,$50,$60,$70,$80,$90,$a0,$b0,$c0,$d0,$e0,$f0
dc.w $e0,$d0,$c0,$b0,$a0,$90,$80,$70,$60,$50,$40,$30,$20,$10,$00
dc.w $100,$200,$300,$400,$500,$600,$700,$800,$900,$a00,$b00,$c00,$d00,
dc.w $e00,$f00
dc.w $e00,$d00,$c00,$b00,$a00,$900,$800,$700,$600,$500,$400,$300,$200,
dc.w $100,$000
dc.w $101,$202,$303,$404,$505,$606,$707,$808,$909,$a0a,$b0b,$c0c,$d0d
dc.w $e0e,$f0f,$e0e,$d0d,$c0c,$b0b,$a0a,$909,$808,$707,$606,$505,$404
dc.w $303,$202,$101,$000
dc.w 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,14,13,12,11,10,9,8,7,6,5,4,3,2,1,0
dc.w $10,$20,$30,$40,$50,$60,$70,$80,$90,$a0,$b0,$c0,$d0,$e0,$f0
dc.w $e0,$d0,$c0,$b0,$a0,$90,$80,$70,$60,$50,$40,$30,$20,$10,$00
even
sinus:
dc.w  50
dc.w  52
dc.w  54
dc.w  57
dc.w  59
dc.w  62
dc.w  64
dc.w  66
dc.w  69
dc.w  71
dc.w  73
dc.w  75
dc.w  77
dc.w  79
dc.w  81
dc.w  83
dc.w  85
dc.w  87
dc.w  88
dc.w  90
dc.w  91
dc.w  92
dc.w  94
dc.w  95
dc.w  96
dc.w  97
dc.w  97
dc.w  98
dc.w  99
dc.w  99
dc.w  99
dc.w  99
dc.w  100
dc.w  99
dc.w  99
dc.w  99
dc.w  99
dc.w  98
dc.w  97
dc.w  97
dc.w  96
dc.w  95
dc.w  94
dc.w  92
dc.w  91
dc.w  90
dc.w  88
dc.w  87
dc.w  85
dc.w  83
dc.w  81
dc.w  79
dc.w  77
dc.w  75
dc.w  73
dc.w  71
dc.w  69
dc.w  66
dc.w  64
dc.w  62
dc.w  59
dc.w  57
dc.w  54
dc.w  52
dc.w  49
dc.w  47
dc.w  45
dc.w  42
dc.w  40
dc.w  37
dc.w  35
dc.w  33
dc.w  30
dc.w  28
dc.w  26
dc.w  24
dc.w  22
dc.w  20
dc.w  18
dc.w  16
dc.w  14
dc.w  12
dc.w  11
dc.w  9
dc.w  8
dc.w  7
dc.w  5
dc.w  4
dc.w  3
dc.w  2
dc.w  2
dc.w  1
dc.w  0
dc.w  0
dc.w  0
dc.w  0
dc.w  0
dc.w  0
dc.w  0
dc.w  0
dc.w  0
dc.w  1
dc.w  2
dc.w  2
dc.w  3
dc.w  4
dc.w  5
dc.w  7
dc.w  8
dc.w  9
dc.w  11
dc.w  12
dc.w  14
dc.w  16
dc.w  18
dc.w  20
dc.w  22
dc.w  24
dc.w  26
dc.w  28
dc.w  30
dc.w  33
dc.w  35
dc.w  37
dc.w  40
dc.w  42
dc.w  45
dc.w  47
sinusend:
dc.w  50
dc.w  52
dc.w  54
dc.w  57
dc.w  59
dc.w  62
dc.w  64
dc.w  66
dc.w  69
dc.w  71
dc.w  73
dc.w  75
dc.w  77
dc.w  79
dc.w  81
dc.w  83
dc.w  85
dc.w  87
dc.w  88
dc.w  90
dc.w  91
dc.w  92
dc.w  94
dc.w  95
dc.w  96
dc.w  97
dc.w  97
dc.w  98
dc.w  99
dc.w  99
dc.w  99
dc.w  99
dc.w  100
dc.w  99
dc.w  99
dc.w  99
dc.w  99
dc.w  98
dc.w  97
dc.w  97
dc.w  96
dc.w  95
dc.w  94
dc.w  92
dc.w  91
dc.w  90
dc.w  88
dc.w  87
dc.w  85
dc.w  83
dc.w  81
dc.w  79
dc.w  77
dc.w  75
dc.w  73
dc.w  71
dc.w  69
dc.w  66
dc.w  64
dc.w  62
dc.w  59
dc.w  57
dc.w  54
dc.w  52
dc.w  49
dc.w  47
dc.w  45
dc.w  42
dc.w  40
dc.w  37
dc.w  35
dc.w  33
dc.w  30
dc.w  28
dc.w  26
dc.w  24
dc.w  22
dc.w  20
dc.w  18
dc.w  16
dc.w  14
dc.w  12
dc.w  11
dc.w  9
dc.w  8
dc.w  7
dc.w  5
dc.w  4
dc.w  3
dc.w  2
dc.w  2
dc.w  1
dc.w  0
dc.w  0
dc.w  0
dc.w  0
dc.w  0
dc.w  0
dc.w  0
dc.w  0
dc.w  0
dc.w  1
dc.w  2
dc.w  2
dc.w  3
dc.w  4
dc.w  5
dc.w  7
dc.w  8
dc.w  9
dc.w  11
dc.w  12
dc.w  14
dc.w  16
dc.w  18
dc.w  20
dc.w  22
dc.w  24
dc.w  26
dc.w  28
dc.w  30
dc.w  33
dc.w  35
dc.w  37
dc.w  40
dc.w  42
dc.w  45
dc.w  47
dc.w  50
dc.w  52
dc.w  54
dc.w  57
dc.w  59
dc.w  62
dc.w  64
dc.w  66
dc.w  69
dc.w  71
dc.w  73
dc.w  75
dc.w  77
dc.w  79
dc.w  81
dc.w  83
dc.w  85
dc.w  87
dc.w  88
dc.w  90
dc.w  91
dc.w  92
dc.w  94
dc.w  95
dc.w  96
dc.w  97
dc.w  97
dc.w  98
dc.w  99
dc.w  99
dc.w  99
dc.w  99
dc.w  100
dc.w  99
dc.w  99
dc.w  99
dc.w  99
dc.w  98
dc.w  97
dc.w  97
dc.w  96
dc.w  95
dc.w  94
dc.w  92
dc.w  91
dc.w  90
dc.w  88
dc.w  87
dc.w  85
dc.w  83
dc.w  81
dc.w  79
dc.w  77
dc.w  75
dc.w  73
dc.w  71
dc.w  69
dc.w  66
dc.w  64
dc.w  62
dc.w  59
dc.w  57
dc.w  54
dc.w  52
dc.w  49
dc.w  47
dc.w  45
dc.w  42
dc.w  40
dc.w  37
dc.w  35
dc.w  33
dc.w  30
dc.w  28
dc.w  26
dc.w  24
dc.w  22
dc.w  20
dc.w  18
dc.w  16
dc.w  14
dc.w  12
dc.w  11
dc.w  9
dc.w  8
dc.w  7
dc.w  5
dc.w  4
dc.w  3
dc.w  2
dc.w  2
dc.w  1
dc.w  0
dc.w  0
dc.w  0
dc.w  0
dc.w  0
dc.w  0
dc.w  0
dc.w  0
dc.w  0
dc.w  1
dc.w  2
dc.w  2
dc.w  3
dc.w  4
dc.w  5
dc.w  7
dc.w  8
dc.w  9
dc.w  11
dc.w  12
dc.w  14
dc.w  16
dc.w  18
dc.w  20
dc.w  22
dc.w  24
dc.w  26
dc.w  28
dc.w  30
dc.w  33
dc.w  35
dc.w  37
dc.w  40
dc.w  42
dc.w  45
dc.w  47
dc.w  50
dc.w  52
dc.w  54
dc.w  57
dc.w  59
dc.w  62
dc.w  64
dc.w  66
dc.w  69
dc.w  71
dc.w  73
dc.w  75
dc.w  77
dc.w  79
dc.w  81
dc.w  83
dc.w  85
dc.w  87
dc.w  88
dc.w  90
dc.w  91
dc.w  92
dc.w  94
dc.w  95
dc.w  96
dc.w  97
dc.w  97
dc.w  98
dc.w  99
dc.w  99
dc.w  99
dc.w  99
dc.w  100
dc.w  99
dc.w  99
dc.w  99
dc.w  99
dc.w  98
dc.w  97
dc.w  97
dc.w  96
dc.w  95
dc.w  94
dc.w  92
dc.w  91
dc.w  90
dc.w  88
dc.w  87
dc.w  85
dc.w  83
dc.w  81
dc.w  79
dc.w  77
dc.w  75
dc.w  73
dc.w  71
dc.w  69
dc.w  66
dc.w  64
dc.w  62
dc.w  59
dc.w  57
dc.w  54
dc.w  52
dc.w  49
dc.w  47
dc.w  45
dc.w  42
dc.w  40
dc.w  37
dc.w  35
dc.w  33
dc.w  30
dc.w  28
dc.w  26
dc.w  24
dc.w  22
dc.w  20
dc.w  18
dc.w  16
dc.w  14
dc.w  12
dc.w  11
dc.w  9
dc.w  8
dc.w  7
dc.w  5
dc.w  4
dc.w  3
dc.w  2
dc.w  2
dc.w  1
dc.w  0
dc.w  0
dc.w  0
dc.w  0
dc.w  0
dc.w  0
dc.w  0
dc.w  0
dc.w  0
dc.w  1
dc.w  2
dc.w  2
dc.w  3
dc.w  4
dc.w  5
dc.w  7
dc.w  8
dc.w  9
dc.w  11
dc.w  12
dc.w  14
dc.w  16
dc.w  18
dc.w  20
dc.w  22
dc.w  24
dc.w  26
dc.w  28
dc.w  30
dc.w  33
dc.w  35
dc.w  37
dc.w  40
dc.w  42
dc.w  45
dc.w  47
even
xsin:
dc.w  30,29,29,29,28,28,27,26,25,24,23,22,20,19,17,16,14,13,12,10,9
dc.w  7,6,5,4,3,2,1,1,0,0,0,0,0,0,0,1,1,2,3,4,5,6,7,9,10,12,13,15,16
dc.w  17,19,20,22,23,24,25,26,27,28,28,29,29,29
xsinend:
greetingswavepause:
	DC.W	10
greetingssetlines:
	MOVE.L	#greetingsblitwaves,a4
	MOVE.L	#greetingscopper2+greetingscopperdiff+6+12,a0
	MOVE.W	#$c000+$780,d0
	MOVE.W	#4,d6
	ADD.W	#$40,greetingsrotatepointers+2
	AND.W	#$3fff,greetingsrotatepointers+2
	ADD.W	#$40,greetingsrotatepointers+6
	AND.W	#$3fff,greetingsrotatepointers+6
	ADD.W	#$40,greetingsrotatepointers+10
	AND.W	#$3fff,greetingsrotatepointers+10
	ADD.W	#$40,greetingsrotatepointers+14
	AND.W	#$3fff,greetingsrotatepointers+14
	ADD.W	#$40,greetingsrotatepointers+18
	AND.W	#$3fff,greetingsrotatepointers+18
	LEA	greetingsrotatepointers,a2
	MOVE.W	#40,d1
	MOVE.W	#40*64+1,d2
greetingssetlines2:
	MOVE.W	#15,d7
	MOVE.L	a0,a3
greetingssetlines3:
	MOVE.W	#$ed00,-12(a3)
	MOVE.W	#$ed00,-8(a3)
	MOVE.W	#$ed00,-4(a3)
	ADD.W	#180,a3
	DBRA	d7,greetingssetlines3
	MOVE.W	#15,d7
	MOVE.L	(a2)+,a3
greetingssetlines1:
	MOVE.W	(a3)+,d4
	MOVE.W	d0,-12(a0,d4.W)
	ADD.W	d1,d0
	MOVE.W	d0,-8(a0,d4.W)
	ADD.W	d1,d0
	MOVE.W	d0,-4(a0,d4.W)
	ADD.W	d1,d0
	MOVE.W	(a3)+,d5
	EXT.L	d4
	ADD.L	a0,d4
	MOVE.L	a4,a5
	ADD.W	d5,a5
greetingssetlines4:
	BTST	#14,$2(a6)
	BNE.S	greetingssetlines4
	MOVE.L	#$09f00000,$40(a6)
	MOVE.L	#$ffffffff,$44(a6)
	MOVE.L	#$00000002,$64(a6)
	MOVE.L	a5,$50(a6)
	MOVE.L	d4,$54(a6)
	MOVE.W	d2,$58(a6)
	DBRA	d7,greetingssetlines1
	ADD.W	#45*4*16,a0	;pr. copperlinie
	DBRA	d6,greetingssetlines2
	RTS


; blit en bolgelinie på skaermen
greetingsrotatepointers:
	DC.L	$72600+$1980	;25
	DC.L	$72600+$1340	;25
	DC.L	$72600+$0cc0	;25
	DC.L	$72600+$0680	;26
	DC.L	$72600+$0000	;26 til den overste
greetingsblitwaves:
	DC.W	$88,$88,$88,$88,$88,$88,$88,$88
	DC.W	$88,$88,$88,$88,$88,$88,$88,$88
	DC.W	$88,$88,$88,$88,$88,$88,$88,$88
	DC.W	$88,$88,$88,$88,$88,$88,$88,$88
	DC.W	$88,$88,$88,$88,$88,$88,$88,$88

	DC.W	$99,$99,$99,$99,$99,$99,$99,$99
	DC.W	$99,$99,$99,$99,$99,$88,$88,$88
	DC.W	$88,$88,$88,$88,$88,$88,$88,$88
	DC.W	$88,$88,$88,$77,$77,$77,$77,$77
	DC.W	$77,$77,$77,$77,$77,$77,$77,$77

	DC.W	$aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa
	DC.W	$99,$99,$99,$99,$99,$99,$99,$99
	DC.W	$88,$88,$88,$88,$88,$88,$88,$88
	DC.W	$77,$77,$77,$77,$77,$77,$77,$77
	DC.W	$66,$66,$66,$66,$66,$66,$66,$66

	DC.W	$bb,$bb,$bb,$bb,$bb,$bb,$aa,$aa
	DC.W	$aa,$aa,$aa,$aa,$99,$99,$99,$99
	DC.W	$99,$88,$88,$88,$88,$88,$88,$77
	DC.W	$77,$77,$77,$77,$66,$66,$66,$66
	DC.W	$66,$66,$55,$55,$55,$55,$55,$55

	DC.W	$cc,$cc,$cc,$cc,$cc,$bb,$bb,$bb
	DC.W	$bb,$aa,$aa,$aa,$aa,$aa,$99,$99
	DC.W	$99,$99,$88,$88,$88,$88,$77,$77
	DC.W	$77,$77,$66,$66,$66,$66,$55,$55
	DC.W	$55,$55,$55,$44,$44,$44,$44,$44

	DC.W	$dd,$dd,$dd,$dd,$cc,$cc,$cc,$bb
	DC.W	$bb,$bb,$bb,$aa,$aa,$aa,$99,$99
	DC.W	$99,$99,$88,$88,$88,$88,$77,$77
	DC.W	$77,$66,$66,$66,$66,$55,$55,$55
	DC.W	$55,$44,$44,$44,$33,$33,$33,$33

	DC.W	$ee,$ee,$ee,$dd,$dd,$dd,$cc,$cc
	DC.W	$cc,$bb,$bb,$bb,$aa,$aa,$aa,$aa
	DC.W	$99,$99,$99,$88,$88,$88,$77,$77
	DC.W	$77,$66,$66,$66,$55,$55,$55,$44
	DC.W	$44,$44,$33,$33,$33,$22,$22,$22

	DC.W	$ff,$ff,$ff,$ee,$ee,$dd,$dd,$dd
	DC.W	$cc,$cc,$cc,$bb,$bb,$aa,$aa,$aa
	DC.W	$99,$99,$99,$88,$88,$77,$77,$77
	DC.W	$66,$66,$66,$55,$55,$44,$44,$44
	DC.W	$33,$33,$33,$22,$22,$11,$11,$11
greetingscharpause:
	DC.B	0
	EVEN
greetingssettext:
	TST.B	greetingscharpause
	BNE.L	greetingssettext5
	MOVE.L	greetingstextpointer,a0
	ADDQ.W	#1,greetingstextpointer+2
	CLR.L	d0
	MOVE.B	(a0),d0
	LEA	greetingsfonttable,a0
	MOVE.B	0(a0,d0.W),d0
;text convert
	DIVU	#20,d0
	MOVE.W	d0,d1
	MULU	#1920,d1
	ADD.L	#$68000,d1
	SWAP	d0
	ADD.B	d0,d0
	ADD.W	d0,d1
	MOVE.L	greetingscharpointer,a0
	ADDQ.B	#2,greetingscharpointer+3
greetingssettext2:
	BTST	#14,$2(a6)
	BNE.S	greetingssettext2
	MOVE.L	#$09f00000,$40(a6)
	MOVE.L	#$ffffffff,$44(a6)
	MOVE.L	#$00260026,$64(a6)
	MOVE.L	d1,$50(a6)
	MOVE.L	a0,$54(a6)
	MOVE.W	#16*3*64+1,$58(a6)
	CMP.L	#$6c000+38,a0
	BNE.L	greetingssettextend
	MOVE.B	#1,greetingscharpause
	CLR.B	greetingscharpointer+3
greetingssettext5:
	MOVE.L	greetingslinepointer,d0
	SUB.L	#$6c780,d0
	DIVU	#$780/4,d0
	MOVE.L	#greetingsrotatepointers,a0
	ADD.W	d0,a0
	CMP.L	#$70400,(a0)
	BEQ.S	greetingssettext6
	RTS
greetingssettext6:
	MOVE.L	greetingslinepointer,a0
	ADD.W	#$780,greetingslinepointer+2
	MOVE.B	#0,greetingscharpause
	CMP.L	#$780*6+$6c000,greetingslinepointer
	BNE.S	greetingssettext3
	MOVE.L	#$6c780,greetingslinepointer
greetingssettext3:
	BTST	#14,$dff002
	BNE.L	greetingssettext
	MOVE.L	#$00000000,$64(a6)
	MOVE.L	#$6c000,$50(a6)
	MOVE.L	a0,$54(a6)
	MOVE.W	#16*3*64+20,$58(a6)
greetingssettextend:
	RTS
greetingslinepointer:
	DC.L	$6c780
greetingscharpointer:
	DC.L	$6c000
greetingstextpointer:
	DC.L	greetingstext
greetingsfonttable:
	DC.B	0,0,0,0,0,0,0,0
	DC.B	0,0,0,0,0,0,0,0

	DC.B	0,0,0,0,0,0,0,0
	DC.B	0,0,0,0,0,0,0,0

	DC.B	33,26,0,0,0,0,0,0
	DC.B	31,32,0,0,29,30,28,0

	DC.B	34,35,36,37,38,39,40,41
	DC.B	42,43,0,0,0,0,0,27

	DC.B	0,0,0,0,0,0,0,0
	DC.B	0,0,0,0,0,0,0,0

	DC.B	0,0,0,0,0,0,0,0
	DC.B	0,0,0,0,0,0,0,0

	DC.B	0,0,1,2,3,4,5,6
	DC.B	7,8,9,10,11,12,13,14

	DC.B	15,16,17,18,19,20,21,22
	DC.B	23,24,25,0,0,0,0,0

	EVEN
greetingstext:
	DC.B	'                    '
	DC.B	'     hi there!!     '
	DC.B	'                    '
	DC.B	'its greetings time!!'
	DC.B	'                    '

	DC.B	'                    '
	DC.B	'                    '
	DC.B	'                    '
	DC.B	'                    '
	DC.B	'                    '

	DC.B	'     greetings      '
	DC.B	'                    '
	DC.B	'    in a-z order    '
	DC.B	'                    '
	DC.B	' are flying out to  '

DC.B	"      abandon       ";;; hojre mellemrum storst
dc.b	"     accession      "
dc.b	"    accumulators    "
dc.b	"    acidforce uk    "
dc.b	"       active       "
DC.B	"        acu         "
DC.B	"       adept        "
DC.B    "      alcatraz      "
dc.b	"       alive        "
DC.B	"    alpha flight    "
DC.B	"       amaze        "
DC.B	"      anthrox       "
DC.B	"       aofcf        "
DC.B	"       arcane       "
DC.B	"       armada       "
DC.B	"       aurora       "
DC.B	"      bad news      "
DC.B	"       beast        "
DC.B	"  blood and mylene  "
dc.b	"       bounty       "
DC.B	"     brainstorm     "
DC.B	"        bug         "
DC.B	"      cascade       "
dc.b	"       celtic       "
dc.b	"       chrome       "
DC.B	"       clones       "
DC.B	"      complex       "
DC.B	"      critters      "
dc.b	"     crusaders      "
DC.B	"   cryptoburners    "
DC.B	"       cytax        "
DC.B	" dark co-operation  "
DC.B	"   dictators fin.   "
DC.B	"       d-mob        "
DC.B	"      dragons       "
DC.B	"     dual crew      "
DC.B	"   disaster area    "
DC.B	"        doom        "
dc.b   "       defjam       "
DC.B	"      excel uk      "
DC.B	"       effex        "
DC.B	"     evil arts      "
dc.b	"      ecstasy       "
DC.B	"   escape finland   "
DC.B	"       exodus       "
DC.B	"       energy       "
dc.b	"      excel uk      "
dc.b	"        fab         "
dc.b	"  flash production  "
DC.B	"      fraxion       "
dc.b	"       g.o.d        "
dc.b	"      horizon       "
dc.b	"      immortal      "
DC.B	"         it         "
DC.B	"        iris        "
dc.b	"      illusion      "
DC.B	"      imp-666       "
DC.B	"   justice europe   "
dc.b	"      kefrens       "
DC.B	"      level 4       "
dc.b	"       legion       "
dc.b	"      miracle       "
DC.B	"       mirage       "
DC.B	"    mindkillers     "
dc.b	"      megadeth      "
dc.b	" nukebusters of acu "
DC.B	"      network       "
DC.B	"   neutron dance    "
DC.B	"      new wave      "
dc.b	"     no limits      "
dc.b	"      nithril       "
dc.b	"  piranhas and ibb  "
dc.b	"    prime evil      "
dc.b	"      paradox       "
DC.B	"      phoenix       "
DC.B	"        pmc         "
dc.b	"   pimplesqueezer   "
DC.B	"       prong        "
dc.b	"       prism        "
DC.B	"     paranoimia     "
DC.B	"      prologic      "
DC.B	"      q-branch      "
dc.b	"        rare        "
dc.b	"        raz         "
dc.b	"  red sector inc.   "
DC.B	"    rigor mortis    "
DC.B	"       savage       "
dc.b	"  share and enjoy   "
dc.b	"    spreadpoint     "
DC.B	"       static       "
DC.B	"    static bytes    "
dc.b	"       subway       "
DC.B	"   sun connection   "
dc.b	"      supplex       "
DC.B	"      system 5      "
DC.B	"     the force      "
DC.B	"       taxon        "
dc.b  	"the hacking relation"
DC.B	"      the link      "
DC.B	"     the lunacy     "
dc.b 	"   the magic arts   "
dc.b	"the special brothers"
DC.B	"    the silents     "
dc.b	"      theatre       "
DC.B	"      triangle      "
dc.b	"      tristar       "
DC.B	"      unicorn       "
DC.B	"       unique       "
dc.b	"   united forces    "
DC.B	"       vision       "
dc.b	"   vision factory   "
DC.B	" vision one of afl  "
dc.b	"     warfalcons     "
DC.B	"      warriors      "
DC.B	'                    '
DC.B	"       zenith       "
dc.b	" zike and conqueror "
DC.B	"    zombie boys     "
DC.B	'                    '

DC.B	'                    '
DC.B	'if we have forgotten'
DC.B	' anyone, please let '
DC.B	'   us know soon.    '
DC.B	'                    '

DC.B	'                    '
DC.B	'                    '
DC.B	'                    '
DC.B	'                    '
greetingstextend:
greetingscopper:
greetingscopperdiff=	$5b446-greetingscopper
	DC.L	$00902cd1

	DC.L	$01000200
	DC.L	$01080050
	DC.L	$010A0050
	DC.L	$00E00006
	DC.L	$00E40006
	DC.L	$00E80006
	DC.L	$01820fff
	DC.L	$01840bbd
	DC.L	$0186088b
	DC.L	$01880659
	DC.L	$018a0438
	DC.L	$018c0216
	DC.L	$018e0104
	DC.L	$5901FFFE
	DC.L	$01003200
greetingscopper2:
	DC.L	$01000200
	DC.L	$FFFFFFFE
introinit:
	MOVE.L	#$5b442,$84(a6)
	MOVE.L	#nosubs,jumpsub+2
	LEA	introsizestarttable,a0
	CLR.W	d0
	MOVE.L	#$28000,a1
introinit1:
	MOVE.W	(a0)+,d7
	LSL.W	#2,d7
introinit4:
	MOVE.B	d0,(a1)+
	DBRA	d7,introinit4
	ADDQ.W	#2,d0
	CMP.W	#32,d0
	BMI.S	introinit1
	LEA	$70000,a0
	MOVE.W	#$1400,d0
introinit2:
	CLR.L	(a0)+
	DBRA	d0,introinit2
	LEA	$76774,a0
	MOVE.W	#6,d6
introinit6:
	MOVE.W	#$fff,(a0)+
	DBRA	d6,introinit6
	MOVE.W	#14,d7
introinit3:
	MOVE.W	#6,d6
	LEA	introfontcolors,a1
introinit5:
	MOVE.W	(a1)+,d1
	MOVE.W	-14(a0),d0
	BSR.L	fade
	MOVE.W	d0,(a0)+
	DBRA	d6,introinit5
	DBRA	d7,introinit3
	MOVE.W	#15*7-1,d7
	CLR.W	d1
introinit7:
	MOVE.W	-14(a0),d0
	BSR.L	fade
	MOVE.W	d0,(a0)+
	DBRA	d7,introinit7
	MOVE.W	#13,d7
	LEA	flagcolors+2,a1
	CLR.W	d1
introinit8:
	MOVE.W	(a1),d0
	ADDQ.W	#4,a1
	BSR.L	fade
	MOVE.W	d0,(a0)+
	DBRA	d7,introinit8
	MOVE.W	#15*14-1,d7
introinit9:
	MOVE.W	-28(a0),d0
	BSR.L	fade
	MOVE.W	d0,(a0)+
	DBRA	d7,introinit9
	MOVE.L	#introcopper,$84(a6)
	MOVE.L	#intro,jumpsub+2
	MOVE.L	#$75000,a1
	BSR.L	introsettext
	MOVE.L	#$75bba,a1
	BSR.L	introsettext
	MOVE.W	#150,framecountdown
introinit10:
	TST.W	framecountdown
	BNE.S	introinit10
	ADDQ.W	#1,intromode
introinit11:
	CMP.W	#2,intromode
	BNE.S	introinit11
	MOVE.L	#$75000,a1
	BSR.L	introsettext
	MOVE.L	#$75bba,a1
	BSR.L	introsettext
	ADDQ.W	#1,intromode
introinit12:
	CMP.W	#4,intromode
	BNE.S	introinit12
	MOVE.L	#$75000,a1
	BSR.L	introsettext
	MOVE.L	#$75bba,a1
	BSR.L	introsettext
	SUBQ.W	#1,intromode
	MOVE.W	#6,introcopper2pointers+2
	MOVE.W	#6,introcopper2pointers+6
	MOVE.W	#$2e8e,introcopper2pointers+18
	MOVE.W	#$2e8e+$1680,introcopper2pointers+22
	MOVE.W	#$2e8e+$1680+$1680,introcopper2pointers+26
	MOVE.W	#$2e8e+$1680+$1680+$1680,introcopper2pointers+30
	MOVE.B	#$9a,introcopper2bplon-4
	MOVE.L	#dimensioncolors,introrebelscolorspointer+2
	MOVE.B	#$9a,introcopper2bplon+4
	ADD.B	#$20,introcopper2bplon+16
introinit14:
	CMP.W	#33,introfadecounter2
	BNE.S	introinit14
	MOVE.B	#$42,introcopper2bplon+10
introinit13:
	CMP.W	#4,intromode
	BNE.S	introinit13
	RTS
introsizestarttable:
	DC.W	150			;16
	DC.W	16,20,24,28,32,36,40,45	;8
	DC.W	52,65,90,120		;4
	DC.W	171,341			;2
	DC.W	512			;1
intromode:
	DC.W	0
intro:
	CMP.W	#2,intromode
	BPL.S	intro2
	BSR.L	introflagshift
	BSR.L	introflagtextfade
	BSR.L	introclearflag
	BSR.L	introcalcflag
	BSR.L	introsetflag
	RTS
;brugt $70000-$76774
;$76774- $76926 fade in/out text
;$76926- $76aca fade out flag
introend:
	RTS

intro2:		;efter flag
	MOVE.L	#introcopper2,$84(a6)
	CMP.W	#3,intromode
	BNE.S	introend
	BSR.S	intro2fade
	RTS
intro2fade:
	ADD.W	#1,introfadecounter2
	CMP.W	#17,introfadecounter2
	BPL.S	intro2fade2
	MOVE.W	introfadecounter2,d0
	MOVE.L	#$76774-14,a0
	MULU	#14,d0
	ADD.W	d0,a0
	LEA	introcolors3+2,a1
	MOVE.W	#6,d0
intro2fade1:
	MOVE.W	(a0)+,(a1)
	ADDQ.W	#4,a1
	DBRA	d0,intro2fade1
	RTS
intro2fade2:
	CMP.W	#50,introfadecounter2
	BPL.S	intro2fade4
	CMP.W	#33,introfadecounter2
	BEQ.S	intro2fade3
	BMI.L	intro2fadeend

	MOVE.W	#14,d7
	LEA	introrebelscolors+2,a0
introrebelscolorspointer:
	LEA	rebelscolortab,a1
intro2fade5:
	MOVE.W	(a1)+,d1
	MOVE.W	(a0),d0
	BSR.L	fade
	MOVE.W	d0,(a0)
	ADDQ.W	#4,a0
	DBRA	d7,intro2fade5
	RTS
intro2fade3:
	MOVE.W	#$4200,introcopper2bplon+2
	RTS
intro2fade4:
	CMP.W	#83,introfadecounter2
	BPL.S	intro2fade6
	CMP.W	#67,introfadecounter2
	BMI.L	intro2fadeend
	MOVE.W	introfadecounter2,d0
	MOVE.L	#$76774-[67*14],a0
	MULU	#14,d0
	ADD.W	d0,a0
	LEA	introcolors4+2,a1
	MOVE.W	#6,d0
intro2fade7:
	MOVE.W	(a0)+,(a1)
	ADDQ.W	#4,a1
	DBRA	d0,intro2fade7
	RTS
intro2fade6:
	CMP.W	#265,introfadecounter2
	BPL.S	intro2fade9
	CMP.W	#250,introfadecounter2
	BMI.S	intro2fadeend
	MOVE.W	introfadecounter2,d0
	MOVE.L	#$76854-[250*14],a0
	MULU	#14,d0
	ADD.W	d0,a0
	LEA	introcolors4+2,a1
	LEA	introcolors3+2,a2
	MOVE.W	#6,d0
intro2fade8:
	MOVE.W	(a0),(a1)
	MOVE.W	(a0)+,(a2)
	ADDQ.W	#4,a1
	ADDQ.W	#4,a2
	DBRA	d0,intro2fade8
	LEA	introrebelscolors+2,a0
	CLR.W	d1
	MOVE.W	#14,d7
intro2fade10:
	MOVE.W	(a0),d0
	BSR.L	fade
	MOVE.W	d0,(a0)
	ADDQ.W	#4,a0
	DBRA	d7,intro2fade10
	RTS
intro2fade9:
	CLR.W	introfadecounter2
	MOVE.W	#$0200,introcopper2bplon+2
	LEA	introrebelscolors+2,a0
	MOVE.W	#14,d0
intro2fade11:
	MOVE.W	#$fff,(a0)
	ADDQ.W	#$4,a0
	DBRA	d0,intro2fade11
	MOVE.W	#4,intromode
	RTS
intro2fadeend:
	RTS
introfadecounter:
	DC.W	0
introfadecounter2:
	DC.W	0
introflagtextfade:
	TST.W	intromode
	BEQ.L	introflagtextfadeend
	ADDQ.W	#1,introfadecounter
	CMP.W	#17,introfadecounter
	BPL.S	introflagtextfade2
;fade "from"
	MOVE.W	introfadecounter,d0
	MOVE.L	#$76774-14,a0
	MULU	#14,d0
	ADD.W	d0,a0
	LEA	introcolors1+2,a1
	MOVE.W	#6,d0
introfromfade1:
	MOVE.W	(a0)+,(a1)
	ADDQ.W	#4,a1
	DBRA	d0,introfromfade1
	RTS
introflagtextfade2:
	CMP.W	#50,introfadecounter
	BPL.S	introflagtextfade3
	CMP.W	#34,introfadecounter
	BMI.L	introflagtextfadeend
	MOVE.W	introfadecounter,d0
	MOVE.L	#$76774-[34*14],a0
	MULU	#14,d0
	ADD.W	d0,a0
	LEA	introcolors2+2,a1
	MOVE.W	#6,d0
introdenmarkfade:
	MOVE.W	(a0)+,(a1)
	ADDQ.W	#4,a1
	DBRA	d0,introdenmarkfade
	RTS
introflagtextfade3:
	CMP.W	#249,introfadecounter
	BPL.S	introflagtextfade4
	CMP.W	#234,introfadecounter
	BMI.S	introflagtextfadeend
	MOVE.W	introfadecounter,d0
	MOVE.L	#$76854-[234*14],a0
	MULU	#14,d0
	ADD.W	d0,a0
	LEA	introcolors2+2,a1
	LEA	introcolors1+2,a2
	MOVE.W	#6,d0
introfromdkfadeout:
	MOVE.W	(a0),(a1)
	MOVE.W	(a0)+,(a2)
	ADDQ.W	#4,a1
	ADDQ.W	#4,a2
	DBRA	d0,introfromdkfadeout
	MOVE.W	#13,d7
	LEA	flagcolors+2,a0
	MOVE.L	#$76926-[234*28],a1
	MOVE.W	introfadecounter,d0
	MULU	#28,d0
	ADD.W	d0,a1
introflagfadeout:
	MOVE.W	(a1)+,(a0)
	ADD.W	#4,a0
	DBRA	d7,introflagfadeout
	RTS
introflagtextfade4:
	CMP.W	#250,introfadecounter
	BNE.S	introflagtextfadeend
	MOVE.W	#2,intromode
introflagtextfadeend:
	RTS
introsettext:
	MOVE.L	introtextpointer,a0
	MOVE.W	#9,d7
	TST.B	(a0)
	BNE.S	introsettext2
	ADD.W	#2,a1
	ADD.W	#1,a0
introsettext2:
	CLR.L	d0
	MOVE.B	(a0)+,d0
	CMP.B	#$20,d0
	BNE.S	introsettext4
	MOVE.B	#28,d0
	BRA.S	introsettext5
introsettext4:
	SUB.B	#$61,d0
introsettext5:
	LSL.W	#2,d0
	DIVU	#40,d0
	MOVE.W	d0,d1
	SWAP	d0
	MOVE.L	#$5cc46,d2
	ADD.W	d0,d2
	MULU	#40*25*3,d1
	ADD.W	d1,d2
introsettext3:
	BTST	#14,$2(a6)
	BNE.S	introsettext3
	MOVE.L	#$09f00000,$40(a6)
	MOVE.L	#$ffffffff,$44(a6)
	MOVE.L	#$00240024,$64(a6)
	MOVE.L	d2,$50(a6)
	MOVE.L	a1,$54(a6)
	MOVE.W	#25*3*64+2,$58(a6)
	ADDQ.W	#4,a1
	DBRA	d7,introsettext2
	MOVE.L	a0,introtextpointer
	RTS
introtextpointer:
	DC.L	introtext
introtext:
	DC.B	'   from   '
	DC.B	0,' denmark  '
	DC.B	0,' another  '
	DC.B	'production'
	DC.B	'its called'
	DC.B	'          '
	DC.B	0,' coding',$7c,'  '
	DC.B	0,'graphics',$7c,' '
	DC.B	'  music',$7c,'  '
introclearflag:
	BTST	#14,$2(a6)
	BNE.S	introclearflag
	MOVE.L	#$01000000,$40(a6)
	MOVE.L	introflagnew,d0
	ADD.W	#160,d0
	MOVE.L	d0,$54(a6)
	CLR.W	$66(a6)
	MOVE.W	#496*64+10,$58(a6)
	RTS
introflagshift:
	MOVE.W	introflagnew+2,d0
	MOVE.W	introflagold+2,introflagnew+2
	MOVE.W	d0,introflagold+2
	MOVE.W	d0,introflagpointers+2
	ADD.W	#$14,d0
	MOVE.W	d0,introflagpointers+6
	ADD.W	#$14,d0
	MOVE.W	d0,introflagpointers+10
	ADD.W	#$14,d0
	MOVE.W	d0,introflagpointers+14
	RTS
introsetflag:
	MOVE.W	#55,d7
	LEA	introflagxy,a3
	LEA	introflagcolors,a4
	LEA	introflagsizes,a5
	MOVE.L	#$5b446,d0
	MOVE.L	#$5b446,d1
	MOVE.W	d0,d6
introsetflag3:
	BTST	#14,$2(a6)
	BNE.S	introsetflag3
	MOVE.L	#$0010001c,$60(a6)
	MOVE.L	#$001c0010,$64(a6)
	MOVE.L	#$ffff0000,d3
introsetflag2:
;position
	MOVE.L	introflagnew,a0
	MOVE.W	(a3)+,d0
	MOVE.W	(a3)+,d4
	MOVE.W	d4,d5
	LSL.W	#6,d4
	LSL.W	#4,d5
	ADD.W	d4,d5
	MOVE.W	d0,d2
	LSR.W	#3,d0
	ADD.W	d0,d5
	ADD.W	d5,a0
	AND.W	#$f,d2
	ROR.W	#4,d2
	MOVE.L	d3,d5
	MOVE.W	#$0fca,d4
	ADD.W	d2,d4
	ROR.L	d2,d5
	MOVE.W	d6,d0
	ADD.B	(a5)+,d0
	MOVE.W	d0,d1
	TST.B	(a4)+
	BEQ.S	introsetflag4
	BCHG	#11,d0
introsetflag4:
	ADD.W	#$1000,d1
introsetflag6:
	BTST	#14,$2(a6)
	BNE.S	introsetflag6
	MOVE.W	d4,$40(a6)
	MOVE.W	d2,$42(a6)
	MOVE.L	d5,$44(a6)
	MOVE.L	a0,$48(a6)
	MOVE.L	d0,$4c(a6)
	MOVE.L	d1,$50(a6)
	MOVE.L	a0,$54(a6)
	MOVE.W	#16*4*64+2,$58(a6)
	DBRA	d7,introsetflag2
	RTS
introwavepointers:
	DC.W	0,$4000
introcalcflag:
	ADD.W	#200,introwavepointers
introcalcflag1:
	SUB.W	#264,introwavepointers+2
	LEA	$30000,a0
	MOVEM.W	introwavepointers,d0/d1

	AND.W	#$7fff,d0
	MOVE.W	0(a0,d0.W),d2
	SUB.W	#$8000,d2
	ASR.W	#8,d2
	MOVE.W	d2,introwavex
	SUB.W	#1000,d0
	AND.W	#$7fff,d0
	MOVE.W	0(a0,d0.W),d2
	SUB.W	#$8000,d2
	ASR.W	#8,d2
	MOVE.W	d2,introwavex+2
	SUB.W	#1000,d0
	AND.W	#$7fff,d0
	MOVE.W	0(a0,d0.W),d2
	SUB.W	#$8000,d2
	ASR.W	#8,d2
	MOVE.W	d2,introwavex+4
	SUB.W	#1000,d0
	AND.W	#$7fff,d0
	MOVE.W	0(a0,d0.W),d2
	SUB.W	#$8000,d2
	ASR.W	#8,d2
	MOVE.W	d2,introwavex+6
	SUB.W	#1000,d0
	AND.W	#$7fff,d0
	MOVE.W	0(a0,d0.W),d2
	SUB.W	#$8000,d2
	ASR.W	#8,d2
	MOVE.W	d2,introwavex+8
	SUB.W	#1000,d0
	AND.W	#$7fff,d0
	MOVE.W	0(a0,d0.W),d2
	SUB.W	#$8000,d2
	ASR.W	#8,d2
	MOVE.W	d2,introwavex+10
	SUB.W	#1000,d0
	AND.W	#$7fff,d0
	MOVE.W	0(a0,d0.W),d2
	SUB.W	#$8000,d2
	ASR.W	#8,d2
	MOVE.W	d2,introwavex+12
	SUB.W	#1000,d0
	AND.W	#$7fff,d0
	MOVE.W	0(a0,d0.W),d2
	SUB.W	#$8000,d2
	ASR.W	#8,d2
	MOVE.W	d2,introwavex+14


	AND.W	#$7fff,d1
	MOVE.W	0(a0,d1.W),d2
	SUB.W	#$8000,d2
	ASR.W	#8,d2
	ASR.W	#1,d2
	MOVE.W	d2,introwavey
	ADD.W	#600,d1
	AND.W	#$7fff,d1
	MOVE.W	0(a0,d1.W),d2
	SUB.W	#$8000,d2
	ASR.W	#8,d2
	ASR.W	#1,d2
	MOVE.W	d2,introwavey+2
	ADD.W	#600,d1
	AND.W	#$7fff,d1
	MOVE.W	0(a0,d1.W),d2
	SUB.W	#$8000,d2
	ASR.W	#8,d2
	ASR.W	#1,d2
	MOVE.W	d2,introwavey+4
	ADD.W	#600,d1
	AND.W	#$7fff,d1
	MOVE.W	0(a0,d1.W),d2
	SUB.W	#$8000,d2
	ASR.W	#8,d2
	ASR.W	#1,d2
	MOVE.W	d2,introwavey+6
	ADD.W	#600,d1
	AND.W	#$7fff,d1
	MOVE.W	0(a0,d1.W),d2
	SUB.W	#$8000,d2
	ASR.W	#8,d2
	ASR.W	#1,d2
	MOVE.W	d2,introwavey+8
	ADD.W	#600,d1
	AND.W	#$7fff,d1
	MOVE.W	0(a0,d1.W),d2
	SUB.W	#$8000,d2
	ASR.W	#8,d2
	ASR.W	#1,d2
	MOVE.W	d2,introwavey+10
	ADD.W	#600,d1
	AND.W	#$7fff,d1
	MOVE.W	0(a0,d1.W),d2
	SUB.W	#$8000,d2
	ASR.W	#8,d2
	ASR.W	#1,d2
	MOVE.W	d2,introwavey+12
	CMP.W	#640,introdistance
	BEQ.S	introcalcflag4
	SUB.W	#32,introdistance
introcalcflag4:
	MOVE.W	#55,d7
	LEA	introflagxy,a0
	LEA	introflagmask,a1
	LEA	introflagsizes,a5
	LEA	$28000,a4
	MOVE.W	#12,d2
	MOVE.W	introdistance,d3
	LEA	introwavex+6,a2
	LEA	introwavey+6,a3
	MOVE.W	#72,d5
	MOVE.W	#56,d6
introcalcflag2:
	MOVEM.W	(a1)+,d0/d1
	MOVE.W	d3,d4
	ADD.W	1(a2,d0.W),d4
	ADD.W	0(a3,d1.W),d4
	MOVE.B	0(a4,d4.W),(a5)+
	ASL.L	d2,d0
	ASL.L	d2,d1
	DIVS	d4,d0
	DIVS	d4,d1
	ADD.W	d5,d0
	ADD.W	d6,d1
	MOVE.W	d0,(a0)+
	MOVE.W	d1,(a0)+
	DBRA	d7,introcalcflag2
	RTS
introdistance:
	DC.W	4096
introwavex:
	BLK.W	8,0
introwavey:
	BLK.W	7,0
introflagsizes:
	BLK.W	56,0		;antal bytes, der skal laegges til bob-
				;pos
introflagcolors:
	DC.B	0,0,0,1,0,0,0,0
	DC.B	0,0,0,1,0,0,0,0
	DC.B	0,0,0,1,0,0,0,0
	DC.B	1,1,1,1,1,1,1,1
	DC.B	0,0,0,1,0,0,0,0
	DC.B	0,0,0,1,0,0,0,0
	DC.B	0,0,0,1,0,0,0,0
introflagxy:
	BLK.W	56*2,0
introflagmask:
	DC.W	-7,-6,-5,-6,-3,-6,-1,-6,1,-6,3,-6,5,-6,7,-6
	DC.W	-7,-4,-5,-4,-3,-4,-1,-4,1,-4,3,-4,5,-4,7,-4
	DC.W	-7,-2,-5,-2,-3,-2,-1,-2,1,-2,3,-2,5,-2,7,-2
	DC.W	-7,0,-5,0,-3,0,-1,0,1,0,3,0,5,0,7,0
	DC.W	-7,2,-5,2,-3,2,-1,2,1,2,3,2,5,2,7,2
	DC.W	-7,4,-5,4,-3,4,-1,4,1,4,3,4,5,4,7,4
	DC.W	-7,6,-5,6,-3,6,-1,6,1,6,3,6,5,6,7,6
introcopper2:
	DC.L	$00902CC1
	DC.L	$00E00007
	DC.L	$00E40007
	DC.L	$00E80007
	DC.L	$00E25000
	DC.L	$00E65028
	DC.L	$00EA5050
introcolors3:
	DC.L	$01820000
	DC.L	$01840000
	DC.L	$01860000
	DC.L	$01880000
	DC.L	$018a0000
	DC.L	$018c0000
	DC.L	$018e0000
	DC.L	$01080050
	DC.L	$010A0050
	DC.L	$5901FFFE
	DC.L	$01003200
	DC.L	$7201FFFE
	DC.L	$01000200
	DC.L	$01080000
	DC.L	$010A0000
introcopper2pointers:
	DC.L	$00E00005
	DC.L	$00E40005
	DC.L	$00E80006
	DC.L	$00EC0006
	DC.L	$00E2ef46+40
	DC.L	$00E6ff0e+40
	DC.L	$00EA0ed6+40
	DC.L	$00EE1e9e+40
introrebelscolors:
	DC.L	$01820fff
	DC.L	$01840fff
	DC.L	$01860fff
	DC.L	$01880fff
	DC.L	$018a0fff
	DC.L	$018c0fff
	DC.L	$018e0fff
	DC.L	$01900fff
	DC.L	$01920fff
	DC.L	$01940fff
	DC.L	$01960fff
	DC.L	$01980888
	DC.L	$019a0666
	DC.L	$019c0444
	DC.L	$019e0222
	DC.L	$9001FFFE
introcopper2bplon:
	DC.L	$01000200
	DC.L	$f501FFFE
	DC.L	$01000200
	DC.L	$ffe1FFFE
	DC.L	$0a01FFFE
	DC.L	$01000200
	DC.L	$01080050
	DC.L	$010A0050
	DC.L	$00920038
	DC.L	$009400D0
	DC.L	$00E00007
	DC.L	$00E40007
	DC.L	$00E80007
	DC.L	$00E25bba
	DC.L	$00E65be2
	DC.L	$00EA5c0a
introcolors4:
	DC.L	$01820000
	DC.L	$01840000
	DC.L	$01860000
	DC.L	$01880000
	DC.L	$018a0000
	DC.L	$018c0000
	DC.L	$018e0000
	DC.L	$1301FFFE
	DC.L	$01003200
	DC.L	$FFFFFFFE

introcopper:
	DC.L	$00902CC1
	DC.L	$00E00007
	DC.L	$00E40007
	DC.L	$00E80007
	DC.L	$00E25000
	DC.L	$00E65028
	DC.L	$00EA5050
introcolors1:
	DC.L	$01820000
	DC.L	$01840000
	DC.L	$01860000
	DC.L	$01880000
	DC.L	$018a0000
	DC.L	$018c0000
	DC.L	$018e0000
	DC.L	$01080050
	DC.L	$010A0050
	DC.L	$5901FFFE
	DC.L	$01003200
	DC.L	$7201FFFE
	DC.L	$01000200
	DC.L	$00E00007
	DC.L	$00E40007
	DC.L	$00E80007
	DC.L	$00EC0007
introflagpointers:
	DC.L	$00E22800
	DC.L	$00E62814
	DC.L	$00EA2828
	DC.L	$00EE003c
	DC.L	$00920060
	DC.L	$009400A8
	DC.L	$0108003c
	DC.L	$010A003c
	DC.L	$01800000
flagcolors:
	DC.L	$01820f44;$fff
	DC.L	$01840d44;$dbc
	DC.L	$01860b33;$b89
	DC.L	$01880933;$957
	DC.L	$018a0822;$835
	DC.L	$018c0622;$613
	DC.L	$018e0411;$402
	DC.L	$01920fff
	DC.L	$01940ddd
	DC.L	$01960bbb
	DC.L	$01980888
	DC.L	$019a0666
	DC.L	$019c0444
	DC.L	$019e0222
	DC.L	$01900000

	DC.L	$8301FFFE
	DC.L	$01004200
	DC.L	$ffe1FFFE
	DC.L	$0301FFFE
	DC.L	$01000200
	DC.L	$01080050
	DC.L	$010A0050
	DC.L	$00920038
	DC.L	$009400D0
	DC.L	$00E00007
	DC.L	$00E40007
	DC.L	$00E80007
	DC.L	$00E25bba
	DC.L	$00E65be2
	DC.L	$00EA5c0a
introcolors2:
	DC.L	$01820000
	DC.L	$01840000
	DC.L	$01860000
	DC.L	$01880000
	DC.L	$018a0000
	DC.L	$018c0000
	DC.L	$018e0000
	DC.L	$1301FFFE
	DC.L	$01003200
	DC.L	$FFFFFFFE
introflagold:
	DC.L	$70000
introflagnew:
	DC.L	$72800
wobbleinit:
	MOVE.L	#$5b442,$84(a6)
	MOVE.L	#nosubs,jumpsub+2
	MOVE.W	#7,d0
	LEA	logoscopper+14,a0
wobbleinit1:
	MOVE.W	#$5,(a0)
	ADD.W	#8,a0
	DBRA	d0,wobbleinit1
	MOVE.L	#wobblesprite1,d0
	MOVE.W	d0,logoscopper+18
	MOVE.L	#wobblesprite2,d0
	MOVE.W	d0,logoscopper+26
	MOVE.L	#wobblesprite3,d0
	MOVE.W	d0,logoscopper+34
	MOVE.L	#wobblesprite4,d0
	MOVE.W	d0,logoscopper+42
	MOVE.L	#wobblesprite5,d0
	MOVE.W	d0,logoscopper+50
	MOVE.L	#wobblesprite6,d0
	MOVE.W	d0,logoscopper+58
	MOVE.L	#wobblesprite7,d0
	MOVE.W	d0,logoscopper+66
	MOVE.L	#wobblesprite8,d0
	MOVE.W	d0,logoscopper+74
	CLR.B	mt_equaon
	LEA	wobblecopper,a0
	LEA	$5b446,a1
	LEA	$5ca00,a2
wobbleinit2:
	MOVE.L	(a0),(a1)+
	MOVE.L	(a0)+,(a2)+
	CMP.L	#wobblecopperend,a0
	BNE.S	wobbleinit2
	MOVE.W	#195,d7
	MOVE.L	#$61e1fffe,d0
wobbleinit3:
	MOVE.L	#$00e20000,(a1)+
	MOVE.L	#$00e60000,(a1)+
	MOVE.L	#$01020000,(a1)+
	MOVE.L	d0,(a1)+
	MOVE.L	#$00e20000,(a2)+
	MOVE.L	#$00e60000,(a2)+
	MOVE.L	#$01020000,(a2)+
	MOVE.L	d0,(a2)+
	ADD.L	#$01000000,d0
	DBRA	d7,wobbleinit3
	LEA	wobblecopperend,a0
wobbleinit8:
	MOVE.L	(a0)+,d0
	MOVE.L	d0,(a1)+
	MOVE.L	d0,(a2)+
	CMP.L	#$fffffffe,d0
	BNE.S	wobbleinit8
	LEA	$30000,a0
	LEA	$75000,a1
	MOVE.W	#$3fff,d7
wobbleinit4:
	MOVE.W	(a0)+,d0
	AND.L	#$ffff,d0
	DIVU	#885,d0
	MULU	#40,d0
	MOVE.W	d0,(a1)+
	DBRA	d7,wobbleinit4
	MOVE.W	#48,d7
	LEA	$60000,a0
	LEA	$30000,a1
	MOVE.W	#$0028,a2	;screen0
	MOVE.W	#$2828,a3	;screen1
wobbleinit5:
	MOVE.W	a2,d2
	EXG	a2,a3
	MOVE.W	#211,d6
	ADD.W	#334,wobbleinitoffsets2
	ADD.W	#668,wobbleinitoffsets2+2
	MOVE.L	wobbleinitoffsets2,wobbleinitoffsets
wobbleinit6:
	ADD.W	#100,wobbleinitoffsets
	ADD.W	#150,wobbleinitoffsets+2
	MOVEM.W	wobbleinitoffsets,d4/d5
	AND.W	#$7fff,d4
	AND.W	#$7fff,d5
	MOVE.W	0(a1,d4.W),d4
	MOVE.W	0(a1,d5.W),d5
	LSR.W	#8,d4
	LSR.W	#8,d5
	ADD.W	d5,d4
	LSR.W	#2,d4
	MOVE.W	d4,d5
	MOVE.B	d4,d0
	ADD.W	#2,d5
	AND.W	#$f,d0
	MOVE.B	d5,d1
	AND.B	#$f,d1
	LSL.B	#4,d1
	ADD.B	d1,d0
	LSR.W	#3,d4
	AND.B	#$fe,d4
	LSR.W	#3,d5
	AND.W	#$fe,d5
	MOVE.W	d2,d3
	ADD.W	d4,d3
	MOVE.W	d3,(a0)+
	ADD.W	#40,d2
	MOVE.W	d2,d3
	ADD.W	d5,d3
	MOVE.W	d3,(a0)+
	EOR.B	#$ff,d0
	MOVE.W	d0,(a0)+
	DBRA	d6,wobbleinit6
	DBRA	d7,wobbleinit5
wobbleinit7:
	TST.B	mt_pattpos+1
	BNE.S	wobbleinit7
	BTST	#6,$bfe001
	BEQ.S	wobbleinitend
	MOVE.L	#$5b446,$84(a6)
	MOVE.L	#wobble,jumpsub+2
	CLR.W	d7
wobbleinitend:
	RTS
wobbleend:
	MOVE.W	#$1,framecountdown
wobbleend1:
	TST.W	framecountdown
	BNE.S	wobbleend1
	CLR.W	wobblefadecol1+2
	CLR.W	wobblefadecol2+2
	CLR.W	wobblefadecol3+2
	CLR.W	wobblefadecol4+2
	CLR.W	wobblefadecol5+2
	CLR.W	wobblefadecol6+2
	MOVE.W	#$10,framecountdown
wobbleend2:
	TST.W	framecountdown
	BNE.S	wobbleend2
	RTS
wobble:
	BSR.L	wobblescroll
	BSR.L	wobblecoppershift
	BSR.L	wobbleclearscreen
	BSR.L	wobblecoppermake
	BSR.L	wobblesetscreen
	BSR.L	wobblefade
	RTS
wobblescrollcounter:
	DC.B	0
	EVEN
wobblescrollpointer:
	DC.L	wobbletext
wobbletext:
	DC.B	' this is sundance writing in the rebels demo called'
	DC.B	' last dimention.'
	DC.B	' this demo was supposed to be released for the'
	DC.B	' the silents and red sector inc. demo competiton,'
	DC.B	' but we had some troubles with the loader. but anyway'
	DC.B	' here is some text written by xod of rebels.. . ... . .'
	dc.b    '.. ok this is xod typing right now !!! yes right now'
	dc.b	' i am sitting besides sundance, and he is busy for'
	dc.b	' real coz the demo is not ready yet, but he will be'
	dc.b    ' ready soon with the demo he hopes....'
	DC.B	' well see you in the next'
	dc.b    ' scroll.......        ',0


wobblefonttable:
	DC.B	0,0,0,0,0,0,0,0
	DC.B	0,0,0,0,0,0,0,0

	DC.B	0,0,0,0,0,0,0,0
	DC.B	0,0,0,0,0,0,0,0

	DC.B	47,0,0,0,0,0,0,0
	DC.B	0,0,0,0,27,0,26,0

	DC.B	0,0,0,0,0,0,0,0
	DC.B	0,0,0,0,0,0,0,0

	DC.B	0,0,0,0,0,0,0,0
	DC.B	0,0,0,0,0,0,0,0

	DC.B	0,0,0,0,0,0,0,0
	DC.B	0,0,0,0,0,0,0,0

	DC.B	0,0,1,2,3,4,5,6
	DC.B	7,8,9,10,11,12,13,14

	DC.B	15,16,17,18,19,20,21,22
	DC.B	23,24,25,0,0,0,0,0
	EVEN
wobblescroll:
	ADD.B	#1,wobblescrollcounter
	CMP.B	#4,wobblescrollcounter
	BNE.S	wobblescroll2
	CLR.B	wobblescrollcounter
help:
	ADDQ.L	#1,wobblescrollpointer
	MOVE.L	wobblescrollpointer,a0
	CLR.W	d0
	MOVE.B	(a0)+,d0
	TST.B	d0
	BNE.S	wobblescroll1
	MOVE.L	#wobbletext,wobblescrollpointer
	MOVE.B	wobbletext,d0
wobblescroll1:
	LEA	wobblefonttable,a1
	MOVE.L	#$7f000,a2

	MOVE.B	0(a1,d0.W),d0
	ADD.W	d0,a2
	MOVE.B	(a2),$7f800+48-2
	MOVE.B	48(a2),$7f800+96-2
	MOVE.B	96(a2),$7f800+144-2
	MOVE.B	144(a2),$7f800+192-2
	MOVE.B	192(a2),$7f800+240-2
	MOVE.B	240(a2),$7f800+288-2
	MOVE.B	288(a2),$7f800+336-2
wobblescroll2:
	BTST	#14,$2(a6)
	BNE.S	wobblescroll2
	MOVE.L	#$7f800,$50(a6)
	MOVE.L	#$7f7fe,$54(a6)
	MOVE.L	#$e9f00000,$40(a6)
	MOVE.L	#$ffffffff,$44(a6)
	CLR.L	$64(a6)
	MOVE.W	#8*64+24,$58(a6)
	RTS
wobblefade:
	MOVE.L	#$5b44c,a0
wobblefadecol1:
	MOVE.W	#$fff,d1
	MOVE.W	(a0),d0
	BSR.L	wobblefadesimple
	MOVE.W	d0,(a0)
	MOVE.W	d0,$15ba(a0)
	MOVE.W	d0,24(a0)
	MOVE.W	d0,24+$15ba(a0)
	MOVE.W	d0,60(a0)
	MOVE.W	d0,60+$15ba(a0)
	MOVE.W	d0,3272(a0)
	MOVE.W	d0,3272+$15ba(a0)
	MOVE.W	d0,3296+12(a0)
	MOVE.W	d0,3296+12+$15ba(a0)
wobblefadecol2:
	MOVE.W	#$666,d1
	MOVE.W	4(a0),d0
	BSR.L	wobblefadesimple
	MOVE.W	d0,4(a0)
	MOVE.W	d0,$15be(a0)
	MOVE.W	d0,28(a0)
	MOVE.W	d0,28+$15ba(a0)
wobblefadecol3:
	MOVE.W	#$aaa,d1
	MOVE.W	8(a0),d0
	BSR.L	wobblefadesimple
	MOVE.W	d0,8(a0)
	MOVE.W	d0,$15c2(a0)
	MOVE.W	d0,20(a0)
	MOVE.W	d0,20+$15ba(a0)
wobblefadecol4:
	MOVE.W	#$bbb,d1
	MOVE.W	52(a0),d0
	BSR.S	wobblefadesimple
	MOVE.W	d0,52(a0)
	MOVE.W	d0,52+$15ba(a0)
	MOVE.W	d0,3264(a0)
	MOVE.W	d0,3264+$15ba(a0)
	MOVE.W	d0,68(a0)
	MOVE.W	d0,68+$15ba(a0)
	MOVE.W	d0,3280(a0)
	MOVE.W	d0,3280+$15ba(a0)
wobblefadecol5:
	MOVE.W	#$888,d1
	MOVE.W	44(a0),d0
	BSR.S	wobblefadesimple
	MOVE.W	d0,44(a0)
	MOVE.W	d0,44+$15ba(a0)
	MOVE.W	d0,3256(a0)
	MOVE.W	d0,3256+$15ba(a0)
	MOVE.W	d0,76(a0)
	MOVE.W	d0,76+$15ba(a0)
	MOVE.W	d0,3288(a0)
	MOVE.W	d0,3288+$15ba(a0)
wobblefadecol6:
	MOVE.W	#$444,d1
	MOVE.W	36(a0),d0
	BSR.S	wobblefadesimple
	MOVE.W	d0,36(a0)
	MOVE.W	d0,36+$15ba(a0)
	MOVE.W	d0,3248(a0)
	MOVE.W	d0,3248+$15ba(a0)
	MOVE.W	d0,84(a0)
	MOVE.W	d0,84+$15ba(a0)
	MOVE.W	d0,3296(a0)
	MOVE.W	d0,3296+$15ba(a0)
	RTS
wobblefadesimple:
	CMP.W	d0,d1
	BEQ.S	wobblefadesimpleend1
	BMI.S	wobblefadesimpledown1
	ADD.W	#$222,d0
wobblefadesimpledown1:
	SUB.W	#$111,d0
wobblefadesimpleend1:
	CMP.W	d0,d1
	BEQ.S	wobblefadesimpleend2
	BMI.S	wobblefadesimpledown2
	ADD.W	#$222,d0
wobblefadesimpledown2:
	SUB.W	#$111,d0
wobblefadesimpleend2:
	RTS
wobblecoppermake:
	TST.B	wobbledirection
	BEQ.S	wobblecoppermake4
	MOVE.L	wobblecoppertablecounter,a1
	SUB.L	#212*3*2,wobblecoppertablecounter
	CMP.L	#$60000,wobblecoppertablecounter
	BNE.S	wobblecoppermake3
	EOR.B	#1,wobbledirection
	BRA.S	wobblecoppermake3
wobblecoppermake4:
	MOVE.L	wobblecoppertablecounter,a1
	ADD.L	#212*3*2,wobblecoppertablecounter
	CMP.L	#212*3*2*48+$60000,wobblecoppertablecounter
	BNE.S	wobblecoppermake3
	EOR.B	#1,wobbledirection
wobblecoppermake3:
	MOVE.L	wobblecopper1,a0
	ADD.W	wobbleadd,a0
	MOVE.W	#195,d7
	MOVE.W	#16,d0
wobblecoppermake2:
	MOVE.W	(a1)+,(a0)
	MOVE.W	(a1)+,4(a0)
	MOVE.W	(a1)+,8(a0)
	ADD.W	d0,a0
	DBRA	d7,wobblecoppermake2
	RTS
wobbleclearscreen:
	BTST	#14,$2(a6)
	BNE.S	wobbleclearscreen
	MOVE.L	#$01000000,$40(a6)
	MOVE.L	wobblescreen2,$54(a6)
	CLR.W	$66(a6)
	MOVE.W	#212*64+20,$58(a6)
	RTS
wobblesetscreen:
	ADD.W	#2*148,wobblecontrol34	;kontrol 3
	ADD.W	#-182*2,wobblecontrol34+2	;kontrol 4
	MOVE.W	#9,a5
	MOVE.L	#$7e012,d0
	MOVE.W	#15,d2
	MOVE.W	wobblescreen2+2,d6
	ADD.W	#76-2,d6
	LEA	wobbleblittable,a3
	LEA	$75000,a2
	MOVEM.W	wobblecontrol34,d3/d4
	MOVE.W	#48*64+1,d5
	MOVE.W	#100,a4
	MOVE.W	#140,d7
wobblesetscreen2:
	BTST	#14,$2(a6)
	BNE.S	wobblesetscreen2
	MOVE.W	#$26,$62(a6)
	MOVE.L	#$120026,$64(a6)
	MOVE.L	#$0dfc0000,$40(a6)
	MOVE.W	#$ffff,$46(a6)
	MOVE.W	#7,$4c(a6)
	MOVE.W	#7,$50(a6)
	MOVE.W	#7,$54(a6)
wobblesetscreen3:
	MOVE.W	d6,d1
	BCLR	#15,d3
	BCLR	#15,d4
	ADD.W	0(a2,d3.W),d1
	ADD.W	0(a2,d4.W),d1
	ADD.W	a4,d3
	ADD.W	d7,d4
	MOVE.W	(a3)+,$44(a6)
	MOVE.W	d1,$4e(a6)
	MOVE.W	d0,$52(a6)
	MOVE.W	d1,$56(a6)
	MOVE.W	d5,$58(a6)
	DBRA	d2,wobblesetscreen3

	LEA	wobbleblittable,a3
	MOVE.W	#15,d2
	SUBQ.W	#2,d0
	SUBQ.W	#2,d6
	SUB.W	#1,a5
	CMP.W	#0,a5
	BPL.S	wobblesetscreen3

	RTS
wobblecoppershift:
	MOVE.W	wobblescreen1+2,d0
	MOVE.W	wobblescreen2+2,wobblescreen1+2
	MOVE.W	d0,wobblescreen2+2
	MOVE.L	wobblecopper1,d0
	MOVE.W	wobblecopper2+2,wobblecopper1+2
	MOVE.W	d0,wobblecopper2+2
	MOVE.L	d0,$84(a6)
	RTS
;wobble memmap:
;$5b446-$5ca00 copper1
;$5ca00-$5dfba copper2
;$5dfba-$5e5ba logo (1*256*48)
;$60000-$6ee80 tabeller (212*3*2*48)
;$70028-$72800 logo skaerm 1
;$72828-$75000 logo skaerm 2
;$75000-$79000 sinus up-down

creditsinit:
	MOVE.L	#$5b442,$84(a6)
	MOVE.L	#nosubs,jumpsub+2
	CLR.B	mt_equaon
	LEA	$30000,a0
	LEA	$60000,a1
	CLR.W	d0
creditsinit3:
	MOVE.W	d0,d1
	ADD.W	#$2000,d1
	AND.W	#$7fff,d1
	MOVE.W	0(a0,d0.W),d2
	SUB.W	#$8000,d2
	MOVE.W	d2,(a1)+
	MOVE.W	0(a0,d1.W),d2
	SUB.W	#$8000,d2
	MOVE.W	d2,(a1)+
	ADDQ.W	#2,d0
	CMP.W	#$8000,d0
	BNE.S	creditsinit3
	LEA	$70000,a0
	MOVE.W	#$1bff,d0
creditsinit2:
	CLR.L	(a0)+
	DBRA	d0,creditsinit2
	MOVE.L	#$7a000,a1
	BSR.L	introsettext
	MOVE.L	#$7b518,a1
	BSR.L	introsettext
	MOVE.L	#$7ca30,a1
	BSR.L	introsettext

	MOVE.L	#creditstextcopper,$84(a6)
	MOVE.L	#credits,jumpsub+2
	RTS
credits2:
	MOVE.L	#creditstextcopper,$84(a6)
	ADDQ.W	#1,creditsfadecounter
	MOVE.W	creditsfadecounter,d0
	CMP.W	#9,d0
	BPL.S	credits3
	MOVE.W	#$fff,d1
	BSR.S	creditsfadeall
	RTS
credits3:
	CMP.W	#159,d0
	BPL.S	credits4
	BSR.S	creditsfadenorm
	RTS
credits4:
	CMP.W	#175,d0
	BEQ.S	credits6
	CLR.W	d1
	BSR.S	creditsfadeall
	RTS
credits6:
	CLR.W	creditsfadecounter
	ADD.W	#5400,creditstextcopperpointer+2
	ADD.W	#5400,creditstextcopperpointer+6
	ADD.W	#5400,creditstextcopperpointer+10
	MOVE.B	#1,creditsmode
	RTS
creditsfadeall:
	LEA	creditstextcoppercolor+2,a0
	MOVE.W	#6,d7
creditsfadeall2:
	MOVE.W	(a0),d0
	BSR.L	fade
	BSR.L	fade
	MOVE.W	d0,(a0)
	ADDQ.W	#4,a0
	DBRA	d7,creditsfadeall2
	RTS
creditsfadenorm:
	LEA	creditstextcoppercolor+2,a0
	LEA	creditscolors,a1
	MOVE.W	#6,d7
creditsfadenorm2:
	MOVE.W	(a1)+,d1
	MOVE.W	(a0),d0
	BSR.L	fade
	MOVE.W	d0,(a0)
	ADDQ.W	#4,a0
	DBRA	d7,creditsfadenorm2
	RTS
credits:
	CMP.B	#2,creditsmode
	BEQ.S	creditsend
	TST.B	creditsmode
	BEQ.L	credits2
	BSR.L	creditstablecontrol
	BSR.L	shiftscreen
	BSR.L	clearfigure
	BSR.L	calculatepoints
	BSR.S	prepfigure
	BSR.S	checkzoomspeed
	BSR.L	rotate
	BSR.L	blitfigureonscreen
	MOVE.L	#creditscopper,$84(a6)
creditsend:
	RTS
checkzoomspeed:
	MOVE.W	zoomspeed,d0
	SUB.W	d0,distance
	CMP.W	#1200,distance
	BPL.S	checkzoomspeed2
	MOVE.W	#1200,distance
checkzoomspeed2:
	RTS
prepfigure:
	BTST	#14,$2(a6)
	BNE.S	prepfigure
	MOVE.W	#44,$60(a6)
	MOVE.W	#44,$66(a6)
	MOVE.W	#$8000,$74(a6)
	MOVE.W	#$ffff,$44(a6)
	MOVE.W	#$ffff,$72(a6)
	MOVE.L	figurepolygons,a1
	LEA	points2d,a0
	LEA	octants,a5
drawpolygon:
	MOVEM.L	clearbuffer,d2/d3
	MOVE.W	(a1)+,a2
	CMP.W	#$8000,a2
	BEQ.L	figureend
drawpolygon3:
	MOVE.W	(a0)+,d2
	MOVE.W	(a0)+,d3
	MOVE.W	d2,a3
	MOVE.W	d3,a4
drawpolygon1:
	MOVEM.L	clearbuffer,d0/d1
	SUB.W	#1,a2
	CMP.W	#0,a2
	BEQ.L	drawpolygonend
	MOVE.W	(a0)+,d0
	MOVE.W	(a0)+,d1
	MOVEM.L	d0-d1,-(a7)
	TST.W	d1
	BPL.S	creditscut3
	TST.W	d3
	BMI.L	creditsdontdraw
	CLR.W	d5
	SUB.W	d1,d5
	MOVE.W	d2,d6
	SUB.W	d0,d6
	MULS	d6,d5
	MOVE.W	d3,d6
	SUB.W	d1,d6
	DIVS	d6,d5
	ADD.W	d5,d0
	CLR.W	d1
creditscut3:
	TST.W	d3
	BPL.S	creditscut4
	CLR.W	d5
	SUB.W	d3,d5
	MOVE.W	d0,d6
	SUB.W	d2,d6
	MULS	d6,d5
	MOVE.W	d1,d6
	SUB.W	d3,d6
	DIVS	d6,d5
	ADD.W	d5,d2
	CLR.W	d3
creditscut4:
	CMP.W	d1,d3
	BEQ.L	drawlineend
	BMI.S	line0
	ADDQ.W	#1,d1
	BRA.S	line1
line0:
	ADDQ.W	#1,d3
line1:
	CLR.W	d4
	SUB.W	d1,d3
	BGE.S	dypos
	NEG.W	d3
	BRA.S	dyneg
dypos:
	BSET	#0,d4
dyneg:
	SUB.W	d0,d2
	BGE.S	dxpos
	NEG.W	d2
	BRA.S	dxneg
dxpos:
	BSET	#1,d4
dxneg:
	MOVE.W	d2,d5
	SUB.W	d3,d5
	BGE.S	dxdypos
	EXG	d2,d3
	BRA.S	dxdyneg
dxdypos:
	BSET	#2,d4
dxdyneg:
	CLR.W	d5
	ROR.W	#4,d0
	OR.W	#$b00,d0
	MOVE.B	d0,d5
	MOVE.B	#$5a,d0
	LSL.W	#1,d5
	MULU	#44,d1
	ADD.W	d5,d1
	ADD.L	#$70000,d1
	MOVE.B	0(a5,d4.W),d4
	ADD.L	d3,d3
	MOVE.L	d3,d5
	SUB.W	d2,d5
	BGE.S	dldspos
	OR.B	#$40,d4
dldspos:
	MOVE.L	d5,d6
	SUB.W	d2,d6
	ASL.W	#6,d2
	ADD.W	#$42,d2
drawblitrdy:
	BTST	#14,$2(a6)
	BNE.S	drawblitrdy
	MOVE.W	d3,$62(a6)
	MOVE.L	d5,$50(a6)
	MOVE.W	d6,$64(a6)
	MOVE.W	d4,$42(a6)
	MOVE.W	d0,$40(a6)
	MOVE.L	d1,$48(a6)
	MOVE.L	d1,$54(a6)
	MOVE.W	d2,$58(a6)
creditsdontdraw:
drawlineend:
	MOVEM.L	(a7)+,d2-d3
	BRA.L	drawpolygon1
drawpolygonend:
	MOVE.W	a3,d0
	MOVE.W	a4,d1
	TST.W	d1
	BPL.S	creditscut1
	TST.W	d3
	BMI.L	drawpolygon
	CLR.W	d5
	SUB.W	d1,d5
	MOVE.W	d2,d6
	SUB.W	d0,d6
	MULS	d6,d5
	MOVE.W	d3,d6
	SUB.W	d1,d6
	DIVS	d6,d5
	ADD.W	d5,d0
	CLR.W	d1
creditscut1:
	TST.W	d3
	BPL.S	creditscut2
	CLR.W	d5
	SUB.W	d3,d5
	MOVE.W	d0,d6
	SUB.W	d2,d6
	MULS	d6,d5
	MOVE.W	d1,d6
	SUB.W	d3,d6
	DIVS	d6,d5
	ADD.W	d5,d2
	CLR.W	d3
creditscut2:
	CMP.W	d1,d3
	BEQ.L	drawpolygon
	BMI.S	line2
	ADDQ.W	#1,d1
	BRA.S	line3
line2:
	ADDQ.W	#1,d3
line3:
	CLR.W	d4
	SUB.W	d1,d3
	BGE.S	dypos2
	NEG.W	d3
	BRA.S	dyneg2
dypos2:
	BSET	#0,d4
dyneg2:
	SUB.W	d0,d2
	BGE.S	dxpos2
	NEG.W	d2
	BRA.S	dxneg2
dxpos2:
	BSET	#1,d4
dxneg2:
	MOVE.W	d2,d5
	SUB.W	d3,d5
	BGE.S	dxdypos2
	EXG	d2,d3
	BRA.S	dxdyneg2
dxdypos2:
	BSET	#2,d4
dxdyneg2:
	CLR.W	d5
	ROR.W	#4,d0
	OR.W	#$b00,d0
	MOVE.B	d0,d5
	MOVE.B	#$5a,d0
	LSL.W	#1,d5
	MULU	#44,d1
	ADD.W	d5,d1
	ADD.L	#$70000,d1
	MOVE.B	0(a5,d4.W),d4
	ADD.L	d3,d3
	MOVE.L	d3,d5
	SUB.W	d2,d5
	BGE.S	dldspos2
	OR.B	#$40,d4
dldspos2:
	MOVE.L	d5,d6
	SUB.W	d2,d6
	ASL.W	#6,d2
	ADD.W	#$42,d2
drawblitrdy2:
	BTST	#14,$2(a6)
	BNE.S	drawblitrdy2
	MOVE.W	d3,$62(a6)
	MOVE.L	d5,$50(a6)
	MOVE.W	d6,$64(a6)
	MOVE.W	d4,$42(a6)
	MOVE.W	d0,$40(a6)
	MOVE.L	d1,$48(a6)
	MOVE.L	d1,$54(a6)
	MOVE.W	d2,$58(a6)
	BRA.L	drawpolygon
figureend:
	RTS
clearfigure:
	BTST	#14,$2(a6)
	BNE.S	clearfigure
	MOVE.L	#$01000000,$40(a6)
	MOVE.L	#$70000,$54(a6)
	CLR.W	$dff066
	MOVE.W	#212*64+22,$58(a6)
	RTS
shiftscreen:
	MOVE.B	newsynscreen+2,d0
	MOVE.B	oldsynscreen+2,newsynscreen+2
	MOVE.B	d0,oldsynscreen+2
	MOVE.B	d0,creditscopperpointer+2
	RTS
rotate:
xspeed:
	ADD.W	#0,xvinkel
yspeed:
	ADD.W	#0,yvinkel
zspeed:
	ADD.W	#0,zvinkel
	RTS
blitfigureonscreen:
	BTST	#14,$2(a6)
	BNE.S	blitfigureonscreen
	MOVE.L	#$70000,a0
	ADD.W	#212*44-6,a0
	MOVE.L	a0,$50(a6)
	MOVE.L	newsynscreen,a1
	ADD.W	#212*44-6,a1
	MOVE.L	a1,$54(a6)
	MOVE.L	#$40004,$64(a6)
	MOVE.L	#$ffffffff,$44(a6)
	MOVE.L	#$09f00012,$40(a6)
	MOVE.W	#212*64+20,$58(a6)
	RTS
calculatepoints:
	LEA	$68000,a2
	MOVE.W	xvinkel,d4
	MOVEM.W	(a2,d4.W),d3/d4
	MOVEM.W	d3/d4,xvidatas
	MOVE.W	yvinkel,d4
	MOVEM.W	(a2,d4.W),d3/d4
	MOVEM.W	d3/d4,yvidatas
	MOVE.W	zvinkel,d4
	MOVEM.W	(a2,d4.W),d3/d4
	MOVEM.W	d3/d4,zvidatas
	MOVE.L	figurepoints,a0
	LEA	points2d,a1
	MOVE.W	#15,d7
	CMP.L	#sunpoints,a0
	BEQ.L	calculatesun
	CMP.L	#yoyopoints,a0
	BEQ.L	calculateyoyo
calculatepoints2:
	MOVEM.L	clearbuffer,d0-d6
	MOVE.W	(a0)+,d0
	CMP.W	#$8000,d0
	BEQ.L	calculatepointsend
	MOVE.W	(a0)+,d6
	MOVE.W	xvidatas,d3
	CLR.L	d5
	MOVE.W	d6,d1
	MULS	d3,d6
	SUB.L	d6,d5
	ASR.L	d7,d5
	MOVE.W	d5,d2
	MOVE.W	xvidatas+2,d3
	MULS	d3,d1
	ASR.L	d7,d1
	MOVEM.W	zvidatas,d3/d4
	MOVE.W	d0,d5
	MOVE.W	d1,d6
	MOVEM.W	d5-d6,rotatexyz
	MULS	d3,d6
	MULS	d4,d5
	SUB.L	d6,d5
	ASR.L	d7,d5
	MOVE.W	d5,d0
	MOVEM.W	rotatexyz,d5-d6
	MULS	d3,d5
	MULS	d4,d6
	ADD.L	d5,d6
	ASR.L	#5,d6
	MOVE.L	d6,d1

	MOVEM.W	yvidatas,d3/d4
	MOVE.W	d0,d5
	MOVE.W	d2,d6
	MOVEM.W	d5-d6,rotatexyz
	MULS	d3,d6
	MULS	d4,d5
	SUB.L	d6,d5
	ASR.L	#5,d5
	MOVE.L	d5,d0
	MOVEM.W	rotatexyz,d5-d6
	MULS	d3,d5
	MULS	d4,d6
	ADD.L	d5,d6
	ASL.L	#2,d6
	ASR.L	d7,d6
	ADD.W	distance,d6
	DIVS	d6,d0
	DIVS	d6,d1
	ADD.W	#176,d0
	ADD.W	#106,d1
	MOVE.W	d0,(a1)+
	MOVE.W	d1,(a1)+
	BRA.L	calculatepoints2
calculatepointsend:
	MOVE.W	#$8000,(a1)
	RTS





calculateyoyo:
calculateyoyo2:
	MOVEM.L	clearbuffer,d0-d6
	MOVE.W	(a0)+,d0
	CMP.W	#$8000,d0
	BEQ.S	calculateyoyoend
	MOVE.W	(a0)+,d6
	MOVE.W	xvidatas,d3
	CLR.L	d5
	MOVE.W	d6,d1
	MULS	d3,d6
	SUB.L	d6,d5
	ASR.L	d7,d5
	MOVE.W	d5,d2
	MOVE.W	xvidatas+2,d3
	MULS	d3,d1
	ASR.L	#5,d1

	MOVEM.W	yvidatas,d3/d4
	MOVE.W	d0,d5
	MOVE.W	d2,d6
	MOVEM.W	d5-d6,rotatexyz
	MULS	d3,d6
	MULS	d4,d5
	SUB.L	d6,d5
	ASR.L	#5,d5
	MOVE.L	d5,d0
	MOVEM.W	rotatexyz,d5-d6
	MULS	d3,d5
	MULS	d4,d6
	ADD.L	d5,d6
	ASL.L	#2,d6
	ASR.L	d7,d6
	ADD.W	distance,d6
	DIVS	d6,d0
	DIVS	d6,d1
	ADD.W	#176,d0
	ADD.W	#106,d1
	MOVE.W	d0,(a1)+
	MOVE.W	d1,(a1)+
	BRA.S	calculateyoyo2
calculateyoyoend:
	MOVE.W	#$8000,(a1)
	RTS






calculatesun:
	MOVE.W	#10,d2
calculatesun2:
	MOVE.W	(a0)+,d0
	CMP.W	#$8000,d0
	BEQ.L	calculatepointsend
	MOVE.W	(a0)+,d1
	MOVEM.W	xvidatas,d3/d4
	MOVE.W	d1,d5

	MULS	d4,d1
	ASR.L	#5,d1

	MULS	d3,d5
	ASR.L	#8,d5
	ASR.L	#6,d5

	EXT.L	d0
	LSL.L	d2,d0
	ADD.W	distance,d5
	DIVS	d5,d0
	DIVS	d5,d1
	ADD.W	#176,d0
	ADD.W	#106,d1
	MOVE.W	d0,(a1)+
	MOVE.W	d1,(a1)+
	BRA.S	calculatesun2
creditstablecontrol:
	SUB.W	#1,creditstablepause
	BNE.L	creditstablecontrol1
creditstablecontrol3:
	MOVE.L	creditstablepointer,a0
	MOVE.W	(a0)+,d0
	CMP.W	#3,d0
	BNE.S	creditstablecontrol2
	MOVE.B	#2,creditsmode
	RTS
creditstablecontrol2:
	TST.W	d0
	BNE.S	creditstablecontrol4
	MOVE.W	(a0)+,xspeed+2
	MOVE.W	(a0)+,yspeed+2
	MOVE.W	(a0)+,zspeed+2
	MOVE.W	(a0)+,zoomspeed
	ADD.W	#10,creditstablepointer+2
	BRA.S	creditstablecontrol3
creditstablecontrol4:
	CMP.W	#2,d0
	BNE.S	creditstablecontrol5
	MOVE.W	(a0)+,creditstablepause
	ADDQ.W	#4,creditstablepointer+2
	RTS
creditstablecontrol5:
	ADD.W	#18,creditstablepointer+2
	MOVE.W	(a0)+,xvinkel
	MOVE.W	(a0)+,yvinkel
	MOVE.W	(a0)+,zvinkel
	MOVE.W	(a0)+,distance
	MOVE.L	(a0)+,figurepoints
	MOVE.L	(a0)+,figurepolygons
	CLR.B	creditsmode
	BRA.L	creditstablecontrol3
creditstablecontrol1:
	RTS
theendinit:
	MOVE.L	#$5b442,$84(a6)
	MOVE.L	#nosubs,jumpsub+2
	LEA	$2B500,A0
	LEA	$5B446,A1
	MOVE.W	#$1200,D0
THEENDINIT1:
	MOVE.L	(A0)+,(A1)+
	DBRA	D0,THEENDINIT1
	CLR.B	mt_equaon
	LEA	sinustabel,a0
	LEA	$70000,a1
	MOVE.W	#16383,d7
theendinit2:
	CLR.L	d0
	MOVE.W	(a0)+,d0
	MOVE.L	d0,d1
	DIVU	#65536/8/[320/3],d0
	MOVE.W	d0,(a1)+
	DIVU	#65536/8/[212/3],d1
	MOVE.W	d1,(a1)+
	DBRA	d7,theendinit2
	MOVE.L	#$67000,a0
	MOVE.W	#99,d0
theendinit3:
	CLR.L	(a0)+
	DBRA	d0,theendinit3
	MOVE.L	#$6bc00,a0
	MOVE.L	#$6de00,a1
	MOVE.W	#40*212/4-1,d0
theendinit4:
	CLR.L	(a0)+
	CLR.L	(a1)+
	DBRA	d0,theendinit4
	LEA	$60000,a0
	MOVE.W	#$7ff,d0
	LEA	theendcopper,a1
theendinit5:
	CLR.L	(a0)+
	DBRA	d0,theendinit5
theendinit7:
	MOVE.L	(a1)+,(a0)+
	CMP.L	#theendcopper2,a1
	BNE.S	theendinit7
theendinit6:
	MOVE.L	(a1)+,d0
	MOVE.L	d0,(a0)+
	CMP.L	#$fffffffe,d0
	BNE.S	theendinit6
	MOVE.L	#$62000,$84(a6)
	MOVE.L	#theend,jumpsub+2
	RTS
theend:
	BSR.L	theendfade
	BSR.L	theendsetscroll
	BSR.S	theendscroll
	RTS
theendscroll:
	TST.W	theendscrollpause
	BEQ.S	theendscroll1
	SUB.W	#1,theendscrollpause
	BEQ.S	theendnewchar
	BRA.L	theendscrollend
theendscroll1:
	MOVE.W	#$9f10,d0
	SUB.B	theendscrollspeed,d0
	ROR.W	#4,d0
theendscroll2:
	BTST	#14,$dff002
	BNE.S	theendscroll2
	MOVE.W	d0,$dff040
	CLR.W	$dff042
	MOVE.L	#$ffffffff,$dff044
	MOVE.L	#$60002,$dff050
	MOVE.L	#$60000,$dff054
	CLR.L	$dff064
	MOVE.W	#30*3*64+22,$dff058
	MOVE.B	theendscrollspeed,d0
	SUB.B	d0,theendscrollcounter
	BNE.L	theendscrollend
	MOVE.B	#16,theendscrollcounter
theendnewchar:
	MOVE.L	theendscrollpointer,a0
	ADDQ.W	#1,theendscrollpointer+2
	CLR.W	d1
	MOVE.B	(a0)+,d1
	TST.B	d1
	BNE.S	theendnewchar2
	MOVE.L	#theendscrolltext,theendscrollpointer
	BRA.S	theendnewchar
theendnewchar2:
	CMP.B	#2,d1
	BNE.S	theendnewchar3
	MOVE.B	(a0)+,theendscrollspeed
	ADDQ.W	#1,theendscrollpointer+2
	BRA.S	theendnewchar
theendnewchar3:
	CMP.B	#1,d1
	BNE.S	theendnewchar4
	MOVE.B	(a0)+,theendscrollpause
	MOVE.B	(a0)+,theendscrollpause+1
	ADDQ.W	#2,theendscrollpointer+2
	RTS
theendnewchar4:
	LEA	theendfonttable,a0
	MOVE.B	0(a0,d1.W),d1
	LSL.W	#1,d1
	MOVE.L	#$5dba6,d0
	ADD.W	d1,d0
theendscrollsetchar:
	BTST	#14,$dff002
	BNE.S	theendscrollsetchar
	MOVE.L	#$09f00000,$40(a6)
	MOVE.L	#$ffffffff,$44(a6)
	MOVE.L	d0,$50(a6)
	MOVE.L	#$6002a,$54(a6)
	MOVE.L	#$0056002a,$64(a6)
	MOVE.W	#30*3*64+1,$58(a6)
theendscrollend:
	BTST	#14,$2(a6)
	BNE.S	theendscrollend
	MOVE.L	#$09f00000,$40(a6)
	MOVE.L	#$ffffffff,$44(a6)
	MOVE.L	#$60002,$50(a6)
	MOVE.L	#$61002,$54(a6)
	MOVE.L	#$00080004,$64(a6)
	MOVE.W	#90*64+18,$58(a6)
	RTS
theendsetscroll:
	MOVE.W	theendnewscreen+2,d0
	MOVE.B	theendoldscreen+2,theendnewscreen+2
	MOVE.W	d0,theendoldscreen+2
	MOVE.W	d0,theendscreenpointer+2+theenddiff
	ADD.W	#40*32,d0
	MOVE.W	d0,theendscreenpointer+6+theenddiff
	MOVE.W	d0,theendscreenpointer+10+theenddiff
theendsetscroll2:
	BTST	#14,$2(a6)
	BNE.S	theendsetscroll2
	MOVE.L	#$01000000,$40(a6)
	MOVE.L	#$ffffffff,$44(a6)
	MOVE.L	theendnewscreen,$54(a6)
	CLR.L	$64(a6)
	MOVE.W	#212*64+20,$58(a6)
	ADD.W	#-220,theendsinuspointers
	ADD.W	#168,theendsinuspointers+2
	ADD.W	#-240,theendsinuspointers+4
	ADD.W	#-292,theendsinuspointers+6
	ADD.W	#260,theendsinuspointers+8
	ADD.W	#192,theendsinuspointers+10
	LEA	theendsinuspointers,a0
	LEA	theendsinuscounters,a1
	MOVE.W	#2,d0
theendsetscroll7:
	MOVE.L	(a0)+,(a1)+
	DBRA	d0,theendsetscroll7
	LEA	$6bc00,a0
	LEA	$78000,a1
	LEA	theendtext,a2
theendcontrol14:
	CLR.W	d5
	MOVE.W	#700,d3
	MOVE.W	d3,d2
	MULU	#52,d2
	MOVE.W	d3,theendaddy+2
	MOVE.W	d2,theendcmpy+2
theendcontrol13:
	MOVE.W	#1052,d4
	MOVE.W	d4,d3
	MULU	#7,d3
	CLR.W	d6
	MOVE.W	theendsinuscounters,d7
	MOVE.W	theendsinuscounters+2,a3
	MOVE.W	theendsinuscounters+6,a4
	MOVE.W	theendsinuscounters+8,a5
theendsetscroll6:
	TST.B	(a2)+
	BEQ.S	theendsetscroll8
	MOVE.W	d7,d1
	MOVE.W	(a1,d1.w),d0
	MOVE.W	a3,d1
	ADD.W	d5,d1
	ADD.W	(a1,d1.w),d0
	MOVE.W	theendsinuscounters+4,d1
	SUB.W	d5,d1
	ADD.W	(a1,d1.w),d0
	LSR.W	#3,d0
	MOVE.W	d0,-(a0)
	MOVE.W	a4,d1
	ADD.W	d6,d1
	MOVE.W	2(a1,d1.w),d0
	MOVE.W	a5,d1
	SUB.W	d5,d1
	ADD.W	2(a1,d1.w),d0
	MOVE.W	theendsinuscounters+10,d1
	ADD.W	d6,d1
	ADD.W	2(a1,d1.w),d0
	LSR.W	#3,d0
	MOVE.W	d0,-(a0)
theendsetscroll8:
	ADD.W	#64,a5
	ADD.W	#40,d7
	ADD.W	#-80,a3
	ADD.W	#68,a4
	ADD.W	d4,d6
	CMP.W	d3,d6
	BNE.S	theendsetscroll6
	CLR.W	d6
	ADD.W	#48,theendsinuscounters+4
	ADD.W	#-40,theendsinuscounters+10
theendaddy:
	ADD.W	#500,d5
theendcmpy:
	CMP.W	#15000,d5
	BNE.S	theendsetscroll6
	MOVE.W	#$8000,-(a0)
theendsetscroll3:
	BTST	#14,$2(a6)
	BNE.S	theendsetscroll3
;saet punkter
saetpunkter:
	MOVE.L	#$6bc00,a0
	MOVE.L	theendnewscreen,d3
theendsetscroll5:
	MOVE.W	-(a0),d0;x
	CMP.W	#$8000,d0
	BEQ.S	theendsetscroll4
	MOVE.W	-(a0),d1;y
	LSL.W	#3,d1
	MOVE.W	d1,d2
	LSL.W	#2,d1
	ADD.W	d2,d1
	MOVE.W	d0,d2
	LSR.W	#3,d2
	ADD.W	d2,d1
	MOVE.L	d3,a1
	ADD.W	d1,a1
	EOR.B	#7,d0
	BSET	d0,(a1)
	BRA.S	theendsetscroll5
theendsetscroll4:
	RTS
theendfade:
	TST.B	theendfadeon
	BEQ.S	theendfadeoff
	SUB.W	#1,theendfadeon
	MOVE.W	#$fff,d1
	MOVE.W	theendpointcolor+2+theenddiff,d0
	BSR.L	fade
	MOVE.W	d0,theendpointcolor+2+theenddiff
	MOVE.W	d0,theendpointcolor+6+theenddiff
	LEA	theendcolors+2+theenddiff+theendmakedsize,a0
	LEA	theendcolortable,a1
	MOVE.W	#14,d7
theendfade2:
	MOVE.W	(a0),d0
	MOVE.W	(a1)+,d1
	BSR.L	fade
	MOVE.W	d0,(a0)
	MOVE.W	d0,4(a0)
	ADDQ.W	#8,a0
	DBRA	d7,theendfade2
theendfadeoff:
	RTS


	;laeg #nosubs ned i jumpsub+2 når foreberedelse
	;af skaerm. laeg adressen på underrutinerne ned
	;i jumpsub+2, når demo skal startes
lev3interrupt:
	MOVEM.L	D0/D1/D2/D3/D4/D5/D6/D7/A0/A1/A2/A3/A4/A5/A6,-(A7)
	BTST	#5,$1f(a6)
	BEQ.S	notvertblank
	BSR.S	fadelogos
	BSR.L	mt_music
jumpsub:
	JSR	nosubs
	SUB.W	#1,framecountdown
	MOVE.W	#$0020,$9c(a6)
notvertblank:
	MOVEM.L	(A7)+,D0/D1/D2/D3/D4/D5/D6/D7/A0/A1/A2/A3/A4/A5/A6
	RTE
lev1int:
	RTE
fadepause:
	DC.W	$4a0
fadelogos:
	TST.W	fadepause
	BEQ.S	fadelogos0
	SUB.W	#1,fadepause
	RTS
fadelogos0:
	ADD.W	#1,logoscounter
	MOVE.W	logoscounter,d0
	CMP.W	#$400,d0
	BNE.S	fadelogos1
	CLR.W	logoscounter
	BRA.S	fadelogoshalfways
fadelogos1:
	CMP.W	#$200,d0
	BEQ.L	fadelogosshiftbackgr

	CMP.W	#$10,d0
	BMI.S	fadelogosdown
	CMP.W	#$3f0,d0
	BMI.L	fadelogosend

	MOVE.W	#30,d7
	LEA	logoscolors+2,a0
	MOVE.W	#$fff,d1

fadelogos2:
	MOVE.W	(a0),d0
	BSR.L	fade
	MOVE.W	d0,(a0)
	ADDQ.W	#4,a0
	DBRA	d7,fadelogos2
	RTS
fadelogosdown:
	MOVE.W	#14,d7
	LEA	logoscolors+2,a0
	MOVE.L	logostablepointer,a2
	MOVE.L	8(a2),a1

fadelogos3:
	MOVE.W	(a1)+,d1
	MOVE.W	(a0),d0
	BSR.L	fade
	MOVE.W	d0,(a0)
	MOVE.W	d0,64(a0)
	ADDQ.W	#4,a0
	DBRA	d7,fadelogos3
	CLR.W	d1
	MOVE.W	(a0),d0
	BSR.L	wobblefadesimple
	MOVE.W	d0,(a0)
	RTS

fadelogoshalfways:
	MOVE.L	logostablepointer,a0
	MOVE.W	6(a0),logospointers+18
	ADD.W	#12,logostablepointer+2
	MOVE.L	logostablepointer,a0
	MOVE.W	2(a0),d0
	BNE.S	fadelogoshalfways2
	MOVE.L	#logostable,logostablepointer
	MOVE.L	logostablepointer,a0
	MOVE.W	2(a0),d0
fadelogoshalfways2:
	MOVE.W	d0,logospointers+2
	ADD.W	#$780,d0
	MOVE.W	d0,logospointers+6
	ADD.W	#$780,d0
	MOVE.W	d0,logospointers+10
	ADD.W	#$780,d0
	MOVE.W	d0,logospointers+14
;shiftfgr
	RTS
fadelogosshiftbackgr:

	RTS
fadelogosend:
	RTS
logoscounter:
	DC.W	0
logostablepointer:
	DC.L	logostable
logostable:
	DC.L	$49c00,$50000,$5b002
	DC.L	$4ba00,$50780,$5b022
	DC.L	0,$50000,$5b002
fade:
	MOVEM.L	d2/d3,-(a7)
	MOVE.W	d0,d2
	MOVE.W	d1,d3
	LSR.W	#8,d3
	LSR.W	#8,d2
	CMP.B	d3,d2
	BMI.S	fadeplus1
	BEQ.S	fade2
	SUB.W	#$200,d0
fadeplus1:
	ADD.W	#$100,d0
fade2:
	MOVE.B	d0,d2
	MOVE.B	d1,d3
	AND.W	#$f0,d2
	AND.W	#$f0,d3
	CMP.W	d3,d2
	BMI.S	fadeplus2
	BEQ.S	fade3
	SUB.B	#$20,d0
fadeplus2:
	ADD.B	#$10,d0
fade3:
	MOVE.B	d0,d2
	MOVE.B	d1,d3
	AND.B	#$f,d2
	AND.B	#$f,d3
	CMP.B	d3,d2
	BMI.S	fadeplus3
	BEQ.S	fade4
	SUB.B	#$2,d0
fadeplus3:
	ADD.B	#$1,d0
fade4:
	MOVEM.L	(a7)+,d2/d3
	RTS
nosubs:
	RTS

mt_init:lea	mt_data,a0
	move.l	a0,a1
	add.l	#$3b8,a1
	moveq	#$7f,d0
	moveq	#0,d1
mt_loop:move.l	d1,d2
	subq.w	#1,d0
mt_lop2:move.b	(a1)+,d1
	cmp.b	d2,d1
	bgt.s	mt_loop
	dbf	d0,mt_lop2
	addq.b	#1,d2

	lea	mt_samplestarts(pc),a1
	asl.l	#8,d2
	asl.l	#2,d2
	add.l	#$43c,d2
	add.l	a0,d2
	move.l	d2,a2
	moveq	#$1e,d0
mt_lop3:clr.l	(a2)
	move.l	a2,(a1)+
	moveq	#0,d1
	move.w	42(a0),d1
	asl.l	#1,d1
	add.l	d1,a2
	add.l	#$1e,a0
	dbf	d0,mt_lop3

	or.b	#$2,$bfe001
	move.b	#$6,mt_speed
	clr.w	$dff0a8
	clr.w	$dff0b8
	clr.w	$dff0c8
	clr.w	$dff0d8
	clr.b	mt_songpos
	move.w	#$30,mt_pattpos
	rts

mt_end:	clr.w	$dff0a8
	clr.w	$dff0b8
	clr.w	$dff0c8
	clr.w	$dff0d8
	move.w	#$f,$dff096
	rts

mt_music:
	movem.l	d0-d4/a0-a3/a5-a6,-(a7)
	lea	mt_data,a0
	addq.b	#$1,mt_counter
	move.b	mt_counter,D0
	cmp.b	mt_speed,D0
	blt.s	mt_nonew
	clr.b	mt_counter
	bra.L	mt_getnew
mt_nonew:
	lea	mt_voice1(pc),a6
	lea	$dff0a0,a5
	bsr.L	mt_checkcom
	lea	mt_voice2(pc),a6
	lea	$dff0b0,a5
	bsr.L	mt_checkcom
	lea	mt_voice3(pc),a6
	lea	$dff0c0,a5
	bsr.L	mt_checkcom
	lea	mt_voice4(pc),a6
	lea	$dff0d0,a5
	bsr.L	mt_checkcom
	bra.L	mt_endr
mt_arpeggio:
	moveq	#0,d0
	move.b	mt_counter,d0
	divs	#$3,d0
	swap	d0
	cmp.w	#$0,d0
	beq.s	mt_arp2
	cmp.w	#$2,d0
	beq.s	mt_arp1
	moveq	#0,d0
	move.b	$3(a6),d0
	lsr.b	#4,d0
	bra.s	mt_arp3
mt_arp1:moveq	#0,d0
	move.b	$3(a6),d0
	and.b	#$f,d0
	bra.s	mt_arp3
mt_arp2:move.w	$10(a6),d2
	bra.s	mt_arp4
mt_arp3:asl.w	#1,d0
	moveq	#0,d1
	move.w	$10(a6),d1
	lea	mt_periods(pc),a0
	moveq	#$24,d7
mt_arploop:
	move.w	(a0,d0.w),d2
	cmp.w	(a0),d1
	bge.s	mt_arp4
	addq.l	#2,a0
	dbf	d7,mt_arploop
	rts
mt_arp4:move.w	d2,$6(a5)
	rts



mt_getnew:
	lea	mt_data,a0
	move.l	a0,a3
	move.l	a0,a2
	add.l	#$c,a3
	add.l	#$3b8,a2
	add.l	#$43c,a0
	moveq	#0,d0
	move.l	d0,d1
	move.b	mt_songpos,d0
	move.b	(a2,d0.w),d1
	asl.l	#8,d1
	asl.l	#2,d1
	add.w	mt_pattpos,d1
	clr.w	mt_dmacon
	lea	$dff0a0,a5
	lea	mt_voice1(pc),a6
	bsr.s	mt_playvoice
	MOVE.W	mt_equadummy,mt_equadatas
	lea	$dff0b0,a5
	lea	mt_voice2(pc),a6
	bsr.s	mt_playvoice
	MOVE.W	mt_equadummy,mt_equadatas+2
	lea	$dff0c0,a5
	lea	mt_voice3(pc),a6
	bsr.s	mt_playvoice
	MOVE.W	mt_equadummy,mt_equadatas+4
	lea	$dff0d0,a5
	lea	mt_voice4(pc),a6
	bsr.s	mt_playvoice
	MOVE.W	mt_equadummy,mt_equadatas+6
	bra.L	mt_setdma
mt_playvoice:
	move.l	(a0,d1.l),(a6)
	addq.l	#4,d1
	moveq	#0,d2
	move.b	$2(a6),d2
	and.b	#$f0,d2
	lsr.b	#4,d2
	move.b	(a6),d0
	and.b	#$f0,d0
	or.b	d0,d2
	tst.b	d2
	beq.s	mt_setregs
	moveq	#0,d3
	lea	mt_samplestarts(pc),a1
	move.l	d2,d4
	subq.l	#$1,d2
	asl.l	#2,d2
	mulu	#$1e,d4
	move.l	(a1,d2.l),$4(a6)
	move.w	(a3,d4.l),$8(a6)
	move.w	$2(a3,d4.l),$12(a6)
	move.w	$4(a3,d4.l),d3
	tst.w	d3
	beq.s	mt_noloop
	move.l	$4(a6),d2
	asl.w	#1,d3
	add.l	d3,d2
	move.l	d2,$a(a6)
	move.w	$4(a3,d4.l),d0
	add.w	$6(a3,d4.l),d0
	move.w	d0,8(a6)
	move.w	$6(a3,d4.l),$e(a6)
	move.w	$12(a6),$8(a5)
	bra.s	mt_setregs
mt_noloop:
	move.l	$4(a6),d2
	add.l	d3,d2
	move.l	d2,$a(a6)
	move.w	$6(a3,d4.l),$e(a6)
	move.w	$12(a6),$8(a5)
mt_setregs:
	move.w	(a6),d0
	BEQ.S	mt_setregs2
	TST.B	mt_equaon
	BEQ.S	mt_setregs2
	CLR.W	mt_equadummy
	LEA	mt_periods(pc),a4
	CLR.W	d6
mt_equalize:
	CMP.W	0(a4,d6.W),d0
	BEQ.S	mt_equalize2
	ADDQ.W	#2,d6
	BRA.S	mt_equalize
mt_equalize2:
	ADD.W	#2,d6
	MOVE.W	d6,mt_equadummy
mt_setregs2:
	and.w	#$fff,d0
	beq.L	mt_checkcom2
	move.b	$2(a6),d0
	and.b	#$F,d0
	cmp.b	#$3,d0
	bne.s	mt_setperiod
	bsr.L	mt_setmyport
	bra.L	mt_checkcom2
mt_setperiod:

	move.w	(a6),d0
	MOVE.W	d0,$10(a6)
	and.w	#$fff,$10(a6)
	move.w	$14(a6),d0
	move.w	d0,$dff096
	clr.b	$1b(a6)

	move.l	$4(a6),(a5)
	move.w	$8(a6),$4(a5)
	move.w	$10(a6),d0
	and.w	#$fff,d0
	move.w	d0,$6(a5)
	move.w	$14(a6),d0
	or.w	d0,mt_dmacon
	bra.L	mt_checkcom2

mt_setdma:
	move.w	#$12c,d0
mt_wait:dbf	d0,mt_wait
	move.w	mt_dmacon,d0
	or.w	#$8000,d0
	move.w	d0,$dff096
	move.w	#$12c,d0
mt_wai2:dbf	d0,mt_wai2
	lea	$dff000,a5
	lea	mt_voice4(pc),a6
	move.l	$a(a6),$d0(a5)
	move.w	$e(a6),$d4(a5)
	lea	mt_voice3(pc),a6
	move.l	$a(a6),$c0(a5)
	move.w	$e(a6),$c4(a5)
	lea	mt_voice2(pc),a6
	move.l	$a(a6),$b0(a5)
	move.w	$e(a6),$b4(a5)
	lea	mt_voice1(pc),a6
	move.l	$a(a6),$a0(a5)
	move.w	$e(a6),$a4(a5)

	add.w	#$10,mt_pattpos
	cmp.w	#$400,mt_pattpos
	bne.s	mt_endr
mt_nex:	clr.w	mt_pattpos
	clr.b	mt_break
	addq.b	#1,mt_songpos
	and.b	#$7f,mt_songpos
	move.b	mt_songpos,d1
	cmp.b	mt_data+$3b6,d1
	bne.s	mt_endr
	clr.b	mt_songpos
mt_endr:tst.b	mt_break
	bne.s	mt_nex
	movem.l	(a7)+,d0-d4/a0-a3/a5-a6
	rts

mt_setmyport:
	move.w	(a6),d2
	and.w	#$fff,d2
	move.w	d2,$18(a6)
	move.w	$10(a6),d0
	clr.b	$16(a6)
	cmp.w	d0,d2
	beq.s	mt_clrport
	bge.s	mt_rt
	move.b	#$1,$16(a6)
	rts
mt_clrport:
	clr.w	$18(a6)
mt_rt:	rts

mt_myport:
	move.b	$3(a6),d0
	beq.s	mt_myslide
	move.b	d0,$17(a6)
	clr.b	$3(a6)
mt_myslide:
	tst.w	$18(a6)
	beq.s	mt_rt
	moveq	#0,d0
	move.b	$17(a6),d0
	tst.b	$16(a6)
	bne.s	mt_mysub
	add.w	d0,$10(a6)
	move.w	$18(a6),d0
	cmp.w	$10(a6),d0
	bgt.s	mt_myok
	move.w	$18(a6),$10(a6)
	clr.w	$18(a6)
mt_myok:move.w	$10(a6),$6(a5)
	rts
mt_mysub:
	sub.w	d0,$10(a6)
	move.w	$18(a6),d0
	cmp.w	$10(a6),d0
	blt.s	mt_myok
	move.w	$18(a6),$10(a6)
	clr.w	$18(a6)
	move.w	$10(a6),$6(a5)
	rts

mt_vib:	move.b	$3(a6),d0
	beq.s	mt_vi
	move.b	d0,$1a(a6)

mt_vi:	move.b	$1b(a6),d0
	lea	mt_sin(pc),a4
	lsr.w	#$2,d0
	and.w	#$1f,d0
	moveq	#0,d2
	move.b	(a4,d0.w),d2
	move.b	$1a(a6),d0
	and.w	#$f,d0
	mulu	d0,d2
	lsr.w	#$6,d2
	move.w	$10(a6),d0
	tst.b	$1b(a6)
	bmi.s	mt_vibmin
	add.w	d2,d0
	bra.s	mt_vib2
mt_vibmin:
	sub.w	d2,d0
mt_vib2:
	move.w	d0,$6(a5)
	move.b	$1a(a6),d0
	lsr.w	#$2,d0
	and.w	#$3c,d0
	add.b	d0,$1b(a6)
	rts

mt_nop:	move.w	$10(a6),$6(a5)
	rts

mt_checkcom:
	move.w	$2(a6),d0
	and.w	#$fff,d0
	beq.s	mt_nop
	move.b	$2(a6),d0
	and.b	#$f,d0
	tst.b	d0
	beq.L	mt_arpeggio
	cmp.b	#$1,d0
	beq.s	mt_portup
	cmp.b	#$2,d0
	beq.L	mt_portdown
	cmp.b	#$3,d0
	beq.L	mt_myport
	cmp.b	#$4,d0
	beq.L	mt_vib
	move.w	$10(a6),$6(a5)
	cmp.b	#$a,d0
	beq.s	mt_volslide
	rts

mt_volslide:
	moveq	#0,d0
	move.b	$3(a6),d0
	lsr.b	#4,d0
	tst.b	d0
	beq.s	mt_voldown
	add.w	d0,$12(a6)
	cmp.w	#$40,$12(a6)
	bmi.s	mt_vol2
	move.w	#$40,$12(a6)
mt_vol2:move.w	$12(a6),$8(a5)
	rts

mt_voldown:
	moveq	#0,d0
	move.b	$3(a6),d0
	and.b	#$f,d0
	sub.w	d0,$12(a6)
	bpl.s	mt_vol3
	clr.w	$12(a6)
mt_vol3:move.w	$12(a6),$8(a5)
	rts

mt_portup:
	moveq	#0,d0
	move.b	$3(a6),d0
	sub.w	d0,$10(a6)
	move.w	$10(a6),d0
	and.w	#$fff,d0
	cmp.w	#$71,d0
	bpl.s	mt_por2
	and.w	#$f000,$10(a6)
	or.w	#$71,$10(a6)
mt_por2:move.w	$10(a6),d0
	and.w	#$fff,d0
	move.w	d0,$6(a5)
	rts

mt_portdown:
	clr.w	d0
	move.b	$3(a6),d0
	add.w	d0,$10(a6)
	move.w	$10(a6),d0
	and.w	#$fff,d0
	cmp.w	#$358,d0
	bmi.s	mt_por3
	and.w	#$f000,$10(a6)
	or.w	#$358,$10(a6)
mt_por3:move.w	$10(a6),d0
	and.w	#$fff,d0
	move.w	d0,$6(a5)
	rts

mt_checkcom2:
	move.b	$2(a6),d0
	and.b	#$f,d0
	cmp.b	#$e,d0
	beq.s	mt_setfilt
	cmp.b	#$d,d0
	beq.s	mt_pattbreak
	cmp.b	#$b,d0
	beq.s	mt_posjmp
	cmp.b	#$c,d0
	beq.s	mt_setvol
	cmp.b	#$f,d0
	beq.s	mt_setspeed
	rts

mt_setfilt:
	move.b	$3(a6),d0
	and.b	#$1,d0
	asl.b	#$1,d0
	and.b	#$fd,$bfe001
	or.b	d0,$bfe001
	rts
mt_pattbreak:
	MOVE.B	#1,mt_break
	rts

mt_posjmp:
	move.b	$3(a6),d0
	subq.b	#$1,d0
	move.b	d0,mt_songpos
	not.b	mt_break
	rts
mt_setvol:
	cmp.b	#$40,$3(a6)
	ble.s	mt_vol4
	move.b	#$40,$3(a6)
mt_vol4:move.b	$3(a6),$8(a5)
	rts
mt_setspeed:
	move.b	$3(a6),d0
	and.w	#$1f,d0
	beq.s	mt_rts2
	clr.b	mt_counter
	move.b	d0,mt_speed
mt_rts2:rts
mt_sin:
dc.b $00,$18,$31,$4a,$61,$78,$8d,$a1,$b4,$c5,$d4,$e0,$eb,$f4,$fa,$fd
dc.b $ff,$fd,$fa,$f4,$eb,$e0,$d4,$c5,$b4,$a1,$8d,$78,$61,$4a,$31,$18
mt_periods:
dc.w $0358,$0328,$02fa,$02d0,$02a6,$0280,$025c,$023a,$021a,$01fc,$01e0
dc.w $01c5,$01ac,$0194,$017d,$0168,$0153,$0140,$012e,$011d,$010d,$00fe
dc.w $00f0,$00e2,$00d6,$00ca,$00be,$00b4,$00aa,$00a0,$0097,$008f,$0087
dc.w $007f,$0078,$0071,$0000,$0000
mt_speed:	dc.b	$6
mt_songpos:	dc.b	$0
mt_pattpos:	dc.w	$0
mt_counter:	dc.b	$5
mt_break:	dc.b	$0
mt_dmacon:	dc.w	$0
mt_samplestarts:blk.l	$1f,0
mt_voice1:	blk.w	10,0
		dc.w	$1
		blk.w	3,0
mt_voice2:	blk.w	10,0
		dc.w	$2
		blk.w	3,0
mt_voice3:	blk.w	10,0
		dc.w	$4
		blk.w	3,0
mt_voice4:	blk.w	10,0
		dc.w	$8
		blk.w	3,0
mt_equadummy:	DC.W	0
mt_equaon:	DC.B	0
trackcnt:	DC.B	$00,$00
sog0:		DC.B	0
	EVEN
olda7:
	DC.L	0
oldssp:
	DC.L	0
oldlev1:
	DC.L	0
oldintena:
	DC.W	0
oldinterrupt:
	DC.L	0
logoscopper:
	DC.L	$00E101FE
	DC.L	$01800000
	DC.L	$01000200
	DC.L	$01200000
	DC.L	$01220000
	DC.L	$01240000
	DC.L	$01260000
	DC.L	$01280000
	DC.L	$012a0000
	DC.L	$012c0000
	DC.L	$012e0000
	DC.L	$01300000
	DC.L	$01320000
	DC.L	$01340000
	DC.L	$01360000
	DC.L	$01380000
	DC.L	$013a0000
	DC.L	$013c0000
	DC.L	$013e0000
	DC.L	$01080000
	DC.L	$010A0000
	DC.L	$008E2081
	DC.L	$009057C1
	DC.L	$00920038
	DC.L	$009400D0
	DC.L	$01005200
	DC.L	$01020000
	DC.L	$01040040
logospointers:
	DC.L	$00e29c00
	DC.L	$00e6a380
	DC.L	$00eaab00
	DC.L	$00eeb280
	DC.L	$00f20780
	DC.L	$00e00004
	DC.L	$00e40004
	DC.L	$00e80004
	DC.L	$00ec0004
	DC.L	$00f00005
	DC.L	$1f01FFFE
logoscolors:
	DC.L	$01820000
	DC.L	$01840000
	DC.L	$01860000
	DC.L	$01880000
	DC.L	$018a0000
	DC.L	$018c0000
	DC.L	$018e0000
	DC.L	$01900000
	DC.L	$01920000
	DC.L	$01940000
	DC.L	$01960000
	DC.L	$01980000
	DC.L	$019a0000
	DC.L	$019c0000
	DC.L	$019e0000
	DC.L	$01a00000
	DC.L	$01a20000
	DC.L	$01a40000
	DC.L	$01a60000
	DC.L	$01a80000
	DC.L	$01aa0000
	DC.L	$01ac0000
	DC.L	$01ae0000
	DC.L	$01b00000
	DC.L	$01b20000
	DC.L	$01b40000
	DC.L	$01b60000
	DC.L	$01b80000
	DC.L	$01ba0000
	DC.L	$01bc0000
	DC.L	$01be0000
	DC.L	$5001FFFE
	DC.L	$01000200
	DC.L	$008a0000
wobbleinitoffsets2:
	DC.W	$3000,$2000
wobbleinitoffsets:
	DC.W	0,0
wobblecoppertablecounter:
	DC.L	$60000
wobbledirection:
	DC.B	0
	EVEN
wobblecontrol34:
	DC.W	0,0
wobbleblittable:
	DC.W	1,2,4,8,16,32,64,128,256,512,1024,2048,4096
	DC.W	8192,16384,32768
wobbleadd:	DC.W	30+68+12
wobblecopper:
	DC.L	$009034d1
	DC.L	$01820000
	DC.L	$01840000
	DC.L	$01860000
	DC.L	$00E00007
	DC.L	$00E40007
	DC.L	$01a20000
	DC.L	$01a40000
	DC.L	$01a60000
	DC.L	$592dFFFE
	DC.L	$01800000
	DC.L	$5a2dFFFE
	DC.L	$01800000
	DC.L	$5b2dFFFE
	DC.L	$01800000
	DC.L	$5c2dFFFE
	DC.L	$01800000
	DC.L	$5d2dFFFE
	DC.L	$01800000
	DC.L	$5e2dFFFE
	DC.L	$01800000
	DC.L	$5f2dFFFE
	DC.L	$01800000
	DC.L	$602dfffe
	DC.L	$01800000
	DC.L	$61d9FFFE
	DC.L	$01002200
wobblecopperend:
wobblecopperlast:
	DC.L	$01000200
	DC.L	$252bFFFE
	DC.L	$01800000
	DC.L	$262dFFFE
	DC.L	$01800000
	DC.L	$272dFFFE
	DC.L	$01800000
	DC.L	$282dFFFE
	DC.L	$01800000
	DC.L	$292dFFFE
	DC.L	$01800000
	DC.L	$2a2dFFFE
	DC.L	$01800000
	DC.L	$2b2dFFFE
	DC.L	$01800000
	DC.L	$2c2dFFFE
	DC.L	$01800000
	DC.L	$01820000
	DC.L	$008E2C61
	DC.L	$00920028
	DC.L	$009400D8
	DC.L	$01020000
	DC.L	$01080002
	DC.L	$00E00007
	DC.L	$00E2f800
	DC.L	$2d01FFFE
	DC.L	$01001200
	DC.L	$FFFFFFFE
wobblescreen1:
	DC.L	$70028
wobblescreen2:
	DC.L	$72828
wobblecopper1:
	DC.L	$5ca00
wobblecopper2:
	DC.L	$5b446
theendcolortable:
	DC.W	$49f,$37d,$25c,$13a,$128,$017,$005
	DC.W	$fff,$ecf,$cae,$b9e,$a6d,$94d,$82c,$70c
	DC.W	$dbd,$c9c,$b6b,$959,$838,$727,$616,$505
theendcolorbars:
	BLK.W	41,0
	DC.W	$100,$000,$100,$200,$100,$200,$300,$200,$300
	DC.W	$400,$300,$400,$500,$400,$500,$600,$500,$600
	DC.W	$700,$600,$700,$800,$700,$800,$900,$800,$900
	DC.W	$a00,$900,$a00,$b00,$a00,$b00,$c00,$b00,$c00
	DC.W	$d00,$c00,$d00,$e00,$d00
theendheights:
	BLK.W	40,0
theendsinuscounters:
	BLK.W	6,0
theendsinuspointers:
	DC.W	$e538,$0,0
	DC.W	$7720,$ae04,0
theendoldscreen:
	DC.L	$6bc00
theendnewscreen:
	DC.L	$6de00
theendfadeon:
	DC.B	10
	EVEN
theendtext:
	DC.B	0,0,0,0,0,1,1
	DC.B	0,0,0,0,0,0,1
	DC.B	1,0,0,0,0,0,1
	DC.B	1,1,1,1,1,1,1
	DC.B	1,0,0,0,0,0,1
	DC.B	0,0,0,0,0,0,1
	DC.B	0,0,0,0,0,1,1
	DC.B	0,0,0,0,0,0,0

	DC.B	1,0,0,0,0,0,1
	DC.B	1,1,1,1,1,1,1
	DC.B	0,0,0,1,0,0,0
	DC.B	0,0,0,1,0,0,0
	DC.B	0,0,0,1,0,0,0
	DC.B	1,1,1,1,1,1,1
	DC.B	1,0,0,0,0,0,1
	DC.B	0,0,0,0,0,0,0

	DC.B	1,0,0,0,0,0,1
	DC.B	1,1,1,1,1,1,1
	DC.B	1,0,0,1,0,0,1
	DC.B	1,0,0,1,0,0,1
	DC.B	1,0,0,0,0,0,1
	DC.B	1,0,0,0,0,0,1
	DC.B	1,1,0,0,0,1,1
	DC.B	0,0,0,0,0,0,0

	DC.B	0,0,0,0,0,0,0
	DC.B	0,0,0,0,0,0,0
	DC.B	0,0,0,0,0,0,0
	DC.B	0,0,0,0,0,0,0

	DC.B	1,0,0,0,0,0,1
	DC.B	1,1,1,1,1,1,1
	DC.B	1,0,0,1,0,0,1
	DC.B	1,0,0,1,0,0,1
	DC.B	1,0,0,0,0,0,1
	DC.B	1,0,0,0,0,0,1
	DC.B	1,1,0,0,0,1,1
	DC.B	0,0,0,0,0,0,0

	DC.B	1,0,0,0,0,0,1
	DC.B	1,1,1,1,1,1,1
	DC.B	0,0,0,0,0,1,0
	DC.B	0,0,0,0,1,0,0
	DC.B	0,0,0,1,0,0,0
	DC.B	1,1,1,1,1,1,1
	DC.B	1,0,0,0,0,0,1
	DC.B	0,0,0,0,0,0,0

	DC.B	1,0,0,0,0,0,1
	DC.B	1,1,1,1,1,1,1
	DC.B	1,0,0,0,0,0,1
	DC.B	1,0,0,0,0,0,1
	DC.B	1,0,0,0,0,0,1
	DC.B	1,0,0,0,0,0,1
	DC.B	1,1,1,1,1,1,0
	DC.B	0,0,0,0,0,0,0
theendcopper:
theenddiff= $62000-theendcopper
	DC.L	$01040024
	DC.L	$00902cc1
	DC.L	$00920038
	DC.L	$009400D0
	DC.L	$00E00006
	DC.L	$00E80006
	DC.L	$00F00006
theendscreenpointer:
	DC.L	$00E2bc00
	DC.L	$00EAbc00
	DC.L	$00F2bc00
theendpointcolor:
	DC.L	$01820000
	DC.L	$018e0000
	DC.L	$5901fffe
	DC.L	$01001200
	DC.L	$7801fffe
	DC.L	$01920fff
	DC.L	$01940bbd
	DC.L	$0196088b
	DC.L	$01980659
	DC.L	$019a0438
	DC.L	$019c0216
	DC.L	$019e0104
	DC.L	$00E40006
	DC.L	$00EC0006
	DC.L	$00F40006
	DC.L	$00E61000
	DC.L	$00EE14b0
	DC.L	$00F61960
	DC.L	$7901fffe
	DC.L	$01006600
theendmakedsize= 0
theendcopper2:
	DC.L	$9701FFFE
	DC.L	$01001200
	DC.L	$ec01fffe
	DC.L	$01001200
	DC.L	$00e40005
	DC.L	$00e80005
	DC.L	$00ec0005
	DC.L	$00F00005
	DC.L	$00e6b446
	DC.L	$00eabe1e
	DC.L	$00eec7f6
	DC.L	$00f2d1ce
theendcolors:
	DC.L	$01840000
	DC.L	$01860000
	DC.L	$01880000
	DC.L	$018a0000
	DC.L	$018c0000
	DC.L	$018e0000
	DC.L	$01900000
	DC.L	$01920000
	DC.L	$01940000
	DC.L	$01960000
	DC.L	$01980000
	DC.L	$019a0000
	DC.L	$019c0000
	DC.L	$019e0000
	DC.L	$01a00000
	DC.L	$01a20000
	DC.L	$01a40000
	DC.L	$01a60000
	DC.L	$01a80000
	DC.L	$01aa0000
	DC.L	$01ac0000
	DC.L	$01ae0000
	DC.L	$01b00000
	DC.L	$01b20000
	DC.L	$01b40000
	DC.L	$01b60000
	DC.L	$01b80000
	DC.L	$01ba0000
	DC.L	$01bc0000
	DC.L	$01be0000
	DC.L	$ed01FFFE
	DC.L	$01005200
	DC.L	$fffffffe
oldsynscreen:
	DC.L	$74b00
newsynscreen:
	DC.L	$72500
clearbuffer:
	BLK.L	8,0
rotatexyz:
	DC.W	0,0
octants:
	DC.B	$3*4+3
	DC.B	$2*4+3
	DC.B	$1*4+3
	DC.B	$0*4+3
	DC.B	$7*4+3
	DC.B	$5*4+3
	DC.B	$6*4+3
	DC.B	$4*4+3
creditstablepause:
	DC.W	1
creditstablepointer:
	DC.L	creditstable
creditstextcopper:
	DC.L	$0090e5C1
	DC.L	$01000200
	DC.L	$01080050
	DC.L	$010A0050
	DC.L	$00e00007
	DC.L	$00e40007
	DC.L	$00e80007
creditstextcopperpointer:
	DC.L	$00e2a000
	DC.L	$00e6a000+40
	DC.L	$00eaa000+80
	DC.L	$01800000
creditstextcoppercolor:
	DC.L	$01820000
	DC.L	$01840000
	DC.L	$01860000
	DC.L	$01880000
	DC.L	$018a0000
	DC.L	$018c0000
	DC.L	$018e0000
	DC.L	$01900000
	DC.L	$b801FFFE
	DC.L	$01003200
	DC.L	$FFFFFFFE
creditscopper:
	DC.L	$008E2C71
	DC.L	$00902CD1
	DC.L	$00920030
	DC.L	$009400D8
	DC.L	$01001200
	DC.L	$0182000f
	DC.L	$00e00007
creditscopperpointer:
	DC.L	$00e22000
	DC.L	$01a00000
	DC.L	$01a20000
	DC.L	$01a40000
	DC.L	$01a60000
	DC.L	$01a80000
	DC.L	$01aa0000
	DC.L	$01ac0000
	DC.L	$01ae0000
	DC.L	$01b00000
	DC.L	$01b20000
	DC.L	$01b40000
	DC.L	$01b60000
	DC.L	$01b80000
	DC.L	$01ba0000
	DC.L	$01bc0000
	DC.L	$01be0000
	DC.L	$FFFFFFFE

;gennemgaaende
framecountdown:	DC.W	0	;taeller til pause
startaddress:
	DC.L	$4c0
halftracks:
	DC.B	14	;size of loaderscreen in halftracks
	EVEN
theendscrollspeed:
	DC.B	2
theendscrollcounter:
	DC.B	16
theendscrollpause:
	DC.W	0
mt_equadatas:
		DC.W	0,0,0,0		;instr. freq.
theendscrollpointer:
	DC.L	theendscrolltext
	EVEN
creditsfirsttime:
	DC.B	0
creditsmode:
	DC.B	1
creditsfadecounter:
	DC.W	0
creditstable:
	DC.W	1,$4000,$4000,$4000,10000
	DC.L	sunpoints,sunpolygons
	DC.W	0,$200,0,0,100
	DC.W	2,90
	DC.W	0,$180,0,0,0
	DC.W	2,$10a
	DC.W	0,$1c0,0,0,-100
	DC.W	2,90
	DC.W	1,$b4c0,$4000,$4000,10000
	DC.L	xodpoints,xodpolygons
	DC.W	0,$20,$0,-$0,100
	DC.W	2,90
	DC.W	0,$100,$180,-$80,0
	DC.W	2,$100
	DC.W	0,$80,$1c0,-$40,-100
	DC.W	2,90
	DC.W	1,$a9c0,$29c0,$3560,10000
	DC.L	yoyopoints,yoyopolygons
	DC.W	0,$40,$40,$20,100
	DC.W	2,85
	DC.W	0,$70,$180,$0,0
	DC.W	2,$f0
	DC.W	0,$100,$180,$30,-100
	DC.W	2,85
	DC.W	3
sunpoints:
	DC.W	-3,-31,-32,-60,-32,60,-3,31			       ;d
	DC.W	2,-30,32,-60,32,50,22,60,22,20,12,30,12,50,2,60	       ;a
	DC.W	36,60,36,-30,66,-60,66,50,56,60,56,-33,46,-23,46,50    ;n
	DC.W	70,60,100,30,100,13,80,33
	DC.W	80,-23,100,-43,100,-60,70,-30			       ;c
	DC.W	104,60,134,30,134,13,114,33,114,8,124,-2,124,-18,114,-8
	DC.W	114,-23,134,-43,134,-60,104,-30			       ;e
	DC.W	36-102,60,36-102,-30,66-102,-60,66-102,50,56-102,60
	DC.W	56-102,-33,46-102,-23,46-102,50			       ;n
	DC.W	-70,30,-100,60,-100,-50,-90,-60
	DC.W	-90,33,-80,23,-80,-50,-70,-60			       ;u
	DC.W	-104,-60,-104,-43,-124,-23,-124,-7,-104,-7,-104,30
	DC.W	-134,60,-134,43,-114,23,-114,7,-134,7,-134,-30	       ;s
	DC.W	-12,-23,-12,23,-22,33,-22,-33			;d hul
	DC.W	12,-23,12,13,22,3,22,-33
	DC.W	$8000
sunpolygons:
	DC.W	4	;d
	DC.W	8 	;a
	DC.W	8 	;n
	DC.W	8 	;c
	DC.W	12	;e
	DC.W	8	;n
	DC.W	8	;u
	DC.W	12	;s
	DC.W	4	;d hul
	DC.W	4	;a hul
	DC.W	$8000

yoyopoints:
	DC.W	58,40,108,90,108,-40,58,-90
	DC.W	75,23,91,39,91,-23,75,-39
;spring 34
	DC.W	58-111,40,108-111,90,108-111,-40,58-111,-90
	DC.W	75-111,23,91-111,39,91-111,-23,75-111,-39
	DC.W	3,73,20,90,20,4,36,21,36,73,53,90
	DC.W	53,-40,03,-90,03,-66,36,-33
	DC.W	36,-3,4,-37
	DC.W	3-111,73,20-111,90,20-111,4,36-111,21,36-111,73,53-111,90
	DC.W	53-111,-40,03-111,-90,03-111,-66,36-111,-33
	DC.W	36-111,-3,4-111,-37

	DC.W	$8000
yoyopolygons:
	DC.W	4,4,4,4,12,12,$8000
xodpoints:
	DC.W	-57,0,-70,13,-70,77,-57,90,-57,15,-50,10,-43,15
	DC.W	-43,77,-30,90,-30,13,-43,0,-30,-13,-30,-77,-43,-90
	DC.W	-43,-15,-50,-10,-57,-15,-57,-77,-70,-90,-70,-13
;-70 -30 40
	DC.W	-25,40,25,90,25,-40,-25,-90
	DC.W	-8,23,8,39,8,-23,-8,-39
;-25  25 50
	DC.W	30,90,70,50,70,-50,30,-90
	DC.W	43,50,57,36,57,-36,43,-50
; 30  40 40
	DC.W	$8000
xodpolygons:
	DC.W	20,4,4,4,4,$8000
theendfonttable:
	DC.B	0,0,0,0,0,0,0,0
	DC.B	0,0,0,0,0,0,0,0

	DC.B	0,0,0,0,0,0,0,0
	DC.B	0,0,0,0,0,0,0,0

	DC.B	33,26,0,0,0,0,0,0
	DC.B	31,32,0,0,29,30,28,0

	DC.B	34,35,36,37,38,39,40,41
	DC.B	42,43,0,0,0,0,0,27

	DC.B	0,0,0,0,0,0,0,0
	DC.B	0,0,0,0,0,0,0,0

	DC.B	0,0,0,0,0,0,0,0
	DC.B	0,0,0,0,0,0,0,0

	DC.B	0,0,1,2,3,4,5,6
	DC.B	7,8,9,10,11,12,13,14

	DC.B	15,16,17,18,19,20,21,22
	DC.B	23,24,25,0,0,0,0,0
theendscrolltext:
	DC.B	2,2,1,0,100
	DC.B	'this demo is a friendship release by rebels!!! '
	DC.B	'sorry not to release it at the party. '
	DC.B	'special thanks to all rebels members for their '
	DC.B	'support, especially ozone for the twiggle routine '
	DC.B	'and conan for his loader help. '
	DC.B	'if you want to contact rebels, write to our hq.'
	DC.B	' the address is     rebels(remember this!!!)      '
	DC.B	'poste restante        2670 greve        denmark   '
	DC.B	'       '
	DC.B	' now for the text we wrote on the party, starting '
	DC.B	'with the first text we wrote.      '
	DC.B	'we have',2,4,' just arrived, '
	DC.B	'4 hours ago, many cool groups'
	DC.B	' have arrived, so its quite cool.'
	DC.B	' we are now'
	DC.B	' working on this demo, which will be finished before'
	DC.B	' deadline, i hope. to my right, conan is going to'
	DC.B	' play kickoff 2 with newton, and some other guys are'
	DC.B	' watching them. right now newton scored, so he leads'
	DC.B	' 1-0. now jake and yoyo are going to write. c u! '
	dc.b	'          yeah !!!     back from watching porno-movies'
	dc.b	' on denmarks nr.1 dirty channel,  jake and yoyo raids'
	dc.b	' ya again !!!      this is a so called precalculated'
	dc.b	' simulated scrolltext !!!     hope you know what that'
	dc.b	' means, coz i dont !!!      god, the beer and booze'
	dc.b	' have absorbed my brain totally, so i will stop in'
	dc.b	' a minute or two, coz i just cant keep my conzen'
	dc.b	'tration at this !!!        just sum party greets to:'
	dc.b	'       fab and static, zike (drunk as ever), bozo,'
	dc.b	' vandal and the rest !!!      byeeeee.           '
	DC.B	' break by sundance...   have you heard '
	DC.B	' greatest hits 1 by disco leif of static bytes?'
	DC.B	' if you havent, then get it, coz its coooool!!!!!'
	dc.b	' and yes xod types again !!!! first of all i will'
	dc.b	' send some greetings to some of my friends... here'
	dc.b	' goes....     whizkid of kefrens - hey freak whats'
	dc.b	' up !?! so you came to the party too !!! ....   '
	dc.b	' static and vandal of paradox - ja, ja, ja saa koere'
	DC.B	' svinet !?!  thanks for always cool times when we are'
	dc.b	' together, by the way when are you going to release'
	dc.b	' some stuff ??? keep moving freaks you are some of the'
	dc.b    ' best !!! stay cool .. as always !!!..... exorbit and'
	dc.b    ' scot of arcane - thank you scot for fixing exorbits'
	dc.b	' diskdrive, ha ha haa ! yo exorbit thanks for the '
	dc.b    ' cool stuff ! by the way do you remember when we were'
	dc.b	' on bakken, and static tryed the bull machine !!!!'
	dc.b    ' ha hhhaaaa !!! it is a megajohn !! well see you....'
	dc.b    '  grimlog of ??? - move your acid and get that fucking'
	dc.b    ' menu coded ????.... proxt and temet of cave - looooong'
	dc.b    ' time no see ? are you working on a new demo/menu ?...'
	dc.b    '    ok that must be enough for this time or ... no be'
	dc.b    'tter not !!! see you in your fantasy... xod jams the'
	dc.b    ' board of funny keys to ozone and he rocks like this'
	dc.b    "   yope, now it ozone typing ..   first of all a"
	dc.b 	"little message to (it have to come) ozone of abandon"
dc.b ". nice work, you are doing, but a shame you have chosen that "
dc.b "name. well, i believe i got the name first (at least 4 years ago"
dc.b ", i can prove it), and it is a mess with more ozones. please chan"
dc.b "ge your name. i cannot force you, and if you dont want to, i can"
dc.b " do nothing, but the fact is clear ...  so it is up to you ..."
dc.b "   enough of that subject ..   what about some party news .. "
dc.b "well, it is quite cool here, and todays oppinion is :   jeg sav"
dc.b "ner min seng !!!!     lame text was written by ozone of rebels"
dc.b " ..  now back to sum filled vectors or sumthing like that !!!  "
dc.b "  newton flying in   ....     "
        dc.b	" ..... hiya guys.. this is the indestructable newton"
	dc.b	" filling your memory with bullshit! ... at this parti"
	dc.b	"cular moment which is about 7 pm all the cool rebels "
	dc.b	"are at the silents-red sector copyparty in glostrup"
	dc.b	" ... about the macth sundance referred to before"
	dc.b	", it ended 1-1 .. too bad! i had the lead"
	dc.b	" .... the room is crowded with amigas, sterios"
	dc.b	", monitors and an infernal noise of housemix"
	dc.b	", heavy, and computer sounds.... a lot of cool groups are"
	dc.b	" present at this party, eg. scoopex, spreadpoint"
	dc.b	", dual crew, paradox, triumph, flash production and so on...."
	dc.b	" now my fingers are going numb, so ill let our new"
	dc.b	" member !benefit! write sum moor txt c-ya! .........."
	dc.b	"benefit taking over...     yeah!!!    finally newton left the"
	dc.b    " keyboard...   we're having a swell time here in glostrup, "
	dc.b    "but i'm still hungry as i haven't been eating in almost 24"
	dc.b    " hours. well, i guess this is quite boring to read, so i'm"
	dc.b    " going to let someone else write....     "
	dc.b    "     ahh yeah !!!      where am i???   we're back to play"
	dc.b    " skak, in a shack attack !!!  who am i???    i am jake the"
	dc.b    " slaughter movie maniac !!!      get your nose away from that"
	dc.b    " monitor bozo !!!     ahh yeah !!!!    pizza og koedklumber"
	dc.b	" !!!     here is bozo......      here is jake again, bozo "
	dc.b	"didn't want to type anything, i guess???     who's that ???"
	dc.b	"        welll i'll go again !!!         byeeeeeeee !!!"
	DC.B	' now badman of static bytes wants to write something,'
	DC.B	' so here he is.      '
	DC.B	' allo allo cest badman! ahem, pardon my french'
	DC.B	' it is not so perfect - yet! well lets write some'
	DC.B	' interesting crab!? yep, as you might already know'
	DC.B	' im badman of static bytes, and sundance gave me'
	DC.B	' the great honor to write in his scroll, but i dont'
	DC.B	' really know what to write so ill just greet you guys'
	DC.B	' in rebels and good luck with your part for the'
	DC.B	' competition! badman of stb is signing off - bye !'
	DC.B	' thanks to badman the caped crusader of static bytes'
	DC.B	' now, i have to code a bit, so hold on. .. .. . .  '
	DC.B	' now its film time, and newton wants to describe the'
	DC.B	' film closely.'
	dc.b	" yesss! next to me raz and an ex-trilogy member"
	dc.b	" are watching a screamingly horny pornomovie"
	dc.b	" at highest volume......the movie is called"
	dc.b	"oestens emanuelle and was brought to the party by bozo"
	dc.b	" of rebels ..... its a real supermovie for"
	dc.b	" sexually degenerates.. like bozo ... hehe! ......"
	dc.b	" after some boozing on scoopex behalf, and the dropping"
	dc.b	" of some teargas in the partyplace.. bozo,jake and cruncher"
	dc.b	" of rebels went with zike,static and vandal and some other"
	dc.b	" guys to the local disco ..wall street??.. to party"
	dc.b	", but due to a lousy economic situation i had to stay here"
	dc.b	" .... so im seriously thinking about coding bit on my"
	dc.b	" filled vector routine, so ill nourish my sexual tendencies"
	dc.b	" and watch the movie on the other screen... cul8r newton" 
	DC.B	'        now its about 1 oclock in the night. the '
	DC.B	'movie is over, and everybody around here are working.'
	DC.B	' conan is working with a sinuscalculator by jim of '
	DC.B	'static bytes, and ozone is looking very worried at the'
	DC.B	' code for a new, soon coming demo (i hope!). '
	DC.B	'2 minutes ago newton pissed. now hes going to tell'
	DC.B	' about it. ' 
dc.b	" ..yeah! ... it was  great relief to get all dried out"
dc.b	" coz i really was sitting uneasy in the seat in the minutes"
dc.b	" before my visit to the santary arrangements here in glostrup"
dc.b	"... so, now im relaxed, my knees has stopped shivering"
dc.b	", and perhaps i can type some text before the "
dc.b	"incompetent electrician kills the powersupply for the "
dc.b	"whole room.....    or perhaps not!??! ..i better stop"
dc.b	" before its too late....c-ya!........"
	DC.B	'well, i(sundance) am gonna sign off now, coz nobody '
	DC.B	'ever reads that much of a scroll text.'
	DC.B	'                        '
	DC.B	'  ',0
	EVEN
creditscolors:
introfontcolors:
	dc.w	$f00
	dc.w	$d00
	dc.w	$b00
	dc.w	$900
	dc.w	$700
	dc.w	$500
	dc.w	$300
rebelscolortab:
	DC.W	$bbb,$999,$666,$ccc,$888,$555,$444,$333
	DC.W	$6dd,$488,$366,$404,$303,$202,$101
dimensioncolors:
	dc.w	$0500
	dc.w	$0600
	dc.w	$0800
	dc.w	$0900
	dc.w	$0B00
	dc.w	$0C00
	dc.w	$0E00
	dc.w	$0F00
	dc.w	$0F20
	dc.w	$0F40
	dc.w	$0F60
	dc.w	$0F80
	dc.w	$0FB0
	dc.w	$0FD0
	dc.w	$0FF0
wobblesprite1:
	DC.L	$62626300
	DC.L	$00010001
	DC.L	$74777700	;samlet=farve 3=mork
	DC.L	$00020000	;venstre=farve 1=mellem
	DC.L	$00000007	;hojre=farve 2=lys
	DC.L	$00020000
	DC.L	$7f8c8000
	DC.L	$00010000
	DC.L	$81cd8200
	DC.L	$00010001
	DC.L	$85448600
	DC.L	$00000001
	DC.L	$87728c00
	DC.L	$00040004
	DC.L	$00040000
	DC.L	$001b0015
	DC.L	$00040000
	DC.L	$00040004
	DC.L	$90609100
	DC.L	$00010001
	DC.L	$95999800	;samlet=farve 3=mork
	DC.L	$00020000	;venstre=farve 1=mellem
	DC.L	$00000007	;hojre=farve 2=lys
	DC.L	$00020000
	DC.L	$99ba9a00
	DC.L	$00010000
	DC.L	$9e689f00
	DC.L	$00010001
	DC.L	$a342a400
	DC.L	$00000001
	DC.L	$a5aeaa00
	DC.L	$00040004
	DC.L	$00040000
	DC.L	$001b0015
	DC.L	$00040000
	DC.L	$00040004
	DC.L	$abc9ae00	;samlet=farve 3=mork
	DC.L	$00020000	;venstre=farve 1=mellem
	DC.L	$00000007	;hojre=farve 2=lys
	DC.L	$00020000
	DC.L	$af84b000
	DC.L	$00010000
	DC.L	$b143b200
	DC.L	$00010001
	DC.L	$b55cb600
	DC.L	$00000001
	DC.L	$b74dbc00
	DC.L	$00040004
	DC.L	$00040000
	DC.L	$001b0015
	DC.L	$00040000
	DC.L	$00040004
	DC.L	$c481c700	;samlet=farve 3=mork
	DC.L	$00020000	;venstre=farve 1=mellem
	DC.L	$00000007	;hojre=farve 2=lys
	DC.L	$00020000
	DC.L	$cf93d000
	DC.L	$00010000
	DC.L	$d1bcd200
	DC.L	$00010001
	DC.L	$d5c3d600
	DC.L	$00000001
	DC.L	$d7b9dc00
	DC.L	$00040004
	DC.L	$00040000
	DC.L	$001b0015
	DC.L	$00040000
	DC.L	$00040004

	DC.L	$df94e000
	DC.L	$00010000
	DC.L	$e1b3e200
	DC.L	$00010001
	DC.L	$e56ce600
	DC.L	$00000001
	DC.L	$e79dec00
	DC.L	$00040004
	DC.L	$00040000
	DC.L	$001b0015
	DC.L	$00040000
	DC.L	$00040004
	DC.L	$f451f700	;samlet=farve 3=mork
	DC.L	$00020000	;venstre=farve 1=mellem
	DC.L	$00000007	;hojre=farve 2=lys
	DC.L	$00020000
	DC.L	$fec3ff00
	DC.L	$00010000
	DC.L	$014c0206
	DC.L	$00010001
	DC.L	$05960606
	DC.L	$00000001
	DC.L	$0a8f0f06
	DC.L	$00040004
	DC.L	$00040000
	DC.L	$001b0015
	DC.L	$00040000
	DC.L	$00040004
	DC.L	$10931306	;samlet=farve 3=mork
	DC.L	$00020000	;venstre=farve 1=mellem
	DC.L	$00000007	;hojre=farve 2=lys
	DC.L	$00020000
	DC.L	$15471606
	DC.L	$00010000
	DC.L	$175f1806
	DC.L	$00010001
	DC.L	$1ab71b06
	DC.L	$00000001
	DC.L	$1ca01d06
	DC.L	$00000001
	DC.L	$00000000
wobblesprite2:
	DC.L	$00000000
wobblesprite3:
	DC.L	$00000000
wobblesprite4:
	DC.L	$00000000
wobblesprite5:
	DC.L	$00000000
wobblesprite6:
	DC.L	$00000000
wobblesprite7:
	DC.L	$00000000
wobblesprite8:
	DC.L	$00000000

; 0123456789,.!?-()
*;tomme datas
*	ORG	$28000
*	LOAD	$28000
xvidatas:
	DC.W	0,0
yvidatas:
	DC.W	0,0
zvidatas:
	DC.W	0,0
xvinkel:
	DC.W	0
yvinkel:
	DC.W	0
zvinkel:
	DC.W	0
distance:
	DC.W	0
figurepoints:
	DC.L	0
figurepolygons:
	DC.L	0
points2d:
	BLK.L	128,0
	DC.W	0
zoomspeed:
	DC.W	0