From 6c92964be4fbbbec546d52ad6e2b51fd596d8a02 Mon Sep 17 00:00:00 2001 From: Anatoliy Belyanskiy Date: Sun, 10 Sep 2023 06:01:10 +1000 Subject: [PATCH] ... --- constants/SP2000.inc | 34 +++------- constants/standart_colors.inc | 124 +++++++++++++++++++++++----------- 2 files changed, 95 insertions(+), 63 deletions(-) diff --git a/constants/SP2000.inc b/constants/SP2000.inc index 740ce1b..c7d7f5b 100644 --- a/constants/SP2000.inc +++ b/constants/SP2000.inc @@ -260,31 +260,19 @@ KEMPSTON: ;---------------[Border]---------------- BorderColor EQU #FE -; bit 2..0: -; bit 0 - įحة -; bit 1 - Ŗą į­ė© -; bit 2 - §„«ń­ė© -; 0 - ēńą­ė© -; 1 - įحة -; 2 - Ŗą į­ė© -; 3 - ÆćąÆćą­ė© -; 4 - §„«ń­ė© -; 5 - £®«ć”®© -; 6 - ¦ń«āė© -; 7 - ”„«ė© -; ; ę¢„ā ”®ą¤īą  ¢ ą„¦Ø¬„ įÆąØ­ā„ą  ”„ąńāįļ ا 4 Æ «Øāąė. -; ę¢„ā ¢ Æ «Øāą„ ¢ėēØį«ļ„āįļ ¤ć”«Øą®¢ ­Ø„¬ ¢ ” ©ā„ ę¢„ā  bit2..0 ¢ bit5..3 +; ę¢„ā ¢ Æ «Øāą„ ¢ėēØį«ļ„āįļ ¤ć”«Øą®¢ ­Ø„¬ ¢ ­®¬„ą„ ę¢„ā  ”®ą¤īą  bit2..0 ¢ bit5..3 ; ¬®¦­® ¢ėēØį«ļāģ Øā®£®¢ė© Ø­¤„Ŗį ¢ Æ «Øāą„ 欭®¦„­Ø„¬ ę¢„ā  ­  9, «Ø”® -; āąØ į¤¢Ø£  ę¢„ā  ¢«„¢® Æ«īį Øį室­ė© ę¢„ā ę¢„ā -; 0 - BLACK color index #00 -; 1 - BRIGHT BLUE color index #09 -; 2 - GREEN color index #12 -; 3 - BRIGHT CYAN color index #1B -; 4 - RED color index #24 -; 5 - BRIGHT MAGENTA color index #2D -; 6 - BROWN color index #36 -; 7 - WHITE color index #3F +; āąØ į¤¢Ø£  ę¢„ā  ¢«„¢® Æ«īį Øį室­ė© ę¢„ā. Š ¦¤ė© ę¢„ā ¢ ¤„䮫ā­®© Æ «Øāą„ +; Æ®¢ā®ąļ„āįļ 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 keyboard]------------- diff --git a/constants/standart_colors.inc b/constants/standart_colors.inc index 720614d..4528fe9 100644 --- a/constants/standart_colors.inc +++ b/constants/standart_colors.inc @@ -1,43 +1,46 @@ ;-----------------------------------------------------------------------; MODULE COLORS IFDEF StandartCGApallete +; Ŗ ¦¤ė© ę¢„ā ¤«ļ ā„Ŗįā®¢®£® ą„¦Ø¬  Æ®¢ā®ąļ„āįļ 16 ą § 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 + ; 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 +.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 @@ -55,13 +58,54 @@ PAPER: .LMAGENTA EQU 16*INC.LMAGENT .YELLOW EQU 16*INC.YELLOW .WHITE EQU 16*INC.WHITE -; +; CGA FLASH EQU #80 -; +; CGA BORDER: -.BLACK EQU #00 ; 01 -.BLUE EQU #02 ; 03 -.GREEN EQU #04 ; 05 -.GRAY EQU #06 ; 07 +.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 ;-----------------------------------------------------------------------; \ No newline at end of file