From 2136ab3a623ec7152c4cd3f1f182c11119e2fe9f Mon Sep 17 00:00:00 2001
From: 4am <a2_4am@sent.com>
Date: Sat, 27 Oct 2018 18:47:27 -0400
Subject: [PATCH] .

---
 res/wishlist.txt  |  1 +
 src/4cade.a       | 38 +++++++++++++++++++++++++++++---------
 src/prodos.path.a |  4 ++++
 3 files changed, 34 insertions(+), 9 deletions(-)

diff --git a/res/wishlist.txt b/res/wishlist.txt
index 6d853f65f..3a8247ac5 100644
--- a/res/wishlist.txt
+++ b/res/wishlist.txt
@@ -128,6 +128,7 @@ Seafox
 Shuffleboard [priority]
 The Snapper
 Space Eggs [priority]
+Space Quarks
 Spare Change [priority]
 Star Cruiser
 Star Thief
diff --git a/src/4cade.a b/src/4cade.a
index a18ecf544..d32b0a8ad 100644
--- a/src/4cade.a
+++ b/src/4cade.a
@@ -64,7 +64,7 @@ Start
 
          jsr   ParseGamesList        ; parse games list
          !word gGamesListStore
-         !word @fileBuffer
+         !word ldrlo2                ; (ldrlo2) points to load address
 
          +LDAY SRC
          +STAY gAttractModeStore     ; save pointer to free space for next store
@@ -74,18 +74,38 @@ Start
 
          jsr   ParseKeyValueList     ; parse attract-mode configuration
          !word gAttractModeStore
-         !word @fileBuffer
+         !word ldrlo2                ; (ldrlo2) points to load address
 
-         lda   #$00
--        beq   -
+         +LDAY SRC
+         +STAY gSlideshowStore       ; save pointer to free space for next store
 
-@fileBuffer
-         !word $4000
+         jsr   AttractMode
 
-         jsr   okvs_iter_values
-         !word gGamesListStore
+         jmp   $FAA6
+
+AttractMode
+         jsr   okvs_nth              ; get filename of next attract module
+         !word gAttractModeStore
+         !byte 0
+         +STAY PTR
+         jsr   ResetPath
+         +LDADDR kAttractModeSlideshowDirectory
+         jsr   AddToPath
+         +LDADDR kPathSeparator
+         jsr   AddToPath
+         +LDAY PTR
+         jsr   AddToPath
+         jsr   LoadFile              ; load attract module configuration file
+         !word gPathname
+
+         jsr   ParseKeyValueList     ; parse slideshow configuration
+         !word gSlideshowStore
+         !word ldrlo2                ; (ldrlo2) points to load address
+
+         jsr   okvs_iter
+         !word gSlideshowStore
          !word HGRLoad
-         brk
+         rts
 
 HGRLoad
          ldx   $C000
diff --git a/src/prodos.path.a b/src/prodos.path.a
index d568ba516..57f933cc9 100644
--- a/src/prodos.path.a
+++ b/src/prodos.path.a
@@ -18,6 +18,10 @@ kHGRScreenshotDirectory
          !byte 1
          !raw  "I"
 
+kAttractModeSlideshowDirectory
+         !byte 2
+         !raw  "SS"
+
 ;------------------------------------------------------------------------------
 ; ResetPath
 ; reset gPathname to length 0