From 7747cd27cc8c6cbd206852f6cbb18c440edf0056 Mon Sep 17 00:00:00 2001
From: Joshua Bell <inexorabletash@gmail.com>
Date: Wed, 9 Jan 2019 16:57:32 -0800
Subject: [PATCH] Fix case insensitivity again

---
 path.s | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/path.s b/path.s
index 6aaab19..91cfb82 100644
--- a/path.s
+++ b/path.s
@@ -195,8 +195,8 @@ check_if_token:
         lda     #>(TOKEN_NAME_TABLE-$100)
         sta     ptr+1
 
-        ;; These start at "-1" and are immediately incremented
-        ldx     #$FF            ; X = position in input line
+        ;; These are immediately incremented
+        dex
         ldy     #$FF            ; (ptr),y offset TOKEN_NAME_TABLE
 
         ;; Match loop
@@ -266,8 +266,6 @@ maybe_invoke:
         jsr     skip_leading_spaces
         page_num16 := *+2         ; address needing updating
 :       jsr     to_upper_ascii
-        lda     INBUF,x
-        and     #$7F
         cmp     #'.'
         beq     ok
         cmp     #'0'