97 lines
2.6 KiB
NASM
97 lines
2.6 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. *
|
|
; ***************************************************************************
|
|
|
|
|
|
|
|
; ---------------------------------------------------------------------------
|
|
; @routine MultiFan_ReportSpeed1
|
|
;
|
|
; @param R17 value id
|
|
; @param R19:R18 speed (RPM)
|
|
; @clobbers R16, R17, R18, R19, R20, R21, R22, R23, R24, R25, X
|
|
|
|
MultiFan_ReportSpeed1:
|
|
push yl
|
|
push yh
|
|
ldi yl, LOW(multiFanObjects)
|
|
ldi yh, HIGH(multiFanObjects)
|
|
ldi r17, VALUE_ID_FAN1_SPEED
|
|
ldd r18, Y+MULTIFAN_FAN_OFFS_CURR_FREQUENCY_LO
|
|
ldd r19, Y+MULTIFAN_FAN_OFFS_CURR_FREQUENCY_HI
|
|
rcall multiFanReportSpeed
|
|
pop yh
|
|
pop yl
|
|
ret
|
|
; @end
|
|
|
|
|
|
|
|
; ---------------------------------------------------------------------------
|
|
; @routine MultiFan_ReportSpeed2
|
|
;
|
|
; @param R17 value id
|
|
; @param R19:R18 speed (RPM)
|
|
; @clobbers R16, R17, R18, R19, R20, R21, R22, R23, R24, R25, X
|
|
|
|
MultiFan_ReportSpeed2:
|
|
push yl
|
|
push yh
|
|
ldi yl, LOW(multiFanObjects+MULTIFAN_FAN_SIZE)
|
|
ldi yh, HIGH(multiFanObjects+MULTIFAN_FAN_SIZE)
|
|
ldi r17, VALUE_ID_FAN2_SPEED
|
|
ldd r18, Y+MULTIFAN_FAN_OFFS_CURR_FREQUENCY_LO
|
|
ldd r19, Y+MULTIFAN_FAN_OFFS_CURR_FREQUENCY_HI
|
|
rcall multiFanReportSpeed
|
|
pop yh
|
|
pop yl
|
|
ret
|
|
; @end
|
|
|
|
|
|
|
|
; ---------------------------------------------------------------------------
|
|
; @routine MultiFan_ReportSpeed2
|
|
;
|
|
; @param R17 value id
|
|
; @param R19:R18 speed (RPM)
|
|
; @clobbers R16, R17, R18, R19, R20, R21, R22, R23, R24, R25, X
|
|
|
|
MultiFan_ReportSpeed3:
|
|
push yl
|
|
push yh
|
|
ldi yl, LOW(multiFanObjects+(MULTIFAN_FAN_SIZE*2))
|
|
ldi yh, HIGH(multiFanObjects+(MULTIFAN_FAN_SIZE*2))
|
|
ldi r17, VALUE_ID_FAN3_SPEED
|
|
ldd r18, Y+MULTIFAN_FAN_OFFS_CURR_FREQUENCY_LO
|
|
ldd r19, Y+MULTIFAN_FAN_OFFS_CURR_FREQUENCY_HI
|
|
rcall multiFanReportSpeed
|
|
pop yh
|
|
pop yl
|
|
ret
|
|
; @end
|
|
|
|
|
|
|
|
; ---------------------------------------------------------------------------
|
|
; @routine multiFanReportSpeed
|
|
;
|
|
; @param R17 value id
|
|
; @param R19:R18 speed (RPM)
|
|
; @clobbers R16, R17, R18, R19, R20, R21, R22, R23, R24, R25, X, Y
|
|
|
|
multiFanReportSpeed:
|
|
ldi r20, 1
|
|
clr r21
|
|
ldi r22, AQHOME_VALUETYPE_RPM
|
|
rcall Main_SendValueReport ; (R16, R17, R18, R19, R20, R21, R23, R24, R25, X)
|
|
ret
|
|
; @end
|
|
|
|
|