Revert "NTSC colors test"

This reverts commit c62ff52fc7.

lumber.asm

@@ -42,7 +42,6 @@ display = $a000
     .zpvar birdsHpos    .byte   ; 0 - no birds on screen (from $13 to $de)
     .zpvar birdsOffset  .byte
     .zpvar clouds1Hpos,clouds2Hpos,clouds3Hpos  .byte     ; 0 - no cloud on screen (from $0e to $de)
-    .zpvar PAL_NTSC_colors  .byte  ; $10 - NTSC , $00 - PAL
      ; PMG registers for sprites over horizon	
     .zpvar HPOSP0_u   .byte	
     .zpvar HPOSP1_u   .byte	
@@ -312,8 +311,7 @@ key_released
 .proc IngameDLI1
 ;--------------------------------------------------
     pha
-    SetColor #$0c
+    mva #$0c COLPF2 ; white (numbers and letters)
-    sta COLPF2 ; white (numbers and letters)
     ; set cloud 2 horizontal position
     lda clouds2Hpos
     clc
@@ -346,20 +344,16 @@ DLI3
     pha
     sta WSYNC
     mva LowCharsetBase CHBASE
-    SetColor #$f6
+    mva #$f6 COLPF3 ; light brown
-    sta COLPF3 ; light brown
     ;nop
     ;nop
     ;nop
-    SetColor #$B4
+    mva #$B4 COLBAK ; thin line
-    sta COLBAK ; thin line
     sta WSYNC
-    SetColor #$DA
+    mva #$DA COLBAK ; additional lines
-    sta COLBAK ; additional lines
     sta WSYNC
     sta WSYNC
-    SetColor #$c8
+    mva #$c8 COLBAK ; green
-    sta COLBAK ; green
     ; under horizon
     ; PMG colors, horizontal coordinates and sizes
     txa
@@ -378,19 +372,16 @@ DLI3
 DLI4
     pha
     sta WSYNC
-    SetColor #$82
+    mva #$82 COLPF2 ; hat
-    sta COLPF2 ; hat
     :4 STA WSYNC
-    SetColor #$0c
+    mva #$0c COLPF2
-    sta COLPF2
     mwa #IngameDLI1.DLI5 VDSLST
     pla
     rti
 DLI5
     pha
     sta WSYNC
-    SetColor #$ea
+    mva #$ea COLPF2 ; button and buckle
-    sta COLPF2 ; button and buckle
     mva #>font_game_upper CHBASE
     mwa #IngameDLI1.DLI6 VDSLST
     pla
@@ -400,8 +391,7 @@ DLI6
     sta WSYNC
     sta WSYNC
     sta WSYNC
-    SetColor #$94
+    mva #$94 COLPF2 ; blue pants
-    sta COLPF2 ; blue pants
     pla
     rti
 .endp
@@ -767,36 +757,22 @@ no_branch_l
 ;--------------------------------------------------
 .proc RestoreRedBar
 ;--------------------------------------------------
-    SetColor #$36
+    mva #$36 COLOR2 ; red
-    sta COLOR2 ; red
     rts
 .endp
 ;--------------------------------------------------
 .proc initialize
 ;--------------------------------------------------
-    lda #$00
+     
-    sta PAL_NTSC_colors
-    lda PAL
-    and #%00001110
-    beq not_NTSC
-    lda #$10
-    sta PAL_NTSC_colors ; color value modifier for SetColor macro
-not_NTSC
     mva #>font_game_upper CHBAS
     mva #>font_game_lower_right LowCharsetBase
-    SetColor #$00
+    mva #$00 PCOLR0 ; = $02C0 ;- - rejestr-cień COLPM0
-    sta PCOLR0 ; = $02C0 ;- - rejestr-cień COLPM0
 
-    SetColor #$00
+    mva #$00 COLOR0
-    sta COLOR0
+    mva #$88 COLBAKS ; sky
-    SetColor #$88
+    mva #$f4 COLOR1 ; dark brown
-    sta COLBAKS ; sky
+    mva #$36 COLOR2 ; red
-    SetColor #$f4
+    mva #$f6 COLOR3 ; light brown
-    sta COLOR1 ; dark brown
-    SetColor #$36
-    sta COLOR2 ; red
-    SetColor #$f6
-    sta COLOR3 ; light brown
     ;mva #$ff COLOR4
 
     ;clear P/M memory
@@ -881,10 +857,8 @@ not_NTSC
     sta SIZEP3_d
     lda #%01011111
     sta SIZEM_d
-    SetColor #$22
+    mva #$22 COLPM2_d
-    sta COLPM2_d
+    mva #$24 COLPM3_d
-    SetColor #$24
-    sta COLPM3_d
     ; Lumberjack hand
     ldx #datalinesP0-1
 @   lda P0_data,x
@@ -892,8 +866,7 @@ not_NTSC
     dex
     bpl @-
     mva #0 SIZEP0_d
-    SetColor #$2a
+    mva #$2a COLPM0_d
-    sta COLPM0_d
     ; Lumberjack face
     ldx #datalinesM0-1
 @   lda PMmemory+$180+HoffsetM0,x
@@ -908,8 +881,7 @@ not_NTSC
     sta PMmemory+$180+HoffsetM1,x
     dex
     bpl @-
-    SetColor #$2a
+    mva #$2a COLPM1_d
-    sta COLPM1_d
     ; Lumberjack both hands
     ldx #datalinesP1-1
 @   lda P1_data,x
@@ -979,8 +951,7 @@ datalinesP1=5
     jsr bird_a
     mva #0 SIZEP0_u
     sta SIZEP1_u
-    SetColor #$04
+    mva #$04 PCOLR0
-    sta PCOLR0
     sta PCOLR1
     lda #1
     sta birdsHpos
@@ -1049,8 +1020,7 @@ datalines_bird=8
     sta SIZEP3_u
     lda #%01010101
     sta SIZEM_u
-    SetColor #$0c
+    mva #$0c PCOLR2
-    sta PCOLR2
     sta PCOLR3
     lda #36
     sta clouds2Hpos
@@ -1931,12 +1901,5 @@ song_main_menu  = $00
 song_ingame     = $07
 song_game_over  = $12
 
-;-------------------------------------
-  .MACRO SetColor
-    lda :1
-    clc
-    adc PAL_NTSC_colors
-  .ENDM
-;-------------------------------------
 
     RUN main