Hollywood Poker: Routine at 64385

64385: Play Theme Tune

Used by the routine at ResetThemeTune.
PlayThemeTune	64385	LD HL,64341	HL=64341.
	64388	CALL 64350	Call 64350.
	64391	LD (64338),A	Write A to *64338.
	64394	LD HL,64345	HL=64345.
	64397	CALL 64350	Call 64350.
	64400	LD (64339),A	Write A to *64339.
	64403	LD HL,64338	HL=64338.
	64406	CALL 64363	Call 64363.
	64409	RL E	Rotate E left.
	64411	JP C,64580	Jump to 64580 if {} is lower.
	64414	PUSH HL	Stash HL on the stack.
	64415	LD HL,64339	HL=64339.
	64418	CALL 64363	Call 64363.
	64421	POP DE	Restore DE from the stack.
	64422	LD A,H	A=H.
	64423	DEC A	Decrease A by one.
	64424	JR NZ,PlayThemeTune_0	Jump to PlayThemeTune_0 if A is not zero.
	64426	LD A,D	A=D.
	64427	DEC A	Decrease A by one.
	64428	JR Z,PlayThemeTune_6	Jump to PlayThemeTune_6 if A is zero.
PlayThemeTune_0	64430	LD A,(64349)	A=*64349.
	64433	LD C,A	C=A.
	64434	LD B,0	B=0.
	64436	LD A,(64340)	A=*64340.
	64439	EX AF,AF'	Exchange the AF register with the shadow AF register.
	64440	LD A,(64340)	A=*64340.
	64443	LD IXh,D
	64445	LD D,16
PlayThemeTune_1	64447	NOP
	64448	NOP
PlayThemeTune_2	64449	EX AF,AF'
	64450	DEC E
	64451	OUT (254),A
	64453	JR NZ,PlayThemeTune_4
	64455	LD E,IXh
	64457	XOR D
	64458	EX AF,AF'
	64459	DEC L
	64460	JP NZ,PlayThemeTune_5
PlayThemeTune_3	64463	OUT (254),A
	64465	LD L,H
	64466	XOR D
	64467	DJNZ PlayThemeTune_1
	64469	INC C
	64470	JP NZ,PlayThemeTune_2
	64473	RET
	64474	LD H,C
	64475	LD H,H
	64476	LD H,C
	64477	LD L,L
PlayThemeTune_4	64478	JR Z,PlayThemeTune_4
	64480	EX AF,AF'
	64481	DEC L
	64482	JP Z,PlayThemeTune_3
PlayThemeTune_5	64485	OUT (254),A
	64487	NOP
	64488	NOP
	64489	DJNZ PlayThemeTune_1
	64491	INC C
	64492	JP NZ,PlayThemeTune_2
	64495	RET
PlayThemeTune_6	64496	LD A,(64349)	A=*64349.
	64499	CPL	Invert the bits in A.
	64500	LD C,A	C=A.
This entry point is used by the routine at 64580.
PlayThemeTune_7	64501	PUSH BC	Stash BC and AF on the stack.
	64502	PUSH AF	Stash BC and AF on the stack.
	64503	LD B,0	B=0.
PlayThemeTune_8	64505	PUSH HL	Stash HL on the stack.
	64506	LD HL,0	HL=0000.
	64509	SRA (HL)	Shift *HL right three positions (with carry).
	64511	SRA (HL)
	64513	SRA (HL)
	64515	NOP	No operation.
	64516	POP HL	Restore HL from the stack.
	64517	DJNZ PlayThemeTune_8	Decrease counter by one and loop back to PlayThemeTune_8 until counter is zero.
	64519	DEC C	Decrease C by one.
	64520	JP NZ,PlayThemeTune_8	Jump to PlayThemeTune_8 until C is zero.
	64523	POP AF	Restore AF and BC from the stack.
	64524	POP BC	Restore AF and BC from the stack.
	64525	RET	Return.