53943: Routine at D2B7
| 53943 |
LD IX,52917 |
| 53947 |
LD HL,52926 |
| 53950 |
LD DE,(28083) |
| 53954 |
CALL 53998 |
| 53957 |
LD (28083),DE |
| 53961 |
LD IX,52929 |
| 53965 |
LD HL,52938 |
| 53968 |
LD DE,(28085) |
| 53972 |
CALL 53998 |
| 53975 |
LD (28085),DE |
| 53979 |
LD IX,52941 |
| 53983 |
LD HL,52950 |
| 53986 |
LD DE,(28087) |
| 53990 |
CALL 53998 |
| 53993 |
LD (28087),DE |
| 53997 |
RET |
| 53998 |
PUSH HL |
| 53999 |
PUSH DE |
| 54000 |
CALL 37796 |
| 54003 |
POP DE |
| 54004 |
POP HL |
| 54005 |
LD A,(28068) |
| 54008 |
DEC A |
| 54009 |
LD B,A |
| 54010 |
BIT 6,(HL) |
| 54012 |
RET NZ |
| 54013 |
BIT 5,(HL) |
| 54015 |
JP NZ,54349 |
| 54018 |
BIT 4,(HL) |
| 54020 |
RET NZ |
| 54021 |
BIT 3,(HL) |
| 54023 |
JP NZ,54338 |
| 54026 |
LD A,(DE) |
| 54027 |
CP 128 |
| 54029 |
JR NZ,54034 |
| 54031 |
RES 0,(HL) |
| 54033 |
INC DE |
| 54034 |
CP 129 |
| 54036 |
JR NZ,54041 |
| 54038 |
SET 0,(HL) |
| 54040 |
INC DE |
| 54041 |
CP 131 |
| 54043 |
JR NZ,54051 |
| 54045 |
LD A,8 |
| 54047 |
CALL 54399 |
| 54050 |
INC DE |
| 54051 |
LD A,(DE) |
| 54052 |
ADD A,(IX+4) |
| 54055 |
CALL 54385 |
| 54058 |
INC DE |
| 54059 |
LD A,(DE) |
| 54060 |
BIT 1,(HL) |
| 54062 |
JR NZ,54066 |
| 54064 |
NEG |
| 54066 |
ADD A,(IX+5) |
| 54069 |
CALL 54392 |
| 54072 |
INC DE |
| 54073 |
LD A,(DE) |
| 54074 |
CP 130 |
| 54076 |
JR NZ,54081 |
| 54078 |
LD DE,53917 |
| 54081 |
LD A,(IX+5) |
| 54084 |
BIT 1,(HL) |
| 54086 |
JR Z,54128 |
| 54088 |
CP B |
| 54089 |
JR C,54128 |
| 54091 |
LD A,(IX+4) |
| 54094 |
CP 102 |
| 54096 |
JR NC,54117 |
| 54098 |
BIT 0,(HL) |
| 54100 |
JR Z,54117 |
| 54102 |
LD A,(IX+0) |
| 54105 |
CP 5 |
| 54107 |
JR Z,54117 |
| 54109 |
INC (IX+0) |
| 54112 |
LD A,101 |
| 54114 |
JP 54392 |
| 54117 |
RES 1,(HL) |
| 54119 |
LD A,7 |
| 54121 |
CALL 54399 |
| 54124 |
LD A,B |
| 54125 |
JP 54392 |
| 54128 |
CP 102 |
| 54130 |
JR NC,54194 |
| 54132 |
LD A,(IX+4) |
| 54135 |
CP 102 |
| 54137 |
JR NC,54157 |
| 54139 |
BIT 0,(HL) |
| 54141 |
JR Z,54157 |
| 54143 |
DEC (IX+0) |
| 54146 |
LD A,(IX+0) |
| 54149 |
CP 2 |
| 54151 |
JR Z,54171 |
| 54153 |
LD A,B |
| 54154 |
JP 54392 |
| 54157 |
LD A,7 |
| 54159 |
CALL 54399 |
| 54162 |
LD A,101 |
| 54164 |
CALL 54392 |
| 54167 |
SET 1,(HL) |
| 54169 |
JR 54194 |
| 54171 |
LD A,120 |
| 54173 |
CALL 54385 |
| 54176 |
LD A,16 |
| 54178 |
CALL 38234 |
| 54181 |
ADD A,114 |
| 54183 |
CALL 54392 |
| 54186 |
LD A,14 |
| 54188 |
LD (IX+8),A |
| 54191 |
SET 4,(HL) |
| 54193 |
RET |
| 54194 |
BIT 0,(HL) |
| 54196 |
RET Z |
| 54197 |
LD A,(IX+4) |
| 54200 |
CP 117 |
| 54202 |
JR NZ,54265 |
| 54204 |
LD IY,52881 |
| 54208 |
LD A,(IY+1) |
| 54211 |
CP 2 |
| 54213 |
JR NZ,54256 |
| 54215 |
LD A,(IY+0) |
| 54218 |
CP (IX+0) |
| 54221 |
JR NZ,54256 |
| 54223 |
BIT 4,(IY+10) |
| 54227 |
JR Z,54256 |
| 54229 |
LD A,(IX+5) |
| 54232 |
CP (IY+5) |
| 54235 |
JR C,54256 |
| 54237 |
LD A,(IY+7) |
| 54240 |
CP (IX+5) |
| 54243 |
JR C,54256 |
| 54245 |
SET 2,(HL) |
| 54247 |
LD A,14 |
| 54249 |
CALL 54399 |
| 54252 |
LD DE,53917 |
| 54255 |
RET |
| 54256 |
BIT 2,(HL) |
| 54258 |
RET Z |
| 54259 |
RES 2,(HL) |
| 54261 |
LD DE,53939 |
| 54264 |
RET |
| 54265 |
CP 113 |
| 54267 |
RET NZ |
| 54268 |
LD IY,(28019) |
| 54272 |
LD A,(IY+1) |
| 54275 |
CP 3 |
| 54277 |
RET NC |
| 54278 |
LD A,(IX+0) |
| 54281 |
CP (IY+0) |
| 54284 |
RET NZ |
| 54285 |
LD A,(IX+5) |
| 54288 |
LD C,(IY+5) |
| 54291 |
BIT 1,(HL) |
| 54293 |
JR Z,54296 |
| 54295 |
DEC C |
| 54296 |
LD B,3 |
| 54298 |
INC C |
| 54299 |
CP C |
| 54300 |
JR Z,54305 |
| 54302 |
DJNZ 54298 |
| 54304 |
RET |
| 54305 |
SET 3,(HL) |
| 54307 |
LD IY,52977 |
| 54311 |
LD A,(IX+0) |
| 54314 |
LD (IY+0),A |
| 54317 |
LD A,(IX+4) |
| 54320 |
LD (IY+4),A |
| 54323 |
LD A,(IX+5) |
| 54326 |
DEC A |
| 54327 |
LD (IY+5),A |
| 54330 |
LD A,6 |
| 54332 |
CALL 55449 |
| 54335 |
JP 37649 |
| 54338 |
RES 3,(HL) |
| 54340 |
LD A,46 |
| 54342 |
CALL 37957 |
| 54345 |
POP BC |
| 54346 |
JP 37672 |
| 54349 |
LD A,80 |
| 54351 |
CP (IX+5) |
| 54354 |
JR C,54373 |
| 54356 |
SET 6,(HL) |
| 54358 |
LD A,(52869) |
| 54361 |
CP 1 |
| 54363 |
RET NZ |
| 54364 |
LD A,6 |
| 54366 |
CALL 55449 |
| 54369 |
CALL 37623 |
| 54372 |
RET |
| 54373 |
LD A,(IX+5) |
| 54376 |
SUB 4 |
| 54378 |
CALL 54392 |
| 54381 |
LD A,(IX+4) |
| 54384 |
DEC A |
| 54385 |
LD (IX+4),A |
| 54388 |
LD (IX+6),A |
| 54391 |
RET |
| 54392 |
LD (IX+5),A |
| 54395 |
LD (IX+7),A |
| 54398 |
RET |
| 54399 |
LD C,A |
| 54400 |
LD A,(28042) |
| 54403 |
CP (IX+0) |
| 54406 |
RET NZ |
| 54407 |
LD A,C |
| 54408 |
CALL 55449 |
| 54411 |
RET |
