sa: uppercase 40 column always

This commit is contained in:
Vince Weaver 2018-05-24 10:46:22 -04:00
parent f1e41a1340
commit 6933be42f6
2 changed files with 17 additions and 3 deletions

View File

@ -1,9 +1,12 @@
+ Opening graphics (BASIC)
+ 80-column support
+ compressed ascii art
+ No lowercase for 40-column option?
+ six-channel support
generic? or combine it?
+ 40 column support
+ Electric Duet support?
Abandoned
+ compressed ascii art
-- had issues with re-entrancy, decided to abandon
fitting in 16k
+ six-channel support
-- went for 4-channel support instead

View File

@ -57,6 +57,17 @@ lyric_char:
ldy CH
sta (BASL),Y
pla
ldy FORTYCOL ; if 40col, convert to UPPERCASE
beq just_output_already
cmp #'a'+$80
bcc just_output_already
cmp #'z'+$80
bcs just_output_already
and #$DF
just_output_already:
jsr COUT1 ; output the character
lyric_continue: