Tranz Am: Routine at 27463

27463: Draw Objects

Used by the routine at 27291.
DrawObjects	27463	LD BC,(24089)	BC=CurrentObject.
DrawObjects_0	27467	XOR A	A=0.
	27468	EX AF,AF'
	27469	LD A,(BC)	A'=object X position.
	27470	INC BC	Increment BC by one.
	27471	LD D,A	D=A'.
	27472	CALL 27440	Call 27440.
	27475	LD HL,(24069)	HL=PlayerMapPosition.
	27478	AND A
	27479	SBC HL,DE
	27481	JR NC,DrawObjects_1
	27483	CALL 27638	Call 27638.
	27486	EX AF,AF'
	27487	XOR 2
	27489	EX AF,AF'
DrawObjects_1	27490	PUSH HL	Stash HL on the stack.
	27491	EX DE,HL
	27492	LD HL,96	HL=0096.
	27495	AND A
	27496	SBC HL,DE
	27498	POP HL	Restore HL from the stack.
	27499	RET C
	27500	LD A,L
	27501	LD (24087),A	Store A at Player_X.
	27504	LD A,(BC)
	27505	INC BC	Increment BC by one.
	27506	LD D,A
	27507	CALL 27453	Call 27453.
	27510	LD A,(24131)	If Flag_DayNight is set to "Day" jump to SetDayObjectAttributes.
	27513	AND A
	27514	JR Z,SetDayObjectAttributes
	27516	LD HL,27606	HL=NightObjectAttributes.
This entry point is used by the routine at SetDayObjectAttributes.
DrawObjects_2	27519	LD A,(BC)
	27520	INC BC
	27521	LD (24095),A	Store A at ActiveObject.
	27524	CP 32
	27526	JR Z,DrawObjects_5
	27528	CP 64
	27530	JR NC,DrawObjects_5
	27532	ADD A,L
	27533	LD L,A
	27534	LD A,H
	27535	ADC A,0
	27537	LD H,A
DrawObjects_3	27538	LD A,(24132)	A=Background_Attribute.
	27541	OR (HL)
	27542	LD (24130),A
	27545	LD HL,(24072)	HL=24072.
	27548	AND A
	27549	SBC HL,DE
	27551	JR NC,DrawObjects_4
	27553	CALL 27638	Call 27638.
	27556	EX AF,AF'
	27557	XOR 1
	27559	EX AF,AF'
DrawObjects_4	27560	PUSH HL
	27561	EX DE,HL
	27562	LD HL,96	HL=0096.
	27565	AND A
	27566	SBC HL,DE
	27568	POP HL
	27569	JR C,DrawObjects_0
	27571	LD A,L
	27572	LD (24088),A	Store A at Player_Y.
	27575	EX AF,AF'
	27576	LD E,A
	27577	LD D,0
	27579	LD HL,27599	HL=27599.
	27582	ADD HL,DE
	27583	LD A,(HL)
	27584	LD (24083),A	Store A at 24083.
	27587	LD (24122),BC	Store BC at 24122.
	27591	PUSH BC
	27592	CALL 28476
	27595	POP BC
	27596	JP DrawObjects_0
	27599	DEFB 2,3,1,0
DrawObjects_5	27603	XOR A
	27604	JR DrawObjects_3
NightObjectAttributes	27606	DEFB 67,70,69,68,71,66,68,68
	27614	DEFB 68,68,69,71,68,69,70,71
DayObjectAttributes	27622	DEFB 67,64,65,66,66,65,64,64
	27630	DEFB 64,64,65,66,66,65,64,65