; $4c000 - $5b8b2

>extern "mucky",$50000
>extern "onecolfont.dat",font
>extern "tune",module

jmp	$4c000
org	$4c000
load	$4c000

font = $5a000
module = $5a7d0

movem.l	d0/d1/d2/d3/d4/d5/d6/d7/a0/a1/a2/a3/a4/a5/a6,-(a7)
move.l	a7,InitialSP			; Just to be on the safe side
moveq	#0,d0
bsr	SwitchOSout			; Switch out Operating System
bsr	Initchips			; Setup Custom chip pointers
bsr	Initint				; Setup Interrupts.
bsr	init_music
bsr	setstars
bsr	clear
bsr	Wait
bsr	end_music
bsr	Resetint			; Reset interrupts
bsr	Resetchips			; Reset custom chips
bsr	SwitchOSin			; Switch in Operating System.
move.l	InitialSP,a7			; Restore Stack Frame Pointer
movem.l	(a7)+,a0/a1/a2/a3/a4/a5/a6/d0/d1/d2/d3/d4/d5/d6/d7
rts

Clear:
lea	$70000,a0
lea	$75000,a1

cloop:
clr.b	(a0)+
cmp.l	a0,a1
bne	cloop
rts

InitialSP:dc.l 0			; Hold initial SP

SwitchOSout:				; Switch out disturbing stuff.
move.l	$4,a6				; System Base
lea	gfxlib,a1
clr.l	d0
jsr	-552(a6)			; _LVOOpenLibrary
move.l	d0,gfxbase			; Save Graphics_lib base
jsr	-$84(a6)			; _LVOForbid
jsr	-$96(a6)			; _LVOSuperState
move.l	d0,systack			; System stack
rts

systack:dc.l 0
gfxlib:	dc "graphics.library",0,0
gfxbase:dc.l 0

Initchips:				; Initialize custom chips
move.w	$dff01c,intesave
move.w	$dff01e,intrsave
move.w	$dff002,dmasave
move.w	$dff010,adksave
move.w	#%0111111111111111,$dff096	; DMACONW
move.w	#%1000001111100000,$dff096	; Disable disk access.
move.w	#%0111111111111111,$dff09a	; INTENA
move.w	#%1100000000110100,$dff09a	; Enable desired IRQ's
move.l	#copl,$dff080
rts

intesave:dc.w	0
intrsave:dc.w	0
dmasave:dc.w	0
adksave:dc.w	0

InitInt:				; Initialize interrupts
move.l	$6c,level3save			; Save level 3 vector
move.l	$6c,af3+2
move.l	$68,level2save			; Save level 2 vector
move.l	$68,af2+2
move.l	#level2irq,$68			; Set new interrupt vector 2
move.l	#level3irq,$6c			; Set new interrupt vector 3
rts

level2save:dc.l 0
level3save:dc.l 0

ResetInt:				; Reset Interrupts
move.l	level3save,$6c			; Restore level 3 vector
move.l	level2save,$68			; Restore level 2 vector
rts

Resetchips:				; Reset custom chips
move.w	intesave,d7
bset	#$f,d7
move.w	d7,$dff09a			; Reset Interrupts
move.w	intrsave,d7
bset	#$f,d7
move.w	d7,$dff09c			; Reset interrupt request
move.w	dmasave,d7
bset	#$f,d7
move.w	d7,$dff096			; Reset DMAConw
move.w	adksave,d7
bset	#$f,d7
move.w	d7,$dff09e			; Reset ADK
move.l	gfxbase,a0
move.l	$26(a0),$dff080
rts

SwitchOSIn:				; Allow OS to operate again.
move.l	4,a6				; System Base
jsr	-$8a(a6)			; _LVOPermit
move.l	systack,d0			; Systemstack
jsr	-$9c(a6)			; _LVOUserState
rts

level2irq:
af2:jmp 0

level3irq:
movem.l	d0/d1/d2/d3/d4/d5/d6/d7/a0/a1/a2/a3/a4/a5/a6,-(a7)
bsr	dobump
bsr	docop
bsr	play
bsr	movestars
movem.l	(a7)+,d0/d1/d2/d3/d4/d5/d6/d7/a0/a1/a2/a3/a4/a5/a6
af3:jmp 0

Wait:					; Wait.
wtl:
cmp.b	#40,$dff006
bne	wtl
bsr	bringtext
btst	#6,$bfe001
bne.s	wait
rts

Dobump:
move.l	InCol(pc),a1
move.w	(a1)+,d0
cmp.w	#"END!",d0
bne.s	NoRestart2
move.l	#Collas,a1
move.w	(a1)+,d0

NoRestart2:
mulu	#40,d0
move.w	d0,pointah
add.w	#$2800,d0
move.w	d0,pointa2
add.w	#$2800,d0
move.w	d0,pointa3
add.w	#$2800,d0
move.w	d0,pointa4
move.l	a1,InCol
move.l	InCol2(pc),a1
move.w	(a1)+,d0
cmp.w	#"END!",d0
bne.s	NoRestart22
move.l	#Collas2,a1
move.w	(a1)+,d0

NoRestart22:
move.w	d0,delay
move.l	a1,InCol2
rts

bringtext:
 move.w        #138,$dff064
 move.w        #44,$dff066
 move.w        #44,$dff062
 move.l        #$ffffffff,$dff044
 move.w        #0,$dff042
 lea           bobxcoor,a0
 lea           bobycoor,a1
 moveq         #0,d5
 moveq         #20,d6

bringtext1:
 jsr           unblittext
 add.b         #6,d5
 dbra          d6,bringtext1
 lea           bobytable,a1
 lea           bobyz,a2
 lea           bobycoor,a3
 lea           bobxcoor,a0
 jsr           chtext
 lea           bobxcoor,a0
 lea           bobycoor,a1
 moveq         #0,d5
 moveq         #20,d6

bringtext2:
 jsr           blittext
 add.b         #6,d5
 dbra          d6,bringtext2
 rts

chtext:
 moveq         #20,d0

chtexty1:
 move.w        (a2)+,d1
 rol           #1,d1
 move.w        (a1,d1),d1
 move.w        #1,d2			; Starting point
 add.w         d1,d2
 move.w        d2,(a3)+
 dbra          d0,chtexty1
 lea           bobyz,a1
 moveq         #20,d0			; Number of char per row

chtexty2:
 move.w        (a1),d1
 add.b         #1,d1
 cmp.b         #40,d1			; Number of datas in the sintab
 beq           chtexty3
 bgt           chtexty5

chtexty4:
 move.w        d1,(a1)+
 dbra          d0,chtexty2
 moveq         #0,d2
 move.l        #20,d0

chtext1:
 move.w        (a0),d1
 sub.w         speedcontrol,d1
 cmp.w         #0,d1
 ble           chtext2

chtext3:
 move.w        d1,(a0)+
 addq          #1,d2
 dbra          d0, chtext1
 rts

chtext2:
 jsr           nextchar
 move.w        #336,d1
 bra           chtext3

chtexty3:
 move.w        #0,d1
 bra           chtexty4

chtexty5:
 sub.b         #38,d1
 bra           chtexty4

speedcontrol:
 dc.w          2

nextchar:
 lea           bobyz,a5
 move.l        d2,d4
 cmp.b         #0,d4
 beq           nextchary1
 rol           #1,d4
 move.w        -2(a5,d4),d5
 add.w         #2,d5
 move.w        d5,(a5,d4)

nextchary2:
 move.l        d2,d4
 mulu          #6,d4
 lea           message,a1
 move.l        messpointer,d3
 add.w         #1,d3
 move.l        d3,messpointer
 add.w         d3,a1
 clr.l         d3
 move.b        (a1),d3
 cmp.b         #2,d3			; Check what kind of char
 beq           speedtotwo
 cmp.b         #4,d3
 beq           speedtofour
 cmp.b         #32,d3
 beq           spacechar
 cmp.b         #0,d3
 beq           newstart
 move.w        #0,d6
 sub.b         #65,d3
 cmp.b         #20,d3
 blt           nnxx1
 cmp.b         #39,d3
 bgt           nnxx2
 move.w        #640,d6

nnxx1:
 rol           #1,d3
 lea           font,a2
 add.w         d6,a2
 move.l        #$70000,a3
 move.l        #15,d5

copychar1:
 move.w        (a2,d3),(a3,d4)
 add.w         #40,a2
 add.w         #144,a3
 dbra          d5,copychar1
 rts

speedtotwo:
 move.w        #2,speedcontrol
 bra           speedweiter

speedtofour:
 move.w        #4,speedcontrol

speedweiter:
 rts

nnxx2:
 move.w        #1280,d6
 bra           nnxx1

nextchary1:
 move.w        40(a5),d5		; Add next row in charset
 add.b         #2,d5
 move.w        d5,(a5)
 bra           nextchary2

newstart:
 move.l        #0,messpointer
 rts

spacechar:
 move.l        #$70000,a3
 move.l        #15,d5

