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

chiptune: closer to borders on volume bars

Browse Source
This commit is contained in:
Vince Weaver 2018-02-18 12:54:59 -05:00
parent c69961539f
commit d628399b4f
2 changed files with 76 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

70
chiptune_player/chiptune_player.s
View File

@ -280,9 +280,32 @@ volume_bars:
jsr hlin_double
; middle
lda #8
middle_loop:
pha
cmp #8
beq middle_black
cmp #26
beq middle_black
ldx #COLOR_BOTH_RED
stx A_COLOR
ldx #COLOR_BOTH_DARKBLUE
stx B_COLOR
ldx #COLOR_BOTH_DARKGREEN
stx C_COLOR
jmp middle_color_done
middle_black:
ldx #COLOR_BOTH_BLACK
stx A_COLOR
stx B_COLOR
stx C_COLOR
middle_color_done:
; left border
ldy #COLOR_BOTH_GREY
sty COLOR
@ -292,12 +315,57 @@ middle_loop:
jsr hlin_double
; border space
lda #COLOR_BOTH_BLACK
sta COLOR
ldx #13
ldx #1
jsr hlin_double_continue
; A volume
lda A_COLOR
sta COLOR
ldx #3
jsr hlin_double_continue
; A space
lda #COLOR_BOTH_BLACK
sta COLOR
ldx #1
jsr hlin_double_continue
; B volume
lda B_COLOR
sta COLOR
ldx #3
jsr hlin_double_continue
; B space
lda #COLOR_BOTH_BLACK
sta COLOR
ldx #1
jsr hlin_double_continue
; C volume
lda C_COLOR
sta COLOR
ldx #3
jsr hlin_double_continue
; C space
lda #COLOR_BOTH_BLACK
sta COLOR
ldx #1
jsr hlin_double_continue
; Right border
lda #COLOR_BOTH_GREY
sta COLOR

7
chiptune_player/zp.inc
View File

@ -61,6 +61,13 @@ SCREEN_Y EQU $62
;NUM1L EQU $7E
;NUM1H EQU $7F
A_VOLUME EQU $80
B_VOLUME EQU $81
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