A4CD: Routine at A4CD
| A4CD |
PUSH DE |
| A4CE |
PUSH HL |
| A4CF |
PUSH IY |
| A4D1 |
LD DE,$0006 |
| A4D4 |
ADD HL,DE |
| A4D5 |
ADD IY,DE |
| A4D7 |
CALL $A51B |
| A4DA |
JR NZ,$A516 |
| A4DC |
POP IY |
| A4DE |
POP HL |
| A4DF |
POP DE |
| A4E0 |
PUSH DE |
| A4E1 |
PUSH HL |
| A4E2 |
PUSH IY |
| A4E4 |
CALL $A51B |
| A4E7 |
JR NZ,$A516 |
| A4E9 |
LD A,$01 |
| A4EB |
LD ($A02E),A |
| A4EE |
CALL $A51B |
| A4F1 |
JR NZ,$A4FA |
| A4F3 |
CALL $A51B |
| A4F6 |
LD A,$00 |
| A4F8 |
JR Z,$A516 |
| A4FA |
POP IY |
| A4FC |
POP HL |
| A4FD |
PUSH HL |
| A4FE |
PUSH IY |
| A500 |
LD DE,$0004 |
| A503 |
ADD IY,DE |
| A505 |
INC HL |
| A506 |
INC HL |
| A507 |
CALL $A51B |
| A50A |
JR NZ,$A516 |
| A50C |
LD DE,$FFFC |
| A50F |
ADD IY,DE |
| A511 |
CALL $A51B |
| A514 |
LD A,$01 |
| A516 |
POP IY |
| A518 |
POP HL |
| A519 |
POP DE |
| A51A |
RET |
| A51B |
PUSH HL |
| A51C |
LD A,(HL) |
| A51D |
INC HL |
| A51E |
OR (HL) |
| A51F |
JR Z,$A52E |
| A521 |
LD A,(IY+$01) |
| A524 |
XOR (HL) |
| A525 |
AND $0F |
| A527 |
JR NZ,$A52E |
| A529 |
DEC HL |
| A52A |
LD A,(HL) |
| A52B |
CP (IY+$00) |
| A52E |
POP HL |
| A52F |
INC HL |
| A530 |
INC HL |
| A531 |
INC IY |
| A533 |
INC IY |
| A535 |
RET |
| A536 |
PUSH HL |
| A537 |
LD HL,($A03B) |
| A53A |
CALL GetKeypress |
| A53D |
BIT 7,A |
| A53F |
JR NZ,$A553 |
| A541 |
LD A,$00 |
| A543 |
DEC A |
| A544 |
PUSH HL |
| A545 |
POP HL |
| A546 |
JR NZ,$A543 |
| A548 |
DEC HL |
| A549 |
LD A,H |
| A54A |
OR L |
| A54B |
JR NZ,$A53A |
| A54D |
POP HL |
| A54E |
PUSH HL |
| A54F |
CALL $D9B7 |
| A552 |
XOR A |
| A553 |
AND $7F |
| A555 |
LD HL,$0BB8 |
| A558 |
LD ($A03B),HL |
| A55B |
POP HL |
| A55C |
RET |