spaceit1:
 move.w        #0,(a3,d4)
 add.w         #144,a3
 dbra          d5,spaceit1
 rts

messpointer:
 dc.l          0

unblittext:
 move.w        (a1)+,d2
 add.w         #50,d2
 mulu          #50,d2
 move.w        (a0)+,d0
 add.w         #384,d0
 move.l        d0,d1
 and.w         #$000f,d1
 rol.w         #8,d1
 rol.w         #4,d1
 add.w         #%0000100100000000,d1
 lsr           #3,d0
 jsr           waitblt
 move.l        #$70000,a4
 add.w         d5,a4
 move.l        #$72000,a5
 add.w         d0,a5
 add.w         d2,a5
 move.l        a5,$dff054
 move.l        a5,$dff04c
 move.l        a4,$dff050
 move.w        d1,$dff040
 move.w        #$0403,$dff058
 rts

blittext:
 move.w        (a1)+,d2
 add.w         #50,d2
 mulu          #50,d2
 move.w        (a0)+,d0
 add.w         #384,d0
 move.l        d0,d1
 and.w         #$000f,d1
 rol.w         #8,d1
 rol.w         #4,d1
 add.w         #%0000111111111100,d1
 lsr           #3,d0
 jsr           waitblt
 move.l        #$70000,a4
 add.w         d5,a4
 move.l        #$72000,a5
 add.w         d0,a5
 add.w         d2,a5
 move.l        a5,$dff054
 move.l        a5,$dff04c
 move.l        a4,$dff050
 move.w        d1,$dff040
 move.w        #$0403,$dff058
 rts

bobxcoor:
 dc.w          4,20,36,52,68,84,100,116,132,148,164,180,196,212,228,244
 dc.w          260,276,292,308,324,340

bobycoor:
 blk.w          21,180

bobytable:
	dc.w	-39,-39,-38,-37,-35,-33,-31,-28
	dc.w	-25,-22,-19,-16,-13,-10,-7,-5
	dc.w	-3,-1,0,0,0,0,0,-1
	dc.w	-3,-5,-7,-10,-13,-16,-19,-22
	dc.w	-25,-28,-31,-33,-35,-37,-38,-39

bobyz:
 dc.w          0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20

waitblt: 
 btst #14,$dff002
 bne waitblt
 rts  

Setstars:
	move.l	#sprite0,d0
	move.w	d0,sp2
	swap	d0
	move.w	d0,sp1
	move.l	#sprite1,d0
	move.w	d0,sp4
	swap	d0
	move.w	d0,sp3
	move.l	#sprite2,d0
	move.w	d0,sp6
	swap	d0
	move.w	d0,sp5
	move.l	#sprite3,d0
	move.w	d0,sp8
	swap	d0
	move.w	d0,sp7
	rts

Movestars:
	lea	sprite0+1,a0
	moveq	#sprite0_end-sprite0-4/8-1,d1
	moveq	#1,d2

stars_loop:
	cmp.b	#$1f,(a0)
	bne.s	stars_weiter1
	move.b	#$df,(a0)	
	bra.s	stars_no_add	

stars_weiter1:
	sub.b	d2,(a0)

stars_no_add:
	addq.l	#1,d2
	cmp.b	#6,d2
	bne.s	stars_weiter2
	moveq	#1,d2

stars_weiter2:
	add.l	#8,a0
	dbra	d1,stars_loop

stars_end:
	rts

END_MUSIC:
clr.w onoff
clr.l $dff0a6
clr.l $dff0b6
clr.l $dff0c6
clr.l $dff0d6
move.w #$000f,$dff096
bclr #1,$bfe001
rts

INIT_MUSIC:
move.w #1,onoff
bset #1,$bfe001
lea MODULE,a0
lea 100(a0),a1
move.l a1,SEQpoint
move.l a0,a1
add.l 8(a0),a1
move.l a1,PATpoint
move.l a0,a1
add.l 16(a0),a1
move.l a1,FRQpoint
move.l a0,a1
add.l 24(a0),a1
move.l a1,VOLpoint
move.l 4(a0),d0
divu #13,d0

lea 40(a0),a1
lea SOUNDINFO+4(pc),a2
moveq #10-1,d1
initloop:
move.w (a1)+,(a2)+
move.l (a1)+,(a2)+
addq.w #4,a2
dbf d1,initloop
moveq #0,d2
move.l a0,d1
add.l 32(a0),d1
sub.l #WAVEFORMS,d1
lea SOUNDINFO(pc),a0
move.l d1,(a0)+
moveq #9-1,d3
initloop1:
move.w (a0),d2
add.l d2,d1
add.l d2,d1
addq.w #6,a0
move.l d1,(a0)+
dbf d3,initloop1
move.l SEQpoint(pc),a0
moveq #0,d2
move.b 12(a0),d2		;Get replay speed
bne.s speedok
move.b #3,d2			;Set default speed
speedok:
move.w d2,respcnt		;Init repspeed counter
move.w d2,repspd
INIT2:
clr.w audtemp
move.w #$000f,$dff096		;Disable audio DMA
move.w #$0780,$dff09a		;Disable audio IRQ
moveq #0,d7
mulu #13,d0
moveq #4-1,d6			;Number of soundchannels-1
lea V1data(pc),a0		;Point to 1st voice data area
lea silent(pc),a1
lea o4a0c8(pc),a2
initloop2:
move.l a1,10(a0)
move.l a1,18(a0)
clr.l 14(a0)
clr.b 45(a0)
clr.b 47(a0)
clr.w 8(a0)
clr.l 48(a0)
move.b #$01,23(a0)
move.b #$01,24(a0)
clr.b 25(a0)
clr.l 26(a0)
clr.w 30(a0)
moveq #$00,d3
move.w (a2)+,d1
move.w (a2)+,d3
divu #$0003,d3
move.b d3,32(a0)
mulu #$0003,d3
andi.l #$00ff,d3
andi.l #$00ff,d1
addi.l #$dff0a0,d1
move.l d1,a6
move.l #$0000,(a6)
move.w #$0100,4(a6)
move.w #$0000,6(a6)
move.w #$0000,8(a6)
move.l d1,60(a0)
clr.w 64(a0)
move.l SEQpoint(pc),(a0)
move.l SEQpoint(pc),52(a0)
add.l d0,52(a0)
add.l d3,52(a0)
add.l d7,(a0)
add.l d3,(a0)
move.w #$000d,6(a0)
move.l (a0),a3
move.b (a3),d1
andi.l #$00ff,d1
lsl.w #6,d1
move.l PATpoint(pc),a4
adda.w d1,a4
move.l a4,34(a0)
clr.l 38(a0)
move.b #$01,33(a0)
move.b #$02,42(a0)
move.b 1(a3),44(a0)
move.b 2(a3),22(a0)
clr.b 43(a0)
clr.b 45(a0)
clr.w 56(a0)
adda.w #$004a,a0	;Point to next voice's data area
dbf d6,initloop2
rts

PLAY:
lea pervol(pc),a6
tst.w onoff
bne.s music_on
rts
music_on:
subq.w #1,respcnt		;Decrease replayspeed counter
bne.s nonewnote
move.w repspd(pc),respcnt	;Restore replayspeed counter
lea V1data(pc),a0		;Point to voice1 data area
bsr.L new_note
lea V2data(pc),a0		;Point to voice2 data area
bsr.L new_note
lea V3data(pc),a0		;Point to voice3 data area
bsr.L new_note
lea V4data(pc),a0		;Point to voice4 data area
bsr.L new_note
nonewnote:
clr.w audtemp
lea V1data(pc),a0
bsr.L effects
move.w d0,(a6)+
move.w d1,(a6)+
lea V2data(pc),a0
bsr.L effects
move.w d0,(a6)+
move.w d1,(a6)+
lea V3data(pc),a0
bsr.L effects
move.w d0,(a6)+
move.w d1,(a6)+
lea V4data(pc),a0
bsr.L effects
move.w d0,(a6)+
move.w d1,(a6)+
lea pervol(pc),a6
move.w audtemp(pc),d0
ori.w #$8000,d0			;Set/clr bit = 1
move.w d0,-(a7)
moveq #0,d1
move.l start1(pc),d2		;Get samplepointers
move.w offset1(pc),d1		;Get offset
add.l d1,d2			;Add offset
move.l start2(pc),d3
move.w offset2(pc),d1
add.l d1,d3
move.l start3(pc),d4
move.w offset3(pc),d1
add.l d1,d4
move.l start4(pc),d5
move.w offset4(pc),d1
add.l d1,d5
move.w ssize1(pc),d0		;Get sound lengths
move.w ssize2(pc),d1
move.w ssize3(pc),d6
move.w ssize4(pc),d7
move.w (a7)+,$dff096		;Enable audio DMA
chan1:
lea V1data(pc),a0
tst.w 72(a0)
beq.l chan2
subq.w #1,72(a0)
cmpi.w #1,72(a0)
bne.s chan2
clr.w 72(a0)
move.l d2,$dff0a0		;Set soundstart
move.w d0,$dff0a4		;Set soundlength
chan2:
lea V2data(pc),a0
tst.w 72(a0)
beq.s chan3
subq.w #1,72(a0)
cmpi.w #1,72(a0)
bne.s chan3
clr.w 72(a0)
move.l d3,$dff0b0
move.w d1,$dff0b4
chan3:
lea V3data(pc),a0
tst.w 72(a0)
beq.s chan4
subq.w #1,72(a0)
cmpi.w #1,72(a0)
bne.s chan4
clr.w 72(a0)
move.l d4,$dff0c0
move.w d6,$dff0c4
chan4:
lea V4data(pc),a0
tst.w 72(a0)
beq.s setpervol
subq.w #1,72(a0)
cmpi.w #1,72(a0)
bne.s setpervol
clr.w 72(a0)
move.l d5,$dff0d0
move.w d7,$dff0d4
setpervol:
lea $dff0a6,a5
move.w (a6)+,(a5)	;Set period
move.w (a6)+,2(a5)	;Set volume
move.w (a6)+,16(a5)
move.w (a6)+,18(a5)
move.w (a6)+,32(a5)
move.w (a6)+,34(a5)
move.w (a6)+,48(a5)
move.w (a6)+,50(a5)
rts

