[BASIC] ISO lowercase keyword tokenization

mooinglemur · Mar 20, 2024 · a6dec5a · a6dec5a
1 parent a444692
commit a6dec5a
Showing 1 changed file with 14 additions and 1 deletion.
diff --git a/basic/code2.s b/basic/code2.s
@@ -36,9 +36,14 @@ rescon	lda bufofs,x
 	sec
 	sbc reslst,y
 	beq reser
+	cmp #32
+	beq reser
 	cmp #128
+	beq :+
+	cmp #160
 	bne nthis
-	ora count
+	lda #128
+:	ora count
 getbpt	ldy bufptr
 stuffh	inx
 	iny
@@ -86,6 +91,10 @@ rescon2	lda bufofs,x
 	sec
 	sbc reslst2,y
 	beq reser2
+	cmp #32
+	beq reser2
+	cmp #160
+	beq resfnd
 	cmp #128
 	bne nthis2
 
@@ -123,6 +132,10 @@ rescon3	lda bufofs,x
 	sec
 	sbc reslst3,y
 	beq reser3
+	cmp #32
+	beq reser3
+	cmp #160
+	beq resfnd
 	cmp #128
 	beq resfnd