This commit is contained in:
4am 2018-10-27 18:47:27 -04:00
parent 7fa75e7269
commit 2136ab3a62
3 changed files with 34 additions and 9 deletions

View File

@ -128,6 +128,7 @@ Seafox
Shuffleboard [priority]
The Snapper
Space Eggs [priority]
Space Quarks
Spare Change [priority]
Star Cruiser
Star Thief

View File

@ -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

View File

@ -18,6 +18,10 @@ kHGRScreenshotDirectory
!byte 1
!raw "I"
kAttractModeSlideshowDirectory
!byte 2
!raw "SS"
;------------------------------------------------------------------------------
; ResetPath
; reset gPathname to length 0