added ram disk status message on startup screen
This commit is contained in:
1 parent
770441e302
commit
f7ff71f6cd
11 files changed
+110
-37
No files matched your search
@@ -50,6 +50,7 @@
|
||||
;; #ALIAS# m65_shadow_BZP = KERNAL_0.m65_shadow_BZP
|
||||
;; #ALIAS# proxy_M1_IO_end = KERNAL_0.proxy_M1_IO_end
|
||||
|
||||
;; #ALIAS# m65dos_rdchk = KERNAL_0.m65dos_rdchk
|
||||
;; #ALIAS# m65dos_unitnum = KERNAL_0.m65dos_unitnum
|
||||
|
||||
;
|
||||
|
||||
@@ -46,4 +46,5 @@
|
||||
;; #ALIAS# fetch_character_skip_spaces = BASIC_0.proxy_B1_fetch_character_skip_spaces
|
||||
;; #ALIAS# fetch_uint8 = BASIC_0.proxy_B1_fetch_uint8
|
||||
;; #ALIAS# shell_main_loop = BASIC_0.proxy_B1_shell_main_loop
|
||||
;; #ALIAS# m65dos_rdchk = BASIC_0.proxy_B1_m65dos_rdchk
|
||||
;; #ALIAS# m65dos_unitnum = BASIC_0.proxy_B1_m65dos_unitnum
|
||||
@@ -157,6 +157,12 @@ proxy_M1_print_kernal_error:
|
||||
jmp proxy_M1_IO_end
|
||||
}
|
||||
|
||||
proxy_B1_m65dos_rdchk:
|
||||
|
||||
jsr map_NORMAL
|
||||
jsr m65dos_rdchk
|
||||
bra proxy_B1_end_2
|
||||
|
||||
proxy_B1_m65dos_unitnum:
|
||||
|
||||
jsr map_NORMAL
|
||||
|
||||
@@ -66,7 +66,40 @@ INITMSG_native:
|
||||
|
||||
ldx #$09
|
||||
ldy #$00
|
||||
jmp plot_set
|
||||
jsr plot_set
|
||||
|
||||
; Display the preloaded RAM disc image status
|
||||
|
||||
jsr m65dos_rdchk
|
||||
cmp #$FF
|
||||
beq INITMSG_rts
|
||||
|
||||
pha
|
||||
jsr print_return
|
||||
pla
|
||||
pha
|
||||
cmp #$00
|
||||
beq @skip_bold
|
||||
|
||||
lda #$1B
|
||||
jsr JCHROUT
|
||||
lda #'S'
|
||||
jsr JCHROUT
|
||||
|
||||
@skip_bold:
|
||||
|
||||
ldx #IDX__STR_RD_NAME
|
||||
jsr print_packed_misc_str
|
||||
pla
|
||||
|
||||
clc
|
||||
adc #IDX__STR_RD_OK
|
||||
tax
|
||||
jmp print_packed_misc_str
|
||||
|
||||
INITMSG_rts:
|
||||
|
||||
rts
|
||||
|
||||
INITMSG_main_banner:
|
||||
|
||||
|
||||
Reference in new issue
Block a user