COLORS.I

[Table of Contents]

The COLORS.I include file resides on the Kyan Pascal 2.x Utilities Disk 1.

It contains three procedures:

• Set_Background_Color(Integer)
• Set_Char_Luminance(Integer)
• Set_Border_Color(Integer)

PROCEDURE Set_Background_Color(C: Integer);
BEGIN
#A
 LDY #5      ;offset to color
 LDA (_SP),Y ;get number
 STA $2C6    ;...store in COLOR2 (710)
#
END;(* set background color procedure *)



PROCEDURE Set_Char_Luminance(C: Integer);
BEGIN
#A
 LDY #5      ;offset to brightness
 LDA (_SP),Y ;get number
 STA $2C5    ;...store in COLOR1 (709)
#
END;(* set character luminance procedure *)



PROCEDURE Set_Border_Color(C: Integer);
BEGIN
#A
 LDY #5      ;offset to Color
 LDA (_SP),Y ;get number
 STA $2C8    ;...store in COLOR4 (712)
#
END;(* set border color procedure *)