46243: Routine at B4A3
46243 |
LD A,(46242) |
46246 |
INC A |
46247 |
JR NZ,46287 |
46249 |
LD (46242),A |
46252 |
LD A,(45427) |
46255 |
BIT 7,A |
46257 |
JR Z,46287 |
46259 |
LD A,254 |
46261 |
LD (41012),A |
46264 |
LD HL,(45426) |
46267 |
LD (41007),HL |
46270 |
OR 1 |
46272 |
RET |
46273 |
LD A,(40975) |
46276 |
CP 5 |
46278 |
JR Z,46243 |
46280 |
LD A,(45427) |
46283 |
BIT 7,A |
46285 |
JR Z,46292 |
46287 |
LD A,255 |
46289 |
CP 255 |
46291 |
RET |
46292 |
PUSH IY |
46294 |
LD IX,(45438) |
46298 |
LD A,(40989) |
46301 |
AND 1 |
46303 |
LD (41016),A |
46306 |
LD A,(40975) |
46309 |
CP 5 |
46311 |
LD IY,54171 |
46315 |
JR C,46321 |
46317 |
LD IY,54122 |
46321 |
CALL 46333 |
46324 |
CP 255 |
46326 |
LD (45438),IX |
46330 |
POP IY |
46332 |
RET |
46333 |
LD HL,45426 |
46336 |
CALL 46240 |
46339 |
CP 255 |
46341 |
RET Z |
46342 |
LD (41012),A |
46345 |
CALL 46359 |
46348 |
JR NZ,46333 |
46350 |
LD A,(41012) |
46353 |
LD HL,45421 |
46356 |
SET 1,(HL) |
46358 |
RET |
46359 |
LD A,(40988) |
46362 |
AND A |
46363 |
RET Z |
46364 |
PUSH IY |
46366 |
PUSH DE |
46367 |
PUSH IX |
46369 |
CALL 44713 |
46372 |
BIT 6,(IY+1) |
46376 |
JR Z,46403 |
46378 |
CALL AdjustObjectTableForSum |
46381 |
PUSH IY |
46383 |
POP HL |
46384 |
LD DE,8 |
46387 |
ADD HL,DE |
46388 |
CALL 54122 |
46391 |
CP 255 |
46393 |
JR Z,46369 |
46395 |
LD HL,41012 |
46398 |
CP (HL) |
46399 |
JR NZ,46381 |
46401 |
OR 1 |
46403 |
POP IX |
46405 |
POP DE |
46406 |
POP IY |
46408 |
RET |