NEW_NOTE:
moveq #0,d5
move.l 34(a0),a1
adda.w 40(a0),a1
cmp.w #64,40(a0)
bne.L samepat
move.l (a0),a2
adda.w 6(a0),a2		;Point to next sequence row
cmpa.l 52(a0),a2	;Is it the end?
bne.s notend
move.w d5,6(a0)		;yes!
move.l (a0),a2		;Point to first sequence
notend:
moveq #0,d1
addq.b #1,spdtemp
cmpi.b #4,spdtemp
bne.s nonewspd
move.b d5,spdtemp
move.b -1(a1),d1	;Get new replay speed
beq.s nonewspd
move.w d1,respcnt	;store in counter
move.w d1,repspd
nonewspd:
move.b (a2),d1		;Pattern to play
move.b 1(a2),44(a0)	;Transpose value
move.b 2(a2),22(a0)	;Soundtranspose value

move.w d5,40(a0)
lsl.w #6,d1
add.l PATpoint(pc),d1	;Get pattern pointer
move.l d1,34(a0)
addi.w #$000d,6(a0)
move.l d1,a1
samepat:
move.b 1(a1),d1		;Get info byte
move.b (a1)+,d0		;Get note
bne.s ww1
andi.w #%11000000,d1
beq.s noport
bra.s ww11
ww1:
move.w d5,56(a0)
ww11:
move.b d5,47(a0)
move.b (a1),31(a0)

		;31(a0) = PORTAMENTO/INSTR. info
			;Bit 7 = portamento on
			;Bit 6 = portamento off
			;Bit 5-0 = instrument number
		;47(a0) = portamento value
			;Bit 7-5 = always zero
			;Bit 4 = up/down
			;Bit 3-0 = value
t_porton:
btst #7,d1
beq.s noport
move.b 2(a1),47(a0)	
noport:
andi.w #$007f,d0
beq.L nextnote
move.b d0,8(a0)
move.b (a1),9(a0)
move.b 32(a0),d2
moveq #0,d3
bset d2,d3
or.w d3,audtemp
move.w d3,$dff096
move.b (a1),d1
andi.w #$003f,d1	;Max 64 instruments
add.b 22(a0),d1
move.l VOLpoint(pc),a2
lsl.w #6,d1
adda.w d1,a2
move.w d5,16(a0)
move.b (a2),23(a0)
move.b (a2)+,24(a0)
move.b (a2)+,d1
andi.w #$00ff,d1
move.b (a2)+,27(a0)
move.b #$40,46(a0)
move.b (a2)+,d0
move.b d0,28(a0)
move.b d0,29(a0)
move.b (a2)+,30(a0)
move.l a2,10(a0)
move.l FRQpoint(pc),a2
lsl.w #6,d1
adda.w d1,a2
move.l a2,18(a0)
move.w d5,50(a0)
move.b d5,26(a0)
move.b d5,25(a0)
nextnote:
addq.w #2,40(a0)
rts

EFFECTS:
moveq #0,d7
testsustain:
tst.b 26(a0)		;Is sustain counter = 0
beq.s sustzero
subq.b #1,26(a0)	;if no, decrease counter
bra.L VOLUfx
sustzero:		;Next part of effect sequence
move.l 18(a0),a1	;can be executed now.
adda.w 50(a0),a1
testeffects:
cmpi.b #$e1,(a1)	;E1 = end of FREQseq sequence
beq.L VOLUfx
cmpi.b #$e0,(a1)	;E0 = loop to other part of sequence
bne.s testnewsound
move.b 1(a1),d0		;loop to start of sequence + 1(a1)
andi.w #$003f,d0
move.w d0,50(a0)
move.l 18(a0),a1
adda.w d0,a1
testnewsound:
cmpi.b #$e2,(a1)	;E2 = set waveform
bne.s o49c64
moveq #0,d0
moveq #0,d1
move.b 32(a0),d1
bset d1,d0
or.w d0,audtemp
move.w d0,$dff096
move.b 1(a1),d0
andi.w #$00ff,d0
lea SOUNDINFO(pc),a4
add.w d0,d0
move.w d0,d1
add.w d1,d1
add.w d1,d1
add.w d1,d0
adda.w d0,a4
move.l 60(a0),a3
move.l (a4),d1
add.l #WAVEFORMS,d1
move.l d1,(a3)
move.l d1,68(a0)
move.w 4(a4),4(a3)
move.l 6(a4),64(a0)
swap d1
move.w #$0003,72(a0)
tst.w d1
bne.s o49c52
move.w #$0002,72(a0)
o49c52:
clr.w 16(a0)
move.b #$01,23(a0)
addq.w #2,50(a0)
bra.L o49d02
o49c64:
cmpi.b #$e4,(a1)
bne.s testpatjmp
move.b 1(a1),d0
andi.w #$00ff,d0
lea SOUNDINFO(pc),a4
add.w d0,d0
move.w d0,d1
add.w d1,d1
add.w d1,d1
add.w d1,d0
adda.w d0,a4
move.l 60(a0),a3
move.l (a4),d1
add.l #WAVEFORMS,d1
move.l d1,(a3)
move.l d1,68(a0)
move.w 4(a4),4(a3)
move.l 6(a4),64(a0)

swap d1
move.w #$0003,72(a0)
tst.w d1
bne.s o49cae
move.w #$0002,72(a0)
o49cae:
addq.w #2,50(a0)
bra.s o49d02
testpatjmp:
cmpi.b #$e7,(a1)
bne.s testnewsustain
move.b 1(a1),d0
andi.w #$00ff,d0
lsl.w #6,d0
move.l FRQpoint(pc),a1
adda.w d0,a1
move.l a1,18(a0)
move.w d7,50(a0)
bra.L testeffects
testnewsustain:
cmpi.b #$e8,(a1)	;E8 = set sustain time
bne.s o49cea
move.b 1(a1),26(a0)
addq.w #2,50(a0)
bra.L testsustain
o49cea:
cmpi.b #$e3,(a1)
bne.s o49d02
addq.w #3,50(a0)
move.b 1(a1),27(a0)
move.b 2(a1),28(a0)
o49d02:
move.l 18(a0),a1
adda.w 50(a0),a1
move.b (a1),43(a0)
addq.w #1,50(a0)
VOLUfx:
tst.b 25(a0)
beq.s o49d1e
subq.b #1,25(a0)
bra.s o49d70
o49d1e:
subq.b #1,23(a0)
bne.s o49d70
move.b 24(a0),23(a0)
o49d2a:
move.l 10(a0),a1
adda.w 16(a0),a1
move.b (a1),d0
cmpi.b #$e8,d0
bne.s o49d4a
addq.w #2,16(a0)
move.b 1(a1),25(a0)
bra.s VOLUfx
o49d4a:
cmpi.b #$e1,d0
beq.s o49d70
cmpi.b #$e0,d0
bne.s o49d68
move.b 1(a1),d0
andi.l #$003f,d0
subq.b #5,d0
move.w d0,16(a0)
bra.s o49d2a
o49d68:
move.b (a1),45(a0)
addq.w #1,16(a0)
o49d70:
move.b 43(a0),d0
bmi.s o49d7e
add.b 8(a0),d0
add.b 44(a0),d0
o49d7e:
andi.w #$007f,d0
lea PERIODS(pc),a1
add.w d0,d0
move.w d0,d1
adda.w d0,a1
move.w (a1),d0
move.b 46(a0),d7
tst.b 30(a0)
beq.s o49d9e
subq.b #1,30(a0)

