Tranz Am: Routine at 26033

26033: Routine at 65B1

Used by the routine at 25992.
26033	LD BC,514	BC=514.
26036	BIT 0,(IX+0)
26040	CALL NZ,HandlerTerrainDots
26043	LD A,(IX+0)
26046	AND %11111110	Keep only bits 1-7.
26048	NEG
26050	ADD A,E
26051	CP 72
26053	RET C
26054	CP 248
26056	RET NC
26057	LD L,A
26058	LD A,D
26059	SUB (IX+1)
26062	CP 8
26064	RET C
26065	CP 184
26067	RET NC
26068	LD H,A
26069	SET 0,(IX+0)
26073	LD BC,514	BC=514.
26076	PUSH HL	Stash HL on the stack.
26077	CALL HandlerTerrainDots_1	Call HandlerTerrainDots_1.
26080	POP HL	Restore HL from the stack.
26081	PUSH DE	Stash DE on the stack.
26082	CALL AttributeAddress	Call AttributeAddress.
26085	POP DE	Restore DE from the stack.
26086	LD A,(24131)	Jump to 26104 if Flag_DayNight is zero.
26089	AND A
26090	JR Z,26104
26092	LD A,(24132)	A=Background_Attribute.
26095	OR %00000111	Set bits 0-2.
26097	LD C,A
26098	LD A,(HL)
26099	CP 118
26101	RET Z
26102	LD (HL),C
26103	RET	Return.
26104	LD A,(24132)	A=Background_Attribute.
26107	JR 26097	Jump to 26097.