LIST now largely works.

This commit is contained in:
Paul Gardner-Stephen committed 2019-04-28 22:48:03 +09:30
1 parent 8c84566e53
commit 71567e39ac
1 file changed
+25
+25
View File
@@ -46,6 +46,7 @@ list_print_loop:
lda quote_mode_flag
eor #$ff
sta quote_mode_flag
lda #$22
jmp list_is_literal
list_not_quote:
cmp #$7f
@@ -53,6 +54,30 @@ list_not_quote:
;; Display a token
;; Save registers
tax
tya
pha
;; Get pointer to compressed keyword list
lda #<packed_keywords
sta temp_string_ptr+0
lda #>packed_keywords
sta temp_string_ptr+1
;; Subtract $80 from token to get offset in word
;; list
txa
and #$7f
tax
;; Now ask for it to be printed
ldy #$ff
jsr packed_word_search
pla
tay
iny
bne list_print_loop