Everyone's a Wally: Routine at 45478

45478: Routine at B1A6

Used by the routines at 43872, 43931 and 45215.
45478	LD A,(IY+60)
45481	OR A
45482	JR NZ,45490
45484	LD A,(IY+65)
45487	LD (IY+60),A
45490	LD (IY+70),A
45493	LD (IY+75),0
This entry point is used by the routines at Handler_Move_Characters and 45215.
45497	LD A,(IY+60)	If IY+60 is 1 jump to 45596.
45500	CP 1
45502	JR Z,45596
45504	LD A,(IY+75)	E=(IY+75)3.
45507	LD E,A
45508	ADD A,A
45509	ADD A,E
45510	LD E,A
45511	LD D,0	D=0.
45513	LD HL,45668	HL=45668+DE.
45516	ADD HL,DE	HL=45668+DE.
45517	LD E,(HL)
45518	INC HL
45519	LD D,(HL)
45520	INC HL
45521	LD B,(HL)
45522	LD A,D
45523	DEC A
45524	BIT 7,A
45526	JR NZ,45549
45528	LD A,(IY+55)
45531	OR A
45532	JR NZ,45549
45534	LD A,(IY+10)
45537	AND %00000111	Keep only bits 0-2.
45539	JR NZ,45549
45541	LD (IY+75),11	Write 11 to IY+75.
45545	LD B,0	B=0.
45547	JR 45573	Jump to 45573.
45549	LD A,(IY-60)
45552	OR A
45553	CALL NZ,33236
45556	LD A,(IY+10)
45559	ADD A,D
45560	LD (IY+10),A
45563	LD A,(IY+5)
45566	SUB E
45567	JR NC,45570
45569	XOR A	Write 0 to IY+5.
45570	LD (IY+5),A	Write 0 to IY+5.
45573	LD (IY+0),B	Write B to IY+0.
45576	INC (IY+75)
45579	LD A,(IY+75)
45582	CP 12
45584	RET NZ
45585	LD (IY+60),0	Write 0 to IY+60.
45589	LD (IY+70),0	Write 0 to IY+70.
45593	JP 58133	Jump to 58133.
45596	LD A,(IY+75)	E=(IY+75)3.
45599	LD E,A
45600	ADD A,A
45601	ADD A,E
45602	LD E,A
45603	LD D,0	D=0.
45605	LD HL,45668	HL=45668+DE.
45608	ADD HL,DE	HL=45668+DE.
45609	LD E,(HL)
45610	INC HL
45611	LD D,(HL)
45612	INC HL
45613	LD B,(HL)
45614	LD A,D
45615	DEC A
45616	BIT 7,A
45618	JR NZ,45641
45620	LD A,(IY+55)
45623	OR A
45624	JR NZ,45641
45626	LD A,(IY+10)
45629	AND %00000111	Keep only bits 0-2.
45631	JR NZ,45641
45633	LD (IY+75),11	Write 11 to IY+75.
45637	LD B,0	B=0.
45639	JR 45573	Jump to 45573.
45641	LD A,(IY-60)
45644	OR A
45645	CALL Z,33236
45648	LD A,(IY+10)
45651	ADD A,D
45652	LD (IY+10),A
45655	LD A,(IY+5)
45658	ADD A,E
45659	CP 240
45661	JR C,45570
45663	LD A,240	A=240.
45665	JP 45570	Jump to 45570.
45668	DEFB 2,252,6
45671	DEFB 2,252,6
45674	DEFB 2,252,6
45677	DEFB 2,252,6
45680	DEFB 2,252,7
45683	DEFB 2,252,7
45686	DEFB 2,4,7
45689	DEFB 2,4,7
45692	DEFB 2,4,6
45695	DEFB 2,4,6
45698	DEFB 2,4,6
45701	DEFB 2,4,0