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
+7 -6
Download Patch File Download Diff File Expand all files Collapse all files
c64/basic/pack_word.s
+7 -6
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
@@ -163,7 +164,7 @@ whole_byte_symbol:
;; It's a $Fx symbol. ;; It's a $Fx symbol.
;; But if we have a nybl to flush, then we handle it like ;; But if we have a nybl to flush, then we handle it like
;; a full exception character ;; a full exception character
ldy tokenise_work3 ldy tokenise_work3
beq nothing_to_flush beq nothing_to_flush
@@ -180,8 +181,8 @@ nothing_to_flush:
;; Write the symbol as it is, or the literal ;; Write the symbol as it is, or the literal
;; 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: