LIST now largely works.
This commit is contained in:
1 parent
8c84566e53
commit
71567e39ac
1 file changed
+25
@@ -46,6 +46,7 @@ list_print_loop:
|
|||||||
lda quote_mode_flag
|
lda quote_mode_flag
|
||||||
eor #$ff
|
eor #$ff
|
||||||
sta quote_mode_flag
|
sta quote_mode_flag
|
||||||
|
lda #$22
|
||||||
jmp list_is_literal
|
jmp list_is_literal
|
||||||
list_not_quote:
|
list_not_quote:
|
||||||
cmp #$7f
|
cmp #$7f
|
||||||
@@ -53,6 +54,30 @@ list_not_quote:
|
|||||||
|
|
||||||
;; Display a token
|
;; 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
|
iny
|
||||||
bne list_print_loop
|
bne list_print_loop
|
||||||
|
|
||||||
|
|||||||
Reference in new issue
Block a user