Tranz Am: Routine at 625C

625C: Routine at 625C

Used by the routine at 6A9B.
625C	LD HL,$6513	HL=6513.
625F	LD BC,$0202	BC=0202.
6262	CALL HandlerTerrainDots_0	Call HandlerTerrainDots_0.
6265	LD IX,$5E68	IX=5E68.
6269	LD BC,($5E90)	BC=5E90.
626D	LD DE,($5E92)	DE=5E92.
6271	CALL $6212	Call 6212.
6274	LD BC,$0004	BC=0004.
6277	ADD IX,BC
6279	LD BC,($5E9C)	BC=5E9C.
627D	LD DE,($5E9E)	DE=5E9E.
6281	CALL $6212	Call 6212.
6284	LD BC,$0004	BC=0004.
6287	ADD IX,BC
6289	CALL CollisionCup	Call CollisionCup.
628C	LD IX,$5E68	IX=5E68.
6290	LD C,$03	C=03.
6292	LD B,$02	B=02.
6294	LD L,(IX+$00)
6297	LD H,(IX+$01)
629A	LD A,L
629B	OR H
629C	JR Z,$62D5
629E	LD A,L
629F	ADD A,$07
62A1	LD L,A
62A2	LD A,H
62A3	ADD A,$57
62A5	LD H,A
62A6	DEC B
62A7	PUSH BC	Stash BC on the stack.
62A8	JR NZ,$62C6
62AA	LD BC,$0202	BC=0202.
62AD	CALL HandlerTerrainDots_0	Call HandlerTerrainDots_0.
62B0	POP BC	Restore BC from the stack.
62B1	LD A,(IX+$02)
62B4	LD (IX+$00),A
62B7	LD A,(IX+$03)
62BA	LD (IX+$01),A
62BD	LD DE,$0004	DE=0004.
62C0	ADD IX,DE
62C2	DEC C
62C3	JR NZ,$6292
62C5	RET	Return.
62C6	LD BC,$0202	BC=0202.
62C9	CALL HandlerTerrainDots_1	Call HandlerTerrainDots_1.
62CC	POP BC	Stash BC on the stack.
62CD	LD L,(IX+$02)
62D0	LD H,(IX+$03)
62D3	JR $629A
62D5	DEC B
62D6	JR Z,$62B1
62D8	JR $62CD	Jump to 62CD.