379 lines
8.9 KiB
NASM
379 lines
8.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 ioRawInit
|
|
; Send a message
|
|
;
|
|
; @clobbers r16, r17
|
|
|
|
ioRawInit:
|
|
; set baudrate
|
|
.if clock == 8000000
|
|
ldi r16, 25 ; (19.2Kb/s at 8MHz)
|
|
ldi r17, 0
|
|
.endif
|
|
|
|
.if clock == 1000000
|
|
ldi r16, 3 ; (19.2Kb/s at 1MHz)
|
|
ldi r17, 0
|
|
.endif
|
|
|
|
sts UBRR1H, r17
|
|
sts UBRR1L, r16
|
|
|
|
; set character format (asynchronous USART, 8-bit, one stop bit, no parity)
|
|
ldi r16, (3<<UCSZ10)
|
|
sts UCSR1C, r16
|
|
|
|
; enable transceiver
|
|
lds r16, UCSR1B
|
|
; cbr r16, (1<<UDRIE1) ; disable DRE interrupt
|
|
ori r16, (1<<RXEN1) | (1<<TXEN1) ; enable transmit and receive
|
|
sts UCSR1B, r16
|
|
ret
|
|
;@end
|
|
|
|
|
|
|
|
; ---------------------------------------------------------------------------
|
|
; @routine ioRawSendMsg
|
|
; Send a message
|
|
;
|
|
; @clobbers r16, r17, X
|
|
|
|
ioRawSendMsg:
|
|
ldi xl, LOW(flashSendBuffer)
|
|
ldi xh, HIGH(flashSendBuffer)
|
|
rjmp ioRawSendPacket ; (r16, r17, X)
|
|
; @end
|
|
|
|
|
|
|
|
; ---------------------------------------------------------------------------
|
|
; @routine UART_HW_Uart1_RawSendPacket
|
|
; Send packet.
|
|
;
|
|
; @param X buffer to send
|
|
; @return CFLAG: set if okay (packet sent), cleared on error
|
|
; @clobbers r16, r17, X
|
|
|
|
ioRawSendPacket:
|
|
adiw xh:xl, 1
|
|
ld r17, X
|
|
sbiw xh:xl, 1
|
|
ldi r16, 3 ; add DEST, LEN, CRC bytes
|
|
add r17, r16
|
|
ioRawSendPacket_loop:
|
|
lds r16, UCSR1A
|
|
sbrs r16, UDRE1
|
|
rjmp ioRawSendPacket_loop
|
|
sbr r16, (1<<TXC1)
|
|
sts UCSR1A, r16
|
|
ld r16, X+
|
|
sts UDR1, r16
|
|
dec r17
|
|
brne ioRawSendPacket_loop
|
|
sec
|
|
ret
|
|
; @end
|
|
|
|
|
|
|
|
|
|
|
|
|
|
; ---------------------------------------------------------------------------
|
|
; @routine ioRawWaitForValidMsg
|
|
; Wait for valid incoming msg
|
|
;
|
|
; @return CFLAG set if okay (packet received), cleared on error
|
|
; @clobbers: r16, r17, r18 (r19, r22, X)
|
|
|
|
ioRawWaitForValidMsg:
|
|
ldi xl, LOW(flashRecvBuffer)
|
|
ldi xh, HIGH(flashRecvBuffer)
|
|
ldi r18, FLASH_RECVBUFFER_MAXLEN-3 ; maximum accepted msglen byte
|
|
ldi r20, 10 ; 10 secs
|
|
rjmp ioRecvMsg
|
|
; @end
|
|
|
|
|
|
|
|
; ---------------------------------------------------------------------------
|
|
; @routine ioRecvMsg
|
|
;
|
|
; Wait for next message, if received check validity.
|
|
; On error skip the currently received message.
|
|
;
|
|
; @return CFLAG set if okay, cleared on error
|
|
; @param r18 max accepted msglen size (buffersize-3)
|
|
; @param R20 max number of secs to wait for incoming message
|
|
; @param X buffer to receive to
|
|
; @clobbers (r16, r17, r18, r19, r20, r22)
|
|
|
|
ioRecvMsg:
|
|
rcall ioRawRecvMsg ; (r16, r17, r18, r19, r20, r22)
|
|
brcc ioRecvMsg_error
|
|
push xl
|
|
push xh
|
|
rcall com2CheckMessageInBuffer ; (R16, R17, R18, R19, R20, X)
|
|
pop xh
|
|
pop xl
|
|
brcs ioRecvMsg_end
|
|
ioRecvMsg_error:
|
|
rcall ioRecvSkipMessage ; skip remainder of the message
|
|
clc
|
|
ioRecvMsg_end:
|
|
ret
|
|
; @end
|
|
|
|
|
|
|
|
; ---------------------------------------------------------------------------
|
|
; @routine ioRecvSkipMessage
|
|
;
|
|
; skip all receiption data until a data pause of about 10ms
|
|
;
|
|
; @clobbers r16
|
|
|
|
ioRecvSkipMessage:
|
|
ioRecvSkipMessage_loop:
|
|
rcall ioRecvFlush ; (r16)
|
|
; wait for a data pause of 10ms
|
|
rcall ioRawRecvByteWithin10ms ; (r20, r22)
|
|
brcs ioRecvSkipMessage_loop
|
|
ret
|
|
; @end
|
|
|
|
|
|
|
|
; ---------------------------------------------------------------------------
|
|
; @routine ioRecvFlush
|
|
;
|
|
; flush receiption buffer.
|
|
;
|
|
; @clobbers r16
|
|
|
|
ioRecvFlush:
|
|
lds r16, UCSR1A ; read status
|
|
sbrs r16, RXC1
|
|
ret
|
|
lds r16, UDR1 ; read data byte
|
|
rjmp ioRecvFlush
|
|
; @end
|
|
|
|
|
|
|
|
; ---------------------------------------------------------------------------
|
|
; @routine ioRawRecvMsg
|
|
;
|
|
; @return CFLAG set if okay, cleared on error
|
|
; @param r18 max accepted msglen size (buffersize-3)
|
|
; @param R20 max number of secs to wait for incoming message
|
|
; @param X buffer to receive to
|
|
; @clobbers r16, r17, r19 (r18, r20, r22)
|
|
|
|
ioRawRecvMsg:
|
|
lds r19, UCSR1A
|
|
cbr r19, (1<<FE1) | (1<<DOR1) | (1<<UPE1)
|
|
sts UCSR1A, r19 ; clear errors
|
|
; wait for begin of message
|
|
rcall ioRawWaitForDataSeconds ; (r20, r22)
|
|
brcc ioRawRecvMsg_end
|
|
clr r19 ; bytecounter
|
|
; read first two bytes
|
|
ldi r17, 2 ; 2 bytes: address byte, msg len
|
|
add r19, r17
|
|
rcall ioRawRecvBytes ; (r16, r17, r18, r22)
|
|
brcc ioRawRecvMsg_error
|
|
cp r16, r20 ; check size
|
|
brcc ioRawRecvMsg_error
|
|
inc r16 ; account for checksum byte
|
|
; read remaining bytes including checksum byte
|
|
mov r17, r16
|
|
add r19, r17
|
|
rcall ioRawRecvBytes ; (r16, r17, r18, r22)
|
|
brcc ioRawRecvMsg_error
|
|
sub xl, r19 ; let X point back to begin of message
|
|
sbc xh, r19
|
|
add xh, r19
|
|
sec
|
|
ret
|
|
ioRawRecvMsg_error:
|
|
clc
|
|
ioRawRecvMsg_end:
|
|
ret
|
|
; @end
|
|
|
|
|
|
|
|
; ---------------------------------------------------------------------------
|
|
; @routine ioRawRecvBytes
|
|
;
|
|
; @return CFLAG set if okay (data available), cleared on error
|
|
; @return r16 last byte received
|
|
; @param r17 number of bytes to read
|
|
; @param x buffer to receive to
|
|
; @clobbers r16, r17 (r20, r22)
|
|
|
|
ioRawRecvBytes:
|
|
rcall ioRawRecvByteWithin10ms ; (r20, r22)
|
|
brcc ioRawRecvBytes_end
|
|
st X+, r16
|
|
dec r17
|
|
brne ioRawRecvBytes
|
|
sec
|
|
ioRawRecvBytes_end:
|
|
ret
|
|
; @end
|
|
|
|
|
|
|
|
; ---------------------------------------------------------------------------
|
|
; @routine ioRawRecvByteWithin10ms
|
|
;
|
|
; Wait up to 10ms for incoming byte and read it.
|
|
;
|
|
; @return CFLAG set if okay (data available), cleared on error
|
|
; @return r16 byte received (if CFLAG set)
|
|
; @clobbers: r20, r22
|
|
|
|
ioRawRecvByteWithin10ms:
|
|
rcall ioRawWaitForData10ms ; (R20, R22)
|
|
brcc ioRawRecvByteWithin10ms_end
|
|
lds r16, UCSR1A ; check for errors
|
|
andi r16, (1<<FE1) | (1<<DOR1) | (1<<UPE1)
|
|
brne ioRawRecvByteWithin10ms_error
|
|
lds r16, UDR1 ; read data byte
|
|
sec
|
|
ret
|
|
ioRawRecvByteWithin10ms_error:
|
|
clc
|
|
ioRawRecvByteWithin10ms_end:
|
|
ret
|
|
; @end
|
|
|
|
|
|
|
|
; ---------------------------------------------------------------------------
|
|
; @routine ioRawWaitForDataSeconds
|
|
;
|
|
; Wait for incoming data for max 1s
|
|
;
|
|
; @return CFLAG set if okay (data available), cleared on error
|
|
; @param r20 maximum number of seconds to wait
|
|
; @clobbers: r20, r22
|
|
|
|
ioRawWaitForDataSeconds:
|
|
ioRawWaitForDataSeconds_loop:
|
|
push r20
|
|
rcall ioRawWaitForData1s ; (r20, r22)
|
|
pop r20
|
|
brcs ioRawWaitForDataSeconds_gotit
|
|
sbi LED_PIN, LED_PINNUM ; toggle
|
|
dec r20
|
|
brne ioRawWaitForDataSeconds_loop
|
|
clc
|
|
ioRawWaitForDataSeconds_gotit:
|
|
ret
|
|
; @end
|
|
|
|
|
|
|
|
; ---------------------------------------------------------------------------
|
|
; @routine ioRawWaitForData1s
|
|
;
|
|
; Wait for incoming data for max 1s
|
|
;
|
|
; @return CFLAG set if okay (data available), cleared on error
|
|
; @clobbers: r20, r22
|
|
|
|
ioRawWaitForData1s:
|
|
ldi r20, 100
|
|
ioRawWaitForData1s_loop:
|
|
push r20
|
|
rcall ioRawWaitForData10ms ; (R20, R22)
|
|
pop r20
|
|
brcs ioRawWaitForData1s_gotit
|
|
dec r20
|
|
brne ioRawWaitForData1s_loop
|
|
clc
|
|
ioRawWaitForData1s_gotit:
|
|
ret
|
|
; @end
|
|
|
|
|
|
|
|
; ---------------------------------------------------------------------------
|
|
; @routine ioRawWaitForData10ms
|
|
;
|
|
; Wait for incoming data for max 10 milliseconds.
|
|
;
|
|
; @return CFLAG set if okay (data available), cleared on error
|
|
; @clobbers: r20, r22
|
|
|
|
ioRawWaitForData10ms:
|
|
.if clock == 8000000
|
|
ldi r20, 80
|
|
.endif
|
|
.if clock == 1000000
|
|
ldi r20, 10
|
|
.endif
|
|
ioRawWaitForData10ms_loop:
|
|
push r20
|
|
rcall ioRawWaitForData1000Cycles ; (r20, r22)
|
|
pop r20
|
|
brcs ioRawWaitForData10ms_gotit
|
|
dec r20
|
|
brne ioRawWaitForData10ms_loop
|
|
clc
|
|
ioRawWaitForData10ms_gotit:
|
|
ret
|
|
; @end
|
|
|
|
|
|
|
|
; ---------------------------------------------------------------------------
|
|
; @routine ioRawWaitForData1000Cycles
|
|
;
|
|
; Wait for incoming data for max 1000 clock cycles
|
|
; (about 1ms at 1MHz, 0.125 at 8MHz)
|
|
;
|
|
; @return CFLAG set if okay (packet received), cleared on error
|
|
; @clobbers: r20, r22
|
|
|
|
ioRawWaitForData1000Cycles:
|
|
ldi r20, 140 ; 1
|
|
ioRawWaitForData_loop:
|
|
lds r22, UCSR1A ; 2
|
|
sbrc r22, RXC1 ; 2/3
|
|
rjmp ioRawWaitForData_gotit ; 2
|
|
dec r20 ; 1
|
|
brne ioRawWaitForData_loop ; 1/2 -> 7 per loop, max about 1000
|
|
clc ; 1
|
|
ret ; 4
|
|
ioRawWaitForData_gotit:
|
|
sec ; 1
|
|
ret ; 4
|
|
; @end
|
|
|
|
|
|
|
|
|