bra.s o49df4
o49d9e:
move.b d1,d5
move.b 28(a0),d4
add.b d4,d4
move.b 29(a0),d1
tst.b d7
bpl.s o49db4
btst #0,d7
bne.s o49dda
o49db4:
btst #5,d7
bne.s o49dc8
sub.b 27(a0),d1
bcc.s o49dd6
bset #5,d7
moveq #0,d1
bra.s o49dd6
o49dc8:
add.b 27(a0),d1
cmp.b d4,d1
bcs.s o49dd6
bclr #5,d7
move.b d4,d1
o49dd6:
move.b d1,29(a0)
o49dda:
lsr.b #1,d4
sub.b d4,d1
bcc.s o49de4
subi.w #$0100,d1
o49de4:
addi.b #$a0,d5
bcs.s o49df2
o49dea:
add.w d1,d1
addi.b #$18,d5
bcc.s o49dea
o49df2:
add.w d1,d0
o49df4:
eori.b #$01,d7
move.b d7,46(a0)

; DO THE PORTAMENTO THING
moveq #0,d1
move.b 47(a0),d1	;get portavalue
beq.s a56d0		;0=no portamento
cmpi.b #$1f,d1
bls.s portaup
portadown: 
andi.w #$1f,d1
neg.w d1
portaup:
sub.w d1,56(a0)
a56d0:
add.w 56(a0),d0
o49e3e:
cmpi.w #$0070,d0
bhi.s nn1
move.w #$0071,d0
nn1:
cmpi.w #$06b0,d0
bls.s nn2
move.w #$06b0,d0
nn2:
moveq #0,d1
move.b 45(a0),d1
rts

pervol: blk.b 16,0	;Periods & Volumes temp. store
respcnt: dc.w 0		;Replay speed counter 
repspd:  dc.w 0		;Replay speed counter temp
onoff:   dc.w 0		;Music on/off flag.
firseq:	 dc.w 0		;First sequence
lasseq:	 dc.w 0		;Last sequence
audtemp: dc.w 0
spdtemp: dc.w 0

V1data:  blk.b 64,0	;Voice 1 data area
offset1: blk.b 02,0	;Is added to start of sound
ssize1:  blk.b 02,0	;Length of sound
start1:  blk.b 06,0	;Start of sound

V2data:  blk.b 64,0	;Voice 2 data area
offset2: blk.b 02,0
ssize2:  blk.b 02,0
start2:  blk.b 06,0

V3data:  blk.b 64,0	;Voice 3 data area
offset3: blk.b 02,0
ssize3:  blk.b 02,0
start3:  blk.b 06,0

V4data:  blk.b 64,0	;Voice 4 data area
offset4: blk.b 02,0
ssize4:  blk.b 02,0
start4:  blk.b 06,0

o4a0c8: dc.l $00000000,$00100003,$00200006,$00300009
SEQpoint: dc.l 0
PATpoint: dc.l 0
FRQpoint: dc.l 0
VOLpoint: dc.l 0
SILENT: dc.w $0100,$0000,$0000,$00e1

PERIODS:dc.w $06b0,$0650,$05f4,$05a0,$054c,$0500,$04b8,$0474
	dc.w $0434,$03f8,$03c0,$038a,$0358,$0328,$02fa,$02d0
	dc.w $02a6,$0280,$025c,$023a,$021a,$01fc,$01e0,$01c5
	dc.w $01ac,$0194,$017d,$0168,$0153,$0140,$012e,$011d
	dc.w $010d,$00fe,$00f0,$00e2,$00d6,$00ca,$00be,$00b4
	dc.w $00aa,$00a0,$0097,$008f,$0087,$007f,$0078,$0071
	dc.w $0071,$0071,$0071,$0071,$0071,$0071,$0071,$0071
	dc.w $0071,$0071,$0071,$0071,$0d60,$0ca0,$0be8,$0b40
	dc.w $0a98,$0a00,$0970,$08e8,$0868,$07f0,$0780,$0714
	dc.w $1ac0,$1940,$17d0,$1680,$1530,$1400,$12e0,$11d0
	dc.w $10d0,$0fe0,$0f00,$0e28

SOUNDINFO:
;Offset.l , Sound-length.w , Start-offset.w , Repeat-length.w 

;Reserved for samples
	dc.w $0000,$0000 ,$0000 ,$0000 ,$0001 
	dc.w $0000,$0000 ,$0000 ,$0000 ,$0001 
	dc.w $0000,$0000 ,$0000 ,$0000 ,$0001 
	dc.w $0000,$0000 ,$0000 ,$0000 ,$0001 
	dc.w $0000,$0000 ,$0000 ,$0000 ,$0001 
	dc.w $0000,$0000 ,$0000 ,$0000 ,$0001 
	dc.w $0000,$0000 ,$0000 ,$0000 ,$0001 
	dc.w $0000,$0000 ,$0000 ,$0000 ,$0001 
	dc.w $0000,$0000 ,$0000 ,$0000 ,$0001 
	dc.w $0000,$0000 ,$0000 ,$0000 ,$0001 
;Reserved for synth sounds
	dc.w $0000,$0000 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$0020 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$0040 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$0060 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$0080 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$00a0 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$00c0 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$00e0 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$0100 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$0120 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$0140 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$0160 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$0180 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$01a0 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$01c0 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$01e0 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$0200 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$0220 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$0240 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$0260 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$0280 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$02a0 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$02c0 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$02e0 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$0300 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$0320 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$0340 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$0360 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$0380 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$03a0 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$03c0 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$03e0 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$0400 ,$0008 ,$0000 ,$0008 
	dc.w $0000,$0410 ,$0008 ,$0000 ,$0008 
	dc.w $0000,$0420 ,$0008 ,$0000 ,$0008 
	dc.w $0000,$0430 ,$0008 ,$0000 ,$0008 
	dc.w $0000,$0440 ,$0008 ,$0000 ,$0008
	dc.w $0000,$0450 ,$0008 ,$0000 ,$0008
	dc.w $0000,$0460 ,$0008 ,$0000 ,$0008
	dc.w $0000,$0470 ,$0008 ,$0000 ,$0008
	dc.w $0000,$0480 ,$0010 ,$0000 ,$0010
	dc.w $0000,$04a0 ,$0008 ,$0000 ,$0008
	dc.w $0000,$04b0 ,$0010 ,$0000 ,$0010
	dc.w $0000,$04d0 ,$0010 ,$0000 ,$0010
	dc.w $0000,$04f0 ,$0008 ,$0000 ,$0008
	dc.w $0000,$0500 ,$0008 ,$0000 ,$0008
	dc.w $0000,$0510 ,$0018 ,$0000 ,$0018
 
WAVEFORMS:
dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
dc.w $3f37,$2f27,$1f17,$0f07,$ff07,$0f17,$1f27,$2f37
dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
dc.w $c037,$2f27,$1f17,$0f07,$ff07,$0f17,$1f27,$2f37
dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
dc.w $c0b8,$2f27,$1f17,$0f07,$ff07,$0f17,$1f27,$2f37
dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
dc.w $c0b8,$b027,$1f17,$0f07,$ff07,$0f17,$1f27,$2f37
dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
dc.w $c0b8,$b0a8,$1f17,$0f07,$ff07,$0f17,$1f27,$2f37
dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
dc.w $c0b8,$b0a8,$a017,$0f07,$ff07,$0f17,$1f27,$2f37
dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
dc.w $c0b8,$b0a8,$a098,$0f07,$ff07,$0f17,$1f27,$2f37
dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
dc.w $c0b8,$b0a8,$a098,$9007,$ff07,$0f17,$1f27,$2f37
dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
dc.w $c0b8,$b0a8,$a098,$9088,$ff07,$0f17,$1f27,$2f37
dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
dc.w $c0b8,$b0a8,$a098,$9088,$8007,$0f17,$1f27,$2f37
dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
dc.w $c0b8,$b0a8,$a098,$9088,$8088,$0f17,$1f27,$2f37
dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
dc.w $c0b8,$b0a8,$a098,$9088,$8088,$9017,$1f27,$2f37
dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
dc.w $c0b8,$b0a8,$a098,$9088,$8088,$9098,$1f27,$2f37
dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
dc.w $c0b8,$b0a8,$a098,$9088,$8088,$9098,$a027,$2f37
dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
dc.w $c0b8,$b0a8,$a098,$9088,$8088,$9098,$a0a8,$2f37
dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
dc.w $c0b8,$b0a8,$a098,$9088,$8088,$9098,$a0a8,$b037
dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
dc.w $7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f
dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
dc.w $817f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f
dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
dc.w $8181,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f
dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
dc.w $8181,$817f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f
dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
dc.w $8181,$8181,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f
dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
dc.w $8181,$8181,$817f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f
dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
dc.w $8181,$8181,$8181,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f
dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
dc.w $8181,$8181,$8181,$817f,$7f7f,$7f7f,$7f7f,$7f7f
dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
dc.w $8181,$8181,$8181,$8181,$7f7f,$7f7f,$7f7f,$7f7f
dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
dc.w $8181,$8181,$8181,$8181,$817f,$7f7f,$7f7f,$7f7f
dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
dc.w $8181,$8181,$8181,$8181,$8181,$7f7f,$7f7f,$7f7f
dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
dc.w $8181,$8181,$8181,$8181,$8181,$817f,$7f7f,$7f7f
dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
dc.w $8181,$8181,$8181,$8181,$8181,$8181,$7f7f,$7f7f
dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
dc.w $8181,$8181,$8181,$8181,$8181,$8181,$817f,$7f7f
dc.w $8080,$8080,$8080,$8080,$8080,$8080,$8080,$8080
dc.w $8080,$8080,$8080,$8080,$8080,$8080,$8080,$7f7f
dc.w $8080,$8080,$8080,$8080,$8080,$8080,$8080,$8080
dc.w $8080,$8080,$8080,$8080,$8080,$8080,$8080,$807f
dc.w $8080,$8080,$8080,$8080,$7f7f,$7f7f,$7f7f,$7f7f
dc.w $8080,$8080,$8080,$807f,$7f7f,$7f7f,$7f7f,$7f7f
dc.w $8080,$8080,$8080,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f
dc.w $8080,$8080,$807f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f
dc.w $8080,$8080,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f
dc.w $8080,$807f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f
dc.w $8080,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f
dc.w $8080,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f
dc.w $8080,$9098,$a0a8,$b0b8,$c0c8,$d0d8,$e0e8,$f0f8
dc.w $0008,$1018,$2028,$3038,$4048,$5058,$6068,$707f
dc.w $8080,$a0b0,$c0d0,$e0f0,$0010,$2030,$4050,$6070
dc.w $4545,$797d,$7a77,$7066,$6158,$534d,$2c20,$1812
dc.w $04db,$d3cd,$c6bc,$b5ae,$a8a3,$9d99,$938e,$8b8a
dc.w $4545,$797d,$7a77,$7066,$5b4b,$4337,$2c20,$1812
dc.w $04f8,$e8db,$cfc6,$beb0,$a8a4,$9e9a,$9594,$8d83
dc.w $0000,$4060,$7f60,$4020,$00e0,$c0a0,$80a0,$c0e0
dc.w $0000,$4060,$7f60,$4020,$00e0,$c0a0,$80a0,$c0e0
dc.w $8080,$9098,$a0a8,$b0b8,$c0c8,$d0d8,$e0e8,$f0f8
dc.w $0008,$1018,$2028,$3038,$4048,$5058,$6068,$707f
dc.w $8080,$a0b0,$c0d0,$e0f0,$0010,$2030,$4050,$6070

