add ti_ArchiveHasRoom

Author: mateoconlechuga

src/fileioc/fileioc.asm

@@ -2,7 +2,7 @@
 include '../include/library.inc'
 ;-------------------------------------------------------------------------------
 
-library 'FILEIOC', 4
+library 'FILEIOC', 5
 
 ;-------------------------------------------------------------------------------
 ; no dependencies
@@ -54,6 +54,10 @@ library 'FILEIOC', 4
 	export ti_GetName
 	export ti_Rename
 	export ti_RenameVar
+;-------------------------------------------------------------------------------
+; v5 functions
+;-------------------------------------------------------------------------------
+	export ti_ArchiveHasRoom
 
 ;-------------------------------------------------------------------------------
 vat_ptr0 := $d0244e
@@ -1371,6 +1375,24 @@ ti_RclVar:
 	ld	(hl), de
 	ret
 
+;-------------------------------------------------------------------------------
+ti_ArchiveHasRoom:
+; checks if there is room in the archive before a garbage collect
+; args:
+;  sp + 3 : number of bytes to store into the archive
+; return:
+;  true if there is room, false if not
+	pop	de
+	ex	(sp),hl
+	push	de
+	ld	bc,12
+	add	hl,bc
+	call	_FindFreeArcSpot
+	ld	a,1
+	ret	nz
+	dec	a
+	ret
+
 ;-------------------------------------------------------------------------------
 ; internal library routines
 ;-------------------------------------------------------------------------------

src/fileioc/fileioc.h

@@ -371,6 +371,17 @@ uint8_t ti_StoVar(const ti_var_t var_type_to, void *to, const ti_var_t var_type_
  */
 uint8_t ti_RclVar(const uint8_t var_type, const char *var_name, void **data_struct);
 
+
+/**
+ * Checks to see if there is room in the archive for storing \p num_bytes,
+ * without needing to execute a Garbage Collect.
+ *
+ * @param num_bytes Number of bytes to be stored to the archive.
+ * @returns true if the bytes can be stored to the archive without a
+            Garbage Collect.
+ */
+bool ti_ArchiveHasRoom(uint24_t num_bytes);
+
 /**
  * Allocates space for a real variable
  * @returns Pointer to variable