...

constants/standart_colors.inc

@@ -3,9 +3,9 @@
 ;	DEFINE	_DebuG_NumOfPallete	1
 ;-----------------------------------------------------------------------;
  MODULE COLORS
-	IFDEF	StandartCGApallete
+	MODULE	CGA
+	 IFDEF	StandartCGApallete
 ; ª ¦¤ë© 梥⠤«ï ⥪á⮢®£® ०¨¬  ¯®¢â®àï¥âáï 16 à §
-CGA:
                 ;    B    G    R    x
 .PALETTE:       DB  #00, #00, #00, #00 ;  0 BLACK		—…<E28094><E280A6>›‰
                 DB  #A8, #00, #00, #00 ;  1 BLUE		‘ˆ<E28098>ˆ‰
@@ -23,7 +23,7 @@ CGA:
                 DB  #FC, #54, #FC, #00 ; 13 BRIGHT MAGENTA	Ÿ<>ŠŽ-<2D>“<EFBFBD><E2809C>“<EFBFBD><E2809C>›‰
                 DB  #54, #FC, #FC, #00 ; 14 YELLOW		†…‹’›‰
                 DB  #FC, #FC, #FC, #00 ; 15 WHITE		<09>…‹›‰
-	ENDIF
+	 ENDIF
 
 ; CGA
 FLASH           EQU #80
@@ -47,22 +47,24 @@ INC:
 .WHITE          EQU #0F ; <20>…‹›‰
 ; 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
+.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
 BORDER:
 .BLACK		EQU 0
@@ -82,7 +84,7 @@ BORDER:
 ;	5 - GREEN		color index #2D  #2D/#10 = 2
 ;	6 - CYAN		color index #36  #36/#10 = 3
 ;	7 - CYAN		color index #3F  #3F/#10 = 3
-
+	ENDMODULE ; CGA
 ZX:
 .BRIGHT		EQU #40
 .FLASH		EQU #80