54250: Routine at D3EA
| Door_Prep_01 |
54250 |
LD HL,52756 |
|
54253 |
XOR A |
|
54254 |
LD B,6 |
| Door_Prep_01_0 |
54256 |
OR (HL) |
|
54257 |
INC HL |
|
54258 |
DJNZ Door_Prep_01_0 |
|
54260 |
AND A |
|
54261 |
POP BC |
|
54262 |
RET NZ |
|
54263 |
PUSH BC |
|
54264 |
LD HL,55468 |
|
54267 |
INC (HL) |
|
54268 |
LD DE,1024 |
|
54271 |
CALL Door_Prep_01_1 |
|
54274 |
RET NC |
|
54275 |
POP AF |
|
54276 |
POP AF |
|
54277 |
AND A |
|
54278 |
RET |
| Door_Prep_01_1 |
54279 |
LD HL,51840 |
|
54282 |
LD A,(HL) |
|
54283 |
AND A |
|
54284 |
RET Z |
|
54285 |
LD (HL),0 |
|
54287 |
SCF |
|
54288 |
RET |
| Door_Prep_01_2 |
54289 |
CALL Door_Prep_01 |
| Door_Prep_01_3 |
54292 |
PUSH DE |
|
54293 |
CALL Controls |
|
54296 |
LD A,(54017) |
|
54299 |
AND A |
|
54300 |
CALL NZ,Door_Prep_01_4 |
|
54303 |
LD A,(54018) |
|
54306 |
AND A |
|
54307 |
CALL NZ,Door_Prep_01_6 |
|
54310 |
POP DE |
|
54311 |
DEC DE |
|
54312 |
LD A,D |
|
54313 |
OR E |
|
54314 |
RET Z |
|
54315 |
JR Door_Prep_01_3 |
| Door_Prep_01_4 |
54317 |
CALL ScreenScroll_Right |
|
54320 |
LD DE,1024 |
|
54323 |
LD HL,54365 |
|
54326 |
LD A,(HL) |
|
54327 |
INC A |
|
54328 |
LD (HL),A |
|
54329 |
CP 13 |
|
54331 |
JR C,Door_Prep_01_5 |
|
54333 |
LD (HL),1 |
| Door_Prep_01_5 |
54335 |
CALL ActiveDoors |
|
54338 |
LD A,(54365) |
|
54341 |
LD (54364),A |
|
54344 |
RET |
| Door_Prep_01_6 |
54345 |
CALL 26368 |
|
54348 |
LD DE,1024 |
|
54351 |
LD HL,54365 |
|
54354 |
LD A,(HL) |
|
54355 |
DEC A |
|
54356 |
LD (HL),A |
|
54357 |
AND A |
|
54358 |
JR NZ,Door_Prep_01_5 |
|
54360 |
LD (HL),12 |
|
54362 |
JR Door_Prep_01_5 |
