Tranz Am: Routine at 28476

28476: Routine at 6F3C

Used by the routine at DrawObjects.
28476	LD A,(24083)	A=24083.
28479	LD C,A
28480	INC A
28481	AND %00000011	Keep only bits 0-1.
28483	BIT 1,A
28485	LD A,(24088)	A=Player_Y.
28488	JR NZ,28492
28490	NEG
28492	ADD A,104
28494	CP 192
28496	RET NC
28497	CP 16
28499	RET C
28500	LD (24085),A
28503	LD H,A
28504	LD A,(24087)	A=Player_X.
28507	CP 88
28509	RET NC
28510	BIT 1,C
28512	JR Z,28516
28514	NEG
28516	ADD A,152
28518	LD (24084),A
28521	LD L,A
28522	LD A,(24095)	A=ActiveObject.
28525	CP 96
28527	RET Z
28528	CP 32
28530	JR Z,28538
28532	BIT 6,A
28534	JR Z,28538
28536	LD A,7	A=7.
28538	LD (24094),A
28541	PUSH HL	Push HL on the stack.
28542	EX DE,HL
28543	LD B,7	B=7.
28545	LD HL,24145	HL=24145.
This entry point is used by the routine at 28588.
28548	LD A,(HL)
28549	SUB E
28550	JP P,28555
28553	NEG
28555	CP 10
28557	JR NC,28588
28559	INC HL
28560	LD A,(HL)
28561	SUB D
28562	JP P,28567
28565	NEG
28567	CP 10
28569	JR NC,28589
28571	PUSH HL	Push HL on the stack.
28572	DEC HL
28573	DEC HL
28574	PUSH HL	IX=HL (using the stack to do so).
28575	POP IX	IX=HL (using the stack to do so).
28577	LD A,(24094)	A=24094.
28580	LD (HL),A
28581	CALL StoreEntity	Call StoreEntity.
28584	POP HL	Restore HL and DE from the stack.
28585	POP DE	Restore HL and DE from the stack.
28586	JR 28609	Jump to 28609.