mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-12-25 20:30:31 +00:00
sa: uppercase 40 column always
This commit is contained in:
parent
f1e41a1340
commit
6933be42f6
@ -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
|
||||
|
@ -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:
|
||||
|
Loading…
Reference in New Issue
Block a user