Tranz Am: Routine at 6C2D

6C2D: Routine at 6C2D

Used by the routine at HandlerAccelerate.
6C2D	XOR A	Write 00 to 5E1B.
6C2E	LD ($5E1B),A	Write 00 to 5E1B.
6C31	LD BC,($5E19)	BC=CurrentObject.
6C35	DEC BC	Decrease BC by three.
6C36	DEC BC
6C37	DEC BC
6C38	LD A,(BC)	D=BC.
6C39	LD D,A	D=BC.
6C3A	CALL $6B30	Call 6B30.
6C3D	CALL $6C82	Call 6C82.
6C40	JR NC,$6C49
6C42	LD A,$01	Write 01 to 5E1B.
6C44	LD ($5E1B),A	Write 01 to 5E1B.
6C47	JR $6C35	Jump to 6C35.
6C49	LD A,($5E1B)	Jump to 6C57 if 5E1B is zero.
6C4C	AND A
6C4D	JR Z,$6C57
6C4F	INC BC
6C50	INC BC
6C51	INC BC
6C52	LD ($5E19),BC
6C56	RET	Return.
6C57	LD BC,($5E19)	BC=CurrentObject.
6C5B	LD A,(BC)	D=BC.
6C5C	LD D,A	D=BC.
6C5D	CALL $6B30	Call 6B30.
6C60	CALL $6C82	Call 6C82.
6C63	RET C
6C64	LD ($5E1C),HL
6C67	INC BC
6C68	INC BC
6C69	INC BC
6C6A	LD A,(BC)
6C6B	LD D,A
6C6C	CALL $6B30	Call 6B30.
6C6F	CALL $6C82	Call 6C82.
6C72	JR C,$6C52
6C74	PUSH HL	Stash HL on the stack.
6C75	LD DE,($5E1C)	DE=5E1C.
6C79	AND A
6C7A	SBC HL,DE
6C7C	POP HL	Restore HL from the stack.
6C7D	JR Z,$6C67
6C7F	JR C,$6C64
6C81	RET	Return.