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

fix for text packer initialization

Browse Source
This commit is contained in:
FeralChild64 committed 2020-06-24 16:11:39 +02:00
1 parent fdf4b1cc1d
commit f2520eacb2
1 file changed
+3 -3
Download Patch File Download Diff File Expand all files Collapse all files
c64/basic/tokenizer/tk_pack.s
+3 -3
View File
@@ -33,12 +33,12 @@ tk_pack:
.label tk__nibble_flag = $106 // $00 = start from new byte, $FF = start from high nibble .label tk__nibble_flag = $106 // $00 = start from new byte, $FF = start from high nibble
.label tk__byte_offset = $107 // offset of the current byte (to place new data) in tk__packed .label tk__byte_offset = $107 // offset of the current byte (to place new data) in tk__packed
.label tk__packed = $108 // packed candidate, 13 bytes is enough for worst case - 8 byte keyword .label tk__packed = $108 // packed candidate, 25 bytes is enough for worst case - a 16 byte keyword
// Initialize variables // Initialize variables
lda #$00 lda #$00
ldy #(tk__packed - tk__len_unpacked + 14) // XXX maybe do not clear that much, just put 0 at the end while compressing ldy #($04 + 25) // initialize 5 bytes of data + 25 bytes of space for packing
!: !:
sta tk__len_unpacked, y sta tk__len_unpacked, y
dey dey
@@ -142,8 +142,8 @@ tk_pack_loop_next:
lda tk__len_unpacked lda tk__len_unpacked
cmp #TK__MAX_KEYWORD_LEN cmp #TK__MAX_KEYWORD_LEN
bne tk_pack_loop bne tk_pack_loop
rts rts
tk_pack_1n_new_byte: tk_pack_1n_new_byte: