mirror of
https://github.com/a2-4am/4cade.git
synced 2024-12-23 16:29:34 +00:00
fix mini-attract mode
This commit is contained in:
parent
c4d3ab26c6
commit
8e8cb0223b
@ -70,27 +70,30 @@ MegaAttractMode
|
||||
MiniAttractMode
|
||||
jsr GetGameToLaunch
|
||||
+ST16 +
|
||||
jsr LoadFile
|
||||
!word kRootDirectory
|
||||
!word kMiniAttractIndexFile
|
||||
- !word $6000
|
||||
jsr okvs_find
|
||||
!word -
|
||||
+ !word $FDFD ; SMC
|
||||
jsr okvs_get_current
|
||||
sty $1FFB
|
||||
ldy #4
|
||||
- lda (PTR), y
|
||||
sta $1FFC, y
|
||||
dey
|
||||
bpl -
|
||||
|
||||
jsr BlankHGR
|
||||
; X = 0
|
||||
stx @MiniAttractIndex+1
|
||||
stx @MiniAttractIndex+3
|
||||
@loop
|
||||
jsr LoadFile ; load mini attract mode configuration file into $6000
|
||||
!word kRootDirectory
|
||||
!word kMiniAttractIndexFile
|
||||
- !word $6000
|
||||
|
||||
jsr okvs_find
|
||||
!word -
|
||||
+ !word $FDFD ; SMC
|
||||
+ST16 @indexRecordPtr
|
||||
|
||||
jsr LoadIndexedFile
|
||||
!word kAttractModeFulFile
|
||||
- !word $6000
|
||||
@indexRecordPtr
|
||||
!word $FDFD ; SMC
|
||||
!word $1FFB
|
||||
|
||||
+LDADDR -
|
||||
jsr okvs_len
|
||||
|
Loading…
Reference in New Issue
Block a user