preparation for a couple of new BASIC commands

2020-06-21 19:58:11 +02:00
1 parent 97131d8d55
commit e74fd4140a
@@ -0,0 +1,49 @@
+// #LAYOUT# STD *       #TAKE
+// #LAYOUT# *   BASIC_0 #TAKE
+// #LAYOUT# *   *       #IGNORE
+
+//
+// Jumptable for BASIC commands with tokens prefixed by $CC
+//
+
+
+.const command_CC_list = List().add(
+
+	cmd_merge,
+
+	cmd_bload,
+	cmd_bsave,
+	cmd_bverify
+)
+
+
+#if !HAS_OPCODES_65C02
+
+
+command_CC_jumptable_lo:
+
+	put_jumptable_lo(command_CC_list)
+
+
+command_CC_jumptable_hi:
+
+	put_jumptable_hi(command_CC_list)
+
+
+#else // HAS_OPCODES_65C02
+
+
+__before_command_CC_jumptable:
+
+.if (mod(*, $2) == 1) { brk }          // align code so that vector never crosses page boundary
+
+command_CC_jumptable:
+
+	put_jumptable(command_CC_list)
+
+	// Make sure routine size is always the same - build system limitation
+
+.if (__before_command_CC_jumptable == command_CC_jumptable) { brk }
+
+
+#endif
@@ -0,0 +1,8 @@
+// #LAYOUT# STD *       #TAKE
+// #LAYOUT# *   BASIC_0 #TAKE
+// #LAYOUT# *   *       #IGNORE
+
+
+cmd_bload:
+
+	jmp do_NOT_IMPLEMENTED_error // XXX implement the command
@@ -0,0 +1,8 @@
+// #LAYOUT# STD *       #TAKE
+// #LAYOUT# *   BASIC_0 #TAKE
+// #LAYOUT# *   *       #IGNORE
+
+
+cmd_bsave:
+
+	jmp do_NOT_IMPLEMENTED_error // XXX implement the command
@@ -0,0 +1,8 @@
+// #LAYOUT# STD *       #TAKE
+// #LAYOUT# *   BASIC_0 #TAKE
+// #LAYOUT# *   *       #IGNORE
+
+
+cmd_bverify:
+
+	jmp do_NOT_IMPLEMENTED_error // XXX implement the command
@@ -0,0 +1,8 @@
+// #LAYOUT# STD *       #TAKE
+// #LAYOUT# *   BASIC_0 #TAKE
+// #LAYOUT# *   *       #IGNORE
+
+
+cmd_merge:
+
+	jmp do_NOT_IMPLEMENTED_error // XXX implement the command