Gyruss: Routine at 846B

846B: Perfect bonus

Used by the routine at display_bonus.
perfect_bonus	846B	LD A,$02	Play a tune
	846D	CALL call_play_tune	...
	8470	LD HL,congratulations_msg	Display CONGRATULATIONS
	8473	LD DE,$1928	...
	8476	LD BC,$0010	...
	8479	RST $38	WRITE_VRAM
	847A	LD HL,perfect_msg	Display PERFECT 10000 PTS
	847D	LD DE,$19C6	...
	8480	LD BC,$0014	...
	8483	RST $38	WRITE_VRAM
	8484	LD B,$64	100 times
This entry point is used by the routine at display_hits.
perfect_bonus_0	8486	LD HL,$0100	100 points
perfect_bonus_1	8489	PUSH HL
	848A	PUSH BC
	848B	CALL add_score	Add 100 points to score
	848E	LD A,(current_player)	Current player
	8491	CALL display_score	Display score
	8494	LD B,$07	7 frames
perfect_bonus_2	8496	HALT	Wait for interrupt
	8497	PUSH BC
	8498	CALL display_stars	Display stars
	849B	CALL control_ship	Control ship
	849E	CALL process_sprites	Process sprites
	84A1	CALL display_center_enemies	Display center enemies
	84A4	CALL next_frame_upl_sprites	Upload sprites
	84A7	POP BC
	84A8	DJNZ perfect_bonus_2	Loop 7 times
	84AA	POP BC
	84AB	POP HL
	84AC	DJNZ perfect_bonus_1	Loop number of ships times
	84AE	JP stage_completed_0	Jump back to complete stage