Mick,
Код:
;===================================
; программирование палитры
SetPal: ld a,h
or l
jr nz,PP1
Set1StPal: ld hl,STD_PAL
PP1: ei
halt
Start9: di
ld c,7Eh
ld d,16
PP2: ld a,(hl) ;физический цвет
cpl ;инверсия
ld b,a ;данные в рег. палитры
dec d
ld a,d
out (0FEh),a
out (c),d ;данные из B заносятся в рег.палитры
inc hl
jr nz,PP2
ret
;==============================
ZX_Palette:
DB 0 ;BLACK
DB 00000010B
DB 00010000B
DB 00010010B
DB 10000000B
DB 10000010B
DB 10010000B
DB 10010010B ;WHITE
DB 0
DB 00000011B
DB 00011000B
DB 00011011B
DB 11000000B
DB 11000011B
DB 11011000B
DB 11011011B ;WHITE (BRIGHT 1)
Std_pal:
DB 0 ;BLACK
DB 00000010B
DB 00010000B
DB 00010010B
DB 10000000B
DB 10000010B
DB 10010000B
DB 10010010B ;WHITE
DB 0 ;gray
DB 00000011B
DB 00011000B
DB 00011011B
DB 11000000B
DB 11000011B
DB 11011000B
DB 11011011B ;WHITE (BRIGHT 1)