180: Routine at A73A

A73A: Routine at A73A

Used by the routine at A491.
A73A	LD DE,($9AC5)	DE=*9AC5.
A73E	LD HL,$7800	HL=7800.
A741	LD B,$05	B=05.
A743	PUSH BC	Stash BC, HL and DE on the stack.
A744	PUSH HL
A745	PUSH DE
A746	LD A,D	A=D.
A747	CP $00	Jump to A752 if A is less than 00.
A749	JR C,$A752	Jump to A752 if A is less than 00.
A74B	CP $18	Jump to A752 if A is greater than or equal to 18.
A74D	JR NC,$A752	Jump to A752 if A is greater than or equal to 18.
A74F	CALL $A75D	Call A75D.
A752	POP DE	Restore DE and HL from the stack.
A753	POP HL	Restore DE and HL from the stack.
A754	LD BC,$0018	HL+=0018.
A757	ADD HL,BC	HL+=0018.
A758	INC D	Increment D by one.
A759	POP BC	Restore BC from the stack.
A75A	DJNZ $A743	Decrease counter by one and loop back to A743 until counter is zero.
A75C	RET	Return.
A75D	PUSH HL	Stash HL on the stack.
On return from CalculateScreenBuffer HL will contain the screen buffer destination.
A75E	CALL CalculateScreenBuffer	Call CalculateScreenBuffer.
A761	EX DE,HL	Exchange the DE and HL registers.
A762	POP HL	Restore HL from the stack.
A763	DEC E	Decrease E by one.
A764	LD B,$08	B=08.
A766	PUSH BC	Stash BC and DE on the stack.
A767	PUSH DE	Stash BC and DE on the stack.
A768	LDI	LDI.
A76A	LDI	LDI.
A76C	LDI	LDI.
A76E	POP DE	Restore DE from the stack.
A76F	INC D	Increment D by one.
A770	POP BC	Restore BC from the stack.
A771	DJNZ $A766	Decrease counter by one and loop back to A766 until counter is zero.
A773	RET	Return.