68 lines
1.9 KiB
NASM
68 lines
1.9 KiB
NASM
; ***************************************************************************
|
|
; copyright : (C) 2025 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. *
|
|
; ***************************************************************************
|
|
|
|
|
|
; ***************************************************************************
|
|
; code
|
|
|
|
|
|
.cseg
|
|
|
|
|
|
|
|
; ---------------------------------------------------------------------------
|
|
; @routine Main_SendValue
|
|
;
|
|
; @param R17 value id
|
|
; @param R19:R18 value
|
|
; @param R21:R20 denom (e.g. 100, meaning value must be divided by 100)
|
|
; @param R22 value type
|
|
|
|
Main_SendValue:
|
|
push r17
|
|
rcall NET_Buffer_Alloc ; (R16, R17, X)
|
|
pop r17
|
|
brcc sendValue_end ; jmp on error
|
|
push r16 ; buffer num
|
|
ldi r16, 0xff ; DEST addr
|
|
adiw xh:xl, 1
|
|
ldi yl, LOW(netInterfaceData)
|
|
ldi yh, HIGH(netInterfaceData)
|
|
rcall NETMSG_ValueWriteReport ; (R16, R17, R18, R19, R20, R21, R23, R24, R25)
|
|
sbiw xh:xl, 1
|
|
pop r16 ; buffer num
|
|
rcall NET_Interface_AddOutgoingMsgNum ; (R17, R18, X)
|
|
brcs sendValue_end ; jump if okay
|
|
rcall NET_Buffer_ReleaseByNum ; otherwise release buffer
|
|
clc
|
|
sendValue_end:
|
|
ret
|
|
; @end
|
|
|
|
|
|
|
|
; ---------------------------------------------------------------------------
|
|
; @routine Main_Send8BitValue
|
|
;
|
|
; Send 8 bit value with denominator 1.
|
|
;
|
|
; @param R16 value
|
|
; @param R17 value id
|
|
; @param R22 value type
|
|
|
|
Main_Send8BitValue:
|
|
mov r18, r16 ; R19:R18 = value
|
|
clr r19
|
|
ldi r20, 1 ; R21:R20 = denom
|
|
clr r21
|
|
rjmp Main_SendValue
|
|
; @end
|
|
|
|
|