Tranz Am: Routine at 27693

27693: Routine at 6C2D

Used by the routine at HandlerAccelerate.
27693	XOR A	Write 0 to 24091.
27694	LD (24091),A	Write 0 to 24091.
27697	LD BC,(24089)	BC=CurrentObject.
27701	DEC BC	Decrease BC by three.
27702	DEC BC
27703	DEC BC
27704	LD A,(BC)	D=BC.
27705	LD D,A	D=BC.
27706	CALL 27440	Call 27440.
27709	CALL 27778	Call 27778.
27712	JR NC,27721
27714	LD A,1	Write 1 to 24091.
27716	LD (24091),A	Write 1 to 24091.
27719	JR 27701	Jump to 27701.
27721	LD A,(24091)	Jump to 27735 if 24091 is zero.
27724	AND A
27725	JR Z,27735
27727	INC BC
27728	INC BC
27729	INC BC
27730	LD (24089),BC
27734	RET	Return.
27735	LD BC,(24089)	BC=CurrentObject.
27739	LD A,(BC)	D=BC.
27740	LD D,A	D=BC.
27741	CALL 27440	Call 27440.
27744	CALL 27778	Call 27778.
27747	RET C
27748	LD (24092),HL
27751	INC BC
27752	INC BC
27753	INC BC
27754	LD A,(BC)
27755	LD D,A
27756	CALL 27440	Call 27440.
27759	CALL 27778	Call 27778.
27762	JR C,27730
27764	PUSH HL	Stash HL on the stack.
27765	LD DE,(24092)	DE=24092.
27769	AND A
27770	SBC HL,DE
27772	POP HL	Restore HL from the stack.
27773	JR Z,27751
27775	JR C,27748
27777	RET	Return.