nihilazo/kalama
nihilazo
/
kalama
Archived
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

draw blank notes as ---

This commit is contained in:
Nico 2021-05-26 16:58:58 +01:00
parent d053a12c0e
commit 377d005c57
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
main.usm
View File

@ -238,12 +238,19 @@ RTN
( draw-note draws a byte as a note name and number on the screen )
@draw-note ( byte )
DUP #0c DIV #01 SUB STH ( stash octave )
DUP #6c LTH ,&note JCN ( if note is in range, draw note, otherwise continue to draw a rest )
DUP #6c LTH ,&blank JCN ( if note is in range, draw note, otherwise continue to draw a rest )
#3b ;draw-char JSR2
#00 ;draw-char JSR2
#3d ;draw-char JSR2 ( draws "[ ]" )
POPr ( remove octave from returnstack ) POP
RTN
&blank
DUP #00 NEQ ,&note JCN ( if note is blank, draw a "---" )
#0d ;draw-char JSR2
#0d ;draw-char JSR2
#0d ;draw-char JSR2
POPr POP
RTN
&note
#0c MOD #00 SWP ;notes ADD2 LDA DUP #7f AND ;draw-char JSR2
#80 AND ,&else JCN ( if the high bit is unset )