![]() |
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 |