87 lines
2.2 KiB
NASM
87 lines
2.2 KiB
NASM
; ***************************************************************************
|
|
; 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
|