26157: Routine at 662D
26157 |
CALL 82 |
26160 |
SET 3,(IY+48) |
26164 |
BIT 5,(IY+1) |
26168 |
JR Z,26157 |
26170 |
RES 5,(IY+1) |
26174 |
LD A,R |
26176 |
AND 7 |
26178 |
INC A |
26179 |
LD (26478),A |
26182 |
LD IX,26478 |
26186 |
LD A,(26478) |
26189 |
LD (26197),A |
26192 |
LD A,R |
26194 |
ADD A,A |
26195 |
LD (IX+0),A |
26198 |
PUSH BC |
26199 |
LD B,5 |
26201 |
PUSH DE |
26202 |
PUSH HL |
26203 |
PUSH IX |
26205 |
LD A,30 |
26207 |
CALL 27332 |
26210 |
POP IX |
26212 |
POP HL |
26213 |
POP DE |
26214 |
POP BC |
26215 |
LD A,(23560) |
26218 |
PUSH HL |
26219 |
CP 199 |
26221 |
LD HL,0 |
26224 |
JR Z,26240 |
26226 |
CP 201 |
26228 |
LD HL,400 |
26231 |
JR Z,26240 |
26233 |
CP 200 |
26235 |
LD HL,200 |
26238 |
JR NZ,26243 |
26240 |
LD (25946),HL |
26243 |
POP HL |
26244 |
CP 94 |
26246 |
JR Z,26157 |
26248 |
CP 95 |
26250 |
JR Z,26157 |
26252 |
CP 127 |
26254 |
JR Z,26157 |
26256 |
CP 126 |
26258 |
JR Z,26157 |
26260 |
CP 14 |
26262 |
RET NZ |
26263 |
PUSH BC |
26264 |
PUSH DE |
26265 |
PUSH HL |
26266 |
CALL 26093 |
26269 |
LD HL,26326 |
26272 |
LD A,(HL) |
26273 |
OR A |
26274 |
CALL NZ,26328 |
26277 |
XOR 1 |
26279 |
LD (HL),A |
26280 |
XOR A |
26281 |
CALL 26301 |
26284 |
CALL 27459 |
26287 |
LD A,3 |
26289 |
CALL 26298 |
26292 |
POP HL |
26293 |
POP DE |
26294 |
POP BC |
26295 |
JP 26157 |
26298 |
LD (26327),A |
26301 |
PUSH BC |
26302 |
LD BC,32765 |
26305 |
OR 16 |
26307 |
OUT (C),A |
26309 |
POP BC |
26310 |
RET |