Routines
Prev: 33972 Up: Map Next: 34008
33979: Reset Attribute Buffer
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 33979 XOR A Set the border to BLACK.
33980 OUT (254),A
33982 LD HL,22528 Set the target address to 22528 (attribute buffer).
33985 LD B,91 Finish at the end of the attribute buffer (23296).
33987 LD C,67 Set the fill value to INK:MAGENTA, PAPER:BLACK (BRIGHT).
33989 CALL ResetCopier Call ResetCopier.
Paint a black column on each side of the play area.
33992 LD HL,22528 Set the attribute pointer to 22528.
33995 LD DE,31 Set the offset to the right-hand column to 0031.
33998 LD BC,6144 Set the row counter to 24 and the edge colour to BLACK.
ResetAttributes_Loop 34001 LD (HL),C Write black to the left-hand column.
34002 ADD HL,DE Move to the right-hand column.
34003 LD (HL),C Write black to the right-hand column and move onto the next row.
34004 INC HL
34005 DJNZ ResetAttributes_Loop Decrease the row counter by one and loop back to ResetAttributes_Loop until all 24 rows are done.
34007 RET Return.
View the equivalent code in;
Prev: 33972 Up: Map Next: 34008