Merge pull request #7 from peterferrie/master

lowercase welcome text

src/4live.a

@@ -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