This commit is contained in:
Anatoliy Belyanskiy 2023-09-14 03:42:32 +10:00
parent 5e191abb60
commit 8f5b42bcd1

View File

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