Apple-2-Tools/4cade
1
0
Fork 0
mirror of https://github.com/a2-4am/4cade.git synced 2025-02-18 14:30:52 +00:00
Code Issues Projects Releases Wiki Activity

don't run DHGR slideshow on 64K machine

Browse Source
This commit is contained in:
4am 2018-11-16 22:41:38 -05:00
parent 34344951f8
commit f8ab1fd606
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ui.attract.mode.a
View File

@ -89,6 +89,8 @@ AttractMode
beq @HGRSlideshow beq @HGRSlideshow
@DHGRSlideshow @DHGRSlideshow
bit MachineStatus
bvc @exit
jsr LoadDHGRTransition ; load transition effect code at $6000 jsr LoadDHGRTransition ; load transition effect code at $6000
jsr BlankDHGR ; switch to DHGR mode with initial blank screen jsr BlankDHGR ; switch to DHGR mode with initial blank screen
jsr okvs_iter ; cycle through all listed DHGR files jsr okvs_iter ; cycle through all listed DHGR files
@ -101,7 +103,7 @@ AttractMode
jsr okvs_iter ; cycle through all listed HGR files jsr okvs_iter ; cycle through all listed HGR files
!word gSlideshowStore !word gSlideshowStore
!word HGRLoad ; address of callback (called on each file) !word HGRLoad ; address of callback (called on each file)
rts @exit rts
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
; internal functions ; internal functions