Incol:dc.l collas
Incol2:dc.l collas2

Collas:
dc.w	-99,-99,-99,-98,-97,-97,-95,-94
dc.w	-93,-91,-89,-88,-85,-83,-81,-78
dc.w	-76,-73,-70,-67,-64,-61,-58,-55
dc.w	-52,-49,-46,-43,-40,-37,-34,-31
dc.w	-28,-25,-22,-20,-17,-15,-13,-10
dc.w	-9,-7,-5,-4,-3,-1,-1,0
dc.w	0,0,0,0,0,0,-1,-1
dc.w	-3,-4,-5,-7,-9,-10,-13,-15
dc.w	-17,-20,-22,-25,-28,-31,-34,-37
dc.w	-40,-43,-46,-49,-52,-55,-58,-61
dc.w	-64,-67,-70,-73,-76,-78,-81,-83
dc.w	-85,-88,-89,-91,-93,-94,-95,-97
dc.w	-97,-98,-99,-99
dc.w 	"END!"

Collas2:
dc.w	$000,$000,$111,$111,$222,$333,$555,$666
dc.w	$888,$999,$aaa,$ccc,$ddd,$eee,$eee,$fff
dc.w	$fff,$fff,$eee,$eee,$ddd,$ccc,$aaa,$999
dc.w	$888,$666,$555,$333,$222,$111,$111,$000
dc.w	0,0,0
dc.w	$000,$000,$111,$111,$222,$333,$555,$666
dc.w	$888,$999,$aaa,$ccc,$ddd,$eee,$eee,$fff
dc.w	$fff,$fff,$eee,$eee,$ddd,$ccc,$aaa,$999
dc.w	$888,$666,$555,$333,$222,$111,$111,$000
dc.w	0,0,0
dc.w	$000,$000,$111,$111,$222,$333,$555,$666
dc.w	$888,$999,$aaa,$ccc,$ddd,$eee,$eee,$fff
dc.w	$fff,$fff,$eee,$eee,$ddd,$ccc,$aaa,$999
dc.w	$888,$666,$555,$333,$222,$111,$111,$000
dc.w	0,0,0
dc.w	$000,$000,$111,$111,$222,$333,$555,$666
dc.w	$888,$999,$aaa,$ccc,$ddd,$eee,$eee,$fff
dc.w	$fff,$fff,$eee,$eee,$ddd,$ccc,$aaa,$999
dc.w	$888,$666,$555,$333,$222,$111,$111,$000
dc.w	$000,$000,$000,$000,$111,$111,$111,$222
dc.w	$222,$333,$333,$444,$555,$555,$666,$777
dc.w	$777,$888,$999,$aaa,$aaa,$bbb,$ccc,$ccc
dc.w	$ddd,$ddd,$eee,$eee,$eee,$fff,$fff,$fff
dc.w	$fff,$fff,$fff,$fff,$eee,$eee,$eee,$ddd
dc.w	$ddd,$ccc,$ccc,$bbb,$aaa,$aaa,$999,$888
dc.w	$777,$777,$666,$555,$555,$444,$333,$333
dc.w	$222,$222,$111,$111,$111,$000,$000,$000
dc.w	$000,$000,$000,$000,$000,$000,$000,$000
dc.w	$111,$111,$111,$111,$111,$111,$222,$222
dc.w	$222,$222,$333,$333,$333,$444,$444,$444
dc.w	$555,$555,$555,$666,$666,$666,$777,$777
dc.w	$777,$888,$888,$999,$999,$999,$aaa,$aaa
dc.w	$aaa,$bbb,$bbb,$bbb,$ccc,$ccc,$ccc,$ddd
dc.w	$ddd,$ddd,$ddd,$eee,$eee,$eee,$eee,$eee
dc.w	$eee,$fff,$fff,$fff,$fff,$fff,$fff,$fff
dc.w	$fff,$fff,$fff,$fff,$fff,$fff,$fff,$fff
dc.w	$eee,$eee,$eee,$eee,$eee,$eee,$ddd,$ddd
dc.w	$ddd,$ddd,$ccc,$ccc,$ccc,$bbb,$bbb,$bbb
dc.w	$aaa,$aaa,$aaa,$999,$999,$999,$888,$888
dc.w	$777,$777,$777,$666,$666,$666,$555,$555
dc.w	$555,$444,$444,$444,$333,$333,$333,$222
dc.w	$222,$222,$222,$111,$111,$111,$111,$111
dc.w	$111,$000,$000,$000,$000,$000,$000,$000
dc.w	"END!"

dmastuff:dc.w	0

