Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-08-27 21:29:36 +00:00
Code Issues Projects Releases Wiki Activity

pt3: get early-ending of patterns working

Browse Source
This commit is contained in:
Vince Weaver 2019-05-14 12:27:06 -04:00
parent d2e3f7327a
commit c4f9f1b6e3
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
pt3_player/pt3_lib.s
View File

@ -1701,7 +1701,7 @@ pt3_make_frame:
lda current_subframe
bne pattern_good
; load a new patterh in
; load a new pattern in
jsr pt3_set_pattern
lda DONE_PLAYING
@ -1718,6 +1718,19 @@ pattern_good:
; decode a new line
jsr pt3_decode_line
; check if pattern done early
lda pt3_pattern_done
bne line_good
;==========================
; pattern done early!
inc current_pattern ; increment pattern
lda #0
sta current_line
sta current_subframe
jmp pt3_make_frame
line_good:
; Increment everything
@ -1734,9 +1747,6 @@ next_line:
inc current_line ; and increment line
lda current_line
lda pt3_pattern_done ; check if pattern done early
beq next_pattern
cmp #64 ; always end at 64.
bne do_frame ; is this always needed?
@ -1746,18 +1756,8 @@ next_pattern:
inc current_pattern ; increment pattern
; lda current_pattern
; cmp pt3_music_len ; if end of song, mark it as so
; beq done_song
jmp do_frame
;done_song:
; lda #$ff
; sta DONE_PLAYING
; rts
do_frame:
; AY-3-8910 register summary
;