ZXSpectrumNextTests/Tests/ULA/ChangePaletteTransparency_v3/Main.asm at develop · MrKWatkins/ZXSpectrumNextTests · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
    DEFINE SNA_FILENAME "CPalTrV3.snx"
    device zxspectrum48

    org	$6000

    INCLUDE "../../Constants.asm"
    INCLUDE "../../Macros.asm"
    INCLUDE "../../TestData.asm"
    INCLUDE "../../TestFunctions.asm"
    INCLUDE "../../OutputFunctions.asm"

Start:
    call StartTest
    ld   hl,TestTxt
    ld   de,MEM_ZX_SCREEN_4000
    call OutStringAtDe
    ld   de,MEM_ZX_SCREEN_4000+16*256+7*32
    call OutStringAtDe

    ; Set ULA over Layer2 over sprites, with sprites not visible.
    NEXTREG_nn SPRITE_CONTROL_NR_15, %00010100
    NEXTREG_nn PALETTE_FORMAT_NR_42, 7      ; INK bitmask (0..7 is INK, 0..31 PAPER)
        ; this INK mask "7" is "compatible" with default attribute $38 filled in VRAM
    NEXTREG_nn PALETTE_CONTROL_NR_43, 0     ; select first-ULA palette + disable ULANext
    ; palette[ULA][0][135] change (paper 7 + border 7 colour to $E300)
    NEXTREG_nn PALETTE_INDEX_NR_40, 128+7   ; Change paper 7 = 128 + 7 = 135.
    NEXTREG_nn PALETTE_VALUE_9BIT_NR_44, $E3
    NEXTREG_nn PALETTE_VALUE_9BIT_NR_44, $00; Set to default "pink" transparent colour.
    NEXTREG_nn PALETTE_INDEX_NR_40, 0       ; Change ink 0 = 0
    NEXTREG_nn PALETTE_VALUE_9BIT_NR_44, $E3
    NEXTREG_nn PALETTE_VALUE_9BIT_NR_44, $01; Set to default "pink" transparent colour.
    ; default "pink" as transparency colour and bright cyan as transparency fallback
    NEXTREG_nn GLOBAL_TRANSPARENCY_NR_14, $E3
    NEXTREG_nn TRANSPARENCY_FALLBACK_COL_NR_4A, $1F

    call FillLayer2WithTestData

    call EndTest

TestTxt:
    db  'White screen + this text = OK', 0
    db  '[', SNA_FILENAME, ']', 0

    savesna SNA_FILENAME, Start