implemented SETMSG routine, LOAD command uses it
This commit is contained in:
1 parent
3039c108cb
commit
ee6e7bc9d5
5 files changed
+23
-11
No files matched your search
@@ -61,8 +61,7 @@
|
||||
.alias LDTND $98 ; number of entries in LAT / FAT / SAT tables
|
||||
.alias DFLTN $99
|
||||
.alias input_device_number DFLTN
|
||||
; bit 6 = error messages, bit 7 = control messages
|
||||
.alias kernal_message_control_flags $9d
|
||||
.alias MSGFLG $9D ; bit 6 = error messages, bit 7 = control message
|
||||
.alias jiffy_clock_24bits $a0
|
||||
.alias cassette_buffer_bytes_used $A6
|
||||
.alias load_or_scroll_temp_pointer $AC
|
||||
|
||||
@@ -11,6 +11,15 @@ 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 basic_current_line_number+1
|
||||
cpx #$FF
|
||||
beq +
|
||||
lda #$00 ; direct mode - don't display anything
|
||||
*
|
||||
jsr $FF90 ; SETMSG
|
||||
|
||||
;; XXX temporary, to set valid device number
|
||||
lda #$08
|
||||
sta current_device_number
|
||||
|
||||
Reference in new issue
Block a user