From 3c6b432cfd45a04cc5c2a651265e484ea0bd2e9c Mon Sep 17 00:00:00 2001
From: Peter Ferrie <peter.ferrie@gmail.com>
Date: Thu, 27 Jun 2024 16:26:03 -0700
Subject: [PATCH] add Pollywog demo

---
 res/ATTRACT/POLLYWOG |  1 +
 src/demo/pollywog.a  | 34 ++++++++++++++++++++++++++++++++++
 2 files changed, 35 insertions(+)
 create mode 100644 src/demo/pollywog.a

diff --git a/res/ATTRACT/POLLYWOG b/res/ATTRACT/POLLYWOG
index eee174ef7..06a36ca38 100644
--- a/res/ATTRACT/POLLYWOG
+++ b/res/ATTRACT/POLLYWOG
@@ -5,3 +5,4 @@
 
 POLLYWOG=C
 POLLYWOG=D
+POLLYWOG=0
diff --git a/src/demo/pollywog.a b/src/demo/pollywog.a
new file mode 100644
index 000000000..14231e825
--- /dev/null
+++ b/src/demo/pollywog.a
@@ -0,0 +1,34 @@
+;license:MIT
+;(c) 2024 by qkumba
+
+!cpu 6502
+!to "build/DEMO/POLLYWOG#060300",plain
+*=$300
+
+         !source "src/constants.a"   ; no code in these
+         !source "src/macros.a"
+
+         +ENABLE_ACCEL_LC
+         +LOAD_XSINGLE title
+
+         +USES_TEXT_PAGE_2
+         +ENABLE_ACCEL
+         lda   #$60
+         sta   $5A0D
+         jsr   $800       ; decompress
+         jsr   $BE06
+         ldx   #4
+-        lda   patch,x
+         sta   $7981,x
+         dex
+         bpl   -
+         +DISABLE_ACCEL
+         jmp   $792E
+
+patch    !byte $83, $79, $4c, 0, 1
+
+title    +PSTRING "POLLYWOG"
+
+!if * > $3F0 {
+  !error "code is too large, ends at ", *
+}