Tolik-Trek/Shared_Includes
1
0
Fork 0
mirror of https://github.com/Tolik-Trek/Shared_Includes.git synced 2026-06-15 09:01:33 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity

...

Browse Source
This commit is contained in:
Anatoliy Belyanskiy 2023-09-10 06:01:10 +10:00
parent 90f4b54edb
commit 6c92964be4
2 changed files with 95 additions and 63 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
constants/SP2000.inc
View File

@ -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]-------------

124
constants/standart_colors.inc
View File

@ -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 —…<E28094><E280A6>›‰
DB #A8, #00, #00, #00 ; 1 BLUE ‘ˆ<E28098>ˆ‰
DB #00, #A8, #00, #00 ; 2 GREEN ‡…‹…<E280B9>›‰
DB #A8, #A8, #00, #00 ; 3 CYAN ƒŽ‹“<E280B9>Ž‰
DB #00, #00, #A8, #00 ; 4 RED Š<>€‘<E282AC>›‰
DB #A8, #00, #A8, #00 ; 5 MAGENTA <09>“<EFBFBD><E2809C>“<EFBFBD><E2809C>›‰
DB #00, #54, #A8, #00 ; 6 BROWN ŠŽ<C5A0>ˆ—<CB86>…‚›‰
DB #A8, #A8, #A8, #00 ; 7 WHITE <09>…‹›‰
DB #54, #54, #54, #00 ; 8 GRAY ‘…<E28098>›‰
DB #FC, #54, #54, #00 ; 9 BRIGHT BLUE Ÿ<>ŠŽ-ƒŽ‹“<E280B9>Ž‰
DB #54, #FC, #54, #00 ; 10 BRIGHT GREEN Ÿ<>ŠŽ-‡…‹…<E280B9>›‰
DB #FC, #FC, #54, #00 ; 11 BRIGHT CYAN Ÿ<>ŠŽ-ƒŽ‹“<E280B9>Ž‰
DB #54, #54, #FC, #00 ; 12 BRIGHT RED Ÿ<>ŠŽ-Š<>€‘<E282AC>›‰
DB #FC, #54, #FC, #00 ; 13 BRIGHT MAGENTA Ÿ<>ŠŽ-<2D>“<EFBFBD><E2809C>“<EFBFBD><E2809C>›‰
DB #54, #FC, #FC, #00 ; 14 YELLOW †…‹’›‰
DB #FC, #FC, #FC, #00 ; 15 WHITE <09>…‹›‰
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 ; —…<E28094><E280A6>›‰
.BLUE EQU #01 ; ‘ˆ<E28098>ˆ‰
.GREEN EQU #02 ; ‡…‹…<E280B9>›‰
.CYAN EQU #03 ; ƒŽ‹“<E280B9>Ž‰
.RED EQU #04 ; Š<>€‘<E282AC>›‰
.MAGENTA EQU #05 ; <20>“<EFBFBD><E2809C>“<EFBFBD><E2809C>›‰
.BROWN EQU #06 ; ŠŽ<C5A0>ˆ—<CB86>…‚›‰
.LGRAY EQU #07 ; <20>…‹›‰
.DGRAY EQU #08 ; ‘…<E28098>›‰
.LBLUE EQU #09 ; Ÿ<>ŠŽ-ƒŽ‹“<E280B9>Ž‰
.LGREEN EQU #0A ; Ÿ<>ŠŽ-‡…‹…<E280B9>›‰
.LCYAN EQU #0B ; Ÿ<>ŠŽ-ƒŽ‹“<E280B9>Ž‰
.LRED EQU #0C ; Ÿ<>ŠŽ-Š<>€‘<E282AC>›‰
.LMAGENT EQU #0D ; Ÿ<>ŠŽ-<2D>“<EFBFBD><E2809C>“<EFBFBD><E2809C>›‰
.YELLOW EQU #0E ; †…‹’›‰
.WHITE EQU #0F ; <20>…‹›‰
; 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 ; —…<E28094><E280A6>›‰
.BLUE EQU #01 ; ‘ˆ<E28098>ˆ‰
.RED EQU #02 ; Š<>€‘<E282AC>›‰
.MAGENTA EQU #03 ; <20>“<EFBFBD><E2809C>“<EFBFBD><E2809C>›‰
.GREEN EQU #04 ; ‡…‹…<E280B9>›‰
.CYAN EQU #05 ; ƒŽ‹“<E280B9>Ž‰
.YELLOW EQU #06 ; †…‹’›‰
.WHITE EQU #07 ; <20>…‹›‰
;
IFDEF StandartZXpallete
; ª ¦¤ë© 梥⠤«ï ᯥªâà㬮¢áª®£® ०¨¬  ¯®¢â®àï¥âáï 8 à §
; ¯ «¨âà  ¯®¢â®àï¥âáï ¤«ï ª ¦¤®£® ०¨¬ :
; Paper
; Ink
; Flash Paper
; Flash Ink
.PALETTE: ; B G R x
DB #00, #00, #00, #00 ; 0 BLACK —…<E28094><E280A6>›‰
DB #C8, #00, #00, #19 ; 1 BLUE ‘ˆ<E28098>ˆ‰
DB #00, #00, #C8, #32 ; 2 RED Š<>€‘<E282AC>›‰
DB #C8, #00, #C8, #4B ; 3 MAGENTA <09>“<EFBFBD><E2809C>“<EFBFBD><E2809C>›‰
DB #00, #C8, #00, #64 ; 4 GREEN ‡…‹…<E280B9>›‰
DB #C8, #C8, #00, #7D ; 5 CYAN ƒŽ‹“<E280B9>Ž‰
DB #00, #C8, #C8, #96 ; 6 YELLOW †…‹’›‰
DB #C8, #C8, #C8, #AF ; 7 WHITE <09>…‹›‰
ENDIF
ENDMODULE
;-----------------------------------------------------------------------;