added fetching TI$ variable, does not fully work yet

src/basic/basic_commands/cmd_let.s

@@ -134,38 +134,8 @@ cmd_let_assign_string:
 
 	// Copy the string descriptor to DSCPNT
 
-#if CONFIG_MEMORY_MODEL_60K
-	
-	ldx #<VARPNT
-
-	ldy #$00
-	jsr peek_under_roms
-	sta DSCPNT+0
-	iny
-	jsr peek_under_roms
-	sta DSCPNT+1
-	iny
-	jsr peek_under_roms
-	sta DSCPNT+2
-
-#elif CONFIG_MEMORY_MODEL_46K || CONFIG_MEMORY_MODEL_50K
-
 	jsr helper_let_strdesccpy
 
-#else // CONFIG_MEMORY_MODEL_38K
-
-	ldy #$00
-	lda (VARPNT), y
-	sta DSCPNT+0
-	iny
-	lda (VARPNT), y
-	sta DSCPNT+1
-	iny
-	lda (VARPNT), y
-	sta DSCPNT+2
-
-#endif
-
 	// First special case - check if the new string has size 0
 
 	lda __FAC1+0

src/basic/basic_commands/helper_let_strdesccpy_38K.s

@@ -0,0 +1,26 @@
+// #LAYOUT# STD *       #TAKE
+// #LAYOUT# *   BASIC_0 #TAKE
+// #LAYOUT# *   *       #IGNORE
+
+//
+// Helper routine to copy string descriptor, for LET command and TI$ variable support
+//
+
+
+#if CONFIG_MEMORY_MODEL_38K
+
+helper_let_strdesccpy:
+
+	ldy #$00
+	lda (VARPNT), y
+	sta DSCPNT+0
+	iny
+	lda (VARPNT), y
+	sta DSCPNT+1
+	iny
+	lda (VARPNT), y
+	sta DSCPNT+2
+
+	rts
+
+#endif

src/basic/basic_commands/helper_let_strdesccpy_46K_50K.s

@@ -5,7 +5,7 @@
 // This has to go $E000 or above - routines below banks out the main BASIC ROM!
 
 //
-// Helper routine to copy string descriptor, for LET command
+// Helper routine to copy string descriptor, for LET command and TI$ variable support
 //
 
 

src/basic/basic_commands/helper_let_strdesccpy_60K.s

@@ -0,0 +1,28 @@
+// #LAYOUT# STD *       #TAKE
+// #LAYOUT# *   BASIC_0 #TAKE
+// #LAYOUT# *   *       #IGNORE
+
+//
+// Helper routine to copy string descriptor, for LET command and TI$ variable support
+//
+
+
+#if CONFIG_MEMORY_MODEL_60K
+
+helper_let_strdesccpy:
+
+	ldx #<VARPNT
+
+	ldy #$00
+	jsr peek_under_roms
+	sta DSCPNT+0
+	iny
+	jsr peek_under_roms
+	sta DSCPNT+1
+	iny
+	jsr peek_under_roms
+	sta DSCPNT+2
+
+	rts
+
+#endif