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

interlace: move some code around

Browse Source
This commit is contained in:
Vince Weaver 2019-09-16 00:11:09 -04:00
parent edb5717507
commit 83b46be19d
1 changed files with 31 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
interlace_demo/pt3_lib_make_frame.s
View File

@ -5,13 +5,6 @@
;=====================================
; Set Pattern
;=====================================
; FIXME: inline this? we do call it from outside
; in the player note length code
is_done:
; done with song, set it to non-zero
sta DONE_SONG ; 3
rts ; 6
pt3_set_pattern:
@ -22,7 +15,12 @@ current_pattern_smc:
; if value is $FF we are at the end of the song
cmp #$ff ; 2
beq is_done ; 2/3
bne not_done ; 3
is_done:
; done with song, set it to non-zero
sta DONE_SONG ; 3
rts ; 6
;============
; 20 if end
@ -81,18 +79,6 @@ not_done:
rts ; 6
;=====================================
; pt3 make frame
;=====================================
; update pattern or line if necessary
; then calculate the values for the next frame
; 8+373=381
;==========================
; pattern done early!
@ -122,22 +108,41 @@ set_pattern:
;==========================================
; real entry point
;=====================================
;=====================================
;=====================================
; pt3 make frame
;=====================================
;=====================================
;=====================================
; update pattern or line if necessary
; then calculate the values for the next frame
; 8+373=381
; Paths
;
; current_line=0
; current_line=1
pt3_make_frame:
; see if we need a new pattern
; we do if line==0 and subframe==0
; allow fallthrough where possible
current_line_smc:
lda #$d1 ; 2
beq check_subframe ; 2/3
beq check_subframe ; 3
; -1
pattern_good:
; see if we need a new line
current_subframe_smc:
lda #$d1 ; 2
bne line_good ; 2/3
pt3_new_line:
@ -182,4 +187,5 @@ next_pattern:
;==============================================
; falls through to do_frame