;********************************************************
;*							*
;*	Play routines dla programow:			*
;*	NOISETRACKER, MARK II, FUTURE COMPOSER,		*
;*	DELTAMUSIC ,BP SOUNDMON ,SIDMON			*
;*	na bazie plikow do DEMO MAKERA.			*
;*							*
;*	Wykombinowal Piotr <MAG> Kuzio of POLARIS	*
;*							*
;********************************************************

;	UZYC NAJLEPIEJ SEKI 1.80, ALE MOZE BYC BEZ
;		PROBLEMOW STARSZA.
;
;	INSTRUKCJA:
;
;	1) ZAASEMBLOWAC
;	2) DOGRAC PLAYROUTINE Z KATALOGU ROUTINES
;	   PRZEZ:
;
;	SEKA>RI
;	BEG>MT_INIT
;	END>		- TU WCISNAC TYLKO RETURN
;
;	3) DOGRAC MELODIE PRZEZ:
;
;	SEKA>RI
;	BEG>MT_DATA
;	END>
;
;	4) ZAASEMBLOWAC I URUCHOMIC PRZEZ:
;
;	SEKA>A
;	OPTION>		- WYSTARCZY RETURN
;	No Errors
;
;	SEKA>J
;
;    PRZERWANIE MELODII NASTEPUJE PO NACISNIECIU KLAWISZA SPACE

START:

		LEA MT_DATA(PC),A0
		JSR MT_INIT

		LEA IRQ(PC),A0
		LEA BNE(PC),A1
		MOVE.L A0,(A1)

		LEA INTER(PC),A1
		MOVEQ #5,D0
                MOVE.L 4,A6
                JSR -168(A6)

REPEAT:

		MOVE.B $BFEC01,D0	;TESTOWANIE
		CMPI.B #$7F,D0		;KLAWISZA
		BNE.s REPEAT		;SPACE

		LEA INTER(PC),A1
		MOVEQ #5,D0
		MOVE.L 4,A6 
		JSR -174(A6)
		JSR MT_INIT+8(PC)
		RTS

IRQ:		MOVEM.L D0-D7/A0-A6,-(SP)
		JSR MT_INIT+4(PC)
		MOVEM.L (SP)+,D0-D7/A0-A6
		RTS

INTER:
	DC.L 0,0
	DC.B 2,0		;ZMIENILEM Z "2,127"
	DC.L 0,0		;BO NIE KASZANI POD
BNE:	DC.L 0			;MULTITASKINGIEM

MT_INIT:	BLK.B 4330,0	;PLAYROUTINE
MT_DATA:	BLK.B 130000,0	;DLUGOSC MUZYCZKI