From 6314a6461ff025a5948c205b649c8e1b82403e15 Mon Sep 17 00:00:00 2001
From: Peter Ferrie <peter.ferrie@gmail.com>
Date: Fri, 28 Jun 2024 12:05:18 -0700
Subject: [PATCH] add Tharolian Tunnels demo

---
 res/ATTRACT/TU             |  1 +
 src/demo/tharolian.tunls.a | 53 ++++++++++++++++++++++++++++++++++++++
 2 files changed, 54 insertions(+)
 create mode 100644 src/demo/tharolian.tunls.a

diff --git a/res/ATTRACT/TU b/res/ATTRACT/TU
index 4675ae887..32930b4d7 100644
--- a/res/ATTRACT/TU
+++ b/res/ATTRACT/TU
@@ -4,3 +4,4 @@
 #
 
 TU=A
+TU=0
diff --git a/src/demo/tharolian.tunls.a b/src/demo/tharolian.tunls.a
new file mode 100644
index 000000000..20f52aaa8
--- /dev/null
+++ b/src/demo/tharolian.tunls.a
@@ -0,0 +1,53 @@
+;license:MIT
+;(c) 2024 by qkumba
+
+!cpu 6502
+!to "build/DEMO/TU#06BE00",plain
+*=$be00
+
+         !source "src/constants.a"   ; no code in these
+         !source "src/macros.a"
+
+         +GAME_REQUIRES_JOYSTICK
+
+         +READ_RAM2_WRITE_RAM2
+         jsr   EnableAccelerator
+         +LOAD_FILE_KEEP_DIR tharolian_tunnels, tharolian_tunnels_dir_e-tharolian_tunnels_dir_b
+         +READ_ROM_NO_WRITE
+
+         dec   $60B3
+         lda   #0
+         sta   $6122      ; silence
+         lda   #$60
+         sta   $60A4
+         sta   $611D
+         jsr   $6000      ; decompress
+         lda   #$60
+         sta   $95D7
+         jsr   $95B0      ; level select
+         ldx   #$4C
+         stx   $AA9
+         stx   $95D7
+         ldy   #1
+         sty   $AAB
+         sta   $AC3
+         stx   $7FC5
+         sty   $7FC7
+         stx   $8E64
+         sty   $8E66
+         sty   $95D9
+         +DISABLE_ACCEL
+         jmp   $A00
+
+tharolian_tunnels
+         !byte tharolian_tunnels_e-tharolian_tunnels_b
+tharolian_tunnels_b
+tharolian_tunnels_dir_b
+         !text "X"
+tharolian_tunnels_dir_e
+         !text "/TU"
+tharolian_tunnels_e
+
+!if * > $BEFF {
+  !error "code is too large, ends at ", *
+}