gui2: started working on SensorWatch for GUI2. Works so far.
This commit is contained in:
Martin Preuss
316
avr/modules/lcd2/gui2/aqhome/sensorwatch.asm
Normal file
316
avr/modules/lcd2/gui2/aqhome/sensorwatch.asm
Normal file
@@ -0,0 +1,316 @@
|
||||
; ***************************************************************************
|
||||
; 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_GUI2_SENSORWATCH_ASM
|
||||
#define AQH_AVR_GUI2_SENSORWATCH_ASM
|
||||
|
||||
|
||||
; ***************************************************************************
|
||||
; defines
|
||||
|
||||
.equ SENSORWATCH_OFFS_BEGIN = VLAYOUT_SIZE
|
||||
.equ SENSORWATCH_OFFS_BASEVALUEID = SENSORWATCH_OFFS_BEGIN+0
|
||||
.equ SENSORWATCH_OFFS_EEPROMID = SENSORWATCH_OFFS_BEGIN+1
|
||||
.equ SENSORWATCH_OFFS_NODEADDR = SENSORWATCH_OFFS_BEGIN+2
|
||||
.equ SENSORWATCH_OFFS_VALUEID = SENSORWATCH_OFFS_BEGIN+3
|
||||
.equ SENSORWATCH_OFFS_UPPER_LIMIT_WARN_LO = SENSORWATCH_OFFS_BEGIN+4
|
||||
.equ SENSORWATCH_OFFS_UPPER_LIMIT_WARN_HI = SENSORWATCH_OFFS_BEGIN+5
|
||||
.equ SENSORWATCH_OFFS_LOWER_LIMIT_WARN_LO = SENSORWATCH_OFFS_BEGIN+6
|
||||
.equ SENSORWATCH_OFFS_LOWER_LIMIT_WARN_HI = SENSORWATCH_OFFS_BEGIN+7
|
||||
.equ SENSORWATCH_OFFS_UPPER_LIMIT_CRIT_LO = SENSORWATCH_OFFS_BEGIN+8
|
||||
.equ SENSORWATCH_OFFS_UPPER_LIMIT_CRIT_HI = SENSORWATCH_OFFS_BEGIN+9
|
||||
.equ SENSORWATCH_OFFS_LOWER_LIMIT_CRIT_LO = SENSORWATCH_OFFS_BEGIN+10
|
||||
.equ SENSORWATCH_OFFS_LOWER_LIMIT_CRIT_HI = SENSORWATCH_OFFS_BEGIN+11
|
||||
.equ SENSORWATCH_OFFS_VALUE_LO = SENSORWATCH_OFFS_BEGIN+12
|
||||
.equ SENSORWATCH_OFFS_VALUE_HI = SENSORWATCH_OFFS_BEGIN+13
|
||||
.equ SENSORWATCH_OFFS_TYPE = SENSORWATCH_OFFS_BEGIN+14
|
||||
.equ SENSORWATCH_SIZE = SENSORWATCH_OFFS_BEGIN+15
|
||||
|
||||
|
||||
.equ SENSORWATCH_VALUE = WIDGET_VALUE_NEXTFREE+0
|
||||
.equ SENSORWATCH_VALUE_NEXTFREE = SENSORWATCH_VALUE+1
|
||||
|
||||
|
||||
.equ SENSORWATCH_TYPE_CO2 = 1
|
||||
.equ SENSORWATCH_TYPE_TEMP = 2
|
||||
.equ SENSORWATCH_TYPE_HUM = 3
|
||||
.equ SENSORWATCH_TYPE_NEXTFREE = 4
|
||||
|
||||
|
||||
; descriptors
|
||||
.equ SENSORWATCH_DESCR_OFFS_TITLERES = 0
|
||||
.equ SENSORWATCH_DESCR_OFFS_IMGRES = 2
|
||||
.equ SENSORWATCH_DESCR_OFFS_POSTKOMMADIGITS = 4
|
||||
|
||||
|
||||
|
||||
; ***************************************************************************
|
||||
; code
|
||||
|
||||
.cseg
|
||||
|
||||
|
||||
|
||||
; ---------------------------------------------------------------------------
|
||||
; @routine SensorWatch_new @global
|
||||
;
|
||||
; @return CFLAG set of okay, cleared otherwise
|
||||
; @return Y address of newly created object
|
||||
; @param X parent widget
|
||||
; @param r16 value for OBJECT_OFFS_OPTS
|
||||
; @param r17 value for WIDGET_OFFS_PACK
|
||||
; @param r20 base value id
|
||||
; @param r21 eeprom id
|
||||
; @param r22 type (see @ref SENSORWATCH_TYPE_CO2)
|
||||
; @clobbers any
|
||||
|
||||
SensorWatch_new:
|
||||
push r20
|
||||
push r21
|
||||
push r22
|
||||
ldi r24, LOW(SENSORWATCH_SIZE)
|
||||
ldi r25, HIGH(SENSORWATCH_SIZE)
|
||||
bigcall Object_Alloc ; (!r16, !r17, !X)
|
||||
pop r22
|
||||
pop r21
|
||||
pop r20
|
||||
brcc SensorWatch_new_ret
|
||||
rcall SensorWatch_Init ; (r16, r17, X)
|
||||
sec
|
||||
SensorWatch_new_ret:
|
||||
ret
|
||||
; @end
|
||||
|
||||
|
||||
|
||||
; ---------------------------------------------------------------------------
|
||||
; @routine SensorWatch_Init @global
|
||||
;
|
||||
; @param Y address of widget
|
||||
; @param X parent widget (if any)
|
||||
; @param r16 value for OBJECT_OFFS_OPTS
|
||||
; @param r17 value for WIDGET_OFFS_PACK
|
||||
; @param r20 base value id
|
||||
; @param r21 eeprom id
|
||||
; @param r22 type (see @ref SENSORWATCH_TYPE_CO2)
|
||||
; @clobbers r16, r17, X
|
||||
|
||||
SensorWatch_Init:
|
||||
push r20
|
||||
push r21
|
||||
push r22
|
||||
; call base class
|
||||
bigcall VLayout_Init
|
||||
pop r22
|
||||
pop r21
|
||||
pop r20
|
||||
|
||||
; setup valueLabel data
|
||||
std Y+SENSORWATCH_OFFS_BASEVALUEID, r20
|
||||
std Y+SENSORWATCH_OFFS_EEPROMID, r21
|
||||
std Y+SENSORWATCH_OFFS_TYPE, r22
|
||||
|
||||
; set default signal map
|
||||
ldi r16, LOW(SensorWatch_DefaultSignalmap*2)
|
||||
std Y+OBJECT_OFFS_SIGNALMAP_LO, r16
|
||||
ldi r16, HIGH(SensorWatch_DefaultSignalmap*2)
|
||||
std Y+OBJECT_OFFS_SIGNALMAP_HI, r16
|
||||
|
||||
; create sub windows
|
||||
rcall sensorWatchCreateTitleLabel
|
||||
rcall sensorWatchCreateImageViewer
|
||||
rcall sensorWatchCreateValueLabel
|
||||
|
||||
ret
|
||||
; @end
|
||||
|
||||
|
||||
|
||||
; ---------------------------------------------------------------------------
|
||||
; @routine sensorWatchGetTitleResId
|
||||
;
|
||||
; @param r16 sensor type (see @ref SENSORWATCH_TYPE_CO2)
|
||||
; @return r21:r20 ressource for sensor title
|
||||
|
||||
sensorWatchGetTitleResId:
|
||||
rcall sensorWatchGetDescriptor ; (r17, r18, r19)
|
||||
adiw zh:zl, SENSORWATCH_DESCR_OFFS_TITLERES
|
||||
lpm r20, Z+
|
||||
lpm r21, Z
|
||||
ret
|
||||
; @end
|
||||
|
||||
|
||||
|
||||
; ---------------------------------------------------------------------------
|
||||
; @routine sensorWatchGetImgResId
|
||||
;
|
||||
; @param r16 sensor type (see @ref SENSORWATCH_TYPE_CO2)
|
||||
; @return r21:r20 ressource for sensor title
|
||||
|
||||
sensorWatchGetImgResId:
|
||||
rcall sensorWatchGetDescriptor ; (r17, r18, r19)
|
||||
adiw zh:zl, SENSORWATCH_DESCR_OFFS_IMGRES
|
||||
lpm r20, Z+
|
||||
lpm r21, Z
|
||||
ret
|
||||
; @end
|
||||
|
||||
|
||||
|
||||
; ---------------------------------------------------------------------------
|
||||
; @routine sensorWatchGetPostKommaDigits
|
||||
;
|
||||
; @param r16 sensor type (see @ref SENSORWATCH_TYPE_CO2)
|
||||
; @return r20 postkomma digits
|
||||
|
||||
sensorWatchGetPostKommaDigits:
|
||||
rcall sensorWatchGetDescriptor ; (r17, r18, r19)
|
||||
adiw zh:zl, SENSORWATCH_DESCR_OFFS_POSTKOMMADIGITS
|
||||
lpm r20, Z
|
||||
ret
|
||||
; @end
|
||||
|
||||
|
||||
|
||||
; ---------------------------------------------------------------------------
|
||||
; @routine sensorWatchGetDescriptor
|
||||
;
|
||||
; @param r16 sensor type (see @ref SENSORWATCH_TYPE_CO2)
|
||||
; @return Z byte address of start of descriptor for sensor type (for LPM!)
|
||||
; @clobbers r17, r18, r19
|
||||
|
||||
sensorWatchGetDescriptor:
|
||||
cpi r16, SENSORWATCH_TYPE_NEXTFREE
|
||||
brcs sensorWatchGetDescriptor_get
|
||||
clr r16 ; default to entry 0
|
||||
sensorWatchGetDescriptor_get:
|
||||
ldi zl, LOW(SensorWatch_Descriptors*2)
|
||||
ldi zh, HIGH(SensorWatch_Descriptors*2)
|
||||
clr r17
|
||||
mov r18, r16
|
||||
mov r19, r17
|
||||
lsl r18 ; *2
|
||||
rol r19
|
||||
add r18, r16 ; *3
|
||||
adc r19, r17
|
||||
lsl r18 ; *6
|
||||
rol r19
|
||||
add zl, r18
|
||||
adc zh, r19
|
||||
ret
|
||||
; @end
|
||||
|
||||
|
||||
|
||||
|
||||
; ---------------------------------------------------------------------------
|
||||
; @routine sensorWatchCreateTitleLabel
|
||||
;
|
||||
; @param Y address of main window widget
|
||||
; @param r21:r20 ressource id for title
|
||||
; @return CFLAG set of okay, cleared otherwise
|
||||
|
||||
sensorWatchCreateTitleLabel:
|
||||
push yl
|
||||
push yh
|
||||
ldd r16, Y+SENSORWATCH_OFFS_TYPE
|
||||
rcall sensorWatchGetTitleResId ; r21:r20=ressource id for title
|
||||
mov xl, yl
|
||||
mov xh, yh
|
||||
ldi r16, 0
|
||||
ldi r17, (WIDGET_PACK_CENTER<<WIDGET_PACK_HSELF0_BIT) | (WIDGET_PACK_CENTER<<WIDGET_PACK_VSELF0_BIT) | \
|
||||
(WIDGET_PACK_CENTER<<WIDGET_PACK_HCONTENT0_BIT) | (WIDGET_PACK_CENTER<<WIDGET_PACK_VCONTENT0_BIT)
|
||||
bigcall Label_new
|
||||
pop yh
|
||||
pop yl
|
||||
ret
|
||||
; @end
|
||||
|
||||
|
||||
|
||||
; ---------------------------------------------------------------------------
|
||||
; @routine sensorWatchCreateImageViewer
|
||||
;
|
||||
; @param Y address of main window widget
|
||||
; @param r21:r20 ressource id for image
|
||||
; @return CFLAG set of okay, cleared otherwise
|
||||
|
||||
sensorWatchCreateImageViewer:
|
||||
push yl
|
||||
push yh
|
||||
ldd r16, Y+SENSORWATCH_OFFS_TYPE
|
||||
rcall sensorWatchGetImgResId ; r21:r20=ressource id for image
|
||||
mov xl, yl
|
||||
mov xh, yh
|
||||
ldi r16, 0
|
||||
ldi r17, (WIDGET_PACK_CENTER<<WIDGET_PACK_HSELF0_BIT) | (WIDGET_PACK_BEGIN<<WIDGET_PACK_VSELF0_BIT) | \
|
||||
(WIDGET_PACK_CENTER <<WIDGET_PACK_HCONTENT0_BIT) | (WIDGET_PACK_CENTER<<WIDGET_PACK_VCONTENT0_BIT)
|
||||
bigcall ImageView_new
|
||||
pop yh
|
||||
pop yl
|
||||
ret
|
||||
; @end
|
||||
|
||||
|
||||
|
||||
; ---------------------------------------------------------------------------
|
||||
; @routine sensorWatchCreateValueLabel
|
||||
;
|
||||
; @param Y address of main window widget
|
||||
; @return CFLAG set of okay, cleared otherwise
|
||||
|
||||
sensorWatchCreateValueLabel:
|
||||
push yl
|
||||
push yh
|
||||
ldd r16, Y+SENSORWATCH_OFFS_TYPE
|
||||
rcall sensorWatchGetPostKommaDigits ; r20=postkomma digits
|
||||
mov xl, yl
|
||||
mov xh, yh
|
||||
ldi r16, 0
|
||||
ldi r17, (WIDGET_PACK_CENTER<<WIDGET_PACK_HSELF0_BIT) | (WIDGET_PACK_BEGIN<<WIDGET_PACK_VSELF0_BIT) | \
|
||||
(WIDGET_PACK_CENTER <<WIDGET_PACK_HCONTENT0_BIT) | (WIDGET_PACK_CENTER<<WIDGET_PACK_VCONTENT0_BIT)
|
||||
bigcall ValueLabel_new
|
||||
pop yh
|
||||
pop yl
|
||||
ret
|
||||
; @end
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
; ***************************************************************************
|
||||
; data in FLASH
|
||||
|
||||
SensorWatch_DefaultSignalmap:
|
||||
; header
|
||||
.dw VLayout_DefaultSignalmap*2 ; next table to use
|
||||
; entries
|
||||
.db 0, WIDGET_SIGNAL_DRAW, LOW(Widget_OnDraw), HIGH(Widget_OnDraw)
|
||||
.db 0, 0, 0, 0 ; end of table
|
||||
|
||||
|
||||
|
||||
SensorWatch_Descriptors:
|
||||
; res for title res for image post-komma digits
|
||||
.dw RESSSOURCE_TXT_UNKNOWN_S, RESSSOURCE_IMG_CLOUD96, 0 ; unknown
|
||||
.dw RESSSOURCE_TXT_CO2_S, RESSSOURCE_IMG_CLOUD96, 0 ; co2
|
||||
.dw RESSSOURCE_TXT_TEMP_S, RESSSOURCE_IMG_TEMP96, 2 ; temp
|
||||
.dw RESSSOURCE_TXT_HUM_S, RESSSOURCE_IMG_HUMIDITY96, 0 ; hum
|
||||
|
||||
|
||||
#endif
|
||||
|
||||
Reference in New Issue
Block a user