From c245c5848a973cdea31df7969c37c134e99fef41 Mon Sep 17 00:00:00 2001
From: Samuel Walker <swalker@piwalker.net>
Date: Fri, 21 Mar 2025 11:58:49 -0600
Subject: [PATCH] output double-dabble result to screen

---
 CHR-ROM.bin | Bin 8192 -> 8192 bytes
 main.s      |  79 ++++++++++++++++++++++++++++++++++++++++++++++++----
 2 files changed, 74 insertions(+), 5 deletions(-)

diff --git a/CHR-ROM.bin b/CHR-ROM.bin
index e3821f2eaf2c11b57fef29f987f22eeccd898350..9feb3d1c8596973d804234736845880cee44fb0e 100644
GIT binary patch
literal 8192
zcmeIu!3_W*2t-k`2g)+WN<2}<)V{8XqFclFB#c7x%znq`$)@D4uGN^OYu6SL<Atx>
zq~7&pF4d}*bt(4(jj$c_q&e`I_if1kJK%x<0tg_000IagfB*srAb<b@2q1s}0tg_0
S00IagfB*srAb<b@OW*~VP!(4I

delta 42
wcmZp0XmF7Gz+j`IqGH4Ffq_9nLV|&T!N5jF21xy|(^E3C+qltRe&T`20M$GS`2YX_

diff --git a/main.s b/main.s
index a87163b..39ba642 100644
--- a/main.s
+++ b/main.s
@@ -17,7 +17,7 @@
 .segment "CODE"
 
 bg_pallets:
-    .byte 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15
+    .byte $0F, $30, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15
 
 check:
     cmp #5
@@ -28,7 +28,37 @@ skip:
     rts
 
 reset:
+    sei
+    cld
+    ldx #$40
+    stx $4017
+    ldx #$ff
+    txs
+    inx
+    stx $2000
+    stx $2001
+    stx $4010
+vblankwait1:
+    bit $2002
+    bpl vblankwait1
+clear_memory:
+    lda #$00
+    sta $0000, x
+    sta $0100, x
+    sta $0200, x
+    sta $0300, x
+    sta $0400, x
+    sta $0500, x
+    sta $0600, x
+    sta $0700, x
+    inx
+    bne clear_memory
     ldx #0
+vblankwait2:
+    bit $2002
+    bpl vblankwait2
+main:
+    lda $2002
     lda #$3F
     sta $2006
     lda #$00
@@ -37,13 +67,14 @@ loop:
     lda bg_pallets, x
     sta $2007
     inx
-    cpx #16
+    cpx #2
     bne loop
-    lda #173
+    lda #54
     sta $00
     lda #0
     sta $01
     sta $02
+    ldx #8
 dabble:
     ; check first digit
     lda $01
@@ -86,9 +117,47 @@ dabble:
     rol $01
     rol $02
     lda $00
-    cmp #0
+    dex
     bne dabble
-    rts
+
+    lda $2002
+    lda #$20
+    sta $2006
+    lda #$20
+    sta $2006
+    lda $02
+    and #$F
+    cmp #0
+    bne :+
+    lda #10
+:   sta $2007
+    lda $01
+    and #$F0
+    lsr
+    lsr
+    lsr
+    lsr
+    cmp #0
+    bne :+
+    lda #10
+:   sta $2007
+    lda $01
+    and #$F
+    cmp #0
+    bne :+
+    lda #10
+:   sta $2007
+    
+    lda #%10000000
+    sta $2000
+    lda #%00001010
+    sta $2001
+    lda $2002
+    lda #0
+    sta $2005
+    sta $2005
+forever:
+    jmp forever
 
 nmi:
     rti
\ No newline at end of file