8501: Warning, Sept Warrior
| Warning_Sept |
8501 |
LD A,($BD65) |
|
8504 |
XOR (IX+$08) |
|
8507 |
AND $7F |
|
8509 |
RET Z |
|
850A |
PUSH HL |
|
850B |
LD A,(Hero_ThroughDoor) |
|
850E |
AND A |
|
850F |
JR NZ,Warning_Sept_0 |
|
8511 |
CALL Print_WarningCentered |
| Str_WarningSept |
8514 |
DEFM "warning - sept warriors!",$5E |
| Warning_Sept_0 |
852D |
LD HL,($C3F7) |
|
8530 |
LD BC,($C3FF) |
|
8534 |
AND A |
|
8535 |
SBC HL,BC |
|
8537 |
LD DE,(_5b00_buffer) |
|
853B |
ADD HL,DE |
|
853C |
LD ($C3F7),HL |
|
853F |
LD ($C3FF),DE |
|
8543 |
LD HL,($C40C) |
|
8546 |
LD BC,($C414) |
|
854A |
AND A |
|
854B |
SBC HL,BC |
|
854D |
ADD HL,DE |
|
854E |
LD ($C40C),HL |
|
8551 |
LD ($C414),DE |
|
8555 |
LD HL,($C3F9) |
|
8558 |
LD BC,($C401) |
|
855C |
AND A |
|
855D |
SBC HL,BC |
|
855F |
LD DE,($5B04) |
|
8563 |
ADD HL,DE |
|
8564 |
LD ($C3F9),HL |
|
8567 |
LD ($C401),DE |
|
856B |
LD HL,($C40E) |
|
856E |
LD BC,($C416) |
|
8572 |
AND A |
|
8573 |
SBC HL,BC |
|
8575 |
ADD HL,DE |
|
8576 |
LD ($C40E),HL |
|
8579 |
LD ($C416),DE |
|
857D |
XOR A |
|
857E |
LD ($C3FC),A |
|
8581 |
LD ($C411),A |
|
8584 |
POP HL |
|
8585 |
PUSH HL |
|
8586 |
BIT 0,(HL) |
|
8588 |
JR Z,Warning_Sept_3 |
|
858A |
LD A,(Level_Char) |
|
858D |
LD ($C3FC),A |
|
8590 |
LD HL,Stage_Compass |
|
8593 |
LD A,($C3F5) |
|
8596 |
XOR (HL) |
|
8597 |
BIT 0,A |
|
8599 |
JR Z,Warning_Sept_3 |
|
859B |
BIT 0,(HL) |
|
859D |
JR NZ,Warning_Sept_1 |
|
859F |
LD HL,(Position_NS) |
|
85A2 |
LD DE,($C3F7) |
|
85A6 |
JR Warning_Sept_2 |
| Warning_Sept_1 |
85A8 |
LD HL,(Position_EW) |
|
85AB |
LD DE,($C3F9) |
| Warning_Sept_2 |
85AF |
AND A |
|
85B0 |
SBC HL,DE |
|
85B2 |
JR NZ,Warning_Sept_3 |
|
85B4 |
LD A,$03 |
|
85B6 |
LD ($C405),A |
| Warning_Sept_3 |
85B9 |
POP HL |
|
85BA |
PUSH HL |
|
85BB |
BIT 1,(HL) |
|
85BD |
JR Z,Warning_Sept_6 |
|
85BF |
LD A,(Level_Char) |
|
85C2 |
LD ($C411),A |
|
85C5 |
LD HL,Stage_Compass |
|
85C8 |
LD A,($C40A) |
|
85CB |
XOR (HL) |
|
85CC |
BIT 0,A |
|
85CE |
JR Z,Warning_Sept_6 |
|
85D0 |
BIT 0,(HL) |
|
85D2 |
JR NZ,Warning_Sept_4 |
|
85D4 |
LD HL,(Position_NS) |
|
85D7 |
LD DE,($C40C) |
|
85DB |
JR Warning_Sept_5 |
| Warning_Sept_4 |
85DD |
LD HL,(Position_EW) |
|
85E0 |
LD DE,($C40E) |
| Warning_Sept_5 |
85E4 |
AND A |
|
85E5 |
SBC HL,DE |
|
85E7 |
JR NZ,Warning_Sept_6 |
|
85E9 |
LD A,$03 |
|
85EB |
LD ($C41A),A |
| Warning_Sept_6 |
85EE |
POP HL |
|
85EF |
RET |
|
85F0 |
DEC A |
|
85F1 |
LD HL,($433D) |