This commit is contained in:
Anatoliy Belyanskiy committed 2023-09-14 06:05:35 +10:00
1 parent 8f5b42bcd1
commit cf19a287a2
1 file changed
+18 -26
+18 -26
View File
@@ -7,22 +7,23 @@
IFDEF StandartCGApallete
; ª ¦¤ë© 梥⠤«ï ⥪á⮢®£® ०¨¬  ¯®¢â®àï¥âáï 16 à §
; 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 �…‹›‰
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 �…‹›‰
.ColNum EQU ($-PALETTE)/4
ENDIF
; CGA
@@ -36,7 +37,7 @@ INC:
.RED EQU #04 ; Š�€‘�›‰
.MAGENTA EQU #05 ; �“��“��›‰
.BROWN EQU #06 ; ŠŽ�ˆ—�…‚›‰
.LGRAY EQU #07 ; �…‹›‰
.LGRAY EQU #07 ; ‘‚…’‹Ž-‘…�›‰
.DGRAY EQU #08 ; ‘…�›‰
.LBLUE EQU #09 ; Ÿ�ŠŽ-ƒŽ‹“�މ
.LGREEN EQU #0A ; Ÿ�ŠŽ-‡…‹…�›‰
@@ -56,15 +57,6 @@ PAPER:
.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