limit the tokenize shift to lowercase range

mooinglemur · Mar 20, 2024 · 6624448 · 6624448
1 parent 504345d
commit 6624448
Showing 1 changed file with 19 additions and 17 deletions.
diff --git a/basic/code2.s b/basic/code2.s
@@ -33,17 +33,17 @@ mustcr	sty bufptr
 reser	iny
 	inx
 rescon	lda bufofs,x
-	sec
+	cmp #128
+	bcs :+
+	cmp #97
+	bcc :+
+	sbc #32
+:	sec
 	sbc reslst,y
 	beq reser
-	cmp #32
-	beq reser
 	cmp #128
-	beq :+
-	cmp #160
 	bne nthis
-	lda #128
-:	ora count
+	ora count
 getbpt	ldy bufptr
 stuffh	inx
 	iny
@@ -88,13 +88,14 @@ nthis1	iny
 reser2	iny
 	inx
 rescon2	lda bufofs,x
-	sec
+	cmp #128
+	bcs :+
+	cmp #97
+	bcc :+
+	sbc #32
+:	sec
 	sbc reslst2,y
 	beq reser2
-	cmp #32
-	beq reser2
-	cmp #160
-	beq resfnd
 	cmp #128
 	bne nthis2
 
@@ -129,13 +130,14 @@ nthis12	iny
 reser3	iny
 	inx
 rescon3	lda bufofs,x
-	sec
+	cmp #128
+	bcs :+
+	cmp #97
+	bcc :+
+	sbc #32
+:	sec
 	sbc reslst3,y
 	beq reser3
-	cmp #32
-	beq reser3
-	cmp #160
-	beq resfnd
 	cmp #128
 	beq resfnd