reorganized extended BASIC tokens

This commit is contained in:
FeralChild64 committed 2020-10-24 09:08:57 +02:00
1 parent f2b7abfdb9
commit 678c38a3e0
47 files changed
+235 -260

No files matched your search

+21 -26
View File
@@ -104,13 +104,11 @@ list_not_quote:
; Check for extended BASIC tokens
cmp #$01
beq list_display_token_01
!ifndef HAS_SMALL_BASIC {
cmp #$02
beq list_display_token_02
}
!ifdef CONFIG_MB_M65 {
cmp #$03
beq list_display_token_03
cmp #$04
beq list_display_token_04
cmp #$06
beq list_display_token_06
}
; Check for literals
@@ -232,37 +230,34 @@ list_display_token_ext_done:
; Next iteration
+bra list_not_rem
!ifndef HAS_SMALL_BASIC {
list_display_token_02:
; Display a 2-byte token - for extended BASIC
jsr list_fetch_subtoken
; Check if token is known
cpx #TK__MAXTOKEN_keywords_02
bcs list_is_unknown
; Now ask for it to be printed
+phy_trash_a
jsr print_packed_keyword_02
+bra list_display_token_ext_done
}
!ifdef CONFIG_MB_M65 {
list_display_token_03:
list_display_token_04:
; Display a 2-byte token - for extended BASIC
jsr list_fetch_subtoken
; Check if token is known
cpx #TK__MAXTOKEN_keywords_03
cpx #TK__MAXTOKEN_keywords_04
bcs list_is_unknown
; Now ask for it to be printed
+phy_trash_a
jsr print_packed_keyword_03
jsr print_packed_keyword_04
+bra list_display_token_ext_done
list_display_token_06:
; Display a 2-byte token - for extended BASIC
jsr list_fetch_subtoken
; Check if token is known
cpx #TK__MAXTOKEN_keywords_06
bcs list_is_unknown
; Now ask for it to be printed
+phy_trash_a
jsr print_packed_keyword_06
+bra list_display_token_ext_done
}
+9 -12
View File
@@ -59,21 +59,18 @@ print_packed_keyword_01: ; .X - token number
ldy #>packed_freq_keywords_01
bne print_freq_packed_string ; branch always
!ifndef HAS_SMALL_BASIC {
print_packed_keyword_02: ; .X - token number
lda #<packed_freq_keywords_02
ldy #>packed_freq_keywords_02
bne print_freq_packed_string ; branch always
}
!ifdef CONFIG_MB_M65 {
print_packed_keyword_03: ; .X - token number
print_packed_keyword_04: ; .X - token number
lda #<packed_freq_keywords_03
ldy #>packed_freq_keywords_03
lda #<packed_freq_keywords_04
ldy #>packed_freq_keywords_04
bne print_freq_packed_string ; branch always
print_packed_keyword_06: ; .X - token number
lda #<packed_freq_keywords_06
ldy #>packed_freq_keywords_06
bne print_freq_packed_string ; branch always
}