BlinkenArea - GitList
Repositories
Blog
Wiki
bulb
Code
Commits
Branches
Tags
Search
Tree:
bfb7b1c
Branches
Tags
master
petaflot
1.0.0
1.1.0
1.1.1
bulb
firmware
bulb.asm
remember animation number in single animation mode
Stefan Schuermans
commited
bfb7b1c
at 2012-06-28 20:42:22
bulb.asm
Blame
History
Raw
; bulb - BlinkenArea ultimate logo board ; version 1.1.0 date 2012-06-10 ; Copyright (C) 2011-2012 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 CNT = r17 .def DATA = r18 ; current mode .def MODE = r19 .equ MODE_ALL = 0 ; play all animations .equ MODE_SINGLE = 1 ; play single animation only .equ MODE_UNKNOWN = 0xFF ; unknown mode .DSEG .ORG 0x060 ; current frame FRAME: .BYTE 42 .MACRO breqx brne NE rjmp @0 NE: .ENDM ; multiple rcalls in a row ; parameters: label, N .MACRO rcall_N .IF @1 > 0 rcall @0 rcall_N @0,@1 - 1 .ENDIF .ENDM ; check if to turn on pixel in subframe ; parameter: grayscale value (1..15) ; input: X = ptr to pixel data (0..7), ; DATA[7-1] = other pixels ; output: X = ptr to pixel data of next pixel, ; DATA.7 = if _not_ to turn on pixel, DATA.[6-0] = old DATA[7-1] ; changes: TMP, DATA, X ; cycles: 4 .MACRO PIXEL ld TMP,X+ cpi TMP,@0 ror DATA .ENDM ; output row (black/white) ; parameter: grayscale value (1..15) ; input: X = ptr to pixel data (0..15) ; output: - ; changes: TMP, DATA ; cycles: 32 .MACRO ROW_BW PIXEL @0 ; pixel 0 PIXEL @0 ; pixel 1 PIXEL @0 ; pixel 2 PIXEL @0 ; pixel 3 PIXEL @0 ; pixel 4 PIXEL @0 ; pixel 5 PIXEL @0 ; pixel 6 subi XL,7 ; XH not there on ATtiny2313 lsr DATA ; ensure remaining bit stays high ; (pull-up for unused pin) com DATA out COL_PORT,DATA .ENDM ; wait n * 64 cycles ; parameter: n ; input: - ; output: - ; changes: TMP ; cycles: n * 64 .MACRO WAIT64_N .IF @0 > 0 rcall WAIT64 WAIT64_N @0 - 1 .ENDIF .ENDM ; output row for grayscale (black/white) and wait ; parameter: grayscale value (1..15) ; input: X = ptr to pixel data (0..15) ; output: - ; changes: TMP, DATA ; cycles: 32 + (grayscale - 1) * 64 .MACRO ROW_BW_WAIT ROW_BW @0 WAIT64_N @0 - 1 .ENDM ; turn off row (with same timing as ROW_BW) ; input: - ; output: - ; changes: TMP ; cycles: 32 .MACRO ROW_OFF ldi TMP,10 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 .ENDM ; play an animation N times (mode 0) or infinitely (mode 1) ; parameters: animation function, N, animation number .MACRO PL_ANIM PL_ANIM_LOOP: ; play animation N times rcall_N @0,@1 - 1 ; read new mode ldi CNT,@2 rcall MODE_READ ; keep playing animation in mode 1 cpi MODE,MODE_SINGLE breq PL_ANIM_LOOP .ENDM .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 64 cycles ; input: - ; output: - ; changes: TMP ; cycles: 64 (including rcall and ret) WAIT64: ldi TMP,19 WAIT64_LOOP: dec TMP brne WAIT64_LOOP ; done ret ; output row (grayscales) ; input: X = ptr to pixel data (0..15) ; output: - ; changes: TMP, DATA ; cycles: 7269 (including rcall and ret) ROW_GRAY: ROW_BW_WAIT 1 ROW_BW_WAIT 2 ROW_BW_WAIT 3 ROW_BW_WAIT 4 ROW_BW_WAIT 5 ROW_BW_WAIT 6 ROW_BW_WAIT 7 ROW_BW_WAIT 8 ROW_BW_WAIT 9 ROW_BW_WAIT 10 ROW_BW_WAIT 11 ROW_BW_WAIT 12 ROW_BW_WAIT 13 ROW_BW_WAIT 14 ROW_BW_WAIT 15 ROW_OFF ; done ret ; output a frame ; input: FRAME = pixel data (0..15) ; output: - ; changes: TMP, CNT, DATA, X ; cycles: 43682 (including rcall and ret) ; time: 5.5ms 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 5.5 ms steps) ; output: - ; changes: X, TMP ; time: TMP * 5.5 ms OUT_FRAME_TIME: ; output frame push TMP push CNT push DATA rcall OUT_FRAME ; 5.5 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 ; input: DATA = value (0..15) ; 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 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 ANIM_BLINK: ; off ldi DATA,0 ; minimum color rcall SET_COLOR ; paint ldi TMP,100 ; show frame 550 ms rcall OUT_FRAME_TIME ; on ldi DATA,15 ; maximum color rcall SET_COLOR ; paint ldi TMP,100 ; show frame 550 ms rcall OUT_FRAME_TIME ; done ret ; fade up and down animation ; input: - ; output: - ; changes: X, FRAME, CNT, DATA, TMP ANIM_FADE: ; fade up ldi DATA,0 ; start dark ANIM_FADE_UP: rcall SET_COLOR ; paint ldi TMP,10 ; show frame 55 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 55 ms rcall OUT_FRAME_TIME dec DATA ; fade up cpi DATA,255 ; loop until full off brne ANIM_FADE_DOWN ; done ret ; flicker animation ; input: - ; output: - ; changes: X, FRAME, CNT, DATA, TMP ANIM_FLICKER: ; even pixels rcall CLEAR ; clear ldi DATA,15 ; even pixels to maximum 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,40 ; show frame 220 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,40 ; show frame 220 ms rcall OUT_FRAME_TIME ; done ret ; wobble animation ; input: - ; output: - ; changes: X, FRAME, CNT, DATA, TMP 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 55 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 55 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 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 55 ms rcall OUT_FRAME_TIME inc CNT ; next pixel cpi CNT,43 ; loop until after last pixel brne ANIM_RUN_LOOP ; done ret ; backwards run animation ; input: - ; output: - ; changes: X, FRAME, CNT, DATA, TMP ANIM_BW_RUN: ldi CNT,42 ; 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 55 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 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 55 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 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 55 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 ; 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 CNT,EEDR ; get read value mov TMP,CNT ; check if high nibble contains NOTed com TMP ; value swap TMP cp CNT,TMP brne MAIN_FIRST_ANIM_END andi CNT,0x0F ; throw away check value in high nibble ; jump to first animation cpi CNT,0 breq MAIN_FIRST_0 cpi CNT,1 breq MAIN_FIRST_1 cpi CNT,2 breq MAIN_FIRST_2 cpi CNT,3 breq MAIN_FIRST_3 cpi CNT,4 breq MAIN_FIRST_4 cpi CNT,5 breq MAIN_FIRST_5 cpi CNT,6 breq MAIN_FIRST_6 cpi CNT,7 breq MAIN_FIRST_7 MAIN_FIRST_ANIM_END: MAIN_LOOP: wdr ; main loop MAIN_FIRST_0: PL_ANIM ANIM_BLINK,3,0 MAIN_FIRST_1: PL_ANIM ANIM_WORM,3,1 MAIN_FIRST_2: PL_ANIM ANIM_FLICKER,10,2 MAIN_FIRST_3: PL_ANIM ANIM_BW_RUN,3,3 MAIN_FIRST_4: PL_ANIM ANIM_FADE,2,4 MAIN_FIRST_5: PL_ANIM ANIM_BW_WORM,3,5 MAIN_FIRST_6: PL_ANIM ANIM_WOBBLE,5,6 MAIN_FIRST_7: PL_ANIM ANIM_RUN,3,7 ; bottom of main loop rjmp MAIN_LOOP
