|
Routines |
| Prev: 35245 | Up: Map | Next: 35591 |
| 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 | Next: 35591 |