38 lines
588 B
ArmAsm
38 lines
588 B
ArmAsm
// #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
|