[BASIC] ISO lowercase keyword tokenization (X16Community#310)

* [BASIC] ISO lowercase keyword tokenization * limit the tokenize shift to lowercase range
mooinglemur · Mar 22, 2024 · cfc86b9 · cfc86b9
1 parent 60e6d7c
commit cfc86b9
Showing 1 changed file with 18 additions and 3 deletions.
diff --git a/basic/code2.s b/basic/code2.s
@@ -33,7 +33,12 @@ 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 #128
@@ -83,7 +88,12 @@ 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 #128
@@ -120,7 +130,12 @@ 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 #128