Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-06-09 07:29:32 +00:00
Code Issues Projects Releases Wiki Activity

chiptune: have elapsed time working

Browse Source 
overflows at 9:59 though
This commit is contained in:
Vince Weaver 2018-02-19 00:21:56 -05:00
parent 8f1b7fa00f
commit 5c6e8e7a51
3 changed files with 35 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
chiptune_player/chiptune_player.dsk
View File

Binary file not shown.

36
chiptune_player/chiptune_player.s
View File

@ -202,6 +202,40 @@ interrupt_handler:
bit $C404 ; can clear 6522 interrupt by reading T1C-L
inc FRAME_COUNT
lda FRAME_COUNT
cmp #50
bne frame_good
lda #$0
sta FRAME_COUNT
update_second_ones:
inc $7d0+18
inc $bd0+18
lda $bd0+18
cmp #$ba ; one past '9'
bne frame_good
lda #'0'+$80
sta $7d0+18
sta $bd0+18
update_second_tens:
inc $7d0+17
inc $bd0+17
lda $bd0+17
cmp #$b6 ; 6
bne frame_good
lda #'0'+$80
sta $7d0+17
sta $bd0+17
update_minutes:
inc $7d0+15
inc $bd0+15
; we don't handle > 9:59 songs yet
frame_good:
ldy MB_FRAME_DIFF
ldx #0
@ -514,7 +548,7 @@ new_song:
lda #$0
sta MB_CHUNK
sta FRAME_COUNT
;=========================
; Print Title/Author info

1
chiptune_player/zp.inc
View File

@ -67,7 +67,6 @@ C_VOLUME EQU $82
A_COLOR EQU $83
B_COLOR EQU $84
C_COLOR EQU $85
;NUM2L EQU $80
;NUM2H EQU $81
;RESULT EQU $82 ; 83,84,85