fix various problems with LOAD taking a real filename. More to do.

This commit is contained in:
Paul Gardner-Stephen committed 2019-05-05 01:26:37 +09:30
1 parent f14cf20c92
commit e547b56003
4 files changed
+77 -10

No files matched your search

+21 -1
View File
@@ -29,8 +29,12 @@ no_space_to_skip:
basic_execute_statement:
;; Skip over any white space and :
ldy #0
ldx #<basic_current_statement_ptr
jsr peek_under_roms
jsr basic_end_of_statement_check
bcs basic_end_of_line
;; jsr printf
;; .byte "LINE PTR = $"
;; .byte $f1,<basic_current_line_ptr,>basic_current_line_ptr
@@ -94,6 +98,12 @@ basic_skip_char:
jsr basic_consume_character
jmp basic_execute_statement
basic_fetch_and_consume_character:
ldy #0
ldx #<basic_current_statement_ptr
jsr peek_under_roms
;; FALL THROUGH
basic_consume_character:
;; Advance basic text pointer
inc basic_current_statement_ptr+0
@@ -101,6 +111,16 @@ basic_consume_character:
inc basic_current_statement_ptr+1
*
rts
basic_unconsume_character:
lda basic_current_statement_ptr+0
sec
sbc #1
sta basic_current_statement_ptr+0
lda basic_current_statement_ptr+1
sbc #0
sta basic_current_statement_ptr+1
rts
basic_end_of_line: