more work on extended command set

c64/basic/tokenizer/tk_cut_away.s

@@ -0,0 +1,30 @@
+// #LAYOUT# STD *       #TAKE
+// #LAYOUT# M65 BASIC_1 #TAKE
+// #LAYOUT# X16 BASIC_0 #TAKE
+// #LAYOUT# *   *       #IGNORE
+
+//
+// Cuts away unnecessary characters after tokenizing a keyword
+//
+
+
+tk_cut_away:
+
+	inc tk__offset
+	ldy tk__offset
+
+	dec tk__len_unpacked                         // keyword length, afterwards number of bytes to cut away
+	lda tk__len_unpacked
+	clc
+	adc tk__offset
+	tax
+!:
+	lda BUF, x
+	sta BUF, y
+	beq !+
+
+	inx
+	iny
+	bne !-	
+!:
+	rts