//-----------------------------------------------------------------------------
// 06. 3D_BLACK_CIRCLES
//-----------------------------------------------------------------------------

	DB	2		;COMM_ASM
	;---
	LD	A,#17
	CALL	PAGER
	;---
	LD	HL,#4000
	LD	DE,#4001
	LD	(HL),#F0
	LD	BC,6144
	LDIR
	;---
	LD	(HL),0
	LD	BC,767
	LDIR
	;---
	LD	HL,#4000
	LD	DE,#C000
	LD	BC,6912
	LDIR
	;---
	LD	IY,$+5
	RET

	;init_fx
	DB	T_FX_INI

	; start music after first effect init
	DB	2		;COMM_ASM
	CALL	MUSIC_ON
	;---
	DI
	LD	BC,2704-104	; call im2 subroutine with play music while counter <= this value
WAITMUSLP	
	CALL	IM2EXEC
	LD	HL,(MUSPOS)
	AND	A
	SBC	HL,BC
	JP	NZ,WAITMUSLP
	;---
	LD	IY,$+5
	RET
	
	DB	T_FX_NOP
	DW	2704-1		; pause while fx-local frame counter <= this value
	
	;run_fx 3497 / 3517
	DB	T_FX_RUN
	DW	#FFFF
	;DW	3497	;3536-26-5 ;=3505	; fx run while fx-local frame counter <= this value
	
	DB	2	;=>3499
	CALL	CLEAR_ATTR_5
	LD	IY,$+5
	RET
	
	DB	T_FX_NOP
	DW	#FFFF