Add colors to the tree.

src/main.asm

@@ -53,6 +53,7 @@ coldstart SUBROUTINE
     lda #>($1001 + demo_end - demo_start)
     sta $2e
 
+    lda #$02
     jsr clear_color_ram
 
     ; print informative message for user
@@ -91,8 +92,8 @@ fake_chrin SUBROUTINE
     rts
 
 
+; Put color in A
 clear_color_ram SUBROUTINE
-    lda #$02
     ldx #$00
 .loop:
     sta $9600,x
@@ -183,6 +184,7 @@ loading_feedback SUBROUTINE
 
 ; draws a Christmas tree shamelessly copied from another demo
 copytree SUBROUTINE
+    ; all this is just a memcpy
     lda #<tree_start
     sta srcPointer
     lda #>tree_start
@@ -215,6 +217,38 @@ copytree SUBROUTINE
     cmp #>tree_end
     bne .loop
 
+    ; colors
+    lda #$08
+    sta $900f
+
+    lda #$05
+    jsr clear_color_ram
+
+    ; balls
+    lda #$02
+    sta $96a3
+    sta $96a6
+    lda #$06
+    sta $96ce
+    sta $96d3
+    lda #$04
+    sta $96f9
+    sta $9700
+    lda #$03
+    sta $9724
+    sta $972d
+
+    ; ì puntale di' monni
+    ; (can't translate)
+    lda #$07
+    sta $9678
+    sta $9679
+
+    ; gambo
+    lda #$02
+    sta $973e
+    sta $973f
+
     rts