chris/open-roms
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix even more bugs in pack_word

Browse Source
This commit is contained in:
Paul Gardner-Stephen committed 2019-04-25 21:46:24 +09:30
1 parent 88736b1523
commit d8c236009d
1 file changed
+5 -4
Download Patch File Download Diff File Expand all files Collapse all files
c64/basic/pack_word.s
+5 -4
View File
@@ -83,6 +83,7 @@ have_nybl_before_exception_char:
;; FALL THROUGH ;; FALL THROUGH
write_literal_and_terminate_if_required: write_literal_and_terminate_if_required:
;; Clear have nybl flag ;; Clear have nybl flag
lda #$00 lda #$00
sta tokenise_work3 sta tokenise_work3
@@ -181,7 +182,7 @@ nothing_to_flush:
;; if it has been passed to us via fall-through ;; if it has been passed to us via fall-through
jsr write_unpacked_char jsr write_unpacked_char
;; Fall through jsr end_string_if_required
consider_next_char: consider_next_char:
;; Pack next char ;; Pack next char
@@ -232,11 +233,11 @@ not_nybl_char:
cpy #27 cpy #27
bcs not_a_match bcs not_a_match
;; It's a $Fx character. ;; It's a $Fx character.
;; Since the lowest index is $F, and it should be encoded as $F1 ;; Since the lowest index is $E, and it should be encoded as $F1
;; we need to add $E2 ;; we need to add $E3
tya tya
clc clc
adc #$E2 adc #$E3
rts rts
not_a_match: not_a_match: