D08A: Move Dan up a rainbow lift
D08A |
LD A,$0E |
D08C |
LD ($DBED),A |
D08F |
LD A,($C875) |
D092 |
AND A |
D093 |
JR Z,$D09B |
D095 |
CP $07 |
D097 |
JR Z,$D09B |
D099 |
JR $D0A5 |
D09B |
CALL $D567 |
D09E |
LD A,($CEE7) |
D0A1 |
BIT 7,A |
D0A3 |
JR NZ,$D0D0 |
D0A5 |
LD DE,($C872) |
D0A9 |
LD A,($CEEC) |
D0AC |
CP E |
D0AD |
JR NZ,$D0C5 |
D0AF |
LD A,($CEEE) |
D0B2 |
DEC A |
D0B3 |
DEC A |
D0B4 |
LD B,A |
D0B5 |
LD A,D |
D0B6 |
CP B |
D0B7 |
JR C,$D0BF |
D0B9 |
CALL $D3EC |
D0BC |
JP $D1CE |
D0BF |
CALL $D4B5 |
D0C2 |
JP $D1CE |
D0C5 |
LD HL,$C876 |
D0C8 |
INC (HL) |
D0C9 |
LD A,($CEEF) |
D0CC |
CP (HL) |
D0CD |
JP NZ,$D1CE |
D0D0 |
XOR A |
D0D1 |
LD ($C876),A |
D0D4 |
LD HL,$C87F |
D0D7 |
RES 0,(HL) |
D0D9 |
JP $D1CE |