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
|
// Tell user we are ready
|
||||||
jsr ready_message
|
jsr ready_message
|
||||||
|
|
||||||
|
// Enable Kernal messages
|
||||||
|
lda #$80
|
||||||
|
jsr JSETMSG
|
||||||
|
|
||||||
basic_read_next_line:
|
basic_read_next_line:
|
||||||
// Read a line of input
|
// Read a line of input
|
||||||
ldx #$00
|
ldx #$00
|
||||||
|
|||||||
@@ -11,15 +11,6 @@ cmd_load:
|
|||||||
// middle of a program. For safety, we do.
|
// middle of a program. For safety, we do.
|
||||||
jsr basic_do_clr
|
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
|
// Set filename and length
|
||||||
lda #$00
|
lda #$00
|
||||||
sta FNLEN
|
sta FNLEN
|
||||||
|
|||||||
+5
-4
@@ -2,11 +2,12 @@ cmd_run:
|
|||||||
// RUN clears all variables
|
// RUN clears all variables
|
||||||
jsr basic_do_clr
|
jsr basic_do_clr
|
||||||
cmd_goto:
|
cmd_goto:
|
||||||
|
// Disable Kernal messages
|
||||||
|
lda #$00
|
||||||
|
jsr JSETMSG
|
||||||
|
|
||||||
// Reset line pointer to first line of program.
|
// Reset line pointer to first line of program.
|
||||||
lda TXTTAB+0
|
jsr init_oldtxt
|
||||||
sta OLDTXT+0
|
|
||||||
lda TXTTAB+1
|
|
||||||
sta OLDTXT+1
|
|
||||||
|
|
||||||
jsr basic_end_of_statement_check
|
jsr basic_end_of_statement_check
|
||||||
bcs !+
|
bcs !+
|
||||||
|
|||||||
Reference in new issue
Block a user