;DEFINE StandartZXpallete 1 ;DEFINE _DebuG_SAVEpallete 1 ;DEFINE _DebuG_NumOfPallete 2 ;-----------------------------------------------------------------------; MODULE COLORS MODULE CGA 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 …‹›‰ .ColNum EQU ($-PALETTE)/4 ENDIF ; CGA FLASH EQU #80 ; CGA INK: .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*INK.BLACK .BLUE EQU 16*INK.BLUE .GREEN EQU 16*INK.GREEN .CYAN EQU 16*INK.CYAN .RED EQU 16*INK.RED .MAGENTA EQU 16*INK.MAGENTA .BROWN EQU 16*INK.BROWN .LGRAY EQU 16*INK.LGRAY ; CGA BORDER: .BLACK EQU 0 .BLUE EQU 2 .GREEN EQU 4 .CYAN EQU 6 ; ๆขฅโ กฎเค๎เ  ข เฅฆจฌฅ แฏเจญโฅเ  กฅเ๑โแ๏ จง 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 ENDMODULE ; CGA ZX: .BRIGHT EQU #40 .FLASH EQU #80 ; .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 MACRO _mZX_COLOR dup_num, blue, green, red, bw DUP dup_num DB blue, green, red, bw EDUP ENDM .PALETTE: include 'zx_colors.inc' _mSET_PALLET_NUMBER _DebuG_NumOfPallete IFDEF _DebuG_SAVEpallete ORG 0 OUTPUT 'Build/new_pall.bin' ENDIF ; Paper DUP 2 _mZX_COLOR 8, ZX_BLACK _mZX_COLOR 8, ZX_BLUE _mZX_COLOR 8, ZX_RED _mZX_COLOR 8, ZX_MAGENTA _mZX_COLOR 8, ZX_GREEN _mZX_COLOR 8, ZX_CYAN _mZX_COLOR 8, ZX_YELLOW _mZX_COLOR 8, ZX_WHITE _mZX_COLOR 8, ZX_BRIGHT_BLACK _mZX_COLOR 8, ZX_BRIGHT_BLUE _mZX_COLOR 8, ZX_BRIGHT_RED _mZX_COLOR 8, ZX_BRIGHT_MAGENTA _mZX_COLOR 8, ZX_BRIGHT_GREEN _mZX_COLOR 8, ZX_BRIGHT_CYAN _mZX_COLOR 8, ZX_BRIGHT_YELLOW _mZX_COLOR 8, ZX_BRIGHT_WHITE EDUP ; Ink DUP 2 DUP 8 _mZX_COLOR 1, ZX_BLACK _mZX_COLOR 1, ZX_BLUE _mZX_COLOR 1, ZX_RED _mZX_COLOR 1, ZX_MAGENTA _mZX_COLOR 1, ZX_GREEN _mZX_COLOR 1, ZX_CYAN _mZX_COLOR 1, ZX_YELLOW _mZX_COLOR 1, ZX_WHITE EDUP ; DUP 8 _mZX_COLOR 1, ZX_BRIGHT_BLACK _mZX_COLOR 1, ZX_BRIGHT_BLUE _mZX_COLOR 1, ZX_BRIGHT_RED _mZX_COLOR 1, ZX_BRIGHT_MAGENTA _mZX_COLOR 1, ZX_BRIGHT_GREEN _mZX_COLOR 1, ZX_BRIGHT_CYAN _mZX_COLOR 1, ZX_BRIGHT_YELLOW _mZX_COLOR 1, ZX_BRIGHT_WHITE EDUP EDUP ; Flash Paper _mZX_COLOR 8, ZX_BLACK _mZX_COLOR 8, ZX_BLUE _mZX_COLOR 8, ZX_RED _mZX_COLOR 8, ZX_MAGENTA _mZX_COLOR 8, ZX_GREEN _mZX_COLOR 8, ZX_CYAN _mZX_COLOR 8, ZX_YELLOW _mZX_COLOR 8, ZX_WHITE _mZX_COLOR 8, ZX_BRIGHT_BLACK _mZX_COLOR 8, ZX_BRIGHT_BLUE _mZX_COLOR 8, ZX_BRIGHT_RED _mZX_COLOR 8, ZX_BRIGHT_MAGENTA _mZX_COLOR 8, ZX_BRIGHT_GREEN _mZX_COLOR 8, ZX_BRIGHT_CYAN _mZX_COLOR 8, ZX_BRIGHT_YELLOW _mZX_COLOR 8, ZX_BRIGHT_WHITE ; DUP 8 _mZX_COLOR 1, ZX_BLACK _mZX_COLOR 1, ZX_BLUE _mZX_COLOR 1, ZX_RED _mZX_COLOR 1, ZX_MAGENTA _mZX_COLOR 1, ZX_GREEN _mZX_COLOR 1, ZX_CYAN _mZX_COLOR 1, ZX_YELLOW _mZX_COLOR 1, ZX_WHITE EDUP ; DUP 8 _mZX_COLOR 1, ZX_BRIGHT_BLACK _mZX_COLOR 1, ZX_BRIGHT_BLUE _mZX_COLOR 1, ZX_BRIGHT_RED _mZX_COLOR 1, ZX_BRIGHT_MAGENTA _mZX_COLOR 1, ZX_BRIGHT_GREEN _mZX_COLOR 1, ZX_BRIGHT_CYAN _mZX_COLOR 1, ZX_BRIGHT_YELLOW _mZX_COLOR 1, ZX_BRIGHT_WHITE EDUP ; ; Flash Ink DUP 8 _mZX_COLOR 1, ZX_BLACK _mZX_COLOR 1, ZX_BLUE _mZX_COLOR 1, ZX_RED _mZX_COLOR 1, ZX_MAGENTA _mZX_COLOR 1, ZX_GREEN _mZX_COLOR 1, ZX_CYAN _mZX_COLOR 1, ZX_YELLOW _mZX_COLOR 1, ZX_WHITE EDUP ; DUP 8 _mZX_COLOR 1, ZX_BRIGHT_BLACK _mZX_COLOR 1, ZX_BRIGHT_BLUE _mZX_COLOR 1, ZX_BRIGHT_RED _mZX_COLOR 1, ZX_BRIGHT_MAGENTA _mZX_COLOR 1, ZX_BRIGHT_GREEN _mZX_COLOR 1, ZX_BRIGHT_CYAN _mZX_COLOR 1, ZX_BRIGHT_YELLOW _mZX_COLOR 1, ZX_BRIGHT_WHITE EDUP ; _mZX_COLOR 8, ZX_BLACK _mZX_COLOR 8, ZX_BLUE _mZX_COLOR 8, ZX_RED _mZX_COLOR 8, ZX_MAGENTA _mZX_COLOR 8, ZX_GREEN _mZX_COLOR 8, ZX_CYAN _mZX_COLOR 8, ZX_YELLOW _mZX_COLOR 8, ZX_WHITE _mZX_COLOR 8, ZX_BRIGHT_BLACK _mZX_COLOR 8, ZX_BRIGHT_BLUE _mZX_COLOR 8, ZX_BRIGHT_RED _mZX_COLOR 8, ZX_BRIGHT_MAGENTA _mZX_COLOR 8, ZX_BRIGHT_GREEN _mZX_COLOR 8, ZX_BRIGHT_CYAN _mZX_COLOR 8, ZX_BRIGHT_YELLOW _mZX_COLOR 8, ZX_BRIGHT_WHITE ; IFDEF _DebuG_SAVEpallete OUTEND ENDIF UNDEFINE ZX_BLACK UNDEFINE ZX_BLUE UNDEFINE ZX_RED UNDEFINE ZX_MAGENTA UNDEFINE ZX_GREEN UNDEFINE ZX_CYAN UNDEFINE ZX_YELLOW UNDEFINE ZX_WHITE UNDEFINE ZX_BRIGHT_BLACK UNDEFINE ZX_BRIGHT_BLUE UNDEFINE ZX_BRIGHT_RED UNDEFINE ZX_BRIGHT_MAGENTA UNDEFINE ZX_BRIGHT_GREEN UNDEFINE ZX_BRIGHT_CYAN UNDEFINE ZX_BRIGHT_YELLOW UNDEFINE ZX_BRIGHT_WHITE UNDEFINE StandartZXpallete IFDEF _DebuG_SAVEpallete UNDEFINE _DebuG_SAVEpallete ENDIF ENDIF ENDMODULE ;-----------------------------------------------------------------------;