Prev: 61662 Up: Map Next: 61703
61678: Cycle Border Colour
Advances the border colour cycle one step and redraws the attribute border frame. Reads the current step from Border_Colour_Step, decrements it (wrapping at 0 back to 7), looks up the outer/inner attribute pair from Table_Border_Colour_Pairs, and calls Fill_Border_Attributes to repaint the border.
Cycle_Border_Colour 61678 LD A,(50440) Read and decrement the border colour step from Border_Colour_Step.
61681 DEC A
61682 AND %00000111 Mask the step to the range 0–7.
61684 LD (50440),A Store the updated step back to Border_Colour_Step.
61687 SLA A Double the step to a word offset and index into the colour pair table at Table_Border_Colour_Pairs.
61689 LD C,A
61690 LD B,0
61692 LD HL,61662
61695 ADD HL,BC
61696 LD D,(HL) Load the outer (D) and inner (E) attribute bytes from the table.
61697 INC HL
61698 LD E,(HL)
61699 CALL Fill_Border_Attributes Redraw the screen border with the new colour pair via Fill_Border_Attributes.
61702 RET Return.
Prev: 61662 Up: Map Next: 61703