28090: Routine at 6DBA
| 28090 |
LD HL,24098 |
| 28093 |
LD A,(HL) |
| 28094 |
AND A |
| 28095 |
JR Z,28123 |
| 28097 |
DEC (HL) |
| 28098 |
JP NZ,24990 |
| 28101 |
LD A,(24094) |
| 28104 |
AND A |
| 28105 |
JR NZ,28118 |
| 28107 |
LD HL,24 |
| 28110 |
CALL 25012 |
| 28113 |
CALL 25831 |
| 28116 |
JR 28123 |
| 28118 |
LD HL,216 |
| 28121 |
JR 28110 |
| 28123 |
LD A,(IX+1) |
| 28126 |
CP 32 |
| 28128 |
JR C,28138 |
| 28130 |
CP 208 |
| 28132 |
JR NC,28138 |
| 28134 |
RES 2,(IX+4) |
| 28138 |
CALL StoreEntity |
| 28141 |
CALL ReadInput |
| 28144 |
BIT 0,A |
| 28146 |
JR Z,28177 |
| 28148 |
BIT 1,A |
| 28150 |
JR Z,28191 |
| 28152 |
LD A,(IX+1) |
| 28155 |
CP 24 |
| 28157 |
JR C,28174 |
| 28159 |
CP 216 |
| 28161 |
JR NC,28174 |
| 28163 |
CALL ReadInput |
| 28166 |
BIT 3,A |
| 28168 |
JR Z,28202 |
| 28170 |
BIT 2,A |
| 28172 |
JR Z,28216 |
| 28174 |
JP 28465 |
| 28177 |
LD A,(IX+1) |
| 28180 |
ADD A,2 |
| 28182 |
CP 216 |
| 28184 |
JR NC,28227 |
| 28186 |
LD (IX+1),A |
| 28189 |
JR 28152 |
| 28191 |
LD A,(IX+1) |
| 28194 |
SUB 2 |
| 28196 |
CP 24 |
| 28198 |
JR C,28227 |
| 28200 |
JR 28186 |
| 28202 |
LD A,(IX+2) |
| 28205 |
SUB 2 |
| 28207 |
CP 40 |
| 28209 |
JR C,28174 |
| 28211 |
LD (IX+2),A |
| 28214 |
JR 28174 |
| 28216 |
LD A,(IX+2) |
| 28219 |
ADD A,2 |
| 28221 |
CP 184 |
| 28223 |
JR NC,28174 |
| 28225 |
JR 28211 |
| 28227 |
CALL 28745 |
| 28230 |
BIT 0,E |
| 28232 |
JR Z,28152 |
| 28234 |
BIT 1,E |
| 28236 |
LD A,(IX+1) |
| 28239 |
JR Z,28256 |
| 28241 |
ADD A,2 |
| 28243 |
CP 228 |
| 28245 |
JR NC,28174 |
| 28247 |
BIT 2,E |
| 28249 |
JR NZ,28264 |
| 28251 |
LD (IX+1),A |
| 28254 |
JR 28174 |
| 28256 |
SUB 2 |
| 28258 |
CP 12 |
| 28260 |
JR C,28174 |
| 28262 |
JR 28247 |
| 28264 |
LD A,(HL) |
| 28265 |
BIT 7,A |
| 28267 |
JR NZ,28352 |
| 28269 |
BIT 2,(IX+4) |
| 28273 |
JR Z,28281 |
| 28275 |
CP (IX+6) |
| 28278 |
JP Z,28174 |
| 28281 |
AND 7 |
| 28283 |
OR 64 |
| 28285 |
LD (IX+3),A |
| 28288 |
LD (IX+11),A |
| 28291 |
LD A,2 |
| 28293 |
LD (IX+0),A |
| 28296 |
INC A |
| 28297 |
LD (IX+8),A |
| 28300 |
CALL 25814 |
| 28303 |
BIT 7,(IX+1) |
| 28307 |
LD A,(IX+1) |
| 28310 |
JR Z,28357 |
| 28312 |
RES 0,(IX+4) |
| 28316 |
ADD A,20 |
| 28318 |
LD (IX+9),A |
| 28321 |
SUB 4 |
| 28323 |
LD (IX+13),A |
| 28326 |
LD A,(IX+2) |
| 28329 |
LD (IX+10),A |
| 28332 |
LD (IX+14),A |
| 28335 |
LD (IX+12),0 |
| 28339 |
LD (HL),0 |
| 28341 |
SET 2,(IX+4) |
| 28345 |
SET 3,(IX+4) |
| 28349 |
JP 28174 |
| 28352 |
LD (HL),128 |
| 28354 |
JP 28174 |
| 28357 |
SUB 13 |
| 28359 |
LD (IX+9),A |
| 28362 |
ADD A,1 |
| 28364 |
SET 0,(IX+4) |
| 28368 |
JR 28323 |
