	;init_fx
	DB	2
	CALL	FX_PRE_INI
	LD	IY,$+5
	RET
	
	DB	T_FX_INI

	; start music after first effect init
	DB	2		;COMM_ASM
	CALL	MUSIC_ON
	;---
	DI
	LD	BC,2912-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	2912-1		; pause while fx-local frame counter <= this value

	DB	T_FX_RUN
	DW	#FFFF
	
	DB	T_FX_RUN
	DW	3328-1
	
	DB	T_BLINK_ON
	DB	T_BLINK_ON
	DB	T_BLINK_ON
	DB	T_BLINK_ON
	DB	T_BLINK_OFF
	
	DB	T_FX_NOP
	DW	#FFFF
	
	
	
	
	
	

FX_PRE_INI	
	LD	A,#17
	CALL	PAGER
	
	LD	HL,#4000
	LD	DE,#4001
	LD	(HL),#F0
	LD	BC,6143
	LDIR

	LD	HL,#4000
	LD	DE,#C000
	LD	BC,6912
	LDIR
INIMOVE
	LD	HL,MOVET_ADR
	LD	DE,MOVET_ATTR
	LD	LX,MOV_BOTT_SZ
	CALL	INIMV0
	LD	LX,MOV_TOP_SZ
INIMV0	;---
	LD	BC,0-32
INIMV2	;---
	LD	A,16
INIMV1	;---
	LD	(HL),#E1	; pop hl
	INC	HL
	LD	(HL),#22	; ld (adr),hl
	INC	HL
	LD	(HL),E
	INC	HL
	LD	(HL),D
	INC	HL
	INC	E
	INC	DE
	DEC	A
	JP	NZ,INIMV1
	;---
	;#40 = 0100.0000
	;#c0 = 1100.0000
	LD	A,D
	XOR	#80
	LD	D,A
	AND	#80
	JP	Z,INIMV3
	;---
	EX	DE,HL
	ADD	HL,BC
	EX	DE,HL
INIMV3	;---
	DEC	LX
	JP	NZ,INIMV2
	;---
	LD	(HL),#EB	; ex de,hl
	INC	HL
	LD	(HL),#E9	; jp (hl)
	INC	HL
	;---
	RET