added TI$ and keybopard scanning constants for UP9600 interrupt rate

src/basic/assets/table_ti_hi.s

@@ -8,9 +8,22 @@
 
 table_TI_hi:
 
+#if !CONFIG_RS232_UP9600
+
 	.byte $20                // 10 hours    = 2169000 ticks
 	.byte $03                // 1 hour      =  216000 ticks
 	.byte $00                // 10 minutes  =   36000 ticks
 	.byte $00                // 1 minute    =    3600 ticks
 	.byte $00                // 10 seconds  =     600 ticks
 	.byte $00                // 1 second    =      60 ticks
+
+#else
+
+	.byte $23                // 10 hours    = 2304000 ticks
+	.byte $03                // 1 hour      =  230400 ticks
+	.byte $00                // 10 minutes  =   38400 ticks
+	.byte $00                // 1 minute    =    3840 ticks
+	.byte $00                // 10 seconds  =     640 ticks
+	.byte $00                // 1 second    =      64 ticks
+
+#endif

src/basic/assets/table_ti_lo.s

@@ -8,9 +8,22 @@
 
 table_TI_lo:
 
+#if !CONFIG_RS232_UP9600
+
 	.byte $80                // 10 hours    = 2169000 ticks
 	.byte $C0                // 1 hour      =  216000 ticks
 	.byte $A0                // 10 minutes  =   36000 ticks
 	.byte $10                // 1 minute    =    3600 ticks
 	.byte $58                // 10 seconds  =     600 ticks
 	.byte $3C                // 1 second    =      60 ticks
+
+#else
+
+	.byte $00                // 10 hours    = 2304000 ticks
+	.byte $00                // 1 hour      =  230400 ticks
+	.byte $00                // 10 minutes  =   38400 ticks
+	.byte $00                // 1 minute    =    3840 ticks
+	.byte $80                // 10 seconds  =     640 ticks
+	.byte $40                // 1 second    =      64 ticks
+
+#endif

src/basic/assets/table_ti_mid.s

@@ -8,9 +8,22 @@
 
 table_TI_mid:
 
+#if !CONFIG_RS232_UP9600
+
 	.byte $F5                // 10 hours    = 2169000 ticks
 	.byte $4B                // 1 hour      =  216000 ticks
 	.byte $8C                // 10 minutes  =   36000 ticks
 	.byte $0E                // 1 minute    =    3600 ticks
 	.byte $02                // 10 seconds  =     600 ticks
 	.byte $00                // 1 second    =      60 ticks
+
+#else
+
+	.byte $28                // 10 hours    = 2304000 ticks
+	.byte $84                // 1 hour      =  230400 ticks
+	.byte $96                // 10 minutes  =   38400 ticks
+	.byte $0F                // 1 minute    =    3840 ticks
+	.byte $02                // 10 seconds  =     640 ticks
+	.byte $00                // 1 second    =      64 ticks
+
+#endif

src/basic/engine_variables/array_create.s

@@ -10,7 +10,9 @@ array_create:
 	jsr fetch_variable_name
 	bcs_16 do_SYNTAX_error
 
-	// It will be easier if we first perform garbage collecion (arrays are not declared often)
+	// XXX check if the array already exists
+
+	// It will be easier if we first perform garbage collection (arrays are not declared often)
 
 	jsr varstr_garbage_collect