code size optimization in BASIC

This commit is contained in:
FeralChild64 committed 2020-07-31 16:48:35 +02:00
1 parent 07674b4e23
commit dd85061c47
6 files changed
+86 -55

No files matched your search

+2 -15
View File
@@ -3,7 +3,7 @@
// #LAYOUT# * * #IGNORE
//
// Consummes assign operator in a BASIC code, Carry set if not found. Injests all spaces.
// Consummes assign operator in a BASIC code, triggers error if not found
//
@@ -11,19 +11,6 @@ injest_assign:
jsr fetch_character_skip_spaces
cmp #$B2 // assign operator character
beq injest_assign_found
// Not found
#if !HAS_OPCODES_65CE02
jsr unconsume_character
#else
dew TXTPTR
#endif
bne_16 do_SYNTAX_error
sec
rts
injest_assign_found:
clc
rts