Routines
Prev: E916 Up: Map Next: E96B
E93F: Set the colours on any test tubes or dynamite to black
Used by the routines at C800 and DD8D.
Input
IX Pointer to the current room's static object data
E93F BIT 5,(IX+$04) Is there dynamite in the room?
E943 JR Z,$E952 Jump forward if there isn't.
E945 LD E,(IX+$09) Put the dynamite co-ordinates in DE.
E948 LD D,(IX+$0A)
E94B CALL $E8E3 Convert this into an attribute address.
E94E XOR A Set the attribute to black.
E94F LD (DE),A
E950 INC E Move forward a column and do the same.
E951 LD (DE),A
E952 BIT 4,(IX+$04) Is there a test tube in the room?
E956 RET Z Return if there isn't.
E957 LD E,(IX+$02) Put the test tube co-ordinates in DE.
E95A LD D,(IX+$03)
E95D CALL $E8E3 Convert this into an attribute address.
E960 EX DE,HL Swap DE and HL.
E961 XOR A Set the attribute to black.
E962 LD (HL),A
E963 LD BC,$0020 Move forward a row and do the same.
E966 AND A
E967 SBC HL,BC
E969 LD (HL),A
E96A RET Return.
Prev: E916 Up: Map Next: E96B