diff --git a/res/attic/sneakers/sneakers#060800 b/res/attic/sneakers/sneakers#060800 new file mode 100755 index 000000000..2a543095d Binary files /dev/null and b/res/attic/sneakers/sneakers#060800 differ diff --git a/res/attic/sneakers/sneakers.1#060800 b/res/attic/sneakers/sneakers.1#060800 new file mode 100755 index 000000000..89771d714 Binary files /dev/null and b/res/attic/sneakers/sneakers.1#060800 differ diff --git a/res/attic/wavynavy-prodos-uncompressed/wavy.navy#060800 b/res/attic/wavynavy-prodos-uncompressed/wavy.navy#060800 new file mode 100755 index 000000000..78c2ebb33 Binary files /dev/null and b/res/attic/wavynavy-prodos-uncompressed/wavy.navy#060800 differ diff --git a/res/attic/wavynavy-prodos-uncompressed/wavy.navy.1#060000 b/res/attic/wavynavy-prodos-uncompressed/wavy.navy.1#060000 new file mode 100755 index 000000000..16fcd83cf Binary files /dev/null and b/res/attic/wavynavy-prodos-uncompressed/wavy.navy.1#060000 differ diff --git a/src/4cade.a b/src/4cade.a index 57677c443..a767a2b6f 100644 --- a/src/4cade.a +++ b/src/4cade.a @@ -186,31 +186,17 @@ AttractMode jmp BlankHGR @HGRSlideshow - jsr okvs_nth ; get filename of transition effect code - !word gFXStore -@fxindex !byte 0 - +STAY @fxkey - - inc @fxindex ; increment transition effect index for next time - jsr okvs_len - !word gFXStore - cmp @fxindex - bne + - lda #0 - sta @fxindex -+ - ; load transition effect code at $6000 - +LOAD_FILE kFXDirectory, @fxkey - + jsr LoadTransition jsr okvs_iter !word gSlideshowStore !word HGRLoad rts -@fxkey !word $FDFD HGRLoad ldx $C000 - bmi Exit + bpl + + rts ++ +STAY PTR ; load HGR screenshot at $4000 @@ -249,6 +235,25 @@ WaitOnScreenshot @burn3 jsr Exit Exit rts +LoadTransition + jsr okvs_nth ; get filename of transition effect code + !word gFXStore +@fxindex !byte 0 + +STAY @fxkey + + inc @fxindex ; increment transition effect index for next time + jsr okvs_len + !word gFXStore + cmp @fxindex + bne + + lda #0 + sta @fxindex ++ + ; load transition effect code at $6000 + +LOAD_FILE kFXDirectory, @fxkey + rts +@fxkey !word $FDFD + Reboot ldx #(@end-@start-1) - lda @start,x