Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-07-13 22:29:14 +00:00
Code Issues Projects Releases Wiki Activity

ds: almost there with end music

Browse Source
This commit is contained in:
Vince Weaver 2019-11-08 20:27:24 -05:00
parent a8e02ec815
commit 6a91f59270
3 changed files with 65 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
demosplash/credits.s
View File

@ -16,7 +16,7 @@ credits:
sta FRAME_PLAY_PAGE
jsr update_pt3_play
jsr pt3_write_lc_4
jsr pt3_write_lc_5
lda #<credits_text
sta CREDITS_POINTERL
@ -169,15 +169,24 @@ credits_loop:
; -10 -- keypress
; -12 -- call/return of draw code
; -446 -- do_words
;-1243 -- play music
; -8 -- wrap
;-1246 -- play music
; -7 -- wrap
;=======
; 1553 //2804
; 1551 //2804
; 3+2+2+6+1237 play music
; 3+2+3+6+1237 play fake (-1)
lda FRAME_PLAY_PAGE ; 3
and #$3 ; 2
sta FRAME_PLAY_PAGE ; 3
cmp #$5 ; 2
beq play_fake ; 3
; -1
play_actual:
jsr play_frame_compressed ; 6+1237
jmp pad_time ; 3
play_fake:
jsr fake_music_play ; 3+6+1236
pad_time:
@ -358,13 +367,14 @@ pad_time:
; WAIT for VBLANK to finish
;============================
; want 1553
; want 1551
; Try X=2 Y=97 cycles=1553
; Try X=102 Y=3 cycles=1549R2
nop
ldy #97 ; 2
tloop1: ldx #2 ; 2
ldy #3 ; 2
tloop1: ldx #102 ; 2
tloop2: dex ; 2
bne tloop2 ; 2nt/3
dey ; 2
@ -608,3 +618,24 @@ credits_text:
credits_text_end:
.assert >credits_text = >(credits_text_end-1), error, "credits_text crosses page"
fake_music_play:
; 1237-6 = 1231-1 - 3 = 1227
; Try X=60 Y=4 cycles=1225R2
; jsr clear_ay_both
nop
ldy #4 ; 2
uloop1: ldx #60 ; 2
uloop2: dex ; 2
bne uloop2 ; 2nt/3
dey ; 2
bne uloop1 ; 2nt/3
rts

8
demosplash/escape.s
View File

@ -1580,18 +1580,16 @@ escape_keys:
.byte 'A',25 ; slower
.byte 'A',25 ; stop
.byte 'A',5 ; down
.byte 'A',10 ; faster
.byte 'A',40 ; faster
.byte 'Z',25 ; slower
.byte 'Z',25 ; stop
.byte ' '+$80,30 ; shoot
.byte 'A',5 ; down
.byte 'Z',5 ; down
.byte 'Z',10 ; faster
.byte 'A',30 ; faster
.byte 'A',10 ; faster
.byte 'A',40 ; faster
.byte 27+$80,2

22
demosplash/pt3_lib_write_lc.s
View File

@ -20,6 +20,25 @@ lc4_frame_decode_loop:
rts
pt3_write_lc_5:
; page offset
lda #0
sta FRAME_PAGE
lc5_frame_decode_loop:
jsr pt3_set_pages
jsr pt3_write_lc
lda FRAME_PAGE
cmp #5
bne lc5_frame_decode_loop
rts
;==============================
; write one page of frame data
pt3_write_lc_1:
@ -114,7 +133,8 @@ music_addr_table:
.byte $e6,$e7,$e8,$e9,$ea,$eb,$ec,$ed,$ee,$ef,$f0,$BB,$CC,$DD,$EE,$FF
.byte $db,$dc,$dd,$de,$df,$e0,$e1,$e2,$e3,$e4,$e5,$BB,$CC,$DD,$EE,$FF
.byte $d0,$d1,$d2,$d3,$d4,$d5,$d6,$d7,$d8,$d9,$da,$BB,$CC,$DD,$EE,$FF
.byte $d0,$d1,$d2,$d3,$d4,$d5,$d6,$d7,$d8,$d9,$da,$BB,$CC,$DD,$EE,$FF
;.byte $d0,$d1,$d2,$d3,$d4,$d5,$d6,$d7,$d8,$d9,$da,$BB,$CC,$DD,$EE,$FF
.byte $14,$15,$16,$17,$18,$19,$1A,$1B,$1C,$1D,$1E,$BB,$CC,$DD,$EE,$FF
music_table_end:
.assert >music_table_begin = >music_table_end, error, "music_table crosses page"