fixed MSGFLG handling, prevents FB64 display glitches
This commit is contained in:
1 parent
43d7e869e0
commit
0ac3d1dfd8
3 files changed
+9
-13
No files matched your search
@@ -7,6 +7,10 @@ basic_main_loop:
|
||||
// Tell user we are ready
|
||||
jsr ready_message
|
||||
|
||||
// Enable Kernal messages
|
||||
lda #$80
|
||||
jsr JSETMSG
|
||||
|
||||
basic_read_next_line:
|
||||
// Read a line of input
|
||||
ldx #$00
|
||||
|
||||
@@ -11,15 +11,6 @@ cmd_load:
|
||||
// middle of a program. For safety, we do.
|
||||
jsr basic_do_clr
|
||||
|
||||
// Setup Kernal to print control messages or not
|
||||
lda #$80 // display control messages and omit error messages
|
||||
ldx CURLIN+1
|
||||
cpx #$FF
|
||||
beq !+
|
||||
lda #$00 // direct mode - don't display anything
|
||||
!:
|
||||
jsr JSETMSG
|
||||
|
||||
// Set filename and length
|
||||
lda #$00
|
||||
sta FNLEN
|
||||
|
||||
+5
-4
@@ -2,11 +2,12 @@ cmd_run:
|
||||
// RUN clears all variables
|
||||
jsr basic_do_clr
|
||||
cmd_goto:
|
||||
// Disable Kernal messages
|
||||
lda #$00
|
||||
jsr JSETMSG
|
||||
|
||||
// Reset line pointer to first line of program.
|
||||
lda TXTTAB+0
|
||||
sta OLDTXT+0
|
||||
lda TXTTAB+1
|
||||
sta OLDTXT+1
|
||||
jsr init_oldtxt
|
||||
|
||||
jsr basic_end_of_statement_check
|
||||
bcs !+
|
||||
|
||||
Reference in new issue
Block a user