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

chiptune: move visualization to the interrupt handler

Browse Source 
a bit of a cheat.  Locks the update to 50Hz
This commit is contained in:
Vince Weaver 2018-02-25 13:32:06 -05:00
parent a35ddcc705
commit f6e6bad974
2 changed files with 31 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
chiptune_player/chiptune_player.s
View File

@ -98,19 +98,19 @@ mockingboard_found:
; Draw title screen ; Draw title screen
;============================ ;============================
jsr set_gr_page0 jsr set_gr_page0 ; set page 0
lda #$4 lda #$4 ; draw page 1
sta DRAW_PAGE sta DRAW_PAGE
jsr clear_screens jsr clear_screens ; clear both screens
lda #<chip_title lda #<chip_title ; point to title data
sta GBASL sta GBASL
lda #>chip_title lda #>chip_title
sta GBASH sta GBASH
; Load image ; Load image ; load the image
lda #<$400 lda #<$400
sta BASL sta BASL
lda #>$400 lda #>$400
@ -118,9 +118,9 @@ mockingboard_found:
jsr load_rle_gr jsr load_rle_gr
;=========================== ;==================
; load first song ; load first song
;=========================== ;==================
jsr new_song jsr new_song
@ -141,7 +141,6 @@ mockingboard_found:
;============================ ;============================
; Init Background ; Init Background
;============================ ;============================
; jsr clear_screens ; clear top/bottom of page 0/1
jsr set_gr_page0 jsr set_gr_page0
lda #0 lda #0
@ -151,23 +150,24 @@ mockingboard_found:
;============================ ;============================
; Loop forever ; Loop forever
;============================ ;============================
playing_loop: main_loop:
;============================ ;============================
; rasters ; rasters
;============================ ;============================
jsr clear_top ; jsr clear_top
jsr draw_rasters ; jsr draw_rasters
jsr volume_bars ; jsr volume_bars
; jsr page_flip
jsr page_flip
lda DONE_PLAYING lda DONE_PLAYING
beq playing_loop beq main_loop
done_play: done_play:

17
chiptune_player/interrupt_handler.s
View File

@ -250,6 +250,23 @@ update_r0_pointer:
;================================= ;=================================
done_interrupt: done_interrupt:
;=================================
; Moved visualization here as a hack
;=================================
;============================
; Visualization
;============================
jsr clear_top
jsr draw_rasters
jsr volume_bars
jsr page_flip
pla ; restore a ; 4 pla ; restore a ; 4
rti ; return from interrupt ; 6 rti ; return from interrupt ; 6