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 ( byte )
|
||||
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
|
||||
#00 ;draw-char JSR2
|
||||
#3d ;draw-char JSR2 ( draws "[ ]" )
|
||||
POPr ( remove octave from returnstack ) POP
|
||||
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
|
||||
#0c MOD #00 SWP ;notes ADD2 LDA DUP #7f AND ;draw-char JSR2
|
||||
#80 AND ,&else JCN ( if the high bit is unset )
|
||||
|
|
Reference in New Issue