code size optimization in BASIC
This commit is contained in:
1 parent
07674b4e23
commit
dd85061c47
6 files changed
+86
-55
No files matched your search
@@ -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
|
||||
Reference in new issue
Block a user