Everyone's a Wally: Routine at F177

F177: Routine at F177


F177	LD A,(IY+$05)
F17A	LD HL,$06EA
F17D	CP $80
F17F	LD A,$FE
F181	JR C,$F188
F183	LD HL,$EA06
F186	LD A,$02
F188	LD ($F158),HL
F18B	LD ($F15A),A
F18E	LD HL,$0000
F191	LD ($F15B),HL
F194	LD (IY+$0A),$98
F198	CALL Clear_PlayArea
F19B	LD HL,$F15D
F19E	CALL DrawRoom_Loop
F1A1	JR $F1D2
F1A3	CALL $EEA2
F1A6	CALL $F202
F1A9	LD A,$04
F1AB	LD ($F26E),A
F1AE	LD A,($F15A)
F1B1	CP $02
F1B3	LD A,$82
F1B5	JR Z,$F1B9
F1B7	LD A,$84
F1B9	CALL $ED8A
F1BC	CALL $B09F
F1BF	CALL WriteSprite_ShadowBuffer
F1C2	CALL ShadowBufferToScreen
F1C5	LD BC,($F158)
F1C9	LD HL,($F15B)
F1CC	LD A,(IY+$05)
F1CF	CP B
F1D0	JR NZ,$F1E6
F1D2	LD BC,($F158)
F1D6	LD HL,($F15B)
F1D9	LD A,($F15A)
F1DC	ADD A,C
F1DD	LD (IY+$05),A
F1E0	INC HL
F1E1	LD ($F15B),HL
F1E4	JR $F1A3
F1E6	CP C
F1E7	JR NZ,$F1A3
F1E9	DEC HL
F1EA	LD ($F15B),HL
F1ED	LD A,H
F1EE	OR L
F1EF	JR Z,$F1FC
F1F1	LD A,($F15A)
F1F4	LD C,A
F1F5	LD A,B
F1F6	SUB C
F1F7	LD (IY+$05),A
F1FA	JR $F1A3
F1FC	LD (IY+$05),B
F1FF	JP $EE8D
F202	LD HL,($F15B)
F205	LD BC,$DFDC
F208	LD ($B7E9),BC
F20C	LD DE,$1208
F20F	LD A,$2F
F211	LD BC,$2710
F214	CALL $F233
F217	LD BC,$03E8
F21A	CALL $F233
F21D	LD BC,$0064
F220	CALL $F233
F223	LD BC,$000A
F226	CALL $F233
F229	LD BC,$0001
F22C	CALL $F233
F22F	LD A,$4D
F231	JR $F23A
F233	INC A
F234	AND A
F235	SBC HL,BC
F237	JR NC,$F233
F239	ADD HL,BC
F23A	LD C,$70
F23C	CALL $B7F9
F23F	INC E
F240	LD A,$2F
F242	RET
F243	JR NZ,$F289
F245	INC B
F246	LD (BC),A
F247	SBC A,B
F248	AND B
F249	CALL M,$3E02
F24C	INC B
F24D	LD ($F26E),A
F250	LD IX,$F243
F254	LD BC,$F2F7
F257	CALL $EF35
F25A	LD A,$7A
F25C	CALL $A8A0
F25F	CALL $E329
F262	LD A,$7A
F264	CALL $EF35
F267	CALL $A8A0
F26A	CALL $E329
F26D	RET
F26E	DEFB $00
F26F	DEFB $43
F270	DEFB $5A
F271	DEFB $A8
F272	DEFB $01
F273	DEFB $00
F274	DEFB $00
F275	DEFB $03
F276	DEFB $40
This entry point is used by the routine at 81AE.
F277	LD A,$02
F279	LD ($F26E),A
F27C	LD IX,$F270
F280	LD BC,$F2F7
F283	CALL $EF35
F286	LD A,(IX+$00)
F289	CALL $AC69
F28C	INC HL
F28D	LD A,(HL)
F28E	CALL $AC5F
F291	LD A,(HL)
F292	CP (IX-$04)
F295	JR NZ,$F2C3
F297	DEC (IX+$01)
F29A	JR NZ,$F2C3
F29C	LD A,R
F29E	AND $03
F2A0	ADD A,$03
F2A2	LD (IX+$01),A
F2A5	CALL $AF01
F2A8	CP $1F
F2AA	JR Z,$F2A5
F2AC	LD (IX+$00),A
F2AF	CALL $AC69
F2B2	INC HL
F2B3	LD A,(HL)
F2B4	CALL $AC5F
F2B7	LD A,(HL)
F2B8	ADD A,$02
F2BA	CP $EE
F2BC	JR C,$F2C0
F2BE	LD A,$EE
F2C0	LD (IX-$04),A
F2C3	LD A,(IX+$00)
F2C6	CP (IY+$0F)
F2C9	RET NZ
F2CA	LD A,(IX-$02)
F2CD	LD BC,$4440
F2D0	CP $01
F2D2	JR Z,$F2D7
F2D4	LD BC,$4844
F2D7	LD A,(IX+$02)
F2DA	ADD A,$02
F2DC	CP B
F2DD	JR C,$F2E2
F2DF	LD A,C
F2E0	JR $F2E5
F2E2	CP C
F2E3	JR C,$F2DF
F2E5	LD (IX+$02),A
F2E8	CALL $A8A0
F2EB	LD A,$46
F2ED	LD ($F26F),A
F2F0	CALL $EF91
F2F3	CALL $E329
This entry point is used by the routine at EEC1.
F2F6	RET
F2F7	NOP
F2F8	RET P
F2F9	LD B,B
F2FA	XOR B
F2FB	JR NZ,$F2D5
F2FD	LD ($0290),HL
F300	NOP
F301	SUB $90
F303	CP $00
F305	LD A,B
F306	SUB B
F307	INC B
F308	NOP
This entry point is used by the routine at EEC1.
F309	LD A,$06
F30B	LD ($F26E),A
F30E	LD IX,$F2FD
F312	LD B,$03
F314	PUSH BC
F315	LD A,$29
F317	LD BC,$F2FB
F31A	CALL $EF35
F31D	CALL $A8A0
F320	CALL $E329
F323	POP BC
F324	DJNZ $F314
F326	RET
F327	LD ($FE64),A
F32A	NOP
F32B	LD H,B
F32C	LD ($006E),A
F32F	LD (BC),A
F330	EX AF,AF'
F331	LD H,B
F332	NOP
F333	XOR B
F334	LD A,$08
F336	LD ($F26E),A
F339	LD IX,$F327
F33D	LD BC,$F330
F340	CALL $EF35
F343	LD A,(IX+$00)
F346	INC A
F347	CP $64
F349	JR NZ,$F34D
F34B	LD A,$60
F34D	LD (IX+$00),A
F350	CALL $A83D
F353	INC IX
F355	CALL $EF35
F358	LD A,$64
F35A	CALL $A83D
F35D	CALL $E329
F360	LD A,(IX-$01)
F363	CP $FE
F365	RET NZ
F366	LD (IX-$03),$6E
F36A	LD (IX-$01),$02
F36E	LD A,(IX-$09)
F371	LD (IX-$04),A
F374	RET
F375	LD A,B
F376	XOR B
F377	LD (BC),A
F378	NOP
F379	LD A,B
F37A	XOR B
F37B	CP $00
F37D	LD A,$04
F37F	LD ($F26E),A
F382	LD IX,$F375
F386	LD BC,$F2F7
F389	CALL $EF35
F38C	LD A,$78
F38E	CALL $A8A0
F391	CALL $E329
F394	CALL $EF35
F397	LD A,$78
F399	CALL $A8A0
F39C	CALL $E329
F39F	RET
F3A0	INC L
F3A1	NOP
F3A2	LD D,B
F3A3	LD A,(BC)
F3A4	SBC A,B
F3A5	LD (BC),A
F3A6	NOP
F3A7	LD A,(BC)
F3A8	XOR B
F3A9	LD (BC),A
F3AA	NOP
F3AB	LD A,$40
F3AD	LD ($F26E),A
F3B0	LD IX,$F3A3
F3B4	LD A,(IX+$02)
F3B7	CP $02
F3B9	LD A,($F046)
F3BC	JR Z,$F3C4
F3BE	OR A
F3BF	CALL NZ,$F047
F3C2	JR $F3C8
F3C4	OR A
F3C5	CALL Z,$F047
F3C8	LD A,$30
F3CA	LD BC,$F3A1
F3CD	CALL $EF35
F3D0	CALL $A8A0
F3D3	LD A,($F3A0)
F3D6	XOR $02
F3D8	LD ($F3A0),A
F3DB	CALL $EF35
F3DE	CALL $A8A0
F3E1	LD A,($BD78)
F3E4	CP $17
F3E6	RET Z
F3E7	LD A,$17
F3E9	CP (IY+$50)
F3EC	RET Z
F3ED	CP (IY+$55)
F3F0	RET Z
F3F1	LD A,($A839)
F3F4	SUB $10
F3F6	LD ($A839),A
F3F9	CALL $E329
F3FC	RET
F3FD	NOP
F3FE	RET P
F3FF	LD A,B
F400	XOR B
F401	NOP
F402	ADD A,B
F403	LD (BC),A
F404	CALL M,$8C64
F407	LD (BC),A
F408	INC B
F409	LD A,$06
F40B	LD ($F26E),A
F40E	LD IX,$F401
F412	LD B,$02
F414	PUSH BC
F415	LD BC,$F3FD
F418	CALL $EF35
F41B	LD A,E
F41C	CP $FE
F41E	JR NZ,$F430
F420	LD (IX-$01),$FC
F424	LD (IX-$02),$02
F428	LD (IX-$03),$80
F42C	LD (IX-$04),$00
F430	LD A,$32
F432	CALL $A8A0
F435	CALL $E329
F438	POP BC
F439	DJNZ $F414
F43B	RET
F43C	LD A,$09
F43E	CALL Handler_TaskCompleted
F441	JR Z,$F479
F443	LD A,$06
F445	CALL Handler_TaskCompleted
F448	JR Z,$F479
F44A	LD A,($BD01)
F44D	CP $04
F44F	JR NZ,$F479
F451	LD A,(IY+$05)
F454	SUB $42
F456	CP $FC
F458	JR C,$F479
F45A	LD A,($AF88)
F45D	SUB (IY+$0A)
F460	SUB $22
F462	CP $FC
F464	JR C,$F479
F466	LD A,($AF88)
F469	SUB $02
F46B	CP $78
F46D	JR NC,$F471
F46F	LD A,$78
F471	LD ($AF88),A
F474	SUB $20
F476	LD (IY+$0A),A
F479	LD A,($AF88)
F47C	LD B,$10
F47E	CP $B8
F480	JR Z,$F484
F482	LD B,$0E
F484	SUB B
F485	LD H,A
F486	LD L,$40
F488	LD ($A838),HL
F48B	LD A,$2B
F48D	CALL $A83D
F490	RET
F491	LD B,B
F492	LD H,H
F493	NOP
F494	LD (BC),A
F495	LD H,H
F496	LD B,B
F497	NOP
F498	LD (BC),A
F499	CALL C,$0078
F49C	LD (BC),A
F49D	LD A,$06
F49F	LD ($F26E),A
F4A2	LD IX,$F491
F4A6	LD B,$03
F4A8	PUSH BC
F4A9	LD BC,$F2F7
F4AC	CALL $EF35
F4AF	LD A,D
F4B0	CP $FE
F4B2	JR NZ,$F4C6
F4B4	LD (IX-$01),$02
F4B8	LD (IX-$03),$40
F4BC	LD A,R
F4BE	AND $3F
F4C0	ADD A,A
F4C1	ADD A,$38
F4C3	LD (IX-$04),A
F4C6	LD A,$34
F4C8	CALL $A8A0
F4CB	CALL $E329
F4CE	POP BC
F4CF	DJNZ $F4A8
F4D1	RET
F4D2	LD C,H
F4D3	LD A,($BD7D)
F4D6	CP $1D
F4D8	JR NZ,$F4E0
F4DA	LD A,$05
F4DC	CALL Handler_TaskCompleted
F4DF	RET NZ
F4E0	LD HL,$A880
F4E3	LD ($A838),HL
F4E6	LD A,$04
F4E8	LD ($F26E),A
F4EB	LD A,($F4D2)
F4EE	INC A
F4EF	CP $50
F4F1	JR NZ,$F4F5
F4F3	LD A,$4C
F4F5	LD ($F4D2),A
F4F8	CALL $A83D
F4FB	CALL $E329
F4FE	RET
F4FF	RET P
F500	XOR B
F501	CP $00
F503	LD A,$FF
F505	LD ($AF80),A
F508	LD A,$0C
F50A	CALL Handler_TaskCompleted
F50D	JR Z,$F543
F50F	LD A,$06
F511	LD ($F26E),A
F514	LD IX,$F4FF
F518	LD BC,$F2F7
F51B	CALL $EF35
F51E	LD A,$36
F520	CALL $A8A0
F523	CALL $E329
F526	LD A,(IY+$0A)
F529	CP $88
F52B	RET NZ
F52C	LD A,(IY+$05)
F52F	SUB (IX-$04)
F532	SUB $04
F534	CP $F8
F536	RET C
F537	LD A,(IX-$04)
F53A	LD (IY+$05),A
F53D	LD A,$A8
F53F	LD ($AF80),A
F542	RET
F543	LD HL,$A8F0
F546	LD ($A838),HL
F549	LD A,$36
F54B	CALL $A8A0
F54E	RET
F54F	LD A,($BD7D)
F552	CP $1D
F554	JR NZ,$F55C
F556	LD A,$05
F558	CALL Handler_TaskCompleted
F55B	RET NZ
F55C	LD A,$14
F55E	CP (IY+$50)
F561	RET Z
F562	CP (IY+$55)
F565	RET Z
F566	LD A,$04
F568	LD ($F26E),A
F56B	CALL $E33F
F56E	JP $ED13
F571	DEFB $50
F572	DEFB $3E
F573	DEFB $08
F574	DEFB $CD
F575	DEFB $1D
F576	DEFB $EC
F577	DEFB $C8