Shared_Includes/constants/standart_colors.inc
Anatoliy Belyanskiy 255905aeae ...
2023-09-09 22:51:59 +10:00

71 lines
1.9 KiB
PHP

;-----------------------------------------------------------------------;
MODULE COLORS
IFDEF StandartCGApallete
CGA:
; B G R _
.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
;
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
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
;
FLASH EQU #80
;
BORDER:
.BLACK EQU #00
.LBLUE EQU #01
.GREEN EQU #02
.LCYAN EQU #03
.RED EQU #04
.LMAGENTA EQU #05
.BROWN EQU #06
.WHITE EQU #07
ENDMODULE
;-----------------------------------------------------------------------;