
                .filename "VADERETRO"
                .ORG	$4100
		
		

mc_wait_flyback equ 	$bd19

PLAYER:         DI


		CALL	PLAYER_OFF

; MUSICA DATOS INICIALES

		LD	DE,$0020		;  Nº BYTES RESERVADOS POR CANAL
                LD      HL,BUFFER_DEC       	;* RESERVAR MEMORIA PARA BUFFER DE SONIDO!!!!!
                LD      [CANAL_A],HL
                
                ADD     HL,DE       	
                LD      [CANAL_B],HL       	

                ADD     HL,DE       	
                LD      [CANAL_C],HL 

                ADD     HL,DE       	
                LD      [CANAL_P],HL 

                LD      A,0             	;* CANCION Nº 0
                CALL    CARGA_CANCION

;PANTALLA



		EI
	
LOOP:		CALL 	mc_wait_flyback
		CALL	INICIO
		JR	LOOP


BUFFER_DEC:     DS      $20*4		;************************* mucha atencion!!!!
					; aqui se decodifica la cancion hay que dejar suficiente espacio libre.
					;*************************
                


;archivo de instrumentos

.INCLUDE	"VADERETRO.MUS.asm"		
						
SONG_0:		.INCBIN	"VADERETRO.MUS" ;

TABLA_SONG:     DW      SONG_0;SONG_1		

;código del player

.INCLUDE	"WYZProplay47bCPC.txt"		


