From de29430b88cf7f994d78641bff785f1076ef987a Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Tue, 9 Nov 2021 01:50:57 -0500
Subject: [PATCH] logo: update some stuff

---
 demos/d2/clear_bottom.s | 12 ++++++++++++
 logo/NOTES              |  2 +-
 logo/logo_bot/sun.logo  |  9 +++++++++
 3 files changed, 22 insertions(+), 1 deletion(-)
 create mode 100644 demos/d2/clear_bottom.s
 create mode 100644 logo/logo_bot/sun.logo

diff --git a/demos/d2/clear_bottom.s b/demos/d2/clear_bottom.s
new file mode 100644
index 00000000..e18f737d
--- /dev/null
+++ b/demos/d2/clear_bottom.s
@@ -0,0 +1,12 @@
+; $650,$6d0,$750,$7d0
+clear_both_bottoms:
+	lda	#' '|$80
+	ldx	#$F7
+cbloop:
+	sta	$600,X
+	sta	$700,X
+	sta	$A00,X
+	sta	$B00,X
+	dex
+	bne	cbloop
+
diff --git a/logo/NOTES b/logo/NOTES
index e8fae131..47490eb1 100644
--- a/logo/NOTES
+++ b/logo/NOTES
@@ -142,7 +142,7 @@ $BB-$BE	-- editor help
 $BF	-- prodos
 $C0-$CF	-- I/O
 $D0-$DF	-- Logo code 
-$E0-$FF	-- ProDOS
+$E0-$FF	-- ProDOS	; empty/all zeros?
 
 Info
 $300 = max num data files *9  (usually 54)
diff --git a/logo/logo_bot/sun.logo b/logo/logo_bot/sun.logo
new file mode 100644
index 00000000..890b6f68
--- /dev/null
+++ b/logo/logo_bot/sun.logo
@@ -0,0 +1,9 @@
+{L}
+SETPC 4 SETPOS[90 80] CLEAN REPEAT 36[RT 5 FD 2 RT 5]
+REPEAT 9[RT 40 PU SETPOS[100 80] FD 25 PD BK 10]
+SETPC 5 PU HOME PD
+RT 180 FD 119 RT 90 FD 280 RT 90 FD 119
+RT 45 REPEAT 20[FD 10 RT 90 FD 10 LT 90]
+FILL BK 50
+SETPC 1 REPEAT 40[FD 1 RT 3] RT 90
+REPEAT 40[FD 1 RT 3] HT