fix some problems with token searching

This commit is contained in:
Paul Gardner-Stephen committed 2019-04-25 22:37:00 +09:30
1 parent 3892503289
commit 04e5dd326f
2 files changed
+11 -8

No files matched your search

+6
View File
@@ -80,11 +80,17 @@ next_in_match:
;; Keyword matches!
inc $d020
tya
;; We actually point one by late, so rewind to find start of token
lda tokenise_work3
sec
sbc #$01
clc
adc #<packed_keywords
sta temp_string_ptr+0
lda #>packed_keywords
sta temp_string_ptr+1
;; Print the token we found
jsr print_packed_string
done_searching_for_token: