Tranz Am: Routine at 6B47

6B47: Draw Objects

Used by the routine at 6A9B.
DrawObjects	6B47	LD BC,($5E19)	BC=CurrentObject.
DrawObjects_0	6B4B	XOR A	A=00.
	6B4C	EX AF,AF'
	6B4D	LD A,(BC)	A'=object X position.
	6B4E	INC BC	Increment BC by one.
	6B4F	LD D,A	D=A'.
	6B50	CALL $6B30	Call 6B30.
	6B53	LD HL,($5E05)	HL=PlayerMapPosition.
	6B56	AND A
	6B57	SBC HL,DE
	6B59	JR NC,DrawObjects_1
	6B5B	CALL $6BF6	Call 6BF6.
	6B5E	EX AF,AF'
	6B5F	XOR $02
	6B61	EX AF,AF'
DrawObjects_1	6B62	PUSH HL	Stash HL on the stack.
	6B63	EX DE,HL
	6B64	LD HL,$0060	HL=0060.
	6B67	AND A
	6B68	SBC HL,DE
	6B6A	POP HL	Restore HL from the stack.
	6B6B	RET C
	6B6C	LD A,L
	6B6D	LD ($5E17),A	Store A at Player_X.
	6B70	LD A,(BC)
	6B71	INC BC	Increment BC by one.
	6B72	LD D,A
	6B73	CALL $6B3D	Call 6B3D.
	6B76	LD A,($5E43)	If Flag_DayNight is set to "Day" jump to SetDayObjectAttributes.
	6B79	AND A
	6B7A	JR Z,SetDayObjectAttributes
	6B7C	LD HL,$6BD6	HL=NightObjectAttributes.
This entry point is used by the routine at SetDayObjectAttributes.
DrawObjects_2	6B7F	LD A,(BC)
	6B80	INC BC
	6B81	LD ($5E1F),A	Store A at ActiveObject.
	6B84	CP $20
	6B86	JR Z,DrawObjects_5
	6B88	CP $40
	6B8A	JR NC,DrawObjects_5
	6B8C	ADD A,L
	6B8D	LD L,A
	6B8E	LD A,H
	6B8F	ADC A,$00
	6B91	LD H,A
DrawObjects_3	6B92	LD A,($5E44)	A=Background_Attribute.
	6B95	OR (HL)
	6B96	LD ($5E42),A
	6B99	LD HL,($5E08)	HL=5E08.
	6B9C	AND A
	6B9D	SBC HL,DE
	6B9F	JR NC,DrawObjects_4
	6BA1	CALL $6BF6	Call 6BF6.
	6BA4	EX AF,AF'
	6BA5	XOR $01
	6BA7	EX AF,AF'
DrawObjects_4	6BA8	PUSH HL
	6BA9	EX DE,HL
	6BAA	LD HL,$0060	HL=0060.
	6BAD	AND A
	6BAE	SBC HL,DE
	6BB0	POP HL
	6BB1	JR C,DrawObjects_0
	6BB3	LD A,L
	6BB4	LD ($5E18),A	Store A at Player_Y.
	6BB7	EX AF,AF'
	6BB8	LD E,A
	6BB9	LD D,$00
	6BBB	LD HL,$6BCF	HL=6BCF.
	6BBE	ADD HL,DE
	6BBF	LD A,(HL)
	6BC0	LD ($5E13),A	Store A at 5E13.
	6BC3	LD ($5E3A),BC	Store BC at 5E3A.
	6BC7	PUSH BC
	6BC8	CALL $6F3C
	6BCB	POP BC
	6BCC	JP DrawObjects_0
	6BCF	DEFB $02,$03,$01,$00
DrawObjects_5	6BD3	XOR A
	6BD4	JR DrawObjects_3
NightObjectAttributes	6BD6	DEFB $43,$46,$45,$44,$47,$42,$44,$44
	6BDE	DEFB $44,$44,$45,$47,$44,$45,$46,$47
DayObjectAttributes	6BE6	DEFB $43,$40,$41,$42,$42,$41,$40,$40
	6BEE	DEFB $40,$40,$41,$42,$42,$41,$40,$41