Copl:
dc.w	$01a2,$0aaa,$01a4,$0fff,$01a6,$0888
dc.w	$01a8,$0aaa,$01aa,$0aaa,$01ac,$0aaa
dc.w	$0120
sp1:	dc.w	$0000,$0122
sp2:	dc.w	$0000,$0124
sp3:	dc.w	$0000,$0126
sp4:	dc.w    $0000
dc.w	$0128
sp5:	dc.w	$0000,$012A
sp6:	dc.w    $0000,$012C
sp7:	dc.w	$0000,$012E
sp8:	dc.w	$0000
dc.w	$0130,$0000,$0132,$0000,$0134,$0000,$0136,$0000
dc.w	$0138,$0000,$013A,$0000,$013C,$0000,$013E,$0000
dc.w	$008e,$2481,$0090,$30c1,$0092,$0038,$0094,$00d0
dc.w	$0102,$0000,$0104,$0100
dc.w	$0108,$0000,$010a,$0000,$0100,$0000
dc.w	$2b01,$fffe
dc.w	$0100,$4200,$0102
Delay:	dc.w  $0000
dc.w	$00e0,$0005,$00e2
Pointah:dc.w  $0000,$00e4,$0005,$00e6
Pointa2:dc.w  $2800,$00e8,$0005,$00ea
Pointa3:dc.w  $5000,$00ec,$0005,$00ee
Pointa4:dc.w  $7800
dc.w	$0180,$0000,$0182,$009A,$0184,$009A,$0186,$019A
dc.w	$0188,$02AA,$018A,$03AB,$018C,$03BB,$018E,$05BC
dc.w	$0190,$06CC,$0192,$07CC,$0194,$08DD,$0196,$09DD
dc.w	$0198,$0BDE,$019A,$0CEE,$019C,$0DEF,$019E,$0FFF
Copcols=*+6
Copcols2=*+10
dc.w	 $2c01,$fffe,$0108,0,$010a,0
dc.w	 $2d01,$fffe,$0108,0,$010a,0
dc.w	 $2e01,$fffe,$0108,0,$010a,0
dc.w	 $2f01,$fffe,$0108,0,$010a,0
dc.w	 $3001,$fffe,$0108,0,$010a,0
dc.w	 $3101,$fffe,$0108,0,$010a,0
dc.w	 $3201,$fffe,$0108,0,$010a,0
dc.w	 $3301,$fffe,$0108,0,$010a,0
dc.w	 $3401,$fffe,$0108,0,$010a,0
dc.w	 $3501,$fffe,$0108,0,$010a,0
dc.w	 $3601,$fffe,$0108,0,$010a,0
dc.w	 $3701,$fffe,$0108,0,$010a,0
dc.w	 $3801,$fffe,$0108,0,$010a,0
dc.w	 $3901,$fffe,$0108,0,$010a,0
dc.w	 $3a01,$fffe,$0108,0,$010a,0
dc.w	 $3b01,$fffe,$0108,0,$010a,0
dc.w	 $3c01,$fffe,$0108,0,$010a,0
dc.w	 $3d01,$fffe,$0108,0,$010a,0
dc.w	 $3e01,$fffe,$0108,0,$010a,0
dc.w	 $3f01,$fffe,$0108,0,$010a,0
dc.w	 $4001,$fffe,$0108,0,$010a,0
dc.w	 $4101,$fffe,$0108,0,$010a,0
dc.w	 $4201,$fffe,$0108,0,$010a,0
dc.w	 $4301,$fffe,$0108,0,$010a,0
dc.w	 $4401,$fffe,$0108,0,$010a,0
dc.w	 $4501,$fffe,$0108,0,$010a,0
dc.w	 $4601,$fffe,$0108,0,$010a,0
dc.w	 $4701,$fffe,$0108,0,$010a,0
dc.w	 $4801,$fffe,$0108,0,$010a,0
dc.w	 $4901,$fffe,$0108,0,$010a,0
dc.w	 $4a01,$fffe,$0108,0,$010a,0
dc.w	 $4b01,$fffe,$0108,0,$010a,0
dc.w	 $4c01,$fffe,$0108,0,$010a,0
dc.w	 $4d01,$fffe,$0108,0,$010a,0
dc.w	 $4e01,$fffe,$0108,0,$010a,0
dc.w	 $4f01,$fffe,$0108,0,$010a,0
dc.w	 $5001,$fffe,$0108,0,$010a,0
dc.w	 $5101,$fffe,$0108,0,$010a,0
dc.w	 $5201,$fffe,$0108,0,$010a,0
dc.w	 $5301,$fffe,$0108,0,$010a,0
dc.w	 $5401,$fffe,$0108,0,$010a,0
dc.w	 $5501,$fffe,$0108,0,$010a,0
dc.w	 $5601,$fffe,$0108,0,$010a,0
dc.w	 $5701,$fffe,$0108,0,$010a,0
dc.w	 $5801,$fffe,$0108,0,$010a,0
dc.w	 $5901,$fffe,$0108,0,$010a,0
dc.w	 $5a01,$fffe,$0108,0,$010a,0
dc.w	 $5b01,$fffe,$0108,0,$010a,0
dc.w	 $5c01,$fffe,$0108,0,$010a,0
dc.w	 $5d01,$fffe,$0108,0,$010a,0
dc.w	 $5e01,$fffe,$0108,0,$010a,0
dc.w	 $5f01,$fffe,$0108,0,$010a,0
dc.w	 $6001,$fffe,$0108,0,$010a,0
dc.w	 $6101,$fffe,$0108,0,$010a,0
dc.w	 $6201,$fffe,$0108,0,$010a,0
dc.w	 $6301,$fffe,$0108,0,$010a,0
dc.w	 $6401,$fffe,$0108,0,$010a,0
dc.w	 $6501,$fffe,$0108,0,$010a,0
dc.w	 $6601,$fffe,$0108,0,$010a,0
dc.w	 $6701,$fffe,$0108,0,$010a,0
dc.w	 $6801,$fffe,$0108,0,$010a,0
dc.w	 $6901,$fffe,$0108,0,$010a,0
dc.w	 $6a01,$fffe,$0108,0,$010a,0
dc.w	 $6b01,$fffe,$0108,0,$010a,0
dc.w	 $6c01,$fffe,$0108,0,$010a,0
dc.w	 $6d01,$fffe,$0108,0,$010a,0
dc.w	 $6e01,$fffe,$0108,0,$010a,0
dc.w	 $6f01,$fffe,$0108,0,$010a,0
dc.w	 $7001,$fffe,$0108,0,$010a,0
dc.w	 $7101,$fffe,$0108,0,$010a,0
dc.w	 $7201,$fffe,$0108,0,$010a,0
dc.w	 $7301,$fffe,$0108,0,$010a,0
dc.w	 $7401,$fffe,$0108,0,$010a,0
dc.w	 $7501,$fffe,$0108,0,$010a,0
dc.w	 $7601,$fffe,$0108,0,$010a,0
dc.w	 $7701,$fffe,$0108,0,$010a,0
dc.w	 $7801,$fffe,$0108,0,$010a,0
dc.w	 $7901,$fffe,$0108,0,$010a,0
dc.w	 $7a01,$fffe,$0108,0,$010a,0
dc.w	 $7b01,$fffe,$0108,0,$010a,0
dc.w	 $7c01,$fffe,$0108,0,$010a,0
dc.w	 $7d01,$fffe,$0108,0,$010a,0
dc.w	 $7e01,$fffe,$0108,0,$010a,0
dc.w	 $7f01,$fffe,$0108,0,$010a,0
dc.w	 $8001,$fffe,$0108,0,$010a,0
dc.w	 $8101,$fffe,$0108,0,$010a,0
dc.w	 $8201,$fffe,$0108,0,$010a,0
dc.w	 $8301,$fffe,$0108,0,$010a,0
dc.w	 $8401,$fffe,$0108,0,$010a,0
dc.w	 $8501,$fffe,$0108,0,$010a,0
dc.w	 $8601,$fffe,$0108,0,$010a,0
dc.w	 $8701,$fffe,$0108,0,$010a,0
dc.w	 $8801,$fffe,$0108,0,$010a,0
dc.w	 $8901,$fffe,$0108,0,$010a,0
dc.w	 $8a01,$fffe,$0108,0,$010a,0
dc.w	 $8b01,$fffe,$0108,0,$010a,0
dc.w	 $8c01,$fffe,$0108,0,$010a,0
dc.w	 $8d01,$fffe,$0108,0,$010a,0
dc.w	 $8e01,$fffe,$0108,0,$010a,0
dc.w	 $8f01,$fffe,$0108,0,$010a,0
dc.w	 $9001,$fffe,$0108,0,$010a,0
dc.w	 $9101,$fffe,$0108,0,$010a,0
dc.w	 $9201,$fffe,$0108,0,$010a,0
dc.w	 $9301,$fffe,$0108,0,$010a,0
dc.w	 $9401,$fffe,$0108,0,$010a,0
dc.w	 $9501,$fffe,$0108,0,$010a,0
dc.w	 $9601,$fffe,$0108,0,$010a,0
dc.w	 $9701,$fffe,$0108,0,$010a,0
dc.w	 $9801,$fffe,$0108,0,$010a,0
dc.w	 $9901,$fffe,$0108,0,$010a,0
dc.w	 $9a01,$fffe,$0108,0,$010a,0
dc.w	 $9b01,$fffe,$0108,0,$010a,0
dc.w	 $9c01,$fffe,$0108,0,$010a,0
dc.w	 $9d01,$fffe,$0108,0,$010a,0
dc.w	 $9e01,$fffe,$0108,0,$010a,0
dc.w	 $9f01,$fffe,$0108,0,$010a,0
dc.w	 $a001,$fffe,$0108,0,$010a,0
dc.w	 $a101,$fffe,$0108,0,$010a,0
dc.w	 $a201,$fffe,$0108,0,$010a,0
dc.w	 $a301,$fffe,$0108,0,$010a,0
dc.w	 $a401,$fffe,$0108,0,$010a,0
dc.w	 $a501,$fffe,$0108,0,$010a,0
dc.w	 $a601,$fffe,$0108,0,$010a,0
dc.w	 $a701,$fffe,$0108,0,$010a,0
dc.w	 $a801,$fffe,$0108,0,$010a,0
dc.w	 $a901,$fffe,$0108,0,$010a,0
dc.w	 $aa01,$fffe,$0108,0,$010a,0
dc.w	 $ab01,$fffe,$0108,0,$010a,0
dc.w	 $ac01,$fffe,$0108,0,$010a,0
dc.w	 $ad01,$fffe,$0108,0,$010a,0
dc.w	 $ae01,$fffe,$0108,0,$010a,0
dc.w	 $af01,$fffe,$0108,0,$010a,0
dc.w	 $b001,$fffe,$0108,0,$010a,0
dc.w	 $b101,$fffe,$0108,0,$010a,0
dc.w	 $b201,$fffe,$0108,0,$010a,0
dc.w	 $b301,$fffe,$0108,0,$010a,0
dc.w	 $b401,$fffe,$0108,0,$010a,0
dc.w	 $b501,$fffe,$0108,0,$010a,0
dc.w	 $b601,$fffe,$0108,0,$010a,0
dc.w	 $b701,$fffe,$0108,0,$010a,0
dc.w	 $b801,$fffe,$0108,0,$010a,0
dc.w	 $b901,$fffe,$0108,0,$010a,0
dc.w	 $ba01,$fffe,$0108,0,$010a,0
dc.w	 $bb01,$fffe,$0108,0,$010a,0
dc.w	 $bc01,$fffe,$0108,0,$010a,0
dc.w	 $bd01,$fffe,$0108,0,$010a,0
dc.w	 $be01,$fffe,$0108,0,$010a,0
dc.w	 $bf01,$fffe,$0108,0,$010a,0
dc.w	 $c001,$fffe,$0108,0,$010a,0
dc.w	 $c101,$fffe,$0108,0,$010a,0
dc.w	 $c201,$fffe,$0108,0,$010a,0
dc.w	 $c301,$fffe,$0108,0,$010a,0
dc.w	 $c401,$fffe,$0108,0,$010a,0
dc.w	 $c501,$fffe,$0108,0,$010a,0
dc.w	 $c601,$fffe,$0108,0,$010a,0
dc.w	 $c701,$fffe,$0108,0,$010a,0
dc.w	 $c801,$fffe,$0108,0,$010a,0
dc.w	 $c901,$fffe,$0108,0,$010a,0
dc.w	 $ca01,$fffe,$0108,0,$010a,0
dc.w	 $cb01,$fffe,$0108,0,$010a,0
dc.w	 $cc01,$fffe,$0108,0,$010a,0
dc.w	 $cd01,$fffe,$0108,0,$010a,0
dc.w	 $ce01,$fffe,$0108,0,$010a,0
dc.w	 $cf01,$fffe,$0108,0,$010a,0
dc.w	 $d001,$fffe,$0108,0,$010a,0
dc.w	 $d101,$fffe,$0108,0,$010a,0
dc.w	 $d201,$fffe,$0108,0,$010a,0
dc.w	 $d301,$fffe,$0108,0,$010a,0
dc.w	 $d401,$fffe,$0108,0,$010a,0
dc.w	 $d501,$fffe,$0108,0,$010a,0
dc.w	 $d601,$fffe,$0108,0,$010a,0
dc.w	 $d701,$fffe,$0108,0,$010a,0
dc.w	 $d801,$fffe,$0108,0,$010a,0
dc.w	 $d901,$fffe,$0108,0,$010a,0
dc.w	 $da01,$fffe,$0108,0,$010a,0
dc.w	 $db01,$fffe,$0108,0,$010a,0
dc.w	 $dc01,$fffe,$0108,0,$010a,0
dc.w	 $dd01,$fffe,$0108,0,$010a,0
dc.w	 $de01,$fffe,$0108,0,$010a,0
dc.w	 $df01,$fffe,$0108,0,$010a,0
dc.w	 $e001,$fffe,$0108,0,$010a,0
dc.w	 $e101,$fffe,$0108,0,$010a,0
dc.w	 $e201,$fffe,$0108,0,$010a,0
dc.w	 $e301,$fffe,$0108,0,$010a,0
dc.w	 $e401,$fffe,$0108,0,$010a,0
dc.w	 $e501,$fffe,$0108,0,$010a,0
dc.w	 $e601,$fffe,$0108,0,$010a,0
dc.w	 $e701,$fffe,$0108,0,$010a,0
dc.w	 $e801,$fffe,$0108,0,$010a,0
dc.w	 $e901,$fffe,$0108,0,$010a,0
dc.w	 $ea01,$fffe,$0108,0,$010a,0
dc.w	 $eb01,$fffe,$0108,0,$010a,0
dc.w	 $ec01,$fffe,$0108,0,$010a,0
dc.w	 $ed01,$fffe,$0108,0,$010a,0
dc.w	 $ee01,$fffe,$0108,0,$010a,0
dc.w	 $ef01,$fffe,$0108,0,$010a,0
dc.w	 $f001,$fffe,$0108,0,$010a,0
dc.w	 $f101,$fffe,$0108,0,$010a,0
dc.w	 $f201,$fffe,$0108,0,$010a,0
dc.w	 $f301,$fffe,$0108,0,$010a,0
dc.w	 $f401,$fffe,$0108,0,$010a,0
dc.w	 $f501,$fffe,$0108,0,$010a,0
dc.w	 $f601,$fffe,$0108,0,$010a,0
dc.w	 $f701,$fffe,$0108,0,$010a,0
dc.w	 $f801,$fffe,$0108,0,$010a,0
dc.w	 $f901,$fffe,$0108,0,$010a,0
dc.w	 $fa01,$fffe,$0108,0,$010a,0
dc.w	 $fb01,$fffe,$0108,0,$010a,0
dc.w	 $fc01,$fffe,$0108,0,$010a,0
dc.w	 $fd01,$fffe,$0108,0,$010a,0
dc.w	 $fe01,$fffe,$0108,0,$010a,0
dc.w	 $ff01,$fffe,$0108,0,$010a,0,$0100,$0000
dc.w	$ff09,$fffe,$0180,$0fff
dc.w	$ffdf,$fffe
dc.w	$0001,$fffe
dc.w	$0100,$2200,$0186,$0ccc,$0102,$0000
dc.w	$00e0,$0007,$00e2,$2000
dc.w	$00e4,$0007,$00e6,$2000+[80*50]
dc.w	$0180,$0000,$0182,$0FFF,$0184,$0DDE,$0186,$0CCD
dc.w	$0108,$a,$010a,-90
dc.w	$0d01,$fffe,$0182,$0440,$0184,$0444,$0108,310,$010a,-340
dc.w	$0e01,$fffe,$0182,$0880,$0184,$0888,$0108,160,$010a,-240
dc.w	$1001,$fffe,$0182,$0cc0,$0184,$0ccc,$0108,60,$010a,-140
dc.w	$1401,$fffe,$0182,$0ee0,$0184,$0eee,$0108,$a,$010a,-90
dc.w	$2401,$fffe,$0182,$0cc0,$0184,$0ccc,$0108,60,$010a,-140
dc.w	$2801,$fffe,$0182,$0880,$0184,$0888,$0108,160,$010a,-240
dc.w	$2c01,$fffe,$0182,$0440,$0184,$0444,$0108,310,$010a,-340
dc.w	$2e01,$fffe,$0100,$0000,$0108,$a,$010a,-90
dc.w	$ffff,$fffe

