gui: sorted files. started working on TextSel class.

avr/modules/lcd2/gui/base/wlist_elem.asm

@@ -0,0 +1,86 @@
+; ***************************************************************************
+; copyright   : (C) 2026 by Martin Preuss
+; email       : martin@libchipcard.de
+;
+; ***************************************************************************
+; * This file is part of the project "AqHome".                              *
+; * Please see toplevel file COPYING of that project for license details.   *
+; ***************************************************************************
+
+#ifndef AQH_AVR_GUI_WLIST_ELEM_ASM
+#define AQH_AVR_GUI_WLIST_ELEM_ASM
+
+
+
+; ***************************************************************************
+; defines
+
+.equ WLIST_ELEM_OFFS_BEGIN      =  LIST_SIZE
+.equ WLIST_ELEM_OFFS_IMGRES_LO  =  WLIST_ELEM_OFFS_BEGIN+0
+.equ WLIST_ELEM_OFFS_IMGRES_HI  =  WLIST_ELEM_OFFS_BEGIN+1
+.equ WLIST_ELEM_OFFS_TXTRES_LO  =  WLIST_ELEM_OFFS_BEGIN+2
+.equ WLIST_ELEM_OFFS_TXTRES_HI  =  WLIST_ELEM_OFFS_BEGIN+3
+.equ WLIST_ELEM_OFFS_USER_LO    =  WLIST_ELEM_OFFS_BEGIN+4
+.equ WLIST_ELEM_OFFS_USER_HI    =  WLIST_ELEM_OFFS_BEGIN+5
+.equ WLIST_ELEM_OFFS_HEIGHT_LO  =  WLIST_ELEM_OFFS_BEGIN+6
+.equ WLIST_ELEM_OFFS_HEIGHT_HI  =  WLIST_ELEM_OFFS_BEGIN+7
+.equ WLIST_ELEM_SIZE            =  WLIST_ELEM_OFFS_BEGIN+8
+
+
+
+
+; ***************************************************************************
+; code
+
+.cseg
+
+
+
+; ---------------------------------------------------------------------------
+; @routine WidgetListElem_new @global
+;
+; @return Y address of created object
+
+WidgetListElem_new:
+  ldi r24, LOW(WLIST_ELEM_SIZE)
+  ldi r25, HIGH(WLIST_ELEM_SIZE)
+  bigcall Heap_AllocAndZero
+  brcc WidgetListElem_new_ret
+  mov yl, xl
+  mov yh, xh
+  bigcall List_InitObject          ; (r16)
+  sec
+  ret
+WidgetListElem_new_ret:
+  ret
+; @end
+
+
+
+; ---------------------------------------------------------------------------
+; @routine WidgetListElem_free @global
+;
+; @param Y address of object
+; @clobbers r16, r17, r24, r25, X
+
+WidgetListElem_free:
+  tst yl
+  brne WidgetListElem_free_notNull
+  tst yh
+  brne WidgetListElem_free_notNull
+  rjmp WidgetListElem_free_ret
+WidgetListElem_free_notNull:
+  bigcall List_FiniObject           ; (r16)
+  mov xl, yl
+  mov xh, yh
+  bigcall Heap_Free                 ; (r16, r17, r24, r25, X)
+WidgetListElem_free_ret:
+  ret
+; @end
+
+
+
+
+
+
+#endif