mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-10 08:54:51 +00:00
ds: almost there with end music
This commit is contained in:
parent
a8e02ec815
commit
6a91f59270
@ -16,7 +16,7 @@ credits:
|
|||||||
sta FRAME_PLAY_PAGE
|
sta FRAME_PLAY_PAGE
|
||||||
jsr update_pt3_play
|
jsr update_pt3_play
|
||||||
|
|
||||||
jsr pt3_write_lc_4
|
jsr pt3_write_lc_5
|
||||||
|
|
||||||
lda #<credits_text
|
lda #<credits_text
|
||||||
sta CREDITS_POINTERL
|
sta CREDITS_POINTERL
|
||||||
@ -169,15 +169,24 @@ credits_loop:
|
|||||||
; -10 -- keypress
|
; -10 -- keypress
|
||||||
; -12 -- call/return of draw code
|
; -12 -- call/return of draw code
|
||||||
; -446 -- do_words
|
; -446 -- do_words
|
||||||
;-1243 -- play music
|
;-1246 -- play music
|
||||||
; -8 -- wrap
|
; -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
|
lda FRAME_PLAY_PAGE ; 3
|
||||||
and #$3 ; 2
|
cmp #$5 ; 2
|
||||||
sta FRAME_PLAY_PAGE ; 3
|
beq play_fake ; 3
|
||||||
|
; -1
|
||||||
|
play_actual:
|
||||||
jsr play_frame_compressed ; 6+1237
|
jsr play_frame_compressed ; 6+1237
|
||||||
|
jmp pad_time ; 3
|
||||||
|
play_fake:
|
||||||
|
jsr fake_music_play ; 3+6+1236
|
||||||
|
|
||||||
|
|
||||||
pad_time:
|
pad_time:
|
||||||
@ -358,13 +367,14 @@ pad_time:
|
|||||||
; WAIT for VBLANK to finish
|
; 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
|
ldy #3 ; 2
|
||||||
tloop1: ldx #2 ; 2
|
tloop1: ldx #102 ; 2
|
||||||
tloop2: dex ; 2
|
tloop2: dex ; 2
|
||||||
bne tloop2 ; 2nt/3
|
bne tloop2 ; 2nt/3
|
||||||
dey ; 2
|
dey ; 2
|
||||||
@ -608,3 +618,24 @@ credits_text:
|
|||||||
credits_text_end:
|
credits_text_end:
|
||||||
|
|
||||||
.assert >credits_text = >(credits_text_end-1), error, "credits_text crosses page"
|
.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
|
||||||
|
@ -1580,18 +1580,16 @@ escape_keys:
|
|||||||
.byte 'A',25 ; slower
|
.byte 'A',25 ; slower
|
||||||
.byte 'A',25 ; stop
|
.byte 'A',25 ; stop
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
.byte 'A',5 ; down
|
.byte 'A',5 ; down
|
||||||
.byte 'A',10 ; faster
|
.byte 'A',10 ; faster
|
||||||
.byte 'A',40 ; faster
|
.byte 'A',40 ; faster
|
||||||
.byte 'Z',25 ; slower
|
.byte 'Z',25 ; slower
|
||||||
.byte 'Z',25 ; stop
|
.byte 'Z',25 ; stop
|
||||||
.byte ' '+$80,30 ; shoot
|
.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',10 ; faster
|
||||||
.byte 'A',40 ; faster
|
|
||||||
|
|
||||||
.byte 27+$80,2
|
.byte 27+$80,2
|
||||||
|
|
||||||
|
@ -20,6 +20,25 @@ lc4_frame_decode_loop:
|
|||||||
|
|
||||||
rts
|
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
|
; write one page of frame data
|
||||||
pt3_write_lc_1:
|
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 $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 $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 $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:
|
music_table_end:
|
||||||
|
|
||||||
.assert >music_table_begin = >music_table_end, error, "music_table crosses page"
|
.assert >music_table_begin = >music_table_end, error, "music_table crosses page"
|
||||||
|
Loading…
Reference in New Issue
Block a user