// #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_2: // for two-bytes tokenized keywords

	dec tk__len_unpacked

	// FALLTROUGH

tk_cut_away_1: // for single-byte tokenized keywords

	dec tk__len_unpacked                         // keyword length, afterwards number of bytes to cut away

	inc tk__offset
	ldy tk__offset

	lda tk__len_unpacked
	clc
	adc tk__offset
	tax
!:
	lda BUF, x
	sta BUF, y
	beq !+

	inx
	iny
	bne !-	
!:
	rts