DoCop:
lea	CopCols(pc),a0		; Sesto byte dopo ogni riga in a0
move.l	#209,d7			; Numero righe

clp22:
move.w	12(a0),(a0)		; -8 bytes in a0
add.l	#12,a0			; Sottrai 8 long words
dbf	d7,clp22		; Per tutte le righe
move.l	InCol3(pc),a1
move.w	(a1)+,d0
cmp.w	#$ffff,d0
bne.s	NoRestart3
move.l	#Collas3,a1
move.w	(a1)+,d0

NoRestart3:
move.w	d0,(a0)
lea	CopCols2(pc),a0		; Sesto byte dopo ogni riga in a0
move.l	#209,d7			; Numero righe

clp222:
move.w	12(a0),(a0)		; -8 bytes in a0
add.l	#12,a0			; Sottrai 8 long words
dbf	d7,clp222			; Per tutte le righe
move.w	d0,(a0)
move.l	a1,InCol3
rts

InCol3:dc.l	collas3

Collas3:
blk.w	80,0
dc.w	40,0,40,0,0,40,0,0,0,40,0,0,0,40,0,0,0,0,40,0,0,0,0,0,0,40,0,0
dc.w	0,40,0,0,0,40,0,0,40,0,40,40,0,40,40,40,0,40,40,40,0,40,40,40,40
dc.w	0,40,0,0,0,40,0,0,40,0,40,40,0,40,40,40,0,40,40,40,0,40,40,40,40
dc.w	0,40,40,40,0,40,40,40,0,40,40,0,40,0
dc.w	-40,0,0,0,0,0,0
dc.w	-40,0,0,0,0,0,-40,0,0,0,0,-40,0,0,0,-40,0,0,-40,0
dc.w	0,-40,0,-40,0,-40,0,-40,0,-40,0,-40,0,-40,0,-40,0,-40
dc.w	0,-40,0,-40,0,-40,0,-40,0,-40,0,-40,0,-40,0,-40,0,-40
dc.w	0,-40,0,-40,0,-40,0,-40,0,-40,0,-40,0,-40,0,-40,0,-40
dc.w	0,-40,0,0,-40,0,0,0,-40,0,0,0,0,-40,0,0,0,0,0,-40,0,0,0,0,0,0
dc.w	$ffff

