From 78955cb3856cfc0115c7e2f2813132cc46c4fd23 Mon Sep 17 00:00:00 2001
From: "B. Watson" <yalhcru@gmail.com>
Date: Sun, 3 Jan 2016 22:31:31 -0500
Subject: choose pallette on title screen (atari logo key)

---
 newtitle.s | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

(limited to 'newtitle.s')

diff --git a/newtitle.s b/newtitle.s
index f52ac57..9eef9ed 100644
--- a/newtitle.s
+++ b/newtitle.s
@@ -19,6 +19,11 @@ screendata = $9000
 version:
  .incbin "ver.dat"
 
+colorchoices:
+ .byte $c0,$10,$00
+
+colorcount = (*-colorchoices)-1
+
  ; executable code here
 start:
  ; setup color registers
@@ -52,12 +57,26 @@ start:
  lda #$ff
  sta CH
 
+ ldx #0 ; X = index into color choices
+
  ; wait for user to press a key
 wait4key:
+ lda colorchoices,x
+ sta COLOR2
  lda CH
  cmp #$ff
  beq wait4key
+ cmp #39 ; atari logo key
+ bne keyok
+ dex
+ bpl x_ok
+ ldx #colorcount
+x_ok:
+ lda #$ff
+ sta CH
+ bne wait4key
 
+keyok:
  ; eat the keypress
  lda #$ff
  sta CH
-- 
cgit v1.2.3