ZXSpectrumNextTests/Tests/ULA/ChangePaletteTransparency_v2/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
	device zxspectrum48

	org	$6000

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

Start:
	call StartTest

    ; Set ULA over Layer2 over sprites, with sprites not visible.
    NEXTREG_nn SPRITE_CONTROL_NR_15, %00010100
    ; reset INK mask NR$42 to default value 15 (0..15 INK, 0..15 PAPER)
    NEXTREG_nn PALETTE_FORMAT_NR_42, 15     ; INK bitmask (0..15 is INK, 0..15 PAPER)
    ; this INK mask 15 for default attribute $38 = INK 8, PAPER 3
    NEXTREG_nn PALETTE_CONTROL_NR_43, 1     ; select first-ULA palette + enable ULANext
    ; palette[ULA][0][131] change (paper 3 colour to $E300)
    NEXTREG_nn PALETTE_INDEX_NR_40, 128+3   ; Change paper 3
    NEXTREG_nn PALETTE_VALUE_9BIT_NR_44, $E3
    NEXTREG_nn PALETTE_VALUE_9BIT_NR_44, $00; Set to default "pink" transparent colour.
    ; border is still 7 = offset 128+7
    NEXTREG_nn PALETTE_INDEX_NR_40, 128+7   ; Change border 7
    NEXTREG_nn PALETTE_VALUE_9BIT_NR_44, $10
    NEXTREG_nn PALETTE_VALUE_9BIT_NR_44, $00; Set to "green"
    ; bright cyan as transparency fallback, and set global transparency to "default" $E3
    NEXTREG_nn GLOBAL_TRANSPARENCY_NR_14, $E3
    NEXTREG_nn TRANSPARENCY_FALLBACK_COL_NR_4A, $1F

	call FillLayer2WithTestData

	call EndTest

	savesna "CPalTrV2.snx", Start