ti/vars: add os_DelVar() and arcUnarcVariable()

Author: adriweb

src/ce/arc_unarc.src

@@ -0,0 +1,75 @@
+	section	.text,"ax",@progbits
+	assume	adl = 1
+
+; bool arcUnarcVariable(uint8_t varType, uint8_t nameLen, const char *name)
+; {
+;     const int err = os_PushErrorHandler();
+;     if (err) {
+;         return false;
+;     }
+;     *(os_OP1) = varType;
+;     __builtin_memcpy((char*)(os_OP1+1), name, nameLen);
+;     *(os_OP1+1+nameLen) = '\0';
+;     asm volatile (
+;         "call 021448h"    // Arc_Unarc
+;         :
+;         : [flags] "iyl" (os_Flags)
+;         : "cc", "a", "bc", "de", "hl", "ix", "iy"
+;     );
+;     os_PopErrorHandler();
+;     return true;
+; }
+	public	_arcUnarcVariable
+_arcUnarcVariable:
+	push	ix
+	ld	hl, -6
+	call	__frameset
+	call	_os_PushErrorHandler
+	add	hl, bc
+	or	a, a
+	sbc	hl, bc
+	jr	nz, BB1_2
+	ld	(ix - 3), hl
+	ld	e, (ix + 12)
+	ld	iy, (ix + 15)
+	ld	bc, -3144199
+	ld	a, (ix + 9)
+	ld	(-3144200), a
+	or	a, a
+	sbc	hl, hl
+	ld	l, e
+	ld	(ix - 6), hl
+	push	hl
+	push	iy
+	push	bc
+	call	_memcpy
+	pop	hl
+	pop	hl
+	pop	hl
+	ld	hl, -3144199
+	ld	de, (ix - 6)
+	add	hl, de
+	ld	(hl), 0
+	ld	iy, $D00080	; flags
+	call 021448h ; Arc_Unarc
+	call	_os_PopErrorHandler
+	ld	hl, (ix - 3)
+BB1_2:
+	add	hl, bc
+	or	a, a
+	sbc	hl, bc
+	jr	z, BB1_4
+	ld	a, 0
+	jr	BB1_5
+BB1_4:
+	ld	a, -1
+BB1_5:
+	ld	sp, ix
+	pop	ix
+	pop	ix
+	ret
+
+	extern	_os_PushErrorHandler
+	extern	_os_PopErrorHandler
+	extern	__frameset
+	extern	_memcpy

src/ce/include/ti/vars.h

@@ -12,6 +12,7 @@
 #ifndef TI_VARS_H
 #define TI_VARS_H
 
+#include <stdbool.h>
 #include <stdint.h>
 #include <stddef.h>
 #include <ti/real.h>
@@ -291,6 +292,23 @@ void *os_NextSymEntry(void *entry, uint24_t *type, uint24_t *nameLength, char *n
  */
 int os_DelSymEntry(void *entry);
 
+/**
+ * Delete a var from RAM or archive (Flash).
+ *
+ * @param[in] entry An entry as used in (or returned from) \c os_NextSymEntry or \c os_ChkFindSym.
+ */
+void os_DelVar(void *entry);
+
+/**
+ * Archive (if in RAM) or Unarchive (if in Flash) a variable.
+ *
+ * @param[in] varType The variable type ID (like \c OS_TYPE_PROT_PRGM etc.)
+ * @param[in] nameLen Length of the variable name
+ * @param[in] name Variable name
+ * @return true on success, false on failure.
+ */
+bool arcUnarcVariable(uint8_t varType, uint8_t nameLen, const char *name);
+
 /**
  * Creates an TIOS Str.
  *

src/ce/os_delvar.src

@@ -0,0 +1,59 @@
+	assume	adl = 1
+	section	.text
+
+;  void os_DelVar(void *entry)
+;  {
+;      int clobber_hl, clobber_de;
+;      unsigned int *tmp = (unsigned int *)(entry - 5);
+;      void *data = (void*)((*tmp & 0xFF) << 16 | (*tmp & 0xFF00) | (*tmp & 0xFF0000) >> 16);
+;      asm volatile (
+;          "call 021434h"    // DelVarArc
+;          : "=l" (clobber_hl),
+;            "=e" (clobber_de)
+;          : [hl] "l" (entry),
+;            [de] "e" (data),
+;            [flags] "iyl" (os_Flags)
+;          : "cc", "a", "bc", "ix", "iy"
+;      );
+;  }
+	public	_os_DelVar
+_os_DelVar:
+	push	ix
+	call	__frameset0
+	ld	iy, (ix + 9)
+	ld	de, (iy - 5)
+	ld	a, 16
+	push	de
+	pop	hl
+	ld	c, a
+	call	__ishl
+	push	hl
+	pop	iy
+	push	de
+	pop	hl
+	ld	bc, 65280
+	call	__iand
+	push	hl
+	pop	bc
+	add	iy, bc
+	ex	de, hl
+	ld	c, a
+	call	__ishru
+	push	hl
+	pop	de
+	add	iy, de
+	ld	hl, (ix + 9)
+	lea	de, iy
+	ld	iy, $D00080	; flags
+	call 021434h ; DelVarArc
+	pop	ix
+	pop	ix
+	ret
+
+	extern	__frameset
+	extern	__iand
+	extern	__frameset0
+	extern	_memcpy
+	extern	__ishl
+	extern	__ishru
+