
SONGSTART=$62000

S:	MOVE.L	#SONGSTART,A0
	MOVE.W	#19,D7
LOPP:	CLR.B	(A0)+
	DBF	D7,LOPP

	MOVE.L	#SONGSTART+26,A2	;NAMN1
	MOVE.L	#$E,D7

LOP:	MOVE.L	#LISTAN,A1	;LISTA
	MOVE.L	#$0,D6

FBLOP:	MOVE.L	A2,A0		;SOUNDNAME
	MOVE.B	#$00,D5
LOP2:	MOVE.B	(A0),D0
	CMP.B	#$0,D0
	BEQ	HITTAT
	MOVE.B	#$FF,D5
	MOVE.B	(A0)+,D0
	AND.B	#$1F,D0
	MOVE.B	(A1)+,D1
	AND.B	#$1F,D1
	CMP.B	D0,D1
	BNE	NEXTL
	JMP	LOP2	;NEXT BOKSTAV

NEXTL:	CMP.B	#$0,(A1)+
	BNE	NEXTL
	ADD.B	#$1,D6
	MOVE.B	#$00,D5
	CMP.B	#$FF,(A1)
	BNE	FBLOP
JMP	NOTFOUND

HITTAT:	CMP.B	#$FF,D5
	BNE	NOTFOUND
	MOVE.L	A2,A0
	SUB.L	#$6,A0
	MOVE.B	D6,(A0)+
	MOVE.W	#20,D6	;22-1-1
HITLO:	CLR.B	(A0)+
	DBF	D6,HITLO

NEXTSOUND:
	ADD.L	#30,A2		;TO NEXT SOUND
	DBF	D7,LOP
	JMP	END

NOTFOUND:
MOVE.W	#$F44,$DFF180
	MOVE.L	A2,A0
	SUB.L	#$6,A0
	MOVE.B	#$FF,(A0)+
	MOVE.W	#20,D6	;22-1-1
NOTLO:	CLR.B	(A0)+
	DBF	D6,NOTLO
	JMP	NEXTSOUND

END:	RTS

LISTAN:
DC.B 'HEJSAN ALLA GLADA BARN !!!',$00
DC.B '4hornsandtstr',$00
DC.B '4Synthlead2',$00
DC.B 'BARNPROG',$00
DC.B 'BAS3',$00
DC.B 'BAS4',$00
DC.B 'Bass15',$00
DC.B 'BASSUTLOK',$00
DC.B 'Dr-zap',$00
DC.B 'Drum1',$00
DC.B 'Dumpfbass',$00
DC.B 'durloop1',$00
DC.B 'Friday',$00
DC.B 'FunBass',$00
DC.B 'GARDIN',$00
DC.B 'GlueAnalogic',$00
DC.B 'GlueAnalogicum',$00
DC.B 'GlueBumpdrum',$00
DC.B 'GlueBumpsnare',$00
DC.B 'GlueDual',$00
DC.B 'GlueFuzzsynth',$00
DC.B 'GlueMaleChoir',$00
DC.B 'GlueMoogBas',$00
DC.B 'GluePianoM',$00
DC.B 'GluePizzagogo',$00
DC.B 'GlueResosynth',$00
DC.B 'GlueSpectral',$00
DC.B 'GlueSpexullk',$00
DC.B 'GlueSteamhorns',$00
DC.B 'GlueSymphony1',$00
DC.B 'GlueSymphony2',$00
DC.B 'GlueSymphony3',$00
DC.B 'GlueSynPerc',$00
DC.B 'GlueVibes',$00
DC.B 'GlueVideobas',$00
DC.B 'GlueVoices',$00
DC.B 'GoodOld-days',$00
DC.B 'Gotamlow',$00
DC.B 'GURKMIX',$00
DC.B 'HI-HATCL',$00
DC.B 'HURRA',$00
DC.B 'JAUHETTER',$00
DC.B 'Klarinett',$00
DC.B 'KLICK',$00
DC.B 'KLICK5',$00
DC.B 'Ktecno',$00
DC.B 'LORDBASSDRUM',$00
DC.B 'LORDTJOFF',$00
DC.B 'Malethhorns',$00
DC.B 'mollloop1',$00
DC.B 'OperaChorus',$00
DC.B 'OpportSwisch',$00
DC.B 'PinVoice',$00
DC.B 'smatter',$00
DC.B 'Snare14',$00
DC.B 'Snare19',$00
DC.B 'Snare25',$00
DC.B 'Snare6',$00
DC.B 'SNORBLAJA2',$00
DC.B 'Snore5',$00
DC.B 'SNURRE4',$00
DC.B 'SNURRE5',$00
DC.B 'str7',$00
DC.B 'Symfo1',$00
DC.B 'Symfo4711',$00
DC.B 'Symfo4714',$00
DC.B 'Tensionstring',$00
DC.B 'Tommy',$00
DC.B 'TUTILUREN',$00
DC.B 'Wawymotion',$00
dc.b $ff,$ff,$ff,$ff

