F814: Routine at F814
| F814 |
LD HL,($F812) |
| F817 |
LD A,(IY+$0F) |
| F81A |
CP (HL) |
| F81B |
JR Z,$F823 |
| F81D |
LD DE,$0015 |
| F820 |
ADD HL,DE |
| F821 |
CP (HL) |
| F822 |
RET NZ |
| F823 |
INC HL |
| F824 |
LD E,(HL) |
| F825 |
INC HL |
| F826 |
LD D,(HL) |
| F827 |
INC HL |
| F828 |
LD A,(HL) |
| F829 |
LD B,A |
| F82A |
LD ($A838),DE |
| F82E |
CALL $A83D |
| F831 |
LD A,(IY+$05) |
| F834 |
SUB E |
| F835 |
SUB $04 |
| F837 |
CP $F8 |
| F839 |
RET C |
| F83A |
LD A,(IY+$0A) |
| F83D |
SUB D |
| F83E |
ADD A,$0C |
| F840 |
CP $F8 |
| F842 |
RET C |
| F843 |
LD HL,($F812) |
| F846 |
INC HL |
| F847 |
INC HL |
| F848 |
INC HL |
| F849 |
INC HL |
| F84A |
LD A,(HL) |
| F84B |
CP $FF |
| F84D |
JR NZ,$F852 |
| F84F |
LD HL,$F7E9 |
| F852 |
LD ($F812),HL |
| F855 |
LD A,(IY+$19) |
| F858 |
CP B |
| F859 |
JR Z,$F864 |
| F85B |
LD A,(IY+$14) |
| F85E |
ADD A,$20 |
| F860 |
CP $80 |
| F862 |
JR C,$F866 |
| F864 |
LD A,$80 |
| F866 |
LD (IY+$14),A |
| F869 |
CALL $E36D |
| F86C |
LD BC,$643C |
| F86F |
LD DE,$0128 |
| F872 |
LD HL,$0103 |
| F875 |
CALL PlayWaveSequence |
| F878 |
RET |
