;-----------------------------------------------------------------------;
 MODULE COLORS
	IFDEF	StandartCGApallete
; каждый цвет для текстового режима повторяется 16 раз
CGA:
                ;    B    G    R    x
.PALETTE:       DB  #00, #00, #00, #00 ;  0 BLACK		ЧЕРНЫЙ
                DB  #A8, #00, #00, #00 ;  1 BLUE		СИНИЙ
                DB  #00, #A8, #00, #00 ;  2 GREEN		ЗЕЛЕНЫЙ
                DB  #A8, #A8, #00, #00 ;  3 CYAN		ГОЛУБОЙ
                DB  #00, #00, #A8, #00 ;  4 RED			КРАСНЫЙ
                DB  #A8, #00, #A8, #00 ;  5 MAGENTA		ПУРПУРНЫЙ
                DB  #00, #54, #A8, #00 ;  6 BROWN		КОРИЧНЕВЫЙ
                DB  #A8, #A8, #A8, #00 ;  7 WHITE		БЕЛЫЙ
                DB  #54, #54, #54, #00 ;  8 GRAY		СЕРЫЙ
                DB  #FC, #54, #54, #00 ;  9 BRIGHT BLUE		ЯРКО-ГОЛУБОЙ
                DB  #54, #FC, #54, #00 ; 10 BRIGHT GREEN	ЯРКО-ЗЕЛЕНЫЙ
                DB  #FC, #FC, #54, #00 ; 11 BRIGHT CYAN		ЯРКО-ГОЛУБОЙ
                DB  #54, #54, #FC, #00 ; 12 BRIGHT RED		ЯРКО-КРАСНЫЙ
                DB  #FC, #54, #FC, #00 ; 13 BRIGHT MAGENTA	ЯРКО-ПУРПУРНЫЙ
                DB  #54, #FC, #FC, #00 ; 14 YELLOW		ЖЕЛТЫЙ
                DB  #FC, #FC, #FC, #00 ; 15 WHITE		БЕЛЫЙ
	ENDIF

; CGA
INC:
.BLACK          EQU #00 ; ЧЕРНЫЙ
.BLUE           EQU #01 ; СИНИЙ
.GREEN          EQU #02 ; ЗЕЛЕНЫЙ
.CYAN           EQU #03 ; ГОЛУБОЙ
.RED            EQU #04 ; КРАСНЫЙ
.MAGENTA        EQU #05 ; ПУРПУРНЫЙ
.BROWN          EQU #06 ; КОРИЧНЕВЫЙ
.LGRAY          EQU #07 ; БЕЛЫЙ
.DGRAY          EQU #08 ; СЕРЫЙ
.LBLUE          EQU #09 ; ЯРКО-ГОЛУБОЙ
.LGREEN         EQU #0A ; ЯРКО-ЗЕЛЕНЫЙ
.LCYAN          EQU #0B ; ЯРКО-ГОЛУБОЙ
.LRED           EQU #0C ; ЯРКО-КРАСНЫЙ
.LMAGENT        EQU #0D ; ЯРКО-ПУРПУРНЫЙ
.YELLOW         EQU #0E ; ЖЕЛТЫЙ
.WHITE          EQU #0F ; БЕЛЫЙ
; CGA
PAPER:
.BLACK		EQU 16*INC.BLACK
.BLUE		EQU 16*INC.BLUE
.GREEN		EQU 16*INC.GREEN
.CYAN		EQU 16*INC.CYAN
.RED		EQU 16*INC.RED
.MAGENTA	EQU 16*INC.MAGENTA
.BROWN		EQU 16*INC.BROWN
.LGRAY		EQU 16*INC.LGRAY
.DGRAY		EQU 16*INC.DGRAY
.LBLUE		EQU 16*INC.LBLUE
.LGREEN		EQU 16*INC.LGREEN
.LCYAN		EQU 16*INC.LCYAN
.LRED		EQU 16*INC.LRED
.LMAGENTA	EQU 16*INC.LMAGENT
.YELLOW		EQU 16*INC.YELLOW
.WHITE		EQU 16*INC.WHITE
; CGA
FLASH           EQU #80
; CGA
BORDER:
.BLACK		EQU INC.BLACK
.BLUE		EQU INC.BLUE
.GREEN		EQU INC.GREEN
.CYAN		EQU INC.CYAN
; цвет бордюра в режиме спринтера берётся из 4 палитры.
; цвет в палитре вычисляется дублированием в номере цвета бордюра bit2..0 в bit5..3 
; можно вычислять итоговый индекс в палитре умножением цвета на 9, либо 
; три сдвига цвета влево плюс исходный цвет. Каждый цвет в дефолтной палитре
; повторяется 16 раз:
;	0 - BLACK		color index #00  #00/#10 = 0
;	1 - BLACK		color index #00  #00/#10 = 0
;	2 - BLUE		color index #12  #12/#10 = 1
;	3 - BLUE		color index #1B  #1B/#10 = 1
;	4 - GREEN		color index #24  #24/#10 = 2
;	5 - GREEN		color index #2D  #2D/#10 = 2
;	6 - CYAN		color index #36  #36/#10 = 3
;	7 - CYAN		color index #3F  #3F/#10 = 3

ZX:
.BLACK		EQU #00 ; ЧЕРНЫЙ
.BLUE		EQU #01 ; СИНИЙ
.RED		EQU #02 ; КРАСНЫЙ
.MAGENTA	EQU #03 ; ПУРПУРНЫЙ
.GREEN		EQU #04 ; ЗЕЛЕНЫЙ
.CYAN		EQU #05 ; ГОЛУБОЙ
.YELLOW		EQU #06 ; ЖЕЛТЫЙ
.WHITE		EQU #07 ; БЕЛЫЙ
;
	IFDEF	StandartZXpallete
; каждый цвет для спектрумовского режима повторяется 8 раз
; палитра повторяется для каждого режима:
;	Paper
;	Ink
;	Flash Paper
;	Flash Ink
.PALETTE:	;    B    G    R    x
		DB  #00, #00, #00, #00 ;  0 BLACK	ЧЕРНЫЙ
		DB  #C8, #00, #00, #19 ;  1 BLUE	СИНИЙ
		DB  #00, #00, #C8, #32 ;  2 RED		КРАСНЫЙ
		DB  #C8, #00, #C8, #4B ;  3 MAGENTA	ПУРПУРНЫЙ
		DB  #00, #C8, #00, #64 ;  4 GREEN	ЗЕЛЕНЫЙ
		DB  #C8, #C8, #00, #7D ;  5 CYAN	ГОЛУБОЙ
		DB  #00, #C8, #C8, #96 ;  6 YELLOW	ЖЕЛТЫЙ
		DB  #C8, #C8, #C8, #AF ;  7 WHITE	БЕЛЫЙ
	ENDIF
 ENDMODULE
;-----------------------------------------------------------------------;