165 lines
3.3 KiB
NASM
165 lines
3.3 KiB
NASM
; ***************************************************************************
|
|
; copyright : (C) 2024 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. *
|
|
; ***************************************************************************
|
|
|
|
#ifndef AQH_AVR_MODULES_SK6812_MAIN_ASM
|
|
#define AQH_AVR_MODULES_SK6812_MAIN_ASM
|
|
|
|
|
|
|
|
; ***************************************************************************
|
|
; defines
|
|
|
|
.equ SK6812_PATTERN_NUM = 3
|
|
.equ SK6812_DEFAULT_NUMLEDS = 144
|
|
|
|
|
|
|
|
; ***************************************************************************
|
|
; data
|
|
|
|
.dseg
|
|
|
|
sk6812DataBegin:
|
|
sk6812NumLeds: .byte 2
|
|
; sk6812Pattern: .byte 5*SK6812_PATTERN_NUM ; 1 byte num leds, 4 bytes colour (RGBW)
|
|
sk6812DataEnd:
|
|
|
|
|
|
|
|
; ***************************************************************************
|
|
; code
|
|
|
|
.cseg
|
|
|
|
|
|
|
|
; ---------------------------------------------------------------------------
|
|
; @routine SK6812_Init
|
|
;
|
|
; @return CFLAG set if okay, clear on error
|
|
|
|
SK6812_Init:
|
|
ldi xh, HIGH(sk6812DataBegin)
|
|
ldi xl, LOW(sk6812DataBegin)
|
|
clr r16
|
|
ldi r17, (sk6812DataEnd-sk6812DataBegin)
|
|
rcall Utils_FillSram
|
|
|
|
sbi SK6812_DDR, SK6812_PINNUM ; set to output
|
|
cbi SK6812_PORT, SK6812_PINNUM ; set LOW
|
|
ldi r16, LOW(SK6812_DEFAULT_NUMLEDS)
|
|
ldi r17, HIGH(SK6812_DEFAULT_NUMLEDS)
|
|
sts sk6812NumLeds, r16
|
|
sts sk6812NumLeds+1, r17
|
|
|
|
ldi r18, 0x40
|
|
ldi r19, 0x20
|
|
ldi r20, 0x10
|
|
ldi r21, 0x08
|
|
rcall SK6812_SetRGBW
|
|
|
|
sec
|
|
ret
|
|
SK6812_Init_error:
|
|
clc
|
|
ret
|
|
; @end
|
|
|
|
|
|
|
|
; ---------------------------------------------------------------------------
|
|
; @routine SK6812_Fini
|
|
;
|
|
; @return CFLAG set if okay, clear on error
|
|
; USED:
|
|
|
|
SK6812_Fini:
|
|
clr r18 ; turn light off
|
|
clr r19
|
|
clr r20
|
|
clr r21
|
|
rcall SK6812_SetRGBW
|
|
sec
|
|
ret
|
|
; @end
|
|
|
|
|
|
|
|
; ---------------------------------------------------------------------------
|
|
; @routine SK6812_SetRGBW @global
|
|
;
|
|
; Store new color for all LEDs.
|
|
;
|
|
; @param r18 red value
|
|
; @param r19 green value
|
|
; @param r20 blue color
|
|
; @param r21 white color
|
|
; @clobbers (r16, r24, r25)
|
|
|
|
SK6812_SetRGBW:
|
|
rcall sk6812SetAllColor0 ; (r16, r24, r25)
|
|
ret
|
|
; @end
|
|
|
|
|
|
|
|
; ---------------------------------------------------------------------------
|
|
; @routine SK6812_SetLedNum @global
|
|
;
|
|
; @param r19:r18 number of LEDs
|
|
; @clobbers none
|
|
|
|
SK6812_SetLedNum:
|
|
sts sk6812NumLeds, r18
|
|
sts sk6812NumLeds+1, r19
|
|
ret
|
|
; @end
|
|
|
|
|
|
|
|
|
|
#if 0
|
|
; ---------------------------------------------------------------------------
|
|
; @routine sk6812SendPattern
|
|
;
|
|
; Send given pattern to LEDs.
|
|
;
|
|
; @param R22 number of 5-byte subpatterns
|
|
; @param X pointer to pattern (numleds, R, G, B, W)*SK6812_PATTERN_NUM
|
|
; @clobbers R18, R19, R20, R21, R22, R23, X (R16, R17)
|
|
|
|
sk6812SendPattern:
|
|
sk6812SendPattern_loop1:
|
|
ld r23, X+ ; num leds
|
|
tst r23
|
|
brne sk6812SendPattern_readandset
|
|
ret ; no leds, done
|
|
sk6812SendPattern_readandset:
|
|
ld r18, X+ ; R
|
|
ld r19, X+ ; G
|
|
ld r20, X+ ; B
|
|
ld r21, X+ ; W
|
|
sk6812SendPattern_loop2:
|
|
rcall sk6812SendQuadruple ; (r16, r17)
|
|
dec r23
|
|
brne sk6812SendPattern_loop2
|
|
dec r22
|
|
brne sk6812SendPattern_loop1
|
|
ret
|
|
; @end
|
|
#endif
|
|
|
|
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|