mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-10-25 14:26:11 +00:00
chiptune: move visualization to the interrupt handler
a bit of a cheat. Locks the update to 50Hz
This commit is contained in:
parent
a35ddcc705
commit
f6e6bad974
@ -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:
|
||||||
|
|
||||||
|
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user