sprite0:
	dc.l	$2A5D2B00,$80000000,$2CA02D00,$00008000
	dc.l	$2E782F00,$80008000,$30B13100,$80000000
	dc.l	$32623300,$00008000,$34A03500,$80008000
	dc.l	$36C23700,$80000000,$387C3900,$00008000
	dc.l	$3AB43B00,$80008000,$3CEC3D00,$80000000
	dc.l	$3E1C3F00,$00008000,$40334100,$80008000
	dc.l	$426F4300,$80000000,$44CF4500,$00008000
	dc.l	$467E4700,$80008000,$485D4900,$80000000
	dc.l	$4A944B00,$00008000,$4CBD4D00,$80008000
	dc.l	$4EEF4F00,$80000000,$50275100,$00008000
	dc.l	$52505300,$80008000,$54745500,$80000000
	dc.l	$56915700,$00008000,$58A85900,$80008000
	dc.l	$5AC15B00,$80000000,$5C815D00,$00008000
	dc.l	$5E5A5F00,$80008000,$60366100,$80000000
	dc.l	$62346300,$00008000,$645C6500,$80008000
	dc.l	$667C6700,$80000000,$68986900,$00008000
	dc.l	$6AAE6B00,$80008000,$6CC06D00,$80000000
	dc.l	$6ED96F00,$00008000,$70CC7100,$80008000
	dc.l	$72B07300,$80000000,$748E7500,$00008000
	dc.l	$765E7700,$80008000,$784E7900,$80000000
	dc.l	$7A507B00,$00008000,$7C687D00,$80008000
	dc.l	$7E7B7F00,$80000000,$80968100,$00008000
	dc.l	$82B38300,$80008000,$84968500,$80000000
	dc.l	$864B8700,$00008000,$88708900,$80008000
	dc.l	$8A908B00,$80000000,$8CB98D00,$00008000
	dc.l	$8ED08F00,$80008000,$90C89100,$80000000
	dc.l	$929A9300,$00008000,$94709500,$80008000
	dc.l	$96549700,$80000000,$98579900,$00008000
	dc.l	$9A799B00,$80008000,$9C9B9D00,$80000000
	dc.l	$9EB59F00,$00008000,$A0CDA100,$80008000
	dc.l	$A2D9A300,$80000000,$A4CCA500,$00008000
	dc.l	$A699A700,$80008000,$A876A900,$80000000
	dc.l	$AA62AB00,$00008000,$AC5AAD00,$80008000
	dc.l	$AE78AF00,$80000000,$B098B100,$00008000
	dc.l	$B2B6B300,$80008000,$B4CBB500,$80000000
	dc.l	$B6D5B700,$00008000,$B8B0B900,$80008000
	dc.l	$BA84BB00,$80000000,$BC5CBD00,$00008000
	dc.l	$BE3DBF00,$80008000,$C03BC100,$80000000
	dc.l	$C230C300,$00008000,$C42AC500,$80008000
	dc.l	$C650C700,$80000000,$C879C900,$00008000
	dc.l	$CAA5CB00,$80008000,$CCC2CD00,$80000000
	dc.l	$CED5CF00,$00008000,$D0D1D100,$80008000
	dc.l	$D2A0D300,$80000000,$D46CD500,$00008000
	dc.l	$D652D700,$80008000,$D84ED900,$80000000
	dc.l	$DA6FDB00,$00008000,$DC90DD00,$80008000
	dc.l	$DE9FDF00,$80000000,$E0B5E100,$00008000
	dc.l	$E2D6E300,$80008000,$E4DEE500,$80000000
	dc.l	$E6D2E700,$00008000,$E89CE900,$80008000
	dc.l	$EA6BEB00,$80000000,$EC43ED00,$00008000
	dc.l	$EE3AEF00,$80008000,$F03AF100,$80000000
	dc.l	$F259F300,$00008000,$F477F500,$80008000
	dc.l	$F696F700,$80000000,$F8B3F900,$00008000
	dc.l	$FACFFB00,$80008000,$FCDAFD00,$80000000
	dc.l	$00000000
Sprite0_end:

Sprite1: ;                                 |               
	dc.l	$F6C6FE00,%01101010001011100000000000000000
		dc.l      %10001010001010011000000000000000
		dc.l      %10001010001010010000000000000000
		dc.l      %10001010001010010000000000000000
		dc.l      %11101010001011100000000000000000
		dc.l      %10001010001010000000000000000000
		dc.l      %10001010001010000000000000000000
		dc.l      %10001011101010000000000000000000

Sprite2: ;                                 |               
	dc.l	$F6CEFE00,%01110001101111110000000000000000
		dc.l      %01001010000100100000000000000000
		dc.l      %01001010000100100000000000000000
		dc.l      %01001010000100100000000000000000
		dc.l      %01110011100100100000000000000000
		dc.l      %01000010000100100000000000000000
		dc.l      %01000010000100100000000000000000
		dc.l      %01000001110100100000000000000000

Sprite3: ;                                 |               
	dc.l	$F6D6FE00,%00110000000000000000000000000000
		dc.l      %01001000000000000000000000000000
		dc.l      %01001000000000000000000000000000
		dc.l      %01001000000000000000000000000000
		dc.l      %01001000000000000000000000000000
		dc.l      %01001000000000000000000000000000
		dc.l      %01001000000000000000000000000000
		dc.l      %00110000000000000000000000000000

message:
DC.B "   ALL RIGHT GUYZ     SAVAGE IS BACK WITH A NEW CRACK CALLED "
DC.B "WORLD CUP NINETEEN    CRACKED BY FILIPPETTO     BUT WE SHOULD "
DC.B "NOT SAY CRACKED COZ THERE WASNT ANY PROTECTION       SO THANX "
DC.B "TO GENIAS FOR HAVING DONE OUR WORK EASIER AND MORE CONFORTABLE "
DC.B "SOME HINTS       USE JOYSTICK IN PORT ONE TO PLAY              "
DC.B "      GREETINGS FLY IN A Z ORDER TO            "
DC.B "ABANDON     ABYSS     ACCESS     ACID FORCE     ACL     ACU     "
DC.B "AEON     ALCATRAZ     ALIVE     AMAZE     AMIGA INDUSTRIES AND "
DC.B "FREEDOM FORCE     ANIMATE     AOFCF     APEX     ARCADIA     "
DC.B "ARMADA     BELGIAN BRAINS     BEATING BYTES OF AFL     "
DC.B "BLACK MONKS     BLASTERS     BRAINSTORM     CAVE     CELTIC     "
DC.B "CLONES     COAST     COMPLEX     CONFESSORS     CRANE     "
DC.B "CRITTERS     CRYPTOBURNERS     DMOB     DESASTER AREA     "
DC.B "DEFCON ONE     DICTATORS     "
DC.B "DISKNET     DREAMS OF POWER     DREAM VISION     "
DC.B "DUAL CREW     ECSTASY     ENERGY     ESA     EXCEL UK     "
DC.B "EXODUS     EXULT     EXTREME     FDS     FLASH PRODUCTIONS     "
DC.B "FRAXION     GATE     HELLAS     IBB AND PIRANHAS     "
DC.B "IMPACT INC     IPEC ELITE     IRONGODS     MAD     MASTERCREW     "
DC.B "MAYHEM     MEGAPOWERS     MERCENARY     MIRACLE     MIRAGE     "
DC.B "MYSTIX     ONYX     PASSION     PEGASUS     PHAZE ONE O ONE     "
DC.B "POWERLORDS     PROLOGIC     RAP X     REBELS     QUARTEX     "
DC.B "ROBOTECH     SANITY     SCOOPEX     SCREAM     SEMTEX     "
DC.B "SETROX     SHINING EIGHT     SIGN     SIRUS CYBERNETICS     "
DC.B "SPECTRE     SPIRIT     STEALTH     SUBWAY     SUPPLEX     "
DC.B "TARKUS TEAM     TEAM X     THE FORCE     TIMELORDS     "
DC.B "TOP SWAP     TRION     UNIQUE     VISION     VISION FACTORY     "
DC.B "VISION ONE OF AFL     WARFALCONS     WIZZCAT     ZERO DEFECTS   "
DC.B "      PHEW FINALLY THIS GREETZ LIST IS OVER    THANK GOD     "
DC.B "CONTACT US WRITING TO PO BOX FOURTY SIX IN EIGHT SIX ZERO SEVEN "
DC.B "KAPFENBERG AUSTRIA           "
DC.B "SPECIAL MESSAGE TO THAT LAME GROUP CALLED IMMORTALS    IT IS "
DC.B "BETTER YOU SHUT UP QUICKLY AND SAY NOTHING MORE ABOUT US "
DC.B "OTHERWISE WE WILL SHOW THE PEOPLE THAT YOU ARE NOT IMMORTALS BY "
DC.B "KILLING YOU       YOU SHOULD KNOW THAT THE NEW CREWS LIKE WE ARE "
DC.B "BETTER THAN THE OLD LAMERS LIKE YOU      SO WE CAN UNDERSTAND YOU "
DC.B "COZ YOU SAID THAT WORDS AGAINST US ONLY BECAUSE THAT YOU CANNOT "
DC.B "COMPETE WITH SAVAGE                                             "
DC.B 0