2 ; Christian Groessler, June 2004
4 ; this file provides a color functions similar to BASIC
6 ; void __fastcall__ _setcolor (unsigned char color_reg, unsigned char hue, unsigned char luminace);
7 ; void __fastcall__ _setcolor_low (unsigned char color_reg, unsigned char color_value);
8 ; unsigned char __fastcall__ _getcolor (unsigned char color_reg);
12 .export __setcolor, __setcolor_low, __getcolor
19 lda COLOR0,x ; get current value
27 ; asl a ; not -> BASIC compatible
28 sta lum ; remember luminance