fix some bugs in pack_word
This commit is contained in:
Paul Gardner-Stephen committed
1 parent
9eb16b5795
commit
bd608b5592
3 files changed
+70
-34
No files matched your search
@@ -37,12 +37,11 @@ got_line_of_input:
|
||||
jsr pack_word
|
||||
|
||||
;; Print the packed word
|
||||
ldx tokenise_work2
|
||||
dex
|
||||
* lda $0100,x
|
||||
sta $0608,x
|
||||
dex
|
||||
bpl -
|
||||
lda #<$0100
|
||||
sta temp_string_ptr+0
|
||||
lda #>$0100
|
||||
sta temp_string_ptr+1
|
||||
jsr print_packed_string
|
||||
|
||||
jsr ready_message
|
||||
|
||||
|
||||
Reference in new issue
Block a user