Apple-2-Tools/4cade
1
0
Fork 0
mirror of https://github.com/a2-4am/4cade.git synced 2024-11-27 08:50:01 +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
@DHGRSlideshow
bit MachineStatus
bvc @exit
jsr LoadDHGRTransition ; load transition effect code at $6000
jsr BlankDHGR ; switch to DHGR mode with initial blank screen
jsr okvs_iter ; cycle through all listed DHGR files
@ -101,7 +103,7 @@ AttractMode
jsr okvs_iter ; cycle through all listed HGR files
!word gSlideshowStore
!word HGRLoad ; address of callback (called on each file)
rts
@exit rts
;------------------------------------------------------------------------------
; internal functions