Tranz Am: Routine at 25180

25180: Routine at 625C

Used by the routine at 27291.
25180	LD HL,25875	HL=25875.
25183	LD BC,514	BC=0514.
25186	CALL HandlerTerrainDots_0	Call HandlerTerrainDots_0.
25189	LD IX,24168	IX=24168.
25193	LD BC,(24208)	BC=24208.
25197	LD DE,(24210)	DE=24210.
25201	CALL 25106	Call 25106.
25204	LD BC,4	BC=0004.
25207	ADD IX,BC
25209	LD BC,(24220)	BC=24220.
25213	LD DE,(24222)	DE=24222.
25217	CALL 25106	Call 25106.
25220	LD BC,4	BC=0004.
25223	ADD IX,BC
25225	CALL CollisionCup	Call CollisionCup.
25228	LD IX,24168	IX=24168.
25232	LD C,3	C=3.
25234	LD B,2	B=2.
25236	LD L,(IX+0)
25239	LD H,(IX+1)
25242	LD A,L
25243	OR H
25244	JR Z,25301
25246	LD A,L
25247	ADD A,7
25249	LD L,A
25250	LD A,H
25251	ADD A,87
25253	LD H,A
25254	DEC B
25255	PUSH BC	Stash BC on the stack.
25256	JR NZ,25286
25258	LD BC,514	BC=0514.
25261	CALL HandlerTerrainDots_0	Call HandlerTerrainDots_0.
25264	POP BC	Restore BC from the stack.
25265	LD A,(IX+2)
25268	LD (IX+0),A
25271	LD A,(IX+3)
25274	LD (IX+1),A
25277	LD DE,4	DE=0004.
25280	ADD IX,DE
25282	DEC C
25283	JR NZ,25234
25285	RET	Return.
25286	LD BC,514	BC=0514.
25289	CALL HandlerTerrainDots_1	Call HandlerTerrainDots_1.
25292	POP BC	Stash BC on the stack.
25293	LD L,(IX+2)
25296	LD H,(IX+3)
25299	JR 25242
25301	DEC B
25302	JR Z,25265
25304	JR 25293	Jump to 25293.