180: Routine at A4D4

A4D4: Routine at A4D4

Used by the routines at A434 and A7F8.
A4D4	LD B,$03	B=03.
A4D6	PUSH BC	Stash BC, HL and DE on the stack.
A4D7	PUSH HL
A4D8	PUSH DE
A4D9	LD A,D	A=D.
A4DA	CP $00	Jump to A4E5 if A is less than 00.
A4DC	JR C,$A4E5	Jump to A4E5 if A is less than 00.
A4DE	CP $18	Jump to A4E5 if A is greater than or equal to 18.
A4E0	JR NC,$A4E5	Jump to A4E5 if A is greater than or equal to 18.
A4E2	CALL $A4F0	Call A4F0.
A4E5	POP DE	Restore DE and HL from the stack.
A4E6	POP HL	Restore DE and HL from the stack.
A4E7	LD BC,$0018	HL+=0018.
A4EA	ADD HL,BC	HL+=0018.
A4EB	INC D	Increment D by one.
A4EC	POP BC	Restore BC from the stack.
A4ED	DJNZ $A4D6	Decrease counter by one and loop back to A4D6 until counter is zero.
A4EF	RET	Return.
A4F0	PUSH HL	Stash HL on the stack.
A4F1	CALL CalculateDartBoardAddress	Call CalculateDartBoardAddress.
A4F4	EX DE,HL	Exchange the DE and HL registers.
A4F5	POP HL	Restore HL from the stack.
A4F6	LD B,$08	B=08.
A4F8	PUSH BC	Stash BC and DE on the stack.
A4F9	PUSH DE	Stash BC and DE on the stack.
A4FA	LD BC,$0003	BC=0003.
A4FD	LDIR	LDIR.
A4FF	POP DE	Restore DE from the stack.
A500	INC D	Increment D by one.
A501	POP BC	Restore BC from the stack.
A502	DJNZ $A4F8	Decrease counter by one and loop back to A4F8 until counter is zero.
A504	RET	Return.