avr: split code in multiple files and routines.

avr/modules/flash/wait.asm

@@ -0,0 +1,100 @@
+; ***************************************************************************
+; copyright   : (C) 2023 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
+
+
+; ---------------------------------------------------------------------------
+; wait depending on lowest byte of uid.
+;
+; Wait interval is between 100ms and 25s (i.e. 255*100ms). This is used to avoid
+; all nodes on the network trying to send messages at the exact same time (e.g. after
+; power outage which would affect all nodes at the same time).
+;
+; IN:
+; - nothing
+; OUT:
+; - nothing
+; REGS: R16 (R18, R22, R24, R25)
+
+flashWaitDependingOnUid:
+  lds r16, flashUid
+  tst r16
+  brne flashWaitDependingOnUid_l1
+  ldi r16, 17
+flashWaitDependingOnUid_l1:
+  rjmp flashWaitForMulti100ms
+
+
+
+; ---------------------------------------------------------------------------
+; wait for multiples of 100ms.
+;
+; IN:
+; - R16: number of 100ms loops
+; OUT:
+; - nothing
+; REGS: R16 (R18, R22, R24, R25)
+
+flashWaitForMulti100ms:
+flashWaitForMulti100ms_loop:
+    rcall flashWaitFor100ms      ; (R18, R22, R24, R25)
+    dec r16
+  brne flashWaitForMulti100ms_loop
+  ret
+
+
+
+
+
+
+; ---------------------------------------------------------------------------
+; wait for 100 milliseconds.
+;
+; IN:
+; - nothing
+; OUT:
+; - nothing
+; REGS: R18 (R22, R24, R25)
+
+flashWaitFor100ms:
+  ldi r18, 100
+flashWaitFor100ms_loop:
+    rcall flashWaitFor1ms      ; (R22, R24, R25)
+    dec r18
+  brne flashWaitFor100ms_loop
+  ret
+
+
+
+; ---------------------------------------------------------------------------
+; wait for 1 millisecond.
+;
+; IN:
+; - nothing
+; OUT:
+; - nothing
+; REGS: R24 (R22)
+
+flashWaitFor1ms:
+  ldi r24, 10
+flashWaitFor1ms_loop:
+    Utils_WaitNanoSecs 100000, 0, r22 ; wait for 100us
+    dec r24
+  brne flashWaitFor1ms_loop
+  ret
+
+
+