BlinkenArea - GitList
Repositories
Blog
Wiki
bulb
Code
Commits
Branches
Tags
Search
Tree:
63f4fb0
Branches
Tags
master
petaflot
1.0.0
1.1.0
1.1.1
bulb
firmware
bulb01.asm
pretty bug kept for aesthetic purpose
petaflot
commited
63f4fb0
at 2019-08-27 18:26:38
bulb01.asm
Blame
History
Raw
; bulb - BlinkenArea ultimate logo board ; Copyright (C) 2011-2019 Stefan Schuermans <stefan@blinkenarea.org> ; Copyleft: GNU public license - http://www.gnu.org/copyleft/gpl.html ; ATtiny2313A, clock frequency: 8 MHz (internal oscillator) ; PA0: unused ; PA1: unused ; PA2: reset ; PB0: column 0 output (output, low) ; PB1: column 1 output (output, low) ; PB2: column 2 output (output, low) ; PB3: column 3 output (output, low) ; PB4: column 4 output (output, low) ; PB5: column 5 output (output, low) ; PB6: column 6 output (output, low) ; PB7: unused (input, pull-up enabled) ; PD0: row 0 output (output, high) ; PD1: row 1 output (output, high) ; PD2: row 2 output (output, high) ; PD3: row 3 output (output, high) ; PD4: row 4 output (output, high) ; PD5: row 5 output (output, high) ; PD6: mode switch (input, pull-up enabled) .INCLUDE "tn2313def.inc" ; IO pins .equ COL_PORT = PORTB ; column outputs .equ ROW_PORT = PORTD ; row outputs .equ MODE_SW_PIN = PIND .equ MODE_SW_BIT = 6 ; general purpose registers .def TMP = r16 .def TMP2 = r17 .def CNT = r18 .def DATA = r19 .def GRAY = r20 .def BULB = r24 .def BORDER = r25 ; current mode .def MODE = r21 .equ MODE_ALL = 0 ; play all animations .equ MODE_SINGLE = 1 ; play single animation only .equ MODE_UNKNOWN = 0xFF ; unknown mode ; current animation number and iterations .def ANI_NO = r22 .def ANI_IT = r23 .DSEG .ORG 0x060 ; current frame FRAME: .BYTE 42 .CSEG .ORG 0x000 rjmp ENTRY ; RESET reti ; INT0 reti ; INT1 reti ; TIMER1_CAPT reti ; TIMER1_COMPA reti ; TIMER1_OVF reti ; TIMER0_OVF reti ; USART0_RX reti ; USART0_UDRE reti ; USART0_TX reti ; ANALOG_COMP reti ; PC_INT0 reti ; TIMER1_COMPB reti ; TIMER0_COMPA reti ; TIMER0_COMPB reti ; USI_START reti ; USI_OVERFLOW reti ; EE_READY reti ; WDT reti ; PC_INT1 reti ; PC_INT2 ; code entry point ENTRY: ; set system clock prescaler to 1:1 ldi TMP,1<<CLKPCE out CLKPR,TMP ldi TMP,0 out CLKPR,TMP ; initialize output ports ldi TMP,0x00 ; PA[01] to output, low out PORTA,TMP ldi TMP,0x03 out DDRA,TMP ldi TMP,0x80 ; PB[0-6] to output, low - PB7 to input, pull-up enabled out PORTB,TMP ldi TMP,0x7F out DDRB,TMP ldi TMP,0x7F ; PD[0-5] to output, high - PD6 to input, pull-up enabled out PORTD,TMP ldi TMP,0x3F out DDRD,TMP ; initialize stack pointer ldi TMP,RAMEND out SPL,TMP ; enable watchdog (64ms) wdr ldi TMP,1<<WDCE|1<<WDE out WDTCR,TMP ldi TMP,1<<WDE|1<<WDP1 out WDTCR,TMP wdr ; disable analog comparator ldi TMP,1<<ACD out ACSR,TMP ; jump to main program rjmp MAIN ; wait 61 cycles ; input: - ; output: - ; changes: TMP ; cycles: 61 (including rcall and ret) WAIT61: ldi TMP,18 WAIT61_LOOP: dec TMP brne WAIT61_LOOP ; done ret ; output row for grayscale (black/white) and wait ; input: X = ptr to pixel data (0..15) ; GRAY = grayscale value (1..15) ; output: - ; changes: TMP, TMP2, DATA ; cycles: GRAY * 64 + 1 (including rcall and ret) ROW_BW_WAIT: ; get data for LEDs ldi TMP2,7 ; 7 pixels ROW_BW_WAIT_PIXEL: ld TMP,X+ ; get pixel value cp TMP,GRAY ; compare with grayscale value ror DATA ; store result as output bit dec TMP2 ; next pixel brne ROW_BW_WAIT_PIXEL ; restore data pointer subi XL,7 ; XH not there on ATtiny2313 ; output lsr DATA ; ensure remaining bit stays high ; (pull-up for unused pin) com DATA out COL_PORT,DATA ; wait 5 + (GRAY - 1) * 64 mov TMP2,GRAY rjmp ROW_BW_WAIT_LOOP_ENTRY ROW_BW_WAIT_LOOP: rcall WAIT61 ROW_BW_WAIT_LOOP_ENTRY: dec TMP2 brne ROW_BW_WAIT_LOOP ret ; turn off row (with same timing as ROW_BW_WAIT) ; input: - ; output: - ; changes: TMP ; cycles: 60 (including rcall and ret) ROW_OFF: ldi TMP,17 ROW_OFF_LOOP: dec TMP brne ROW_OFF_LOOP ldi TMP,0x80 ; ensure remaining bit stays high ; (pull-up for unused pin) out COL_PORT,TMP ret ; output row (grayscales) ; input: X = ptr to pixel data (0..15) ; output: - ; changes: TMP, TMP2, DATA ; cycles: 7822 (including rcall and ret) ; time: 1ms ROW_GRAY: ldi GRAY,1 ROW_GRAY_LOOP: rcall ROW_BW_WAIT inc GRAY cpi GRAY,16 brlo ROW_GRAY_LOOP rcall ROW_OFF ; done ret ; output a frame ; input: FRAME = pixel data (0..15) ; output: - ; changes: TMP, TMP2, CNT, DATA, X ; time: 6ms OUT_FRAME: wdr ldi XL,low(FRAME) ; ptr to pixel data ; XH not there on ATtiny2313 ldi CNT,0x01 ; bitmask loop over rows OUT_FRAME_LOOP: mov TMP,CNT ; select row com TMP andi TMP,0x3F ori TMP,0x40 ; ensure bit 6 stays high ; (pull-up for switch input) out ROW_PORT,TMP rcall ROW_GRAY ; display row subi XL,-7 ; ptr to next row ; XH not there on ATtiny2313 lsl CNT ; bitmask loop over rows cpi CNT,0x40 brne OUT_FRAME_LOOP ; done ret ; output a frame for some time ; input: FRAME = pixel data (0..15) ; TMP = time to show frame (1..255, in 6 ms steps) ; output: - ; changes: X, TMP, TMP2 ; time: TMP * 6 ms OUT_FRAME_TIME: ; output frame push TMP push CNT push DATA rcall OUT_FRAME ; 6 ms pop DATA pop CNT pop TMP ; loop dec TMP brne OUT_FRAME_TIME ; done ret ; clear frame ; input: - ; output: - ; changes: X, FRAME, TMP ; time: short CLEAR: ldi XL,low(FRAME) ; ptr to pixel data ; XH not there on ATtiny2313 clr TMP CLEAR_LOOP: st X+,TMP ; clear pixel cpi XL,low(FRAME)+42 ; bottom of loop ; XH not there on ATtiny2313 brne CLEAR_LOOP ; done ret ; set frame to solid color (all the same) ; input: DATA = value (0..15) intensity for all LEDs ; output: - ; changes: X, FRAME ; time: short SET_COLOR: ldi XL,low(FRAME) ; ptr to pixel data ; XH not there on ATtiny2313 SET_COLOR_LOOP: st X+,DATA ; set pixel value cpi XL,low(FRAME)+42 ; bottom of loop ; XH not there on ATtiny2313 brne SET_COLOR_LOOP ; done ret ; set bulb to solid color ; input: BULB = value (0..15) intensity for all bulb LEDs except spark (28-40) ; output: - ; changes: X, BULB ; time: short BULB_COLOR: ldi XL,low(FRAME+26) ; ptr to pixel data ; XH not there on ATtiny2313 BULB_COLOR_LOOP: st X+,BULB ; set pixel value cpi XL,low(FRAME)+41 ; bottom of loop ; XH not there on ATtiny2313 ldi BORDER,15 ; start bright brne BULB_COLOR_LOOP ; done ret ; set border to solid color ; input: BORDER = value (0..15) intensity for all border LEDs ; output: - ; changes: X, BORDER ; time: short BORDER_COLOR: ldi XL,low(FRAME) ; ptr to pixel data ; XH not there on ATtiny2313 BORDER_COLOR_LOOP: st X+,BORDER ; set pixel value cpi XL,low(FRAME)+28 ; bottom of loop ; XH not there on ATtiny2313 brne BORDER_COLOR_LOOP ; done ret ; set pixel ; input: CNT = pixel number (0..41, nothing is done for 42..255) ; DATA = value (0..15) ; output: - ; changes: X, FRAME, TMP ; time: short SET_PIXEL: cpi CNT,42 ; invalid pixel number -> done brsh SET_PIXEL_END ldi XL,low(FRAME) ; ptr to pixel (base + offset) add XL,CNT ; XH not there on ATtiny2313 st X,DATA ; set pixel SET_PIXEL_END: ; done ret ; draw worm ; input: CNT = head of worm (0..55) ; output: - ; changes: X, FRAME, TMP, DATA ; time: short DRAW_WORM: cpi CNT,56 ; invalid head pos -> done brsh DRAW_WORM_END ldi XL,low(FRAME)+1 ; ptr to before head add XL,CNT ; XH not there on ATtiny2313 ldi DATA,15 ; head is full on cpi CNT,42 ; head pos in frame -> go brlo DRAW_WORM_LOOP mov TMP,CNT ; TMP := invisible pixels subi TMP,41 sub XL,TMP ; skip invisible pixels sub DATA,TMP ; XH not there on ATtiny2313 DRAW_WORM_LOOP: st -X,DATA ; set pixel, go back cpi XL,low(FRAME) ; 1st pixel -> done breq DRAW_WORM_END ; XH not there on ATtiny2313 dec DATA ; next pixel darker brne DRAW_WORM_LOOP ; loop DRAW_WORM_END: ; done ret ; draw backwards worm ; input: CNT = tail of worm (0..55) ; output: - ; changes: X, FRAME, TMP, DATA ; time: short DRAW_BW_WORM: cpi CNT,56 ; invalid tail pos -> done brsh DRAW_BW_WORM_END ldi XL,low(FRAME)+1 ; ptr to before tail add XL,CNT ; XH not there on ATtiny2313 ldi DATA,1 ; tail is minimum on cpi CNT,42 ; tail pos in frame -> go brlo DRAW_BW_WORM_LOOP mov TMP,CNT ; TMP := invisible pixels subi TMP,41 sub XL,TMP ; skip invisible pixels add DATA,TMP ; XH not there on ATtiny2313 DRAW_BW_WORM_LOOP: st -X,DATA ; set pixel, go back cpi XL,low(FRAME) ; 1st pixel -> done breq DRAW_BW_WORM_END ; XH not there on ATtiny2313 inc DATA ; next pixel brighter cpi DATA,16 ; loop brne DRAW_BW_WORM_LOOP DRAW_BW_WORM_END: ; done ret ; blink animation ; input: - ; output: - ; changes: X, FRAME, CNT, DATA, TMP, TMP2 ANIM_BLINK: ; off ldi DATA,0 ; minimum color rcall SET_COLOR ; paint ldi TMP,100 ; show frame 600 ms rcall OUT_FRAME_TIME ; on ldi DATA,15 ; maximum color rcall SET_COLOR ; paint ldi TMP,100 ; show frame 600 ms rcall OUT_FRAME_TIME ; done ret ; fade up and down animation ; input: - ; output: - ; changes: X, FRAME, CNT, DATA, TMP, TMP2 ANIM_FADE: ; fade up ldi DATA,0 ; start dark ANIM_FADE_UP: rcall SET_COLOR ; paint ldi TMP,10 ; show frame 60 ms rcall OUT_FRAME_TIME inc DATA ; fade up cpi DATA,15 ; loop until almost full on brne ANIM_FADE_UP ; fade down ANIM_FADE_DOWN: rcall SET_COLOR ; paint ldi TMP,10 ; show frame 60 ms rcall OUT_FRAME_TIME dec DATA ; fade up cpi DATA,255 ; loop until full off brne ANIM_FADE_DOWN ; done ret ; fade up and down animation, bulb and frame are in opposite phase ; input: - ; output: - ; changes: X, FRAME, CNT, DATA, BULB, BORDER, TMP, TMP2 INVERTED_FADE: ;rcall CLEAR ; clear ldi DATA,0xf sts FRAME+41,DATA ; set filament pixel ldi BORDER,15 ; start bright ldi BULB,0 ; start dark INVERTED_FADE_BACK:;EVEN ; relative to the bulb rcall BORDER_COLOR ; paint border (to darker) rcall BULB_COLOR ; paint bulb (to brighter) dec BORDER ; fade down, 0-27 cpi BORDER,255 ; loop until full off inc BULB ; fade up, 28-41 cpi BULB,15 ; loop until almost full on brne INVERTED_FADE_BACK ldi TMP,10 ; show frame 60 ms rcall OUT_FRAME_TIME INVERTED_FADE_FORTH:;ODD rcall BORDER_COLOR ; paint border (to brighter) rcall BULB_COLOR ; paint bulb (to darker) inc BORDER ; fade up, 28-41 cpi BORDER,15 ; loop until almost full on dec BULB ; fade down, 0-27 cpi BULB,255 ; loop until full off brne INVERTED_FADE_FORTH ldi TMP,10 ; show frame 60 ms rcall OUT_FRAME_TIME ; done ret ; border (frame around bulb) blink animation ; input: - ; output: - ; changes: X, FRAME, CNT, BORDER, TMP, TMP2 ANIM_FRAMEBLINK: rcall CLEAR ; off ldi BORDER,0 ; minimum color rcall BORDER_COLOR ; paint ldi TMP,100 ; show frame 600 ms rcall OUT_FRAME_TIME ; on ldi BORDER,15 ; maximum color rcall BORDER_COLOR ; paint ldi TMP,100 ; show frame 600 ms rcall OUT_FRAME_TIME ; done ret ; bulb blink animation, fast ; input: - ; output: - ; changes: X, FRAME, CNT, BULB, TMP, TMP2 ANIM_BULBFAST: rcall CLEAR ldi DATA,0xf sts FRAME+41,DATA ; set filament pixel ; off ldi BULB,0 ; minimum color rcall BULB_COLOR ; paint ldi TMP,10 ; show frame 20 ms rcall OUT_FRAME_TIME ; on ldi BULB,15 ; maximum color rcall BULB_COLOR ; paint ldi TMP,10 ; show frame 20 ms rcall OUT_FRAME_TIME ; done ret ; bulb blink animation, slow ; input: - ; output: - ; changes: X, FRAME, CNT, BULB, TMP, TMP2 ANIM_BULBSLOW: rcall CLEAR ldi DATA,0xf sts FRAME+41,DATA ; set filament pixel ; off ldi BULB,0 ; minimum color rcall BULB_COLOR ; paint ldi TMP,200 rcall OUT_FRAME_TIME ; on ldi BULB,15 ; maximum color rcall BULB_COLOR ; paint ldi TMP,200 rcall OUT_FRAME_TIME ; done ret ; flicker animation ; input: - ; output: - ; changes: X, FRAME, CNT, DATA, TMP, TMP2 ANIM_FLICKER: ; even pixels rcall CLEAR ; clear ldi DATA,15 ; even pixels to maximum ldi DATA,0xf sts FRAME+41,DATA ; set pixel, go back ldi CNT,0 ANIM_FLICKER_EVEN: rcall SET_PIXEL subi CNT,-2 ; move two pixels cpi CNT,42 ; loop brlo ANIM_FLICKER_EVEN ldi TMP,20 ; show frame 120 ms rcall OUT_FRAME_TIME ; odd pixels rcall CLEAR ; clear ldi DATA,15 ; odd pixels to maximum ldi CNT,1 ANIM_FLICKER_ODD: rcall SET_PIXEL subi CNT,-2 ; move two pixels cpi CNT,42 ; loop brlo ANIM_FLICKER_ODD ldi TMP,20 ; show frame 120 ms rcall OUT_FRAME_TIME ; done ret ANIM_IDLE: rcall CLEAR ; clear ldi TMP,500 ; show frame 3000 ms rcall OUT_FRAME_TIME ldi DATA,0xf sts FRAME+41,DATA ; set pixel, go back ldi TMP,10 ; show frame 60 ms rcall OUT_FRAME_TIME ret ; wobble animation ; input: - ; output: - ; changes: X, FRAME, CNT, DATA, TMP, TMP2 ANIM_WOBBLE: ; even pixels up, odd pixels down ldi DATA,0 ; even pixels start dark ANIM_WOBBLE_UP: ldi CNT,0 ANIM_WOBBLE_UP_DRAW: rcall SET_PIXEL inc CNT ; next pixel ldi TMP,0x0F ; invert color eor DATA,TMP cpi CNT,42 ; loop brlo ANIM_WOBBLE_UP_DRAW ldi TMP,10 ; show frame 60 ms rcall OUT_FRAME_TIME inc DATA ; next color: brighter cpi DATA,16 brlo ANIM_WOBBLE_UP ; even pixels down, odd pixels up ldi DATA,15 ; even pixels start full ANIM_WOBBLE_DOWN: ldi CNT,0 ANIM_WOBBLE_DOWN_DRAW: rcall SET_PIXEL inc CNT ; next pixel ldi TMP,0x0F ; invert color eor DATA,TMP cpi CNT,42 ; loop brlo ANIM_WOBBLE_DOWN_DRAW ldi TMP,10 ; show frame 60 ms rcall OUT_FRAME_TIME dec DATA ; next color: darker cpi DATA,16 brlo ANIM_WOBBLE_DOWN ; done ret ; run animation ; input: - ; output: - ; changes: X, FRAME, CNT, DATA, TMP, TMP2 ANIM_RUN: ldi CNT,255 ; start before 1st pixel ANIM_RUN_LOOP: rcall CLEAR ; clear ldi DATA,15 ; current pixel full on rcall SET_PIXEL ldi TMP,10 ; show frame 60 ms rcall OUT_FRAME_TIME inc CNT ; next pixel cpi CNT,41 ; loop until after last pixel brne ANIM_RUN_LOOP ; done ret ; backwards run animation ; input: - ; output: - ; changes: X, FRAME, CNT, DATA, TMP, TMP2 ANIM_BW_RUN: ldi CNT,40 ; start after last pixel ANIM_BW_RUN_LOOP: rcall CLEAR ; clear ldi DATA,15 ; current pixel full on rcall SET_PIXEL ldi TMP,10 ; show frame 60 ms rcall OUT_FRAME_TIME dec CNT ; previous pixel cpi CNT,255 ; loop until before 1st pixel brne ANIM_BW_RUN_LOOP ; done ret ; worm animation ; input: - ; output: - ; changes: X, FRAME, CNT, DATA, TMP, TMP2 ANIM_WORM: ldi CNT,255 ; worm starts before 1st pixel ANIM_WORM_LOOP: rcall CLEAR ; draw worm rcall DRAW_WORM ldi TMP,10 ; show frame 60 ms rcall OUT_FRAME_TIME inc CNT ; advance worm cpi CNT,57 ; loop until has exits brne ANIM_WORM_LOOP ; done ret ; backwards worm animation ; input: - ; output: - ; changes: X, FRAME, CNT, DATA, TMP, TMP2 ANIM_BW_WORM: ldi CNT,56 ; worm starts behind frame ; head not yet visible ANIM_BW_WORM_LOOP: rcall CLEAR ; draw backwards worm rcall DRAW_BW_WORM ldi TMP,10 ; show frame 60 ms rcall OUT_FRAME_TIME dec CNT ; advance worm backwards cpi CNT,254 ; loop until worm has exited brne ANIM_BW_WORM_LOOP ; done ret ; read mode from switch and (store animation number) ; input: MODE = old mode, CNT = animation number ; output: MODE = new mode ; changes: TMP, DATA MODE_READ: ; read new mode (into DATA) ldi DATA,MODE_ALL sbic MODE_SW_PIN,MODE_SW_BIT ldi DATA,MODE_SINGLE ; mode was changed from all to single -> save animation number cpi MODE,MODE_ALL ; old mode not all -> do nothing brne MODE_READ_NOT_0_TO_1 cpi DATA,MODE_SINGLE ; new mode not single -> do nothing brne MODE_READ_NOT_0_TO_1 sbic EECR,EEPE ; EEPROM write ongoing -> do nothing rjmp MODE_READ_NOT_0_TO_1 ldi TMP,0<<EEPM1|0<<EEPM0 ; set EEPROM programming mode out EECR,TMP ldi TMP,0 ; set EEPROM address out EEARL,TMP mov TMP,CNT ; set EEPROM data to animation number com TMP ; with NOTed number in upper nibble swap TMP andi TMP,0xF0 or TMP,CNT out EEDR,TMP sbi EECR,EEMPE ; begin writing EEPROM sbi EECR,EEPE MODE_READ_NOT_0_TO_1: ; remember new mode (in MODE) mov MODE,DATA ; done ret ; animation table: animation function, iteration count (<= 255) ANIM_TAB: ;.dw ANIM_FRAMEBLINK ;.dw 5 ;.dw ANIM_BULBSLOW ;.dw 3 ;.dw ANIM_WORM ;.dw 1 ;.dw ANIM_IDLE ;.dw 5 ;.dw ANIM_BW_WORM ;.dw 1 ;.dw ANIM_RUN ;.dw 1 ;.dw ANIM_BW_RUN ;.dw 1 ;.dw ANIM_WORM ;.dw 1 ;.dw ANIM_IDLE ;.dw 1 .dw INVERTED_FADE .dw 5 ;.dw ANIM_IDLE ;.dw 2 ;.dw ANIM_FLICKER ;.dw 10 ;.dw ANIM_IDLE ;.dw 2 ;.dw ANIM_FRAMEBLINK ;.dw 1 ;.dw ANIM_BULBFAST ;.dw 5 ;.dw ANIM_FRAMEBLINK ;.dw 1 ;.dw ANIM_IDLE ;.dw 5 ;.dw INVERTED_FADE ;.dw 5 ;.dw ANIM_IDLE ;.dw 2 ;.dw ANIM_WOBBLE ;.dw 5 ANIM_TAB_END: ; main program MAIN: wdr ; initialization ldi MODE,MODE_UNKNOWN ; unknown mode ; get number of fist animation from EEPROM (into CNT) ldi TMP,0 ; set EEPROM address out EEARL,TMP sbi EECR,EERE ; start EEPROM read in ANI_NO,EEDR ; get read value mov TMP,ANI_NO ; check if high nibble contains NOTed com TMP ; value swap TMP cp ANI_NO,TMP brne MAIN_FIRST_ANIM_INVALID andi ANI_NO,0x0F ; throw away check value in high nibble cpi ANI_NO,(ANIM_TAB_END - ANIM_TAB) / 2 brlo MAIN_FIRST_ANIM_OK MAIN_FIRST_ANIM_INVALID: ldi ANI_NO,0 MAIN_FIRST_ANIM_OK: ; first iteration of animation (into DATA) ldi ANI_IT,0 ; main loop MAIN_LOOP: wdr ; load pointer to animation function and repetition count from table ldi ZL,low(2 * ANIM_TAB) ldi ZH,high(2 * ANIM_TAB) mov TMP,ANI_NO lsl TMP lsl TMP add ZL,TMP clr TMP adc ZH,TMP lpm DATA,Z+ ; address of function -> TMP:DATA lpm TMP,Z+ lpm CNT,Z+ ; iteration count -> CNT mov ZL,DATA ; address of function -> Z mov ZH,TMP ; save iteration count push CNT ; call animation icall ; read new mode mov CNT,ANI_NO rcall MODE_READ ; restore iteration count pop CNT ; keep playing animation in single animation mode cpi MODE,MODE_SINGLE breq MAIN_NEXT_END ; next iteration inc ANI_IT cp ANI_IT,CNT brlo MAIN_NEXT_END clr ANI_IT ; next animation inc ANI_NO cpi ANI_NO,(ANIM_TAB_END - ANIM_TAB) / 2 brlo MAIN_NEXT_END clr ANI_NO MAIN_NEXT_END: ; bottom of main loop rjmp MAIN_LOOP
