B460: Routine at B460
B460 |
DEC (IX+$10) |
B463 |
JR NZ,$B475 |
B465 |
LD A,(IX+$11) |
B468 |
LD (IX+$10),A |
B46B |
INC (IX+$06) |
B46E |
LD A,(IX+$06) |
B471 |
CP $01 |
B473 |
JR Z,$B48B |
B475 |
LD A,(IX+$00) |
B478 |
INC A |
B479 |
CP $E7 |
B47B |
JR NC,$B47F |
B47D |
LD A,$E4 |
B47F |
LD (IX+$00),A |
B482 |
CALL $B6AE |
B485 |
LD (IX+$04),A |
B488 |
JP $ABB4 |
B48B |
LD C,(IX+$04) |
B48E |
LD D,$04 |
B490 |
CALL SquareWave_Loop |
B493 |
LD (IX+$00),$E7 |
B497 |
JP $ABB4 |
B49A |
INC (IX+$00) |
B49D |
JP $ABB4 |
B4A0 |
LD A,($5E42) |
B4A3 |
AND $07 |
B4A5 |
JR NZ,$B4AF |
B4A7 |
LD A,(IX+$00) |
B4AA |
XOR $01 |
B4AC |
LD (IX+$00),A |
B4AF |
INC (IX+$04) |
B4B2 |
LD A,(IX+$04) |
B4B5 |
CP $AF |
B4B7 |
JP C,$ABB4 |
B4BA |
CALL $8640 |
B4BD |
LD (IX+$00),$00 |
B4C1 |
RET |