Prev: 63570 Up: Map Next: 63607
63583: Recolour Room Image
Paint the whole picture with the attribute in A first (PaintRoomImage), then blank the 71 attribute cells listed at Table_AttributeAddresses.
Input
A Attribute byte
RecolourRoomImage 63583 CALL PaintRoomImage Call PaintRoomImage to paint every picture attribute with A.
63586 LD IX,63365 Point at Table_AttributeAddresses and prepare to blank its 71 attribute cells (black ink on black paper).
63590 LD B,71
63592 XOR A
RecolourRoomImage_Loop 63593 LD L,(IX+0) Blank every attribute address in that list.
63596 LD H,(IX+1)
63599 LD (HL),A
63600 INC IX
63602 INC IX
63604 DJNZ RecolourRoomImage_Loop
63606 RET Return.
Prev: 63570 Up: Map Next: 63607