Everyone's a Wally: Routine at 62961

62961: Routine at F5F1

Used by the routine at 61121.
62961	LD HL,24039	HL=24039.
62964	LD DE,32	DE=0032.
62967	LD BC,62931	BC=62931.
62970	LD (HL),0	Write 0 to *HL.
62972	ADD HL,DE	HL+=DE.
62973	LD (HL),255	Write 255 to *HL.
62975	ADD HL,DE	HL+=DE.
62976	LD (HL),0	Write 0 to *HL.
62978	AND A
62979	SBC HL,DE
62981	SBC HL,DE
62983	LD A,(BC)
62984	INC BC
62985	CP 255
62987	JR Z,63005
62989	OR A
62990	JR Z,63002
62992	CP 1
62994	JR NZ,62999
62996	ADD HL,DE	HL+=DE.
62997	JR 63002	Jump to 63002.
62999	AND A
63000	SBC HL,DE	HL-=DE.
63002	INC HL	Increment HL by one.
63003	JR 62970	Jump to 62970.
63005	LD A,6	Write 6 to 62062.
63007	LD (62062),A	Write 6 to 62062.
63010	LD IX,62910	IX=62910.
63014	LD B,3
63016	PUSH BC
63017	LD A,13
63019	CALL Handler_TaskCompleted
63022	LD BC,62922
63025	JR NZ,63030
63027	LD BC,62926
63030	CALL 61237
63033	LD A,(62930)
63036	XOR 2
63038	LD (62930),A
63041	CALL 43168
63044	CALL 58153
63047	POP BC
63048	DJNZ 63016
63050	RET
63051	LD BC,65281
63054	LD BC,65535
63057	LD BC,10495
63060	LD B,(HL)
63061	LD BC,1281
63064	INC B
63065	RET Z
63066	LD A,B
63067	RST 56
63068	LD BC,547
63071	LD H,100
63073	LD BC,9983
63076	NOP
63077	RET Z
63078	LD A,B
63079	RST 56
63080	LD BC,547
63083	LD H,100
63085	LD BC,9983
63088	NOP
63089	INC A
63090	NOP
63091	NOP
63092	LD A,4
63094	LD (62062),A
63097	LD B,5
63099	LD IX,63059
63103	PUSH BC
63104	LD BC,62922
63107	CALL 61237
63110	DEC (IX+0)
63113	JR NZ,63163
63115	LD A,(63091)
63118	LD B,A
63119	LD A,(63090)
63122	OR B
63123	JR NZ,63163
63125	LD A,R
63127	AND 63
63129	ADD A,20
63131	LD (IX+0),A
63134	LD A,(IX+1)
63137	ADD A,2
63139	CP 8
63141	JR NZ,63144
63143	XOR A
63144	LD (IX+1),A
63147	LD E,A
63148	LD D,0
63150	LD HL,63051
63153	ADD HL,DE
63154	LD A,(HL)
63155	LD (IX-2),A
63158	INC HL
63159	LD A,(HL)
63160	LD (IX-1),A
63163	LD A,(63089)
63166	XOR 2
63168	LD (63089),A
63171	CALL 43168
63174	CALL 58153
63177	INC IX
63179	INC IX
63181	POP BC
63182	DJNZ 63103
63184	RET
63185	LD B,B
63186	INC DE
63187	LD H,B
63188	LD E,128
63190	LD A,(DE)
63191	AND B
63192	LD BC,1472
63195	NOP
63196	LD B,B
63197	LD H,H
63198	LD (BC),A
63199	INC B
63200	OR H
63201	SBC A,B
63202	LD (BC),A
63203	CALL M,17440
63206	LD (BC),A
63207	INC B
63208	RET Z
63209	LD A,B
63210	LD (BC),A
63211	CALL M,50490
63214	DEFB 237,254
63216	LD B,32
63218	INC C
63219	LD A,(63195)
63222	XOR 1
63224	LD (63195),A
63227	JR Z,63254
63229	LD A,6
63231	DEC A
63232	JR Z,63254
63234	LD B,A
63235	LD HL,63185
63238	LD DE,18432
63241	LD E,(HL)
63242	INC HL
63243	LD (43064),DE
63247	LD A,(HL)
63248	INC HL
63249	CALL 43069
63252	DJNZ 63241
63254	LD A,(60869)
63257	CP 6
63259	RET Z
63260	LD A,6
63262	LD (62062),A
63265	LD IX,63196
63269	LD B,4
63271	PUSH BC
63272	LD BC,62199
63275	CALL 61237
63278	LD A,118
63280	CALL 43168
63283	CALL 58153
63286	POP BC
63287	DJNZ 63271
63289	RET
63290	INC (HL)
63291	LD B,B
63292	NOP
63293	LD (BC),A
63294	LD (HL),H
63295	LD L,H
63296	NOP
63297	LD (BC),A
63298	OR H
63299	AND B
63300	NOP
63301	LD (BC),A
63302	LD A,8
63304	LD (62062),A
63307	LD IX,63290
63311	LD B,3
63313	PUSH BC
63314	LD BC,62199
63317	CALL 61237
63320	LD A,(IX-1)
63323	CP 2
63325	JR Z,63335
63327	LD (IX-1),2
63331	LD (IX-3),64
63335	LD A,86
63337	CALL 43069
63340	CALL 58153
63343	POP BC
63344	DJNZ 63313
63346	RET
63347	LD A,2
63349	LD (62062),A
63352	LD A,(IY+10)
63355	CP 152
63357	JR NZ,63373
63359	LD A,(IY+5)
63362	CP 40
63364	JR C,63373
63366	CP 230
63368	JR NC,63373
63370	CALL 58175
63373	LD B,5
63375	LD A,(63454)
63378	INC A
63379	CP 91
63381	JR NZ,63385
63383	LD A,87
63385	LD (63454),A
63388	LD HL,63455
63391	LD D,152
63393	LD E,(HL)
63394	LD (43064),DE
63398	INC HL
63399	DEC (HL)
63400	JR NZ,63404
63402	LD (HL),40
63404	LD A,(HL)
63405	INC HL
63406	CP 9
63408	JR NC,63446
63410	LD A,(IY+10)
63413	CP 128
63415	JR NZ,63441
63417	LD A,(43064)
63420	SUB (IY+5)
63423	SUB 16
63425	CP 224
63427	JR C,63441
63429	LD A,(IY+10)
63432	ADD A,4
63434	LD (IY+10),A
63437	LD (IY+55),1
63441	LD A,(63454)
63444	JR 63448
63446	LD A,87
63448	CALL 43069
63451	DJNZ 63393
63453	RET
63454	DEFB 90,56,41,96,33,136,25,176
63462	DEFB 17,216,9
63465	DEFB 14,144,160,91,10,8,168,92
63473	DEFB 15,240,168,94,25,144,160,93
63481	DEFB 23,32,144,95,255,15,240,168
63489	DEFB 94,25,144,160,93,23,32,144
63497	DEFB 95,14,144,160,91,10,8,168
63505	DEFB 92
63506	DEFW 63465