Prev: BD51 Up: Map Next: BE5A
BD7E: Routine at BD7E
Used by the routine at BA20.
BD7E PUSH IY
BD80 POP HL
BD81 LD DE,$0018
BD84 ADD HL,DE
BD85 BIT 7,(IY+$19)
BD89 JR Z,$BD8E
BD8B LD HL,$9FF6
BD8E BIT 6,(IY+$19)
BD92 JR Z,$BD97
BD94 LD HL,$9FFC
BD97 LD DE,$B172
BD9A LD BC,$0006
BD9D LDIR
BD9F PUSH IY
BDA1 POP HL
BDA2 LD DE,$0008
BDA5 ADD HL,DE
BDA6 LD DE,$B178
BDA9 LD BC,$0006
BDAC LDIR
BDAE LD L,(IY+$00)
BDB1 LD A,(IY+$01)
BDB4 AND $0F
BDB6 LD H,A
BDB7 LD ($BA17),HL
BDBA PUSH IY
BDBC CALL $BDC2
BDBF POP IY
BDC1 RET
BDC2 CALL AdjustObjectTableForSum
BDC5 LD ($BA13),IX
BDC9 LD ($BA15),IX
BDCD LD DE,($BA17)
BDD1 LD HL,$994D
BDD4 LD B,$01
BDD6 LD A,(HL)
BDD7 INC HL
BDD8 OR (HL)
BDD9 DEC HL
BDDA RET Z
BDDB LD A,E
BDDC CP (HL)
BDDD JR NZ,$BDE5
BDDF INC HL
BDE0 LD A,D
BDE1 CP (HL)
BDE2 DEC HL
BDE3 JR Z,$BDEA
BDE5 INC HL
BDE6 INC HL
BDE7 INC B
BDE8 JR $BDD6
BDEA LD A,B
BDEB LD ($BA1A),A
BDEE LD A,$02
BDF0 LD ($A038),A
BDF3 CALL $BE3C
BDF6 CP $FF
BDF8 RET Z
BDF9 LD ($BA19),A
BDFC CALL $BE3C
BDFF CP $FF
BE01 JR NZ,$BE3A
BE03 LD A,($BA19)
BE06 CALL $BE22
BE09 CALL $BE4B
BE0C CP $FF
BE0E RET Z
BE0F LD ($BA1B),A
BE12 CALL $BE4B
BE15 CP $FF
BE17 JR NZ,$BE3A
BE19 LD A,($BA1B)
BE1C CALL $BE22
BE1F OR $01
BE21 RET
BE22 CALL FetchObjectDataPointer
BE25 PUSH IX
BE27 POP HL
BE28 BIT 6,(IX+$05)
BE2C LD DE,$9FF6
BE2F JR NZ,$BE34
BE31 LD DE,$9FFC
BE34 LD BC,$0006
BE37 LDIR
BE39 RET
BE3A SCF
BE3B RET
BE3C LD IX,($BA13)
BE40 LD HL,$B172
BE43 CALL $D36A
BE46 LD ($BA13),IX
BE4A RET
BE4B LD IX,($BA15)
BE4F LD HL,$B178
BE52 CALL $D36A
BE55 LD ($BA15),IX
BE59 RET
Prev: BD51 Up: Map Next: BE5A