draw blank notes as ---
This commit is contained in:
parent
d053a12c0e
commit
377d005c57
9
main.usm
9
main.usm
|
@ -238,12 +238,19 @@ RTN
|
||||||
( draw-note draws a byte as a note name and number on the screen )
|
( draw-note draws a byte as a note name and number on the screen )
|
||||||
@draw-note ( byte )
|
@draw-note ( byte )
|
||||||
DUP #0c DIV #01 SUB STH ( stash octave )
|
DUP #0c DIV #01 SUB STH ( stash octave )
|
||||||
DUP #6c LTH ,¬e 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
|
#3b ;draw-char JSR2
|
||||||
#00 ;draw-char JSR2
|
#00 ;draw-char JSR2
|
||||||
#3d ;draw-char JSR2 ( draws "[ ]" )
|
#3d ;draw-char JSR2 ( draws "[ ]" )
|
||||||
POPr ( remove octave from returnstack ) POP
|
POPr ( remove octave from returnstack ) POP
|
||||||
RTN
|
RTN
|
||||||
|
&blank
|
||||||
|
DUP #00 NEQ ,¬e JCN ( if note is blank, draw a "---" )
|
||||||
|
#0d ;draw-char JSR2
|
||||||
|
#0d ;draw-char JSR2
|
||||||
|
#0d ;draw-char JSR2
|
||||||
|
POPr POP
|
||||||
|
RTN
|
||||||
¬e
|
¬e
|
||||||
#0c MOD #00 SWP ;notes ADD2 LDA DUP #7f AND ;draw-char JSR2
|
#0c MOD #00 SWP ;notes ADD2 LDA DUP #7f AND ;draw-char JSR2
|
||||||
#80 AND ,&else JCN ( if the high bit is unset )
|
#80 AND ,&else JCN ( if the high bit is unset )
|
||||||
|
|
Reference in New Issue