TirNaNog: Routine at 6A37

6A37: Routine at 6A37


6A37	JP PO,$E3E5
6A3A	JP PO,$E5E6
6A3D	JP PO,$E6E3
6A40	EX (SP),HL
6A41	LD BC,$0000
6A44	LD (HL),D
6A45	JR NZ,$6A47
6A47	NOP
6A48	LD L,B
6A49	LD H,C
6A4A	LD (HL),D
6A4B	LD (HL),B
6A4C	LD E,(HL)
6A4D	LD BC,$0000
6A50	LD L,B
6A51	LD (BC),A
6A52	NOP
6A53	NOP
6A54	LD L,(HL)
6A55	LD (HL),L
6A56	LD H,C
6A57	LD H,H
6A58	LD H,C
6A59	LD (HL),E
6A5A	JR NZ,$6ACF
6A5C	LD (HL),A
6A5D	LD L,A
6A5E	LD (HL),D
6A5F	LD H,H
6A60	LD E,(HL)