mirror of
https://github.com/a2-4am/4cade.git
synced 2025-01-26 18:32:56 +00:00
.
This commit is contained in:
parent
7fa75e7269
commit
2136ab3a62
@ -128,6 +128,7 @@ Seafox
|
||||
Shuffleboard [priority]
|
||||
The Snapper
|
||||
Space Eggs [priority]
|
||||
Space Quarks
|
||||
Spare Change [priority]
|
||||
Star Cruiser
|
||||
Star Thief
|
||||
|
38
src/4cade.a
38
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
|
||||
|
@ -18,6 +18,10 @@ kHGRScreenshotDirectory
|
||||
!byte 1
|
||||
!raw "I"
|
||||
|
||||
kAttractModeSlideshowDirectory
|
||||
!byte 2
|
||||
!raw "SS"
|
||||
|
||||
;------------------------------------------------------------------------------
|
||||
; ResetPath
|
||||
; reset gPathname to length 0
|
||||
|
Loading…
x
Reference in New Issue
Block a user