Prev: BB17 Up: Map Next: BECF
BD9E: Move one frame in the final room
Used by the routine at AF5D.
BD9E CALL $BECF
BDA1 LD HL,($A404)
BDA4 LD A,($A403)
BDA7 LD E,A
BDA8 RRA
BDA9 JR C,$BDBF
BDAB LD A,($A43F)
BDAE AND A
BDAF JR Z,$BDBA
BDB1 DEC A
BDB2 JR NZ,$BDBB
BDB4 INC HL
BDB5 INC HL
BDB6 INC HL
BDB7 LD ($A404),HL
BDBA LD A,(HL)
BDBB LD ($A43F),A
BDBE INC HL
BDBF LD A,(HL)
BDC0 CP $80
BDC2 JR NZ,$BDE5
BDC4 BIT 0,E
BDC6 JR Z,$BDD7
BDC8 LD HL,($7ED0)
BDCB LD A,H
BDCC OR L
BDCD RET NZ
BDCE RES 5,E
BDD0 LD A,E
BDD1 LD ($A403),A
BDD4 XOR A
BDD5 JR $BDFC
BDD7 SET 0,E
BDD9 LD A,E
BDDA LD ($A403),A
BDDD LD HL,$7B00
BDE0 LD ($A404),HL
BDE3 JR $BDBF
BDE5 LD C,A
BDE6 RLA
BDE7 SBC A,A
BDE8 LD B,A
BDE9 PUSH HL
BDEA LD HL,($A40C)
BDED ADD HL,BC
BDEE LD ($A40C),HL
BDF1 POP HL
BDF2 INC HL
BDF3 LD A,(HL)
BDF4 BIT 0,E
BDF6 JR Z,$BDFC
BDF8 INC HL
BDF9 LD ($A404),HL
BDFC LD HL,($A406)
BDFF CP $80
BE01 JR NZ,$BE0B
BE03 LD A,E
BE04 OR $02
BE06 LD ($A403),A
BE09 JR $BDA1
BE0B LD C,A
BE0C AND $F0
BE0E JR Z,$BE4C
BE10 RRCA
BE11 RRCA
BE12 RRCA
BE13 RRCA
BE14 BIT 3,A
BE16 JR NZ,$BE2D
BE18 LD B,A
BE19 INC H
BE1A LD A,H
BE1B AND $07
BE1D JR NZ,$BE29
BE1F LD A,L
BE20 ADD A,$20
BE22 LD L,A
BE23 JR C,$BE29
BE25 LD A,H
BE26 SUB $08
BE28 LD H,A
BE29 DJNZ $BE19
BE2B JR $BE44
BE2D OR $F0
BE2F NEG
BE31 LD B,A
BE32 LD A,H
BE33 DEC H
BE34 AND $07
BE36 JR NZ,$BE42
BE38 LD A,L
BE39 SUB $20
BE3B LD L,A
BE3C JR C,$BE42
BE3E LD A,H
BE3F ADD A,$08
BE41 LD H,A
BE42 DJNZ $BE32
BE44 LD A,($A403)
BE47 OR $20
BE49 LD ($A403),A
BE4C EX DE,HL
BE4D BIT 1,L
BE4F EX AF,AF'
BE50 LD HL,($A40A)
BE53 LD A,C
BE54 LD C,$20
BE56 AND $0F
BE58 JR Z,$BEA9
BE5A BIT 3,A
BE5C JR NZ,$BE79
BE5E LD B,A
BE5F LD A,($A40F)
BE62 SRL A
BE64 JR NZ,$BE6D
BE66 DEC A
BE67 LD HL,$0000
BE6A INC E
BE6B JR $BE72
BE6D PUSH BC
BE6E LD B,$00
BE70 ADD HL,BC
BE71 POP BC
BE72 DJNZ $BE62
BE74 LD BC,$A57B
BE77 JR $BE98
BE79 OR $F0
BE7B NEG
BE7D LD B,A
BE7E LD A,($A40F)
BE81 SCF
BE82 ADC A,A
BE83 JR NC,$BE8D
BE85 LD A,$01
BE87 LD HL,$00E0
BE8A DEC E
BE8B JR $BE93
BE8D PUSH BC
BE8E LD B,$00
BE90 SBC HL,BC
BE92 POP BC
BE93 DJNZ $BE81
BE95 LD BC,$A47B
BE98 EX AF,AF'
BE99 JR Z,$BE9E
BE9B LD BC,$7ED0
BE9E EX AF,AF'
BE9F LD ($A408),BC
BEA3 LD ($A40A),HL
BEA6 LD ($A40F),A
BEA9 LD ($A406),DE
BEAD LD BC,($A408)
BEB1 ADD HL,BC
BEB2 LD A,($A40F)
BEB5 LD BC,$0210
BEB8 LD ($A400),BC
BEBC LD C,A
BEBD EX DE,HL
BEBE CALL $B7CC
BEC1 LD A,($A403)
BEC4 BIT 5,A
BEC6 RET Z
BEC7 LD B,$07
BEC9 LD HL,($A40C)
BECC JP $BEF6
Prev: BB17 Up: Map Next: BECF