Chase H.Q.: Routine at E810

E810: Called once the memory map has been setup


entrypt_48k	E810	XOR A	Set 128K flag to zero (48K mode)
	E811	LD B,$03	3 relocations to do
	E813	JP entrypt_48k_0
entrypt_128k	E816	CALL clear_game_attrs	Call clear_game_attrs
	E819	LD A,$01	Set 128K flag to one (128K mode)
	E81B	LD B,$05	5 relocations to do
entrypt_48k_0	E81D	LD ($A139),A	Store 128K mode flag
	E820	LD SP,$0000	Put stack at end of RAM
	E823	PUSH BC	Preserve count in B
	E824	LD HL,$F5BE	Copy status panel initial pixels to the top of the screen
	E827	LD DE,$4000
	E82A	LD BC,$0800
	E82D	LDIR
	E82F	LD DE,$5800	Copy status panel initial attributes to the top of the attribute file
	E832	INC B
	E833	LDIR
	E835	AND A	Call stop_the_tape if in 128K mode [prob STOP TAPE / PRESS KEY -- does it return?]
	E836	CALL Z,stop_the_tape
	E839	POP BC	Restore B
	E83A	LD HL,$E858	Point HL at relocations
relocate_loop	E83D	PUSH BC	Preserve B
	E83E	LD E,(HL)	DE = wordat(HL); HL += 2
	E83F	INC HL
	E840	LD D,(HL)
	E841	INC HL
	E842	PUSH DE	Stack source pointer
	E843	LD E,(HL)	DE = wordat(HL); HL += 2 -- Destination pointer
	E844	INC HL
	E845	LD D,(HL)
	E846	INC HL
	E847	LD C,(HL)	BC = wordat(HL); HL += 2 -- Count
	E848	INC HL
	E849	LD B,(HL)
	E84A	INC HL
	E84B	EX (SP),HL	Exchange top of stack and HL. HL is now source pointer
	E84C	LDIR	Copy
	E84E	POP HL	Restore base pointer and count
	E84F	POP BC	Restore base pointer and count
	E850	DJNZ relocate_loop	Loop while B
	E852	LD SP,$ED28	Set up the stack
	E855	JP bootstrap	Exit via bootstrap -- start the game
relocations	E858	DEFW data_e88e	Copy 24 bytes from data_e88e to $EC00
	E85A	DEFW $EC00
	E85C	DEFW $0018
	E85E	DEFW square_zoom_in_mask	Copy 40 bytes from square_zoom_in_mask to $EB00
	E860	DEFW $EB00
	E862	DEFW $0028
	E864	DEFW diamond_zoom_in_mask	Copy 48 bytes from diamond_zoom_in_mask to $EA00
	E866	DEFW $EA00
	E868	DEFW $0030
	E86A	DEFW page_in_stage_128k	Copy 926 bytes from page_in_stage_128k onwards to $8014 [128K only]
	E86C	DEFW load_stage
	E86E	DEFW $039E
	E870	DEFW 128k_mode_hooks	Copy 24 bytes (3 bytes * 8 hooks) from 128k_mode_hooks to hooks at start_siren_hook [128K only]
	E872	DEFW start_siren_hook
	E874	DEFW $0018
128k_mode_hooks	E876	JP load_stage_3	Becomes start_siren_hook
	E879	JP $805D	Becomes engine_sfx_play_hook
	E87C	JP load_stage_6	Becomes silence_audio_hook
	E87F	JP $8096	Becomes write_registers_hook
	E882	JP $80E5	Becomes turbo_sfx_play_hook
	E885	JP tape_load_5C00_4	Becomes engine_sfx_setup_hook
	E888	JP $8136	Becomes play_speech_hook
	E88B	JP $820F	Becomes attract_mode_hook
data_e88e	E88E	DEFB $06,$F8,$EA	Copied to $EC00
	E891	DEFB $0C,$5C,$E3
	E894	DEFB $08,$B4,$E3
	E897	DEFB $07,$F8,$E9
	E89A	DEFB $06,$28,$EB
	E89D	DEFB $0C,$BC,$E3
	E8A0	DEFB $08,$F4,$E3
	E8A3	DEFB $07,$30,$EA
Square zoom in animation mask (8x8, 5 frames)
square_zoom_in_mask	E8A6	DEFB $00,$00,$00,$10,$00,$00,$00,$00
	E8AE	DEFB $00,$00,$00,$18,$18,$00,$00,$00
	E8B6	DEFB $00,$00,$3C,$3C,$3C,$3C,$00,$00
	E8BE	DEFB $00,$7E,$7E,$7E,$7E,$7E,$7E,$00
	E8C6	DEFB $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
Diamond zoom in animation mask (8x8, 6 frames)
diamond_zoom_in_mask	E8CE	DEFB $81,$42,$24,$18,$18,$24,$42,$81
	E8D6	DEFB $81,$C3,$66,$3C,$3C,$66,$C3,$81
	E8DE	DEFB $C3,$E7,$7E,$3C,$3C,$7E,$E7,$C3
	E8E6	DEFB $C3,$E7,$FF,$7E,$7E,$FF,$E7,$C3
	E8EE	DEFB $E7,$FF,$FF,$7E,$7E,$FF,$FF,$E7
	E8F6	DEFB $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF