97 lines
2.6 KiB
NASM
97 lines
2.6 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 ioWaitForAttnState100ms
|
|
;
|
|
; @param r16 expected state (0x00 or 0xff)
|
|
; @param r17 time to wait for expected state (in 100 ms units)
|
|
; @clobbers R17 (R22, R24)
|
|
|
|
ioWaitForAttnState100ms:
|
|
cbi COM_ATTN_DDR, COM_ATTN_PIN ; set ATTN port as input
|
|
cbi COM_ATTN_OUTPUT, COM_ATTN_PIN ; disable internal pullup for ATTN
|
|
ioWaitForAttnState100ms_loop:
|
|
#ifdef LED_SIMPLE_PINNUM
|
|
sbi LED_SIMPLE_PORTIN, LED_SIMPLE_PINNUM ; toggle LED
|
|
#endif
|
|
push r17
|
|
ldi r17, 100
|
|
rcall ioWaitForAttnStateMilliSeconds ; (R22, R24)
|
|
pop r17
|
|
brcs ioWaitForAttnState100ms_stateReached
|
|
dec r17
|
|
brne ioWaitForAttnState100ms_loop
|
|
clc
|
|
ioWaitForAttnState100ms_stateReached:
|
|
ret
|
|
; @end
|
|
|
|
|
|
|
|
; ---------------------------------------------------------------------------
|
|
; @routine ioWaitForAttnStateMilliSeconds
|
|
;
|
|
; @param r16 expected state (0x00 or 0xff)
|
|
; @param r17 time to wait for expected state (in milliseconds)
|
|
; @clobbers R17 (R22, R24)
|
|
|
|
ioWaitForAttnStateMilliSeconds:
|
|
ioWaitForAttnStateMilliSeconds_loop:
|
|
rcall ioWaitForAttnState1ms ; (R22, R24)
|
|
brcs ioWaitForAttnStateMilliSeconds_stateReached
|
|
dec r17
|
|
brne ioWaitForAttnStateMilliSeconds_loop
|
|
clc
|
|
ioWaitForAttnStateMilliSeconds_stateReached:
|
|
ret
|
|
; @end
|
|
|
|
|
|
|
|
; ---------------------------------------------------------------------------
|
|
; @routine ioWaitForAttnState1ms
|
|
;
|
|
; Wait for up to 1ms for ATTN line to reach the given state
|
|
;
|
|
; @return CFLAG set if state reached, cleared otherwise
|
|
; @param R16 expected state (0xff for high, 0 for low)
|
|
; @clobbers R24 (R22)
|
|
|
|
ioWaitForAttnState1ms:
|
|
ldi r24, 100
|
|
ioWaitForAttnState1ms_loop:
|
|
push r17
|
|
in r17, COM_ATTN_INPUT
|
|
eor r17, r16
|
|
andi r17, (1<<COM_ATTN_PIN)
|
|
pop r17
|
|
breq ioWaitForAttnState1ms_stateReached
|
|
rcall Utils_WaitFor10MicroSecs ; wait for 10us (R22)
|
|
dec r24
|
|
brne ioWaitForAttnState1ms_loop
|
|
clc
|
|
ret
|
|
ioWaitForAttnState1ms_stateReached:
|
|
sec
|
|
ret
|
|
; @end
|
|
|
|
|
|
|
|
|