![]() |
Routines |
Prev: 35245 | Up: Map |
|
|||||||
35563 | LD HL,22528 | Point HL at the first byte of the attribute file | |||||
35566 | LD A,(HL) | Pick up this byte | |||||
35567 | AND 7 | Keep only bits 0-2 (the INK colour) | |||||
35569 | OUT (254),A | Set the border colour to match | |||||
Now we loop over every byte in the attribute file.
|
|||||||
35571 | LD A,(HL) | Pick up an attribute file byte | |||||
35572 | ADD A,3 | Cycle the INK colour forward by three | |||||
35574 | AND 7 | ||||||
35576 | LD D,A | Save the new INK colour in D | |||||
35577 | LD A,(HL) | Pick up the attribute file byte again | |||||
35578 | ADD A,24 | Cycle the PAPER colour forward by three (and turn off any BRIGHT colours) | |||||
35580 | AND 184 | ||||||
35582 | OR D | Merge in the new INK colour | |||||
35583 | LD (HL),A | Save the new attribute byte | |||||
35584 | INC HL | Point HL at the next byte in the attribute file | |||||
35585 | LD A,H | Have we reached the end of the attribute file yet? | |||||
35586 | CP 91 | ||||||
35588 | JR NZ,35571 | If not, jump back to modify the next byte | |||||
35590 | RET |
Prev: 35245 | Up: Map |