ChronosMM: Routine at 57290

57290: Routine at 57290

Used by the routine PLAY_GAME.
L57290	57290	LD A,(59648)
	57293	AND A
	57294	JP Z,L57290_0
	57297	DEC A
	57298	LD (59648),A
	57301	JP DRAW_PLAYER
L57290_0	57304	LD HL,(59649)	Load HL with PLAYER_X_COORD and PLAYER_Y_COORD
	57307	SRL H
	57309	RR L
	57311	RLA
	57312	LD DE,60387	Point DE at SCREEN_BUFFER
	57315	ADD HL,DE
	57316	PUSH HL
	57317	LD HL,52334	Prepare to copy from left-aligned player ship graphics data
	57320	RRA
	57321	JP NC,L57290_1
	57324	LD HL,52398	Prepare to copy from right-aligned player ship graphics data
L57290_1	57327	LD A,(59674)
	57330	RRA
	57331	JP C,L57290_2
	57334	LD DE,32
	57337	ADD HL,DE
L57290_2	57338	EX DE,HL
	57339	POP HL
	57340	LD B,8
	57342	LD C,0
L57290_3	57344	PUSH BC
	57345	LD A,(DE)
	57346	AND (HL)
	57347	OR C
	57348	LD C,A
	57349	LD A,(DE)
	57350	XOR (HL)
	57351	LD (HL),A
	57352	INC HL
	57353	INC DE
	57354	LD A,(DE)
	57355	AND (HL)
	57356	OR C
	57357	LD C,A
	57358	LD A,(DE)
	57359	XOR (HL)
	57360	LD (HL),A
	57361	INC HL
	57362	INC DE
	57363	LD A,(DE)
	57364	AND (HL)
	57365	OR C
	57366	LD C,A
	57367	LD A,(DE)
	57368	XOR (HL)
	57369	LD (HL),A
	57370	INC HL
	57371	INC DE
	57372	LD A,(DE)
	57373	AND (HL)
	57374	OR C
	57375	LD C,A
	57376	LD A,(DE)
	57377	XOR (HL)
	57378	LD (HL),A
	57379	INC DE
	57380	LD A,C
	57381	LD BC,29
	57384	ADD HL,BC
	57385	POP BC
	57386	LD C,A
	57387	DJNZ L57290_3
	57389	LD A,C
	57390	LD (59666),A
	57393	RET