lowercase welcome text

This commit is contained in:
Peter Ferrie 2016-11-10 18:50:30 -08:00
parent 021e6e6ada
commit 1f0514a2cb

View File

@ -5,6 +5,7 @@
;
!cpu 6502
*=$8000
!ct "lcase.ct"
;
!addr CH = $24
@ -86,8 +87,9 @@ Install
beq +
lda #INVSPACE
sta CharDel + 1 + BankedCopyStart - $D000
lda #("z" + 1 + $80)
sta CharMap + 1 + BankedCopyStart - $D000
lda #("z" + 1)
sta CharMap1 + 1
sta CharMap2 + 1 + BankedCopyStart - $D000
+
;find a free DOS buffer
@ -246,11 +248,17 @@ CopyMod
;display the welcome message, now that we're finally done
ldy #0
beq +
- jsr COUT
+ iny
beq ++
CharMap1
cmp #0 ;self-modified
bcs +
cmp #"a"
bcc +
and #$DF
+ jsr COUT
++ iny
lda _WelcomeMessage-1,y
bne -
bne CharMap1
lda #<GlobalKeyboardHook
sta KSWL
lda #>GlobalKeyboardHook
@ -259,10 +267,10 @@ CopyMod
jmp WARMDOS
_WelcomeMessage
!scrxor $80, $8D, "4LIVE READY. PRESS CTRL-", HOTKEY + $40, " TO ACTIVATE.", $8D, 0
!text $8D, "4Live ready. Press Ctrl-", HOTKEY + $40, " to activate.", $8D, 0
FileName_b
!scrxor $80, $DF, "4LIVE DATA"
!text "_4LIVE DATA"
FileName_e
SWAPCOPYStart
@ -408,10 +416,10 @@ VirtualBuff1
VirtualBuff2
- lda $34f3, y ;self-modified
CharMap
CharMap2
cmp #0 ;self-modified
bcs +
cmp #("a" + $80)
cmp #"a"
bcc +
and #$DF
+ sta $0400, y
@ -880,16 +888,14 @@ SaveCH
SaveCV
!byte 0 ;loaded from file if exists
!ct "lcase.ct"
FirstLine ;lines are stored sequentially, not like text page in memory
!fill WIDTH * 8, $A0
!text " 4LIVE by 4am && qkumba "
!fill WIDTH, $A0
!text " Revision 02 / Serial number 161107 "
!text " Revision 02 / Serial number 161110 "
!fill WIDTH * 2, $A0
!text " https://github.com/a2-4am/4live "
!fill WIDTH * 9, $A0
!ct raw
LoadSaveEnd
;in the current version, the status line is not saved
@ -897,7 +903,7 @@ LoadSaveEnd
;both the status line and the spill line must be saved
;for scrolling to work properly
!fill (WIDTH - 5), $20
!scrxor $80, "4LIVE"
!text "4LIVE"
LastLine
!fill WIDTH, $A0