disabled some BASIC extensions on machines without extended ROM
This commit is contained in:
1 parent
cfc970e21a
commit
151b9440dd
10 files changed
+76
-32
No files matched your search
@@ -6,6 +6,7 @@
|
||||
// Jumptable for BASIC commands with tokens prefixed by $CC
|
||||
//
|
||||
|
||||
#if !HAS_SMALL_BASIC
|
||||
|
||||
.const command_CC_list = List().add(
|
||||
|
||||
@@ -17,12 +18,31 @@
|
||||
cmd_bsave,
|
||||
cmd_bverify,
|
||||
|
||||
cmd_cold,
|
||||
cmd_clear,
|
||||
varstr_garbage_collect, // cmd_dispose
|
||||
|
||||
cmd_cold,
|
||||
cmd_mem
|
||||
)
|
||||
|
||||
#else
|
||||
|
||||
.const command_CC_list = List().add(
|
||||
|
||||
cmd_old,
|
||||
|
||||
cmd_merge,
|
||||
|
||||
cmd_bload,
|
||||
cmd_bsave,
|
||||
cmd_bverify,
|
||||
|
||||
cmd_clear,
|
||||
varstr_garbage_collect // cmd_dispose
|
||||
)
|
||||
|
||||
#endif
|
||||
|
||||
|
||||
#if !HAS_OPCODES_65C02
|
||||
|
||||
|
||||
@@ -3,6 +3,8 @@
|
||||
// #LAYOUT# * * #IGNORE
|
||||
|
||||
|
||||
#if !HAS_SMALL_BASIC
|
||||
|
||||
cmd_cold:
|
||||
|
||||
jsr helper_ask_if_sure
|
||||
@@ -12,3 +14,5 @@ cmd_cold:
|
||||
jmp (vector_reset) // hardware CPU vector
|
||||
!:
|
||||
rts
|
||||
|
||||
#endif
|
||||
@@ -4,6 +4,7 @@
|
||||
// #LAYOUT# * * #IGNORE
|
||||
|
||||
|
||||
#if !HAS_SMALL_BASIC
|
||||
|
||||
#if (!ROM_LAYOUT_M65 || SEGMENT_BASIC_0)
|
||||
|
||||
@@ -144,3 +145,5 @@ cmd_mem_next:
|
||||
|
||||
|
||||
#endif // ROM layout
|
||||
|
||||
#endif // !HAS_SMALL_BASIC
|
||||
@@ -9,6 +9,8 @@
|
||||
//
|
||||
|
||||
|
||||
#if !HAS_SMALL_BASIC
|
||||
|
||||
helper_ask_if_sure:
|
||||
|
||||
#if (ROM_LAYOUT_M65 && SEGMENT_BASIC_0)
|
||||
@@ -75,3 +77,5 @@ helper_ask_if_sure_ok:
|
||||
|
||||
|
||||
#endif // ROM layout
|
||||
|
||||
#endif // !HAS_SMALL_BASIC
|
||||
@@ -7,6 +7,7 @@
|
||||
// Helper table for 'MEM' command - list of strings to print
|
||||
//
|
||||
|
||||
#if !HAS_SMALL_BASIC
|
||||
|
||||
helper_mem_tab_str:
|
||||
|
||||
@@ -15,3 +16,5 @@ helper_mem_tab_str:
|
||||
.byte IDX__STR_MEM_ARRS
|
||||
.byte IDX__STR_MEM_VARS
|
||||
.byte IDX__STR_MEM_TEXT
|
||||
|
||||
#endif
|
||||
@@ -7,6 +7,7 @@
|
||||
// Helper table for 'MEM' command - list of minuend zeropage variables
|
||||
//
|
||||
|
||||
#if !HAS_SMALL_BASIC
|
||||
|
||||
helper_mem_tab_x:
|
||||
|
||||
@@ -15,3 +16,5 @@ helper_mem_tab_x:
|
||||
.byte STREND
|
||||
.byte ARYTAB
|
||||
.byte VARTAB
|
||||
|
||||
#endif
|
||||
@@ -7,6 +7,7 @@
|
||||
// Helper table for 'MEM' command - list of subtrahend zeropage variables
|
||||
//
|
||||
|
||||
#if !HAS_SMALL_BASIC
|
||||
|
||||
helper_mem_tab_y:
|
||||
|
||||
@@ -15,3 +16,5 @@ helper_mem_tab_y:
|
||||
.byte ARYTAB
|
||||
.byte VARTAB
|
||||
.byte TXTTAB
|
||||
|
||||
#endif
|
||||
@@ -60,6 +60,8 @@ wedge_dos:
|
||||
|
||||
wedge_dos_command:
|
||||
|
||||
#if !HAS_SMALL_BASIC
|
||||
|
||||
// Check if command needs confirmation
|
||||
|
||||
ldy #$00
|
||||
@@ -106,6 +108,8 @@ wedge_dos_command_ask:
|
||||
|
||||
wedge_dos_command_confirmed:
|
||||
|
||||
#endif // !HAS_SMALL_BASIC
|
||||
|
||||
// Provide command name
|
||||
|
||||
jsr wedge_dos_setnam
|
||||
|
||||
Reference in new issue
Block a user