Prev: BE59 Up: Map Next: BF50
BE75: Routine at BE75
Used by the routine at BD89.
BE75 RES 5,(IX+$17) Reset bit 5 of *IX+17.
BE79 BIT 3,(IX+$13) Jump to BE83 if bit 3 of *IX+13 is not set.
BE7D JR Z,$BE83
BE7F SET 5,(IX+$17) Set bit 5 of *IX+17.
BE83 LD HL,$C1E7 HL=C1E7.
BE86 LD D,$00 D=00.
BE88 LD A,(IX+$13) A=*IX+13.
BE8B AND %00011000 Keep only bits 3-4.
BE8D RRCA RRCA.
BE8E RRCA RRCA.
BE8F LD E,A E=A.
BE90 ADD HL,DE HL+=DE.
BE91 LD E,(HL) E=*HL.
BE92 INC HL Increment HL by one.
BE93 LD D,(HL) D=*HL.
BE94 LD L,(IX+$10) L=*IX+10.
BE97 LD H,(IX+$11) H=*IX+11.
BE9A ADD HL,DE HL+=DE.
BE9B BIT 3,(IX+$13) Jump to BEB8 if bit 3 of *IX+13 is set.
BE9F JR NZ,$BEB8
BEA1 LD A,L A=L.
BEA2 BIT 4,(IX+$13) Jump to BEB2 if bit 4 of *IX+13 is not set.
BEA6 JR Z,$BEB2
BEA8 AND %00011111 Keep only bits 0-4.
BEAA CP $1F Return if A is equal to 1F.
BEAC RET Z
BEAD CP $15 Return if A is equal to 15.
BEAF RET Z
BEB0 JR $BEB8 Jump to BEB8.
BEB2 AND %00011111 Keep only bits 0-4.
BEB4 RET Z Return if the result is zero.
BEB5 CP $0A Return if A is equal to 0A.
BEB7 RET Z
BEB8 BIT 7,(HL) Jump to BEF9 if bit 7 of *HL is set.
BEBA JR NZ,$BEF9
BEBC BIT 5,(IX+$30) Test bit 5 of *IX+30.
BEC0 RES 5,(IX+$30) Reset bit 5 of *IX+30.
BEC4 JR Z,$BEE0 Jump to BEE0 if bit 5 of *IX+30 is not set.
BEC6 BIT 4,(IX+$13) Jump to BED6 if bit 4 of *IX+13 is not set.
BECA JR Z,$BED6
BECC RES 1,(IX+$17) Reset bit 1 of *IX+17.
BED0 SET 0,(IX+$17) Set bit 0 of *IX+17.
BED4 JR $BEE8 Jump to BEE8.
BED6 RES 1,(IX+$17) Reset bit 1 of *IX+17.
BEDA SET 2,(IX+$17) Set bit 2 of *IX+17.
BEDE JR $BEE8 Jump to BEE8.
BEE0 RES 2,(IX+$17) Reset bit 2 of *IX+17.
BEE4 RES 0,(IX+$17) Reset bit 0 of *IX+17.
BEE8 POP DE Restore DE from the stack.
BEE9 PUSH HL Stash HL on the stack.
BEEA CALL Handler_BittenByDog Call Handler_BittenByDog.
BEED LD HL,$CC3D HL=CC3D.
BEF0 SET 1,(HL) Set bit 1 of *HL.
BEF2 POP HL Restore HL from the stack.
BEF3 LD B,(IX+$13) B=*IX+13.
BEF6 JP $B88A Jump to B88A.
BEF9 LD A,($B918) A=*B918.
BEFC BIT 3,(IX+$13) Jump to BF0B if bit 3 of *IX+13 is not set.
BF00 JR Z,$BF0B
BF02 INC A Increment A by one.
BF03 BIT 4,(IX+$13) Jump to BF0B if bit 4 of *IX+13 is not set.
BF07 JR Z,$BF0B
BF09 SUB $02 A-=02.
BF0B CP (IX+$07) Return if A with *IX+07 is not zero.
BF0E RET NZ
BF0F SET 5,(IX+$30) Set bit 5 of *IX+30.
BF13 BIT 1,(IX+$17) Jump to BEE8 if bit 1 of *IX+17 is set.
BF17 JR NZ,$BEE8
BF19 BIT 3,(IX+$13) Return if bit 3 of *IX+13 is set.
BF1D RET NZ
BF1E BIT 4,(IX+$13) Jump to BF3A if bit 4 of *IX+13 is set.
BF22 JR NZ,$BF3A
BF24 BIT 0,(IX+$17) Jump to BF30 if bit 0 of *IX+17 is set.
BF28 JR NZ,$BF30
BF2A SET 0,(IX+$17) Set bit 0 of *IX+17.
BF2E JR $BEE8 Jump to BEE8.
BF30 RES 0,(IX+$17) Reset bit 0 of *IX+17.
BF34 SET 1,(IX+$17) Set bit 1 of *IX+17.
BF38 JR $BEE8 Jump to BEE8.
BF3A BIT 2,(IX+$17) Jump to BF46 if bit 2 of *IX+17 is set.
BF3E JR NZ,$BF46
BF40 SET 2,(IX+$17) Set bit 2 of *IX+17.
BF44 JR $BEE8 Jump to BEE8.
BF46 RES 2,(IX+$17) Reset bit 2 of *IX+17.
BF4A SET 1,(IX+$17) Set bit 1 of *IX+17.
BF4E JR $BEE8 Jump to BEE8.
Prev: BE59 Up: Map Next: BF50