Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-10-24 23:25:28 +00:00
Code Issues Projects Releases Wiki Activity

pt3: optimize pt3_player

Browse Source
This commit is contained in:
Peter Ferrie 2019-06-01 22:32:31 -04:00 committed by Vince Weaver
parent 907026d20b
commit 6d672ed094
1 changed files with 16 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
pt3_player/pt3_player.s
View File

@ -171,11 +171,11 @@ main_loop:
jsr page_flip jsr page_flip
check_done: check_done:
lda #$ff lda DONE_PLAYING
bit DONE_PLAYING asl ; bit 7 to carry, bit 6 to bit 7
beq main_loop ; if was all zeros, loop beq main_loop ; if was all zeros, loop
bmi main_loop ; if high bit set, paused bcs main_loop ; if high bit set, paused
bvs minus_song ; if bit 6 set, then left pressed bmi minus_song ; if bit 6 set, then left pressed
; else, either song finished or ; else, either song finished or
; right pressed ; right pressed
@ -266,8 +266,8 @@ new_song:
lda #8 ; print filename to screen lda #8 ; print filename to screen
sta CH sta CH
lda #21 ;lda #21
sta CV ;sta CV
lda INL lda INL
sta OUTL sta OUTL
@ -326,8 +326,6 @@ upcase:
beq no_uppercase beq no_uppercase
ldy #$1e ldy #$1e
;;lda #>(PT3_LOC+$1E) ; point to header title
sta OUTH
upcase_loop: upcase_loop:
lda PT3_LOC,Y lda PT3_LOC,Y
@ -343,6 +341,8 @@ not_lowercase:
no_uppercase: no_uppercase:
; print title ; print title
lda #>(PT3_LOC+$1E) ; point to header title
sta OUTH
lda #<(PT3_LOC+$1E) lda #<(PT3_LOC+$1E)
sta OUTL sta OUTL
@ -421,17 +421,15 @@ no_uppercase:
; update the MHz indicator with current state ; update the MHz indicator with current state
ldx #'0'+$80
lda convert_177 lda convert_177
beq set_1MHz beq done_MHz
lda #'7'+$80 ldx #'7'+$80
bne done_MHz ; branch always
set_1MHz:
lda #'0'+$80
done_MHz: done_MHz:
sta $7F4 stx $7F4
sta $BF4 stx $BF4
; Print Left Arrow (INVERSE) ; Print Left Arrow (INVERSE)
lda #'<' lda #'<'
@ -501,10 +499,9 @@ fc_pattern_good:
bne fc_line_good bne fc_line_good
inc current_pattern ; increment pattern inc current_pattern ; increment pattern
lda #0
sta current_line sta current_line
sta current_subframe sta current_subframe
beq frame_count_loop ; branch always bne frame_count_loop ; branch always
fc_line_good: fc_line_good:
inc current_subframe ; subframe++ inc current_subframe ; subframe++
@ -638,8 +635,8 @@ skip_inh_inc:
increment_file: increment_file:
inc WHICH_FILE inc WHICH_FILE
lda WHICH_FILE lda WHICH_FILE
cmp #NUM_FILES eor #NUM_FILES
eor done_increment bne done_increment
sta WHICH_FILE sta WHICH_FILE
done_increment: done_increment:
rts rts