Apple-2-Tools/4cade
1
0
Fork 0
mirror of https://github.com/a2-4am/4cade.git synced 2024-06-01 08:41:31 +00:00
Code Issues Projects Releases Wiki Activity

Revert "match palette on each byte of initial screen in HGR slideshows"

Browse Source 
This reverts commit d12ee7028d.
This commit is contained in:
4am 2019-11-28 22:36:35 -05:00
parent d12ee7028d
commit 3cef56f731
2 changed files with 6 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
src/ui.attract.hgr.a
View File

@ -18,8 +18,6 @@
; graphics mode still displaying hi-res screen with last picture visible
;------------------------------------------------------------------------------
HGRTitleSlideshow
lda #$20
sta HGRTitleCallbackMatchPalette
jsr LoadHGRTransition ; load transition effect code at $6000
jsr okvs_iter ; cycle through all listed HGR files
!word gSlideshowStore
@ -35,8 +33,6 @@ HGRTitleSlideshow
; graphics mode still displaying hi-res screen with last picture visible
;------------------------------------------------------------------------------
HGRActionSlideshow
lda #$20
sta HGRActionCallbackMatchPalette
jsr LoadHGRTransition ; load transition effect code at $6000
jsr okvs_iter ; cycle through all listed HGR files
!word gSlideshowStore
@ -127,10 +123,6 @@ HGRTitleCallback
+ !word $FDFD ; SMC
!word $4000
HGRTitleCallbackMatchPalette
jsr MatchPalette
lda #$2C
sta HGRTitleCallbackMatchPalette
jmp ExecuteTransitionAt6000AndWait
;------------------------------------------------------------------------------
@ -170,17 +162,17 @@ HGRActionCallback
lda #22
sta VTAB
lda #0 ; solid horizontal bar character
jsr HGRActionResetLine
jsr @resetline
lda (SAVE),y ; (SAVE) -> game title, Y = 0, so A = title length
clc
adc #$03
sta gPathname
lda #7 ; top-right rounded corner character
jsr HGRActionDrawLine
jsr @drawline
inc VTAB
lda #" "
jsr HGRActionResetLine
jsr @resetline
lda (SAVE),y ; A = title length
tay
- lda (SAVE),y
@ -188,21 +180,17 @@ HGRActionCallback
dey
bne -
lda #3 ; solid vertical bar character
jsr HGRActionDrawLine
jsr @drawline
HGRActionCallbackMatchPalette
jsr MatchPalette
lda #$2C
sta HGRActionCallbackMatchPalette
jmp ExecuteTransitionAt6000AndWait
HGRActionResetLine
@resetline
ldy #40
- sta gPathname,y
dey
bne -
sty HTAB
rts
HGRActionDrawLine
@drawline
ldy gPathname
sta gPathname,y
+LDADDR gPathname

18
src/ui.common.a
View File

@ -145,21 +145,3 @@ IsUpDownOrRightArrow
beq @done
cmp #$8A ; down arrow
@done rts
MatchPalette
lda #$40
sta @a+2
lsr
sta @b+2
tax
ldy #0
@a lda $FD00,y
and #$80
@b sta $FD00,y
iny
bne @a
inc @a+2
inc @b+2
dex
bne @a
rts