mirror of https://github.com/a2-4am/4cade.git
This commit is contained in:
parent
eafd31134e
commit
7d004e7ea6
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
41
src/4cade.a
41
src/4cade.a
|
@ -186,31 +186,17 @@ AttractMode
|
||||||
jmp BlankHGR
|
jmp BlankHGR
|
||||||
|
|
||||||
@HGRSlideshow
|
@HGRSlideshow
|
||||||
jsr okvs_nth ; get filename of transition effect code
|
jsr LoadTransition
|
||||||
!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 okvs_iter
|
jsr okvs_iter
|
||||||
!word gSlideshowStore
|
!word gSlideshowStore
|
||||||
!word HGRLoad
|
!word HGRLoad
|
||||||
rts
|
rts
|
||||||
@fxkey !word $FDFD
|
|
||||||
|
|
||||||
HGRLoad
|
HGRLoad
|
||||||
ldx $C000
|
ldx $C000
|
||||||
bmi Exit
|
bpl +
|
||||||
|
rts
|
||||||
|
+
|
||||||
+STAY PTR
|
+STAY PTR
|
||||||
|
|
||||||
; load HGR screenshot at $4000
|
; load HGR screenshot at $4000
|
||||||
|
@ -249,6 +235,25 @@ WaitOnScreenshot
|
||||||
@burn3 jsr Exit
|
@burn3 jsr Exit
|
||||||
Exit rts
|
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
|
Reboot
|
||||||
ldx #(@end-@start-1)
|
ldx #(@end-@start-1)
|
||||||
- lda @start,x
|
- lda @start,x
|
||||||
|
|
Loading…
Reference in New Issue