B015: Routine at B015
| B015 |
LD A,($A02D) |
| B018 |
LD D,A |
| B019 |
JP $AAC4 |
| B01C |
LD A,($A01A) |
| B01F |
CP $01 |
| B021 |
JP NZ,$AF67 |
| B024 |
LD A,$02 |
| B026 |
LD ($A01A),A |
| B029 |
CALL $AE6A |
| B02C |
SET 6,(IY+$01) |
| B030 |
JP $AB52 |
| B033 |
CALL $AFE8 |
| B036 |
LD A,($A01A) |
| B039 |
AND A |
| B03A |
JP NZ,$AF67 |
| B03D |
LD A,$01 |
| B03F |
LD ($A01A),A |
| B042 |
SET 7,(IY+$01) |
| B046 |
JP $AB52 |
| B049 |
BIT 1,E |
| B04B |
JR Z,$B058 |
| B04D |
LD HL,$088B |
| B050 |
LD (IY+$00),L |
| B053 |
LD (IY+$01),H |
| B056 |
RES 1,E |
| B058 |
PUSH HL |
| B059 |
PUSH DE |
| B05A |
PUSH IY |
| B05C |
PUSH IX |
| B05E |
LD IY,$9FEC |
| B062 |
LD DE,$0000 |
| B065 |
CALL $A104 |
| B068 |
LD A,$02 |
| B06A |
CALL $A11C |
| B06D |
LD HL,($A02B) |
| B070 |
LD (IX+$00),L |
| B073 |
LD (IX+$01),H |
| B076 |
PUSH IX |
| B078 |
POP HL |
| B079 |
LD (IY-$02),L |
| B07C |
LD (IY-$01),H |
| B07F |
POP IX |
| B081 |
POP IY |
| B083 |
POP DE |
| B084 |
POP HL |
| B085 |
CALL $AE7F |
| B088 |
CP $90 |
| B08A |
JR NZ,$B085 |
| B08C |
LD A,B |
| B08D |
AND $0F |
| B08F |
OR C |
| B090 |
JR NZ,$B085 |
| B092 |
LD HL,($A029) |
| B095 |
LD (HL),$C0 |
| B097 |
JP $AB52 |
| B09A |
CALL $AFE1 |
| B09D |
CALL WaitForKeypress_Loop |
| B0A0 |
JP $B015 |
| B0A3 |
CALL $AFE1 |
| B0A6 |
CALL $B0AC |
| B0A9 |
JP $B015 |
