Spiky Harold: Routine at 85C0

85C0: Routine at 85C0

Used by the routine at 84D0.
85C0	LD A,$02
85C2	CALL $1601
85C5	LD DE,$8536
85C8	LD BC,$0011
85CB	CALL $203C
85CE	LD DE,$8547
85D1	LD BC,$0014
85D4	CALL $203C
85D7	LD DE,$855B
85DA	LD BC,$0011
85DD	CALL $203C
85E0	LD DE,$856C
85E3	LD BC,$0014
85E6	CALL $203C
85E9	LD DE,$8580
85EC	LD BC,$0014
85EF	CALL $203C
85F2	LD DE,$8594
85F5	LD BC,$0017
85F8	CALL $203C
85FB	LD DE,$85AB
85FE	LD BC,$0004
8601	CALL $203C
8604	XOR A
8605	RST $10
8606	LD B,$1E
8608	PUSH BC
8609	LD A,$20
860B	RST $10
860C	POP BC
860D	DJNZ $8608
860F	LD DE,$85AB
8612	LD BC,$0005
8615	CALL $203C
8618	LD B,$1E
861A	PUSH BC
861B	LD A,$8F
861D	RST $10
861E	POP BC
861F	DJNZ $861A
8621	LD HL,$4000
8624	LD DE,$6A00
8627	LD BC,$1800
862A	LDIR
862C	LD HL,$F2A1
862F	LD DE,$F2A2
8632	LD BC,$0006
8635	LD (HL),$00
8637	LDIR
8639	LD A,$01
863B	LD ($F2A1),A
863E	LD HL,$7002
8641	LD ($F2AE),HL
8644	LD A,$16
8646	LD ($F24A),A
8649	LD A,$06
864B	LD ($F2A5),A
864E	CALL $F2B2
8651	XOR A
8652	LD ($F24A),A
8655	LD HL,($84F5)
8658	INC HL
8659	LD ($84F5),HL
865C	DEC HL
865D	LD A,(HL)
865E	LD B,$05
8660	PUSH AF
8661	CALL $8A8B
8664	POP AF
8665	LD B,$05
8667	CALL $8A8B
866A	LD HL,($84F5)
866D	LD DE,$69FC
8670	AND A
8671	SBC HL,DE
8673	LD A,H
8674	OR L
8675	JR NZ,$867D
8677	LD HL,$67AC
867A	LD ($84F5),HL
867D	LD DE,$856C
8680	LD BC,$0004
8683	CALL $203C
8686	LD A,($8DF4)
8689	XOR $01
868B	AND $01
868D	ADD A,$05
868F	RST $10
8690	LD BC,$000F
8693	LD DE,$8571
8696	CALL $203C
8699	LD DE,$8580
869C	LD BC,$0004
869F	CALL $203C
86A2	LD A,($8DF4)
86A5	AND $01
86A7	ADD A,$05
86A9	RST $10
86AA	LD BC,$000F
86AD	LD DE,$8585
86B0	CALL $203C
86B3	LD A,($F2AE)
86B6	CP $1A
86B8	JR NZ,$86C1
86BA	LD A,$02
86BC	LD ($F2A1),A
86BF	JR $86CA
86C1	CP $01
86C3	JR NZ,$86CA
86C5	LD A,$01
86C7	LD ($F2A1),A
86CA	CALL $F2B2
86CD	LD BC,$F7FE
86D0	IN A,(C)
86D2	BIT 0,A
86D4	JR Z,$86F3
86D6	BIT 1,A
86D8	JR NZ,$86DF
86DA	LD HL,$8DF4
86DD	LD (HL),$00
86DF	BIT 2,A
86E1	JR NZ,$86E8
86E3	LD HL,$8DF4
86E6	LD (HL),$01
86E8	BIT 3,A
86EA	JP NZ,$8655
86ED	CALL $8DF5
86F0	JP $84D0
86F3	LD HL,$67DC
86F6	LD ($84F7),HL
86F9	LD HL,$910B
86FC	LD (HL),$00
86FE	INC HL
86FF	LD (HL),$13
8701	LD HL,$F05B
8704	LD DE,$F05C
8707	LD BC,$0008
870A	LD (HL),$00
870C	LDIR
870E	LD HL,$AADC
8711	LD B,$39
8713	LD DE,$0004
8716	LD (HL),$01
8718	ADD HL,DE
8719	DJNZ $8716
871B	XOR A
871C	LD ($F14B),A
871F	LD ($F2A1),A
8722	LD ($F2A2),A
8725	LD HL,$5802
8728	LD ($F2AE),HL
872B	LD A,$06
872D	LD ($F2A5),A
8730	LD HL,$F2A2
8733	LD DE,$85B0
8736	LD BC,$0010
8739	LDIR
873B	XOR A
873C	LD ($8D18),A
873F	CALL $90AA
8742	CALL $F14A
8745	CALL $AA32
8748	LD HL,$4000
874B	LD DE,$6A00
874E	LD BC,$1800
8751	LDIR
8753	CALL $A819
8756	LD A,$16
8758	LD ($F24A),A
875B	CALL $F2B2
875E	XOR A
875F	LD ($F24A),A
8762	LD ($8C64),A
8765	CALL $8F0B
8768	LD A,($8DF3)
876B	LD C,A
876C	LD HL,$F2A1
876F	LD (HL),$00
8771	BIT 2,C
8773	JR Z,$8777
8775	SET 1,(HL)
8777	BIT 3,C
8779	JR Z,$877D
877B	SET 0,(HL)
877D	BIT 4,C
877F	JR Z,$8783
8781	SET 2,(HL)
8783	LD A,($8C64)
8786	BIT 6,A
8788	JR Z,$87A5
878A	LD HL,$F2A1
878D	LD (HL),$00
878F	LD A,($8DF3)
8792	LD C,A
8793	BIT 2,C
8795	JR Z,$8799
8797	SET 0,(HL)
8799	BIT 3,C
879B	JR Z,$879F
879D	SET 1,(HL)
879F	BIT 4,C
87A1	JR Z,$87A5
87A3	SET 2,(HL)
87A5	CALL $F2B2
87A8	LD A,($84FA)
87AB	AND A
87AC	JR NZ,$87EE
87AE	LD A,($F2A7)
87B1	CP $02
87B3	JR NZ,$87BB
87B5	LD A,($F2A3)
87B8	AND A
87B9	JR Z,$87DA
87BB	LD A,($F2A3)
87BE	AND A
87BF	JR NZ,$87EE
87C1	LD A,($F2A6)
87C4	AND A
87C5	JR Z,$87EE
87C7	LD A,($F2A5)
87CA	CP $02
87CC	JR Z,$87DA
87CE	CP $05
87D0	JR Z,$87DA
87D2	CP $06
87D4	JR Z,$87DA
87D6	CP $09
87D8	JR NZ,$87EE
87DA	LD HL,$0000
87DD	LD ($F0AA),HL
87E0	LD HL,$000A
87E3	LD ($F0AC),HL
87E6	LD A,$32
87E8	LD ($F0AE),A
87EB	CALL $F0F1
87EE	CALL $A8F4
87F1	CALL $8D19
87F4	LD A,($8D18)
87F7	AND A
87F8	JR Z,$8848
87FA	LD A,($910C)
87FD	DEC A
87FE	BIT 7,A
8800	JR Z,$8813
8802	LD DE,$8528
8805	LD BC,$000E
8808	CALL $203C
880B	LD B,$00
880D	HALT
880E	DJNZ $880D
8810	JP $84D0
8813	LD ($910C),A
8816	LD HL,$85B0
8819	LD DE,$F2A2
881C	LD BC,$0010
881F	LDIR
8821	HALT
8822	LD HL,$5800
8825	LD BC,$0280
8828	LD A,(HL)
8829	AND A
882A	JR Z,$882E
882C	LD (HL),$47
882E	INC HL
882F	DEC BC
8830	LD A,B
8831	OR C
8832	JR NZ,$8828
8834	LD A,$4C
8836	LD B,$0E
8838	PUSH BC
8839	PUSH AF
883A	LD B,$06
883C	CALL $8A8B
883F	POP AF
8840	SUB $03
8842	POP BC
8843	DJNZ $8838
8845	JP $8730
8848	CALL $8C65
884B	LD A,($8C64)
884E	BIT 7,A
8850	JR Z,$8884
8852	LD A,$6A
8854	LD ($AAB3),A
8857	XOR A
8858	LD ($AA45),A
885B	CALL $AAB6
885E	LD A,$C8
8860	LD ($AA45),A
8863	LD A,$40
8865	LD ($AAB3),A
8868	LD HL,$910B
886B	INC (HL)
886C	INC HL
886D	LD A,($8C64)
8870	AND $7F
8872	JR NZ,$8875
8874	INC (HL)
8875	LD C,A
8876	XOR A
8877	LD ($8C64),A
887A	LD A,C
887B	CP $05
887D	JR NZ,$8884
887F	LD A,$40
8881	LD ($8C64),A
8884	CALL $F001
8887	CALL $90B0
888A	LD A,($F2A4)
888D	LD C,A
888E	LD A,($F2AF)
8891	ADD A,C
8892	BIT 7,A
8894	JR Z,$88BE
8896	LD A,($F14B)
This entry point is used by the routine at 90AA.
8899	ADD A,$10
889B	LD D,$00
889D	BIT 7,C
889F	JR Z,$88A7
88A1	SUB $10
88A3	SUB $10
88A5	LD D,$80
88A7	LD ($F14B),A
88AA	LD A,D
88AB	LD ($F2AF),A
88AE	AND A
88AF	JR NZ,$88BB
88B1	XOR A
88B2	LD ($F2A1),A
88B5	LD ($F2A2),A
88B8	LD ($F2A6),A
88BB	JP $8730
88BE	LD A,($F2A2)
88C1	AND $03
88C3	JR Z,$891F
88C5	LD C,A
88C6	LD A,($F2AE)
88C9	LD L,A
88CA	LD A,($F2A5)
88CD	CP $06
88CF	JR NC,$88F0
88D1	LD A,L
88D2	INC A
88D3	JR NZ,$891F
88D5	LD HL,$F14B
88D8	LD A,$1B
88DA	LD ($F2AE),A
88DD	DEC (HL)
88DE	XOR A
88DF	LD ($F2A1),A
88E2	LD ($F2A2),A
88E5	LD ($F2A6),A
88E8	LD A,$05
88EA	LD ($F2A5),A
88ED	JP $8730
88F0	LD A,L
88F1	CP $1C
88F3	JR NZ,$891F
88F5	XOR A
88F6	LD ($F2AE),A
88F9	LD HL,$F14B
88FC	INC (HL)
88FD	LD A,(HL)
88FE	CP $39
8900	JP NZ,$890D
8903	LD HL,$5802
8906	LD ($F2AE),HL
8909	XOR A
890A	LD ($F14B),A
890D	XOR A
890E	LD ($F2A1),A
8911	LD ($F2A2),A
8914	LD ($F2A6),A
8917	LD A,$06
8919	LD ($F2A5),A
891C	JP $8730
891F	LD HL,$F2A3
8922	LD A,(HL)
8923	INC HL
8924	OR (HL)
8925	INC HL
8926	INC HL
8927	OR (HL)
8928	INC HL
8929	OR (HL)
892A	JR NZ,$8971
892C	LD HL,$F2A1
892F	LD A,(HL)
8930	INC HL
8931	ADD A,(HL)
8932	JR Z,$8971
8934	LD HL,($F2AE)
8937	LD A,$20
8939	ADD A,H
893A	LD H,A
893B	LD A,($F2A5)
893E	CP $06
8940	JR NC,$8943
8942	INC L
8943	INC L
8944	LD A,$01
8946	LD ($F41C),A
8949	PUSH HL
894A	CALL $F41B
894D	POP HL
894E	JR C,$8971
8950	INC L
8951	CALL $F41B
8954	JR C,$8971
8956	LD A,($F2A5)
8959	CP $06
895B	JR NC,$8968
895D	LD A,$06
895F	LD ($F2A5),A
8962	LD HL,$F2AE
8965	INC (HL)
8966	JR $8971
8968	LD A,$05
896A	LD ($F2A5),A
896D	LD HL,$F2AE
8970	DEC (HL)
8971	LD A,$08
8973	LD ($F41C),A
8976	LD BC,$BFFE
8979	IN A,(C)
897B	BIT 0,A
897D	JR NZ,$8990
897F	LD A,($84FA)
8982	XOR $01
8984	LD ($84FA),A
8987	LD BC,$BFFE
898A	IN A,(C)
898C	BIT 0,A
898E	JR Z,$8987
8990	LD A,($84FA)
8993	AND A
8994	JR Z,$89C3
8996	LD A,($84F9)
8999	XOR $01
899B	LD ($84F9),A
899E	JR Z,$89A7
89A0	LD HL,($84F7)
89A3	INC HL
89A4	LD ($84F7),HL
89A7	LD HL,($84F7)
89AA	LD A,(HL)
89AB	LD B,$06
89AD	CALL $8A8B
89B0	LD HL,($84F7)
89B3	LD DE,$689C
89B6	AND A
89B7	SBC HL,DE
89B9	LD A,H
89BA	OR L
89BB	JR NZ,$89C3
89BD	LD HL,$67DC
89C0	LD ($84F7),HL
89C3	LD BC,$FEFE
89C6	IN A,(C)
89C8	BIT 0,A
89CA	JR NZ,$89E8
89CC	LD BC,$7FFE
89CF	IN A,(C)
89D1	BIT 0,A
89D3	JP Z,$84D0
89D6	LD BC,$BFFE
89D9	IN A,(C)
89DB	BIT 4,A
89DD	JR NZ,$89E8
89DF	LD BC,$FDFE
89E2	IN A,(C)
89E4	BIT 1,A
89E6	JR NZ,$89DF
89E8	LD A,($F14B)
89EB	CP $0F
89ED	JR NZ,$8A42
89EF	LD A,($910B)
89F2	CP $39
89F4	JR NZ,$8A42
89F6	LD A,$02
89F8	CALL $1601
89FB	LD DE,$84FB
89FE	LD BC,$0016
8A01	CALL $203C
8A04	LD B,$08
8A06	PUSH BC
8A07	LD B,$0E
8A09	LD A,$4C
8A0B	PUSH BC
8A0C	PUSH AF
8A0D	LD B,$06
8A0F	CALL $8A8B
8A12	POP AF
8A13	SUB $03
8A15	POP BC
8A16	DJNZ $8A0B
8A18	POP BC
8A19	DJNZ $8A06
8A1B	LD DE,$8511
8A1E	LD BC,$0017
8A21	CALL $203C
8A24	LD DE,$910F
8A27	LD BC,$0002
8A2A	CALL $203C
8A2D	LD A,$3A
8A2F	RST $10
8A30	LD DE,$9111
8A33	LD BC,$0002
8A36	CALL $203C
8A39	LD B,$00
8A3B	HALT
8A3C	HALT
8A3D	DJNZ $8A3B
8A3F	JP $84D0
8A42	LD HL,$0500
8A45	LD A,($84FA)
8A48	AND A
8A49	JR Z,$8A4E
8A4B	LD HL,$03B1
8A4E	LD ($F009),HL
8A51	LD A,($F05B)
8A54	AND A
8A55	JP NZ,$84D0
8A58	JP $8765
8A5B	LD E,D
8A5C	DJNZ $8AB1
8A5E	LD DE,$125B
8A61	LD (HL),D
8A62	INC DE
8A63	SBC A,D
8A64	INC D
8A65	CALL NC,$2015
8A68	RLA
8A69	ADD A,B
8A6A	JR $8A61
8A6C	ADD HL,DE
8A6D	ADD A,B
8A6E	DEC DE
8A6F	INC HL
8A70	DEC E
8A71	SBC A,$1E
8A73	INC SP
8A74	INC (HL)
8A75	LD B,L
8A76	LD SP,$2E81
8A79	PUSH HL
8A7A	DEC HL
8A7B	LD L,(HL)
8A7C	ADD HL,HL
8A7D	DEC DE
8A7E	DAA
8A7F	JP (HL)
8A80	INC H
8A81	RST $10
8A82	LD ($20E2),HL
8A85	ADD HL,BC
8A86	RRA
8A87	LD C,H
8A88	DEC E
8A89	AND A
8A8A	DEC DE
8A8B	PUSH BC
8A8C	LD C,$00
8A8E	SUB $0C
8A90	JR C,$8A95
8A92	INC C
8A93	JR $8A8E
8A95	ADD A,$0C
8A97	LD B,A
8A98	PUSH BC
8A99	LD L,B
8A9A	LD H,$00
8A9C	ADD HL,HL
8A9D	LD DE,$8A5B
8AA0	ADD HL,DE
8AA1	LD E,(HL)
8AA2	INC HL
8AA3	LD D,(HL)
8AA4	PUSH DE
8AA5	POP HL
8AA6	LD A,$07
8AA8	SUB C
8AA9	JR Z,$8AB9
8AAB	LD B,A
8AAC	AND A
8AAD	SRL H
8AAF	PUSH AF
8AB0	SRL L
8AB2	POP AF
8AB3	JR NC,$8AB7
8AB5	SET 7,L
8AB7	DJNZ $8AAC
8AB9	POP DE
8ABA	POP BC
8ABB	PUSH DE
8ABC	LD A,B
8ABD	AND A
8ABE	JR Z,$8ACD
8AC0	AND A
8AC1	SRL H
8AC3	PUSH AF
8AC4	SRL L
8AC6	POP AF
8AC7	JR NC,$8ACB
8AC9	SET 7,L
8ACB	DJNZ $8AC0
8ACD	PUSH HL
8ACE	POP IX
8AD0	POP BC
8AD1	LD L,B
8AD2	LD H,$00
8AD4	ADD HL,HL
8AD5	LD DE,$8A73
8AD8	ADD HL,DE
8AD9	LD E,(HL)
8ADA	INC HL
8ADB	LD D,(HL)
8ADC	PUSH DE
8ADD	POP HL
8ADE	LD B,C
8ADF	LD A,B
8AE0	AND A
8AE1	JR Z,$8AF0
8AE3	AND A
8AE4	SRL H
8AE6	PUSH AF
8AE7	SRL L
8AE9	POP AF
8AEA	JR NC,$8AEE
8AEC	SET 7,L
8AEE	DJNZ $8AE3
8AF0	LD DE,$001E
8AF3	AND A
8AF4	SBC HL,DE
8AF6	PUSH IX
8AF8	POP DE
8AF9	CALL $03B5
8AFC	RET
8AFD	NOP
8AFE	NOP
8AFF	NOP
8B00	NOP
8B01	NOP
8B02	NOP
8B03	NOP
8B04	NOP
8B05	NOP
8B06	NOP
8B07	NOP
8B08	NOP
8B09	NOP
8B0A	NOP
8B0B	NOP
8B0C	NOP
8B0D	NOP
8B0E	NOP
8B0F	NOP
8B10	NOP
8B11	NOP
8B12	NOP
8B13	NOP
8B14	NOP
8B15	NOP
8B16	NOP
8B17	NOP
8B18	NOP
8B19	NOP
8B1A	NOP
8B1B	NOP
8B1C	NOP
8B1D	NOP
8B1E	NOP
8B1F	NOP
8B20	NOP
8B21	NOP
8B22	NOP
8B23	NOP
8B24	NOP
8B25	NOP
8B26	NOP
8B27	NOP
8B28	NOP
8B29	NOP
8B2A	NOP
8B2B	NOP
8B2C	NOP
8B2D	NOP
8B2E	NOP
8B2F	NOP
8B30	NOP
8B31	NOP
8B32	NOP
8B33	NOP
8B34	NOP
8B35	NOP
8B36	NOP
8B37	NOP
8B38	NOP
8B39	NOP
8B3A	NOP
8B3B	NOP
8B3C	NOP
8B3D	NOP
8B3E	NOP
8B3F	NOP
8B40	NOP
8B41	NOP
8B42	NOP
8B43	NOP
8B44	NOP
8B45	NOP
8B46	NOP
8B47	NOP
8B48	NOP
8B49	NOP
8B4A	NOP
8B4B	NOP
8B4C	NOP
8B4D	NOP
8B4E	NOP
8B4F	NOP
8B50	NOP
8B51	NOP
8B52	NOP
8B53	NOP
8B54	NOP
8B55	NOP
8B56	NOP
8B57	NOP
8B58	NOP
8B59	NOP
8B5A	NOP
8B5B	NOP
8B5C	NOP
8B5D	NOP
8B5E	NOP
8B5F	NOP
8B60	NOP
8B61	NOP
8B62	NOP
8B63	NOP
8B64	NOP
8B65	NOP
8B66	NOP
8B67	NOP
8B68	NOP
8B69	NOP
8B6A	NOP
8B6B	NOP
8B6C	NOP
8B6D	NOP
8B6E	NOP
8B6F	NOP
8B70	NOP
8B71	NOP
8B72	NOP
8B73	NOP
8B74	NOP
8B75	NOP
8B76	NOP
8B77	NOP
8B78	NOP
8B79	NOP
8B7A	NOP
8B7B	NOP
8B7C	NOP
8B7D	NOP
8B7E	NOP
8B7F	NOP
8B80	NOP
8B81	NOP
8B82	NOP
8B83	NOP
8B84	NOP
8B85	NOP
8B86	NOP
8B87	NOP
8B88	NOP
8B89	NOP
8B8A	NOP
8B8B	NOP
8B8C	NOP
8B8D	NOP
8B8E	NOP
8B8F	NOP
8B90	NOP
8B91	NOP
8B92	NOP
8B93	NOP
8B94	NOP
8B95	NOP
8B96	NOP
8B97	NOP
8B98	NOP
8B99	NOP
8B9A	NOP
8B9B	NOP
8B9C	NOP
8B9D	NOP
8B9E	NOP
8B9F	NOP
8BA0	NOP
8BA1	NOP
8BA2	NOP
8BA3	NOP
8BA4	NOP
8BA5	NOP
8BA6	NOP
8BA7	NOP
8BA8	NOP
8BA9	NOP
8BAA	NOP
8BAB	NOP
8BAC	NOP
8BAD	NOP
8BAE	NOP
8BAF	NOP
8BB0	NOP
8BB1	NOP
8BB2	NOP
8BB3	NOP
8BB4	NOP
8BB5	NOP
8BB6	NOP
8BB7	NOP
8BB8	NOP
8BB9	NOP
8BBA	NOP
8BBB	NOP
8BBC	NOP
8BBD	NOP
8BBE	NOP
8BBF	NOP
8BC0	NOP
8BC1	NOP
8BC2	NOP
8BC3	NOP
8BC4	NOP
8BC5	NOP
8BC6	NOP
8BC7	NOP
8BC8	NOP
8BC9	NOP
8BCA	NOP
8BCB	NOP
8BCC	NOP
8BCD	NOP
8BCE	NOP
8BCF	NOP
8BD0	NOP
8BD1	NOP
8BD2	NOP
8BD3	NOP
8BD4	NOP
8BD5	NOP
8BD6	NOP
8BD7	NOP
8BD8	NOP
8BD9	NOP
8BDA	NOP
8BDB	NOP
8BDC	NOP
8BDD	NOP
8BDE	NOP
8BDF	NOP
8BE0	NOP
8BE1	NOP
8BE2	NOP
8BE3	NOP
8BE4	NOP
8BE5	NOP
8BE6	NOP
8BE7	NOP
8BE8	NOP
8BE9	NOP
8BEA	NOP
8BEB	NOP
8BEC	NOP
8BED	NOP
8BEE	NOP
8BEF	NOP
8BF0	NOP
8BF1	NOP
8BF2	NOP
8BF3	NOP
8BF4	NOP
8BF5	NOP
8BF6	NOP
8BF7	NOP
8BF8	NOP
8BF9	NOP
8BFA	NOP
8BFB	NOP
8BFC	NOP
8BFD	NOP
8BFE	NOP
8BFF	NOP
8C00	NOP
8C01	NOP
8C02	NOP
8C03	NOP
8C04	NOP
8C05	NOP
8C06	NOP
8C07	NOP
8C08	NOP
8C09	NOP
8C0A	NOP
8C0B	NOP
8C0C	NOP
8C0D	NOP
8C0E	NOP
8C0F	NOP
8C10	NOP
8C11	NOP
8C12	NOP
8C13	NOP
8C14	NOP
8C15	NOP
8C16	NOP
8C17	NOP
8C18	NOP
8C19	NOP
8C1A	NOP
8C1B	NOP
8C1C	NOP
8C1D	NOP
8C1E	NOP
8C1F	NOP
8C20	NOP
8C21	NOP
8C22	NOP
8C23	NOP
8C24	NOP
8C25	NOP
8C26	NOP
8C27	NOP
8C28	NOP
8C29	NOP
8C2A	NOP
8C2B	NOP
8C2C	NOP
8C2D	NOP
8C2E	NOP
8C2F	NOP
8C30	NOP
8C31	NOP
8C32	NOP
8C33	NOP
8C34	NOP
8C35	NOP
8C36	NOP
8C37	NOP
8C38	NOP
8C39	NOP
8C3A	NOP
8C3B	NOP
8C3C	NOP
8C3D	NOP
8C3E	NOP
8C3F	NOP
8C40	NOP
8C41	NOP
8C42	NOP
8C43	NOP
8C44	NOP
8C45	NOP
8C46	NOP
8C47	NOP
8C48	NOP
8C49	NOP
8C4A	NOP
8C4B	NOP
8C4C	NOP
8C4D	NOP
8C4E	NOP
8C4F	NOP
8C50	NOP
8C51	NOP
8C52	NOP
8C53	NOP
8C54	NOP
8C55	NOP
8C56	NOP
8C57	NOP
8C58	NOP
8C59	NOP
8C5A	NOP
8C5B	NOP
8C5C	NOP
8C5D	NOP
This entry point is used by the routine at 90AA.
8C5E	NOP
8C5F	NOP
8C60	NOP
8C61	NOP
8C62	NOP
8C63	NOP
8C64	LD BC,$4B3A
8C67	POP AF
8C68	LD L,A
8C69	LD H,$00
8C6B	ADD HL,HL
8C6C	ADD HL,HL
8C6D	LD DE,$AADC
8C70	ADD HL,DE
8C71	LD A,(HL)
8C72	AND A
8C73	RET Z
8C74	INC HL
8C75	LD A,(HL)
8C76	LD ($8C64),A
8C79	INC HL
8C7A	LD E,(HL)
8C7B	INC HL
8C7C	LD D,(HL)
8C7D	LD A,D
8C7E	ADD A,A
8C7F	ADD A,A
8C80	ADD A,A
8C81	LD D,A
8C82	LD HL,($F2AE)
8C85	LD A,D
8C86	SUB H
8C87	CP $19
8C89	RET NC
8C8A	LD A,($F2A5)
8C8D	CP $02
8C8F	JR Z,$8C9E
8C91	CP $05
8C93	JR Z,$8C9E
8C95	CP $06
8C97	JR Z,$8CAE
8C99	CP $09
8C9B	JR Z,$8CAE
8C9D	RET
8C9E	LD A,E
8C9F	INC A
8CA0	CP L
8CA1	RET NZ
8CA2	LD HL,($F2AA)
8CA5	PUSH HL
8CA6	LD HL,$FEBA
8CA9	LD ($F2AA),HL
8CAC	JR $8CBD
8CAE	LD A,E
8CAF	SUB $04
8CB1	CP L
8CB2	RET NZ
8CB3	LD HL,($F2AA)
8CB6	PUSH HL
8CB7	LD HL,$FF5A
8CBA	LD ($F2AA),HL
8CBD	POP HL
8CBE	DI
8CBF	PUSH AF
8CC0	PUSH BC
8CC1	PUSH DE
8CC2	PUSH HL
8CC3	PUSH IX
8CC5	PUSH IY
8CC7	PUSH HL
8CC8	LD IX,$F2A8
8CCC	CALL $F214
8CCF	POP HL
8CD0	LD ($F2AA),HL
8CD3	LD B,$00
8CD5	PUSH BC
8CD6	LD B,$00
8CD8	DJNZ $8CD8
8CDA	POP BC
8CDB	DJNZ $8CD5
8CDD	CALL $AAB6
8CE0	LD A,$6A
8CE2	LD ($AAB3),A
8CE5	CALL $AAB6
8CE8	LD A,$40
8CEA	LD ($AAB3),A
8CED	LD IX,$F2A8
8CF1	CALL $F214
8CF4	POP IY
8CF6	POP IX
8CF8	POP HL
8CF9	POP DE
8CFA	POP BC
8CFB	POP AF
8CFC	EI
8CFD	LD HL,$0000
8D00	LD ($F0AA),HL
8D03	LD HL,$0032
8D06	LD ($F0AC),HL
8D09	LD A,$0A
8D0B	LD ($F0AE),A
8D0E	CALL $F0F1
8D11	LD HL,$8C64
8D14	SET 7,(HL)
8D16	RET
8D17	NOP
8D18	NOP
8D19	LD HL,($F2AE)
8D1C	LD A,$1F
8D1E	ADD A,H
8D1F	LD H,A
8D20	LD IX,($F2AA)
8D24	LD C,L
8D25	LD B,$20
8D27	PUSH BC
8D28	PUSH HL
8D29	CALL $F285
8D2C	LD B,$05
8D2E	PUSH HL
8D2F	LD A,L
8D30	ADD A,C
8D31	LD L,A
8D32	LD A,C
8D33	AND $E0
8D35	JR NZ,$8D40
8D37	LD A,(IX+$00)
8D3A	AND (HL)
8D3B	CP (IX+$00)
8D3E	JR NZ,$8D50
8D40	POP HL
8D41	INC IX
8D43	INC C
8D44	DJNZ $8D2E
8D46	POP HL
8D47	DEC H
8D48	POP BC
8D49	DJNZ $8D27
8D4B	XOR A
8D4C	LD ($8D18),A
8D4F	RET
8D50	POP HL
8D51	POP HL
8D52	POP BC
8D53	LD A,$01
8D55	LD ($8D18),A
8D58	RET
8D59	NOP
8D5A	NOP
8D5B	NOP
8D5C	NOP
8D5D	NOP
8D5E	RET PO
8D5F	ADD A,B
8D60	ADD A,B
8D61	ADC A,(HL)
8D62	RET PE
8D63	LD C,$02
8D65	LD C,$E0
8D67	ADD A,B
8D68	RET PO
8D69	LD L,$E8
8D6B	LD C,$02
8D6D	LD C,$E0
8D6F	ADD A,B
8D70	RET PO
8D71	ADC A,C
8D72	DEFB $ED,$0F
8D74	DEC BC
8D75	ADD HL,BC
8D76	SUB B
8D77	LD B,C
8D78	LD D,C
8D79	LD SP,$5030
8D7C	SUB D
8D7D	ADC A,A
8D7E	LD E,D
8D7F	LD D,E
8D80	LD D,A
8D81	LD ($4F39),A
8D84	LD C,H
8D85	SUB C
8D86	LD E,B
8D87	LD B,H
8D88	LD B,L
8D89	INC SP
8D8A	JR C,$8DD5
8D8C	LD C,E
8D8D	LD C,L
8D8E	LD B,E
8D8F	LD B,(HL)
8D90	LD D,D
8D91	INC (HL)
8D92	SCF
8D93	LD D,L
8D94	LD C,D
8D95	LD C,(HL)
8D96	LD D,(HL)
8D97	LD B,A
8D98	LD D,H
8D99	DEC (HL)
8D9A	LD (HL),$59
8D9C	LD C,B
8D9D	LD B,D
8D9E	DJNZ $8DA7
8DA0	LD D,$00
8DA2	DEC BC
8DA3	DJNZ $8DAB
8DA5	LD B,H
8DA6	LD B,L
8DA7	LD B,(HL)
8DA8	LD C,C
8DA9	LD C,(HL)
8DAA	LD B,L
8DAB	JR NZ,$8DF8
8DAD	LD B,L
8DAE	LD E,C
8DAF	LD D,E
8DB0	LD D,$0A
8DB2	DEC B
8DB3	DJNZ $8DBA
8DB5	LD D,B
8DB6	LD D,D
8DB7	LD B,L
8DB8	LD D,E
8DB9	LD D,E
8DBA	JR NZ,$8E07
8DBC	LD B,L
8DBD	LD E,C
8DBE	JR NZ,$8E06
8DC0	LD C,A
8DC1	LD D,D
8DC2	JR NZ,$8DC2
8DC4	LD C,A
8DC5	LD C,H
8DC6	LD B,L
8DC7	LD B,(HL)
8DC8	LD D,H
8DC9	LD L,$FE
8DCB	LD D,A
8DCC	LD D,D
8DCD	LD C,C
8DCE	LD B,A
8DCF	LD C,B
8DD0	LD D,H
8DD1	LD A,A
8DD2	LD B,A
8DD3	LD C,D
8DD4	LD D,L
8DD5	LD C,L
8DD6	LD D,B
8DD7	LD L,$16
8DD9	DEC D
8DDA	DEC B
8DDB	DJNZ $8DE1
8DDD	LD C,C
8DDE	LD D,E
8DDF	JR NZ,$8E35
8DE1	LD C,B
8DE2	LD C,C
8DE3	LD D,E
8DE4	JR NZ,$8E29
8DE6	LD C,A
8DE7	LD D,D
8DE8	LD D,D
8DE9	LD B,L
8DEA	LD B,E
8DEB	LD D,H
8DEC	LD H,B
8DED	JR NZ,$8E0F
8DEF	LD E,C
8DF0	CPL
8DF1	LD C,(HL)
8DF2	JR NZ,$8DF4
8DF4	NOP
8DF5	LD HL,$8D5E
8DF8	LD ($5C7B),HL
8DFB	CALL $8EAB
8DFE	LD A,$47
8E00	LD ($5C8D),A
This entry point is used by the routine at 90AA.
8E03	LD A,$02
8E05	CALL $1601
8E08	CALL $0D6B
8E0B	LD A,$02
8E0D	CALL $1601
8E10	LD DE,$8DA0
8E13	LD BC,$0010
8E16	CALL $203C
8E19	LD DE,$0034
8E1C	LD HL,$0325
8E1F	CALL $03B5
8E22	LD DE,$001A
8E25	LD HL,$0668
8E28	CALL $03B5
8E2B	LD B,$14
8E2D	CALL $8EB7
8E30	LD DE,$8DB0
8E33	LD HL,$0504
8E36	LD IX,$8DC3
8E3A	LD B,$03
8E3C	PUSH BC
8E3D	PUSH HL
8E3E	PUSH DE
8E3F	LD ($8DB1),HL
8E42	LD BC,$0013
8E45	CALL $203C
8E48	PUSH IX
8E4A	POP DE
8E4B	INC DE
8E4C	INC DE
8E4D	LD BC,$0005
8E50	CALL $203C
8E53	LD B,$03
8E55	PUSH BC
8E56	LD A,$2E
8E58	RST $10
8E59	POP BC
8E5A	DJNZ $8E55
8E5C	PUSH IX
8E5E	LD DE,$0068
8E61	LD HL,$0184
8E64	CALL $03B5
8E67	POP IX
8E69	CALL $8EBB
8E6C	PUSH IX
8E6E	LD DE,$001A
8E71	LD HL,$0668
8E74	CALL $03B5
8E77	CALL $8EAB
8E7A	POP IX
8E7C	LD B,$14
8E7E	CALL $8EB7
8E81	LD DE,$0007
8E84	ADD IX,DE
8E86	POP DE
8E87	POP HL
8E88	INC L
8E89	INC L
8E8A	INC L
8E8B	POP BC
8E8C	DJNZ $8E3C
8E8E	LD DE,$8DD8
8E91	LD BC,$001B
8E94	CALL $203C
8E97	LD BC,$DFFE
8E9A	IN A,(C)
8E9C	BIT 4,A
8E9E	RET Z
8E9F	LD BC,$7FFE
8EA2	IN A,(C)
8EA4	BIT 3,A
8EA6	JP Z,$8DF5
8EA9	JR $8E97
8EAB	LD BC,$00FE
8EAE	IN A,(C)
8EB0	AND $1F
8EB2	CP $1F
8EB4	JR NZ,$8EAB
8EB6	RET
8EB7	HALT
8EB8	DJNZ $8EB7
8EBA	RET
8EBB	LD DE,$7FFE
8EBE	LD B,$08
8EC0	PUSH BC
8EC1	LD B,$05
8EC3	PUSH BC
8EC4	LD A,B
8EC5	ADD A,A
8EC6	ADD A,A
8EC7	ADD A,A
8EC8	ADD A,$3F
8ECA	LD ($8ED2),A
8ECD	PUSH DE
8ECE	POP BC
8ECF	IN A,(C)
8ED1	BIT 0,A
8ED3	JR Z,$8EDF
8ED5	POP BC
8ED6	DJNZ $8EC3
8ED8	RRC D
8EDA	POP BC
8EDB	DJNZ $8EC0
8EDD	JR $8EBB
8EDF	POP BC
8EE0	DEC B
8EE1	LD (IX+$00),D
8EE4	LD A,($8ED2)
8EE7	LD (IX+$01),A
8EEA	LD A,B
8EEB	ADD A,A
8EEC	ADD A,A
8EED	ADD A,A
8EEE	POP BC
8EEF	DEC B
8EF0	ADD A,B
8EF1	LD E,A
8EF2	LD D,$00
8EF4	LD HL,$8D76
8EF7	ADD HL,DE
8EF8	LD A,(HL)
8EF9	PUSH AF
8EFA	LD DE,$8D9E
8EFD	LD BC,$0002
8F00	CALL $203C
8F03	POP AF
8F04	RST $10
8F05	LD A,$14
8F07	RST $10
8F08	XOR A
8F09	RST $10
8F0A	RET
8F0B	CALL $8F63
8F0E	LD B,$03
8F10	LD D,$00
8F12	LD IX,$8DC3
8F16	PUSH BC
8F17	LD A,$05
8F19	SUB B
8F1A	ADD A,A
8F1B	ADD A,A
8F1C	ADD A,A
8F1D	ADD A,$C2
8F1F	LD ($8F34),A
8F22	LD B,(IX+$00)
8F25	LD C,$FE
8F27	LD A,(IX+$01)
8F2A	LD ($8F30),A
8F2D	IN A,(C)
8F2F	BIT 0,A
8F31	JR NZ,$8F35
8F33	SET 0,D
8F35	LD BC,$0007
8F38	ADD IX,BC
8F3A	POP BC
8F3B	DJNZ $8F16
8F3D	LD A,D
8F3E	LD ($8DF3),A
8F41	LD A,($8DF4)
8F44	AND A
8F45	RET Z
8F46	LD D,$00
8F48	IN A,($1F)
8F4A	BIT 1,A
8F4C	JR Z,$8F50
8F4E	SET 2,D
8F50	BIT 0,A
8F52	JR Z,$8F56
8F54	SET 3,D
8F56	BIT 4,A
8F58	JR Z,$8F5C
8F5A	SET 4,D
8F5C	LD A,D
8F5D	LD HL,$8DF3
8F60	OR (HL)
8F61	LD (HL),A
8F62	RET
8F63	LD BC,$FEFE
8F66	IN A,(C)
8F68	BIT 0,A
8F6A	RET NZ
8F6B	LD BC,$BFFE
8F6E	IN A,(C)
8F70	BIT 4,A
8F72	RET NZ
8F73	LD BC,$FEFE
8F76	IN A,(C)
8F78	BIT 0,A
8F7A	JR NZ,$8F73
8F7C	LD BC,$FDFE
8F7F	IN A,(C)
8F81	BIT 1,A
8F83	JR NZ,$8F73
8F85	RET
8F86	DEFB $FD
8F87	IN A,(C)
8F89	BIT 1,A
8F8B	JR NZ,$8F7B
8F8D	RET
This entry point is used by the routines at 8FC3 and 90AA.
8F8E	PUSH BC
8F8F	PUSH HL
8F90	LD A,H
8F91	AND $18
8F93	SRL A
8F95	SRL A
8F97	SRL A
8F99	ADD A,$58
8F9B	LD H,A
8F9C	LD (HL),C
8F9D	POP HL
8F9E	PUSH HL
8F9F	LD A,(DE)
8FA0	LD B,$00
8FA2	LD C,A
8FA3	PUSH BC
8FA4	POP IX
8FA6	ADD IX,IX
8FA8	ADD IX,IX
8FAA	ADD IX,IX
8FAC	LD BC,$EBE0
8FAF	ADD IX,BC
8FB1	LD B,$08
8FB3	LD A,(IX+$00)
8FB6	LD (HL),A
8FB7	INC IX
8FB9	INC H
8FBA	DJNZ $8FB3
8FBC	POP HL
8FBD	INC HL
8FBE	INC DE
8FBF	POP BC
8FC0	DJNZ $8F8E
8FC2	RET