started work on arrays

2020-07-21 20:17:03 +02:00
1 parent 148f1c1908
commit 3189edd0d3
@@ -17,7 +17,7 @@
 	cmd_data,
 	cmd_inputhash,
 	cmd_input,
-	cmd_dim,
+	array_create,                      // cmd_dim
 	cmd_read,
 	assign_variable,                   // cmd_let
 	cmd_goto,
@@ -0,0 +1,10 @@
+// #LAYOUT# STD *       #TAKE
+// #LAYOUT# *   BASIC_0 #TAKE
+// #LAYOUT# *   *       #IGNORE
+
+
+array_create:
+
+	// XXX
+
+	jsr do_NOT_IMPLEMENTED_error
@@ -15,6 +15,11 @@ fetch_variable:
 	bcc !+
 	rts
 !:
+	// If this is array, redirect to appropriate routine
+
+	bit DIMFLG
+	bmi_16 fetch_variable_arr
+
 	// Handle special variables - TI$, TI, ST

 	jsr is_var_TI_string
@@ -0,0 +1,10 @@
+// #LAYOUT# STD *       #TAKE
+// #LAYOUT# *   BASIC_0 #TAKE
+// #LAYOUT# *   *       #IGNORE
+
+
+fetch_variable_arr:
+
+	// XXX implement this
+
+	jmp do_NOT_IMPLEMENTED_error
@@ -94,6 +94,9 @@ fetch_variable_type_string:
 fetch_variable_name_check_array:

 	// XXX add check for array
+	lda #$00
+	sta DIMFLG
+

 	clc
 	rts