|
Routines |
| Prev: 84B4 | Up: Map | Next: 84D8 |
|
Fills the attribute buffer with INK:MAGENTA, PAPER:BLACK (BRIGHT), then paints a black column on the left and right of each row.
|
||||
|
Fill the attribute buffer with INK:MAGENTA, PAPER:BLACK (BRIGHT).
|
||||
| ResetAttributes | 84BB | XOR A | Set the border to BLACK. | |
| 84BC | OUT ($FE),A | |||
| 84BE | LD HL,$5800 | Set the target address to 5800 (attribute buffer). | ||
| 84C1 | LD B,$5B | Finish at the end of the attribute buffer (5B00). | ||
| 84C3 | LD C,$43 | Set the fill value to INK:MAGENTA, PAPER:BLACK (BRIGHT). | ||
| 84C5 | CALL ResetCopier | Call ResetCopier. | ||
|
Paint a black column on each side of the play area.
|
||||
| 84C8 | LD HL,$5800 | Set the attribute pointer to 5800. | ||
| 84CB | LD DE,$001F | Set the offset to the right-hand column to 001F. | ||
| 84CE | LD BC,$1800 | Set the row counter to 18 and the edge colour to BLACK. | ||
| ResetAttributes_Loop | 84D1 | LD (HL),C | Write black to the left-hand column. | |
| 84D2 | ADD HL,DE | Move to the right-hand column. | ||
| 84D3 | LD (HL),C | Write black to the right-hand column and move onto the next row. | ||
| 84D4 | INC HL | |||
| 84D5 | DJNZ ResetAttributes_Loop | Decrease the row counter by one and loop back to ResetAttributes_Loop until all 18 rows are done. | ||
| 84D7 | RET | Return. | ||
| Prev: 84B4 | Up: Map | Next: 84D8 |