Add ti_GetName

Author: mateoconlechuga

examples/fileio_read_write/autotester.json

@@ -20,7 +20,7 @@
       "description": "Assert that the read was succesful",
       "start": "vram_start",
       "size": "vram_16_size",
-      "expected_CRCs": [ "D0979D5B" ]
+      "expected_CRCs": [ "D720F0D9" ]
     },
     "2": {
       "description": "Back to the home screen (exit check)",

examples/fileio_read_write/src/main.c

@@ -28,6 +28,7 @@ void printText(int8_t xpos, int8_t ypos, const char *text);
 
 /* Main Function */
 void main(void) {
+    char name_buffer[10];
     ti_var_t myAppVar;
     int x;
 
@@ -60,7 +61,12 @@ void main(void) {
     /* Make sure we read these variables correctly too */
     if (data.var1 != VAR1_VALUE && data.var2 != VAR2_VALUE) goto err;
 
-    printText(0, 0, "Read was successful");
+    /* Ensure the name of the AppVar is correct */
+    ti_GetName(name_buffer, myAppVar);
+
+    printText(0, 0, "Appvar: ");
+    printText(8, 0, name_buffer);
+    printText(0, 1, "Read was successful");
     goto noerr;
 
 err:

src/fileioc/fileioc.asm

@@ -51,6 +51,7 @@ library 'FILEIOC', 4
 ;-------------------------------------------------------------------------------
 	export ti_DetectAny
 	export ti_GetVATPtr
+	export ti_GetName
 
 ;-------------------------------------------------------------------------------
 resizeBytes := $E30C0C
@@ -1084,7 +1085,43 @@ ti_GetVATPtr:
 	push	de
 	call	_IsSlotOpen
 	jp	z,_ReturnNull
-	jp	_GetSlotVATPtr
+	call	_GetSlotVATPtr
+	ld	hl,(hl)
+	ret
+
+;-------------------------------------------------------------------------------
+ti_GetName:
+; Gets the variable name of an open slot
+; Arguments:
+;  arg0 : Name buffer
+;  arg1 : Slot number
+; Returns:
+;  None
+	pop	de
+	pop	hl
+	pop	bc
+	push	bc
+	push	hl
+	push	de
+	push	hl
+	call	_IsSlotOpen
+	pop	de
+	ret	z
+	call	_GetSlotVATPtr
+	ld	hl,(hl)
+	ld	bc,-6
+	add	hl,bc
+	ld	b,(hl)				; length of name
+	dec	hl
+.copy:
+	ld	a,(hl)
+	ld	(de),a
+	inc	de
+	dec	hl
+	djnz	.copy
+	xor	a,a
+	ld	(de),a				; terminate the string
+	ret
 
 ;-------------------------------------------------------------------------------
 ti_SetVar:

src/fileioc/fileioc.h

@@ -300,6 +300,15 @@ void *ti_GetDataPtr(const ti_var_t slot);
  */
 void *ti_GetVATPtr(const ti_var_t slot);
 
+/**
+ * Gets the variable name of an already opened slot
+ *
+ * @param slot Variable slot to get name of
+ * @param name Buffer to store name in, generally at least 10 bytes including null terminator.
+ * @returns None
+ */
+void ti_GetName(char *name, const ti_var_t slot);
+
 /**
  * Sets a variable
  *