45077: Routine at B015
| 45077 |
LD A,(41005) |
| 45080 |
LD D,A |
| 45081 |
JP 43716 |
| 45084 |
LD A,(40986) |
| 45087 |
CP 1 |
| 45089 |
JP NZ,44903 |
| 45092 |
LD A,2 |
| 45094 |
LD (40986),A |
| 45097 |
CALL 44650 |
| 45100 |
SET 6,(IY+1) |
| 45104 |
JP 43858 |
| 45107 |
CALL 45032 |
| 45110 |
LD A,(40986) |
| 45113 |
AND A |
| 45114 |
JP NZ,44903 |
| 45117 |
LD A,1 |
| 45119 |
LD (40986),A |
| 45122 |
SET 7,(IY+1) |
| 45126 |
JP 43858 |
| 45129 |
BIT 1,E |
| 45131 |
JR Z,45144 |
| 45133 |
LD HL,2187 |
| 45136 |
LD (IY+0),L |
| 45139 |
LD (IY+1),H |
| 45142 |
RES 1,E |
| 45144 |
PUSH HL |
| 45145 |
PUSH DE |
| 45146 |
PUSH IY |
| 45148 |
PUSH IX |
| 45150 |
LD IY,40940 |
| 45154 |
LD DE,0 |
| 45157 |
CALL 41220 |
| 45160 |
LD A,2 |
| 45162 |
CALL 41244 |
| 45165 |
LD HL,(41003) |
| 45168 |
LD (IX+0),L |
| 45171 |
LD (IX+1),H |
| 45174 |
PUSH IX |
| 45176 |
POP HL |
| 45177 |
LD (IY-2),L |
| 45180 |
LD (IY-1),H |
| 45183 |
POP IX |
| 45185 |
POP IY |
| 45187 |
POP DE |
| 45188 |
POP HL |
| 45189 |
CALL 44671 |
| 45192 |
CP 144 |
| 45194 |
JR NZ,45189 |
| 45196 |
LD A,B |
| 45197 |
AND 15 |
| 45199 |
OR C |
| 45200 |
JR NZ,45189 |
| 45202 |
LD HL,(41001) |
| 45205 |
LD (HL),192 |
| 45207 |
JP 43858 |
| 45210 |
CALL 45025 |
| 45213 |
CALL WaitForKeypress_Loop |
| 45216 |
JP 45077 |
| 45219 |
CALL 45025 |
| 45222 |
CALL 45228 |
| 45225 |
JP 45077 |
