parent
bbaf8bad62
commit
03658ad213
@ -1,5 +0,0 @@ |
|||||||
#pragma once |
|
||||||
|
|
||||||
#define loop(varname, count) for(uint8_t varname = 0; varname < (count); varname++) |
|
||||||
#define repeat(count) for(uint8_t _repeat_i = 0; _repeat_i < (count); _repeat_i++) |
|
||||||
#define until(cond) while(!(cond)) |
|
||||||
@ -1,182 +0,0 @@ |
|||||||
#include <avr/io.h> |
|
||||||
#include <avr/interrupt.h> |
|
||||||
#include <avr/pgmspace.h> |
|
||||||
#include <util/delay.h> |
|
||||||
#include <stdbool.h> |
|
||||||
#include <stdint.h> |
|
||||||
#include <stdlib.h> |
|
||||||
|
|
||||||
#include "lib/meta.h" |
|
||||||
#include "lib/arduino_pins.h" |
|
||||||
#include "lib/calc.h" |
|
||||||
|
|
||||||
#define LCD_PIN_RS D10 |
|
||||||
#define LCD_PIN_RW D11 |
|
||||||
#define LCD_PIN_E D12 |
|
||||||
#define LCD_PIN_D4 D13 |
|
||||||
#define LCD_PIN_D5 D14 |
|
||||||
#define LCD_PIN_D6 D15 |
|
||||||
#define LCD_PIN_D7 D16 |
|
||||||
// D17 = A3 = source of entropy for random.
|
|
||||||
|
|
||||||
#include "lib/hd44780.h" |
|
||||||
|
|
||||||
|
|
||||||
// Buttons (to ground)
|
|
||||||
#define BTN_LEFT D2 |
|
||||||
#define BTN_RIGHT D3 |
|
||||||
#define BTN_UP D4 |
|
||||||
#define BTN_DOWN D5 |
|
||||||
#define BTN_SELECT D6 |
|
||||||
#define BTN_RESTART D7 |
|
||||||
|
|
||||||
// Debouncer channels for buttons
|
|
||||||
// (Must be added in this order to debouncer)
|
|
||||||
#define D_LEFT 0 |
|
||||||
#define D_RIGHT 1 |
|
||||||
#define D_UP 2 |
|
||||||
#define D_DOWN 3 |
|
||||||
#define D_SELECT 4 |
|
||||||
#define D_RESTART 5 |
|
||||||
|
|
||||||
#define DEBO_CHANNELS 6 |
|
||||||
#define DEBO_TICKS 1 // in 0.01s
|
|
||||||
|
|
||||||
#include "lib/debounce.h" |
|
||||||
|
|
||||||
// Board size (!!! rows = 2x number of display lines, max 2*4 = 8 !!!)
|
|
||||||
#define ROWS 4 |
|
||||||
#define COLS 20 |
|
||||||
|
|
||||||
// proto
|
|
||||||
void render(); |
|
||||||
void update(); |
|
||||||
|
|
||||||
|
|
||||||
void SECTION(".init8") init() |
|
||||||
{ |
|
||||||
// Randomize RNG
|
|
||||||
adc_init(); |
|
||||||
srand(adc_read_word(3)); |
|
||||||
|
|
||||||
// Init LCD
|
|
||||||
lcd_init(); |
|
||||||
|
|
||||||
// gamepad buttons
|
|
||||||
as_input_pu(BTN_LEFT); |
|
||||||
as_input_pu(BTN_RIGHT); |
|
||||||
as_input_pu(BTN_UP); |
|
||||||
as_input_pu(BTN_DOWN); |
|
||||||
as_input_pu(BTN_SELECT); |
|
||||||
as_input_pu(BTN_RESTART); |
|
||||||
|
|
||||||
// add buttons to debouncer
|
|
||||||
debo_add_rev(BTN_LEFT); |
|
||||||
debo_add_rev(BTN_RIGHT); |
|
||||||
debo_add_rev(BTN_UP); |
|
||||||
debo_add_rev(BTN_DOWN); |
|
||||||
debo_add_rev(BTN_SELECT); |
|
||||||
debo_add_rev(BTN_RESTART); |
|
||||||
|
|
||||||
// setup timer
|
|
||||||
TCCR0A = _BV(WGM01); // CTC
|
|
||||||
TCCR0B = _BV(CS02) | _BV(CS00); // prescaler 1024
|
|
||||||
OCR0A = 156; // interrupt every 10 ms
|
|
||||||
sbi(TIMSK0, OCIE0A); |
|
||||||
sei(); |
|
||||||
} |
|
||||||
|
|
||||||
|
|
||||||
/** timer 0 interrupt vector */ |
|
||||||
ISR(TIMER0_COMPA_vect) |
|
||||||
{ |
|
||||||
debo_tick(); // poll debouncer
|
|
||||||
update(); // update game state
|
|
||||||
render(); |
|
||||||
} |
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
// sub-glyphs
|
|
||||||
#define _HEAD_ 31, 21, 21, 31 |
|
||||||
#define _BODY_ 31, 31, 31, 31 |
|
||||||
#define _FOOD_ 10, 21, 17, 14 |
|
||||||
#define _NONE_ 0, 0, 0, 0 |
|
||||||
|
|
||||||
// complete glyphs for loading into memory
|
|
||||||
|
|
||||||
// Only one food & one head glyph have to be loaded at a time.
|
|
||||||
|
|
||||||
// Body - Body
|
|
||||||
const uint8_t BB[] PROGMEM = {_BODY_, _BODY_}; |
|
||||||
|
|
||||||
// Body - None
|
|
||||||
const uint8_t BX[] PROGMEM = {_BODY_, _NONE_}; |
|
||||||
const uint8_t XB[] PROGMEM = {_NONE_, _BODY_}; |
|
||||||
|
|
||||||
// Head - None
|
|
||||||
const uint8_t HX[] PROGMEM = {_HEAD_, _NONE_}; |
|
||||||
const uint8_t XH[] PROGMEM = {_NONE_, _HEAD_}; |
|
||||||
|
|
||||||
// Body - Head
|
|
||||||
const uint8_t BH[] PROGMEM = {_BODY_, _HEAD_}; |
|
||||||
const uint8_t HB[] PROGMEM = {_HEAD_, _BODY_}; |
|
||||||
|
|
||||||
// Head - Food
|
|
||||||
const uint8_t HF[] PROGMEM = {_HEAD_, _FOOD_}; |
|
||||||
const uint8_t FH[] PROGMEM = {_FOOD_, _HEAD_}; |
|
||||||
|
|
||||||
// Food - None
|
|
||||||
const uint8_t FX[] PROGMEM = {_FOOD_, _NONE_}; |
|
||||||
const uint8_t XF[] PROGMEM = {_NONE_, _FOOD_}; |
|
||||||
|
|
||||||
// Body - Food
|
|
||||||
const uint8_t BF[] PROGMEM = {_BODY_, _FOOD_}; |
|
||||||
const uint8_t FB[] PROGMEM = {_FOOD_, _BODY_}; |
|
||||||
|
|
||||||
// board block (snake, food...)
|
|
||||||
typedef enum { |
|
||||||
EMPTY = 0x00, |
|
||||||
HEAD = 0x01, |
|
||||||
FOOD = 0x02, |
|
||||||
BODY_LEFT = 0x80; |
|
||||||
BODY_RIGHT = 0x81, |
|
||||||
BODY_UP = 0x82, |
|
||||||
BODY_DOWN = 0x83, |
|
||||||
} block_t; |
|
||||||
|
|
||||||
typedef struct { |
|
||||||
uint8_t x; |
|
||||||
uint8_t y; |
|
||||||
} coord_t; |
|
||||||
|
|
||||||
#define is_body(blk) ((blk) & 0x80) |
|
||||||
|
|
||||||
// y, x indexing
|
|
||||||
block_t board[ROWS][COLS]; |
|
||||||
|
|
||||||
coord_t head_pos; |
|
||||||
coord_t food_pos; |
|
||||||
|
|
||||||
|
|
||||||
void main() |
|
||||||
{ |
|
||||||
lcd_define_glyph_pgm(0, BX); |
|
||||||
lcd_define_glyph_pgm(1, BB); |
|
||||||
lcd_define_glyph_pgm(2, XB); |
|
||||||
lcd_define_glyph_pgm(3, XH); |
|
||||||
lcd_define_glyph_pgm(4, XF); |
|
||||||
|
|
||||||
// Test
|
|
||||||
lcd_char_xy(5, 0, 0); |
|
||||||
lcd_char_xy(6, 0, 0); |
|
||||||
lcd_char_xy(7, 0, 1); |
|
||||||
lcd_char_xy(7, 1, 0); |
|
||||||
lcd_char_xy(8, 1, 0); |
|
||||||
lcd_char_xy(9, 1, 1); |
|
||||||
lcd_char_xy(10, 1, 2); |
|
||||||
lcd_char_xy(11, 1, 3); |
|
||||||
lcd_char_xy(14, 1, 4); |
|
||||||
|
|
||||||
while(1); |
|
||||||
} |
|
||||||
@ -1,7 +1,7 @@ |
|||||||
#pragma once |
#pragma once |
||||||
|
|
||||||
/**
|
/**
|
||||||
Utils for driving a WS2812 (WS2812B) RGB LED strips. |
Utils for driving a WS28xx (tested on WS2812B) RGB LED strips. |
||||||
|
|
||||||
It's implemented as macros to avoid overhead when passing values, and to |
It's implemented as macros to avoid overhead when passing values, and to |
||||||
enable driving multiple strips at once. |
enable driving multiple strips at once. |
||||||
@ -0,0 +1,426 @@ |
|||||||
|
#include <avr/io.h> |
||||||
|
#include <avr/interrupt.h> |
||||||
|
#include <avr/pgmspace.h> |
||||||
|
#include <util/delay.h> |
||||||
|
#include <stdbool.h> |
||||||
|
#include <stdint.h> |
||||||
|
#include <stdlib.h> |
||||||
|
|
||||||
|
#include "lib/meta.h" |
||||||
|
#include "lib/arduino_pins.h" |
||||||
|
#include "lib/calc.h" |
||||||
|
#include "lib/adc.h" |
||||||
|
|
||||||
|
#define LCD_PIN_RS D10 |
||||||
|
#define LCD_PIN_RW D11 |
||||||
|
#define LCD_PIN_E D12 |
||||||
|
#define LCD_PIN_D4 D13 |
||||||
|
#define LCD_PIN_D5 D14 |
||||||
|
#define LCD_PIN_D6 D15 |
||||||
|
#define LCD_PIN_D7 D16 |
||||||
|
// D17 = A3 = source of entropy for random.
|
||||||
|
|
||||||
|
#include "lib/lcd.h" |
||||||
|
|
||||||
|
|
||||||
|
// Buttons (to ground)
|
||||||
|
#define BTN_LEFT D2 |
||||||
|
#define BTN_RIGHT D3 |
||||||
|
#define BTN_UP D4 |
||||||
|
#define BTN_DOWN D5 |
||||||
|
#define BTN_SELECT D6 |
||||||
|
#define BTN_RESTART D7 |
||||||
|
|
||||||
|
// Debouncer channels for buttons
|
||||||
|
// (Must be added in this order to debouncer)
|
||||||
|
#define D_LEFT 0 |
||||||
|
#define D_RIGHT 1 |
||||||
|
#define D_UP 2 |
||||||
|
#define D_DOWN 3 |
||||||
|
#define D_SELECT 4 |
||||||
|
#define D_RESTART 5 |
||||||
|
|
||||||
|
#define DEBO_CHANNELS 6 |
||||||
|
#define DEBO_TICKS 1 // in 0.01s
|
||||||
|
|
||||||
|
#include "lib/debounce.h" |
||||||
|
|
||||||
|
// Board size (!!! rows = 2x number of display lines, max 2*4 = 8 !!!)
|
||||||
|
#define ROWS 4 |
||||||
|
#define COLS 20 |
||||||
|
|
||||||
|
// Delay between snake steps, in 10 ms
|
||||||
|
#define STEP_DELAY 24 |
||||||
|
|
||||||
|
// proto
|
||||||
|
void update(); |
||||||
|
void init_cgram(); |
||||||
|
void init_gameboard(); |
||||||
|
|
||||||
|
void SECTION(".init8") init() |
||||||
|
{ |
||||||
|
// Randomize RNG
|
||||||
|
adc_init(); |
||||||
|
srand(adc_read_word(3)); |
||||||
|
|
||||||
|
// Init LCD
|
||||||
|
lcd_init(); |
||||||
|
init_cgram(); // load default glyphs
|
||||||
|
|
||||||
|
// Init game board.
|
||||||
|
init_gameboard(); |
||||||
|
|
||||||
|
// gamepad buttons
|
||||||
|
as_input_pu(BTN_LEFT); |
||||||
|
as_input_pu(BTN_RIGHT); |
||||||
|
as_input_pu(BTN_UP); |
||||||
|
as_input_pu(BTN_DOWN); |
||||||
|
as_input_pu(BTN_SELECT); |
||||||
|
as_input_pu(BTN_RESTART); |
||||||
|
|
||||||
|
// add buttons to debouncer
|
||||||
|
debo_add_rev(BTN_LEFT); |
||||||
|
debo_add_rev(BTN_RIGHT); |
||||||
|
debo_add_rev(BTN_UP); |
||||||
|
debo_add_rev(BTN_DOWN); |
||||||
|
debo_add_rev(BTN_SELECT); |
||||||
|
debo_add_rev(BTN_RESTART); |
||||||
|
|
||||||
|
// setup timer
|
||||||
|
TCCR0A = _BV(WGM01); // CTC
|
||||||
|
TCCR0B = _BV(CS02) | _BV(CS00); // prescaler 1024
|
||||||
|
OCR0A = 156; // interrupt every 10 ms
|
||||||
|
sbi(TIMSK0, OCIE0A); |
||||||
|
sei(); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
/** timer 0 interrupt vector */ |
||||||
|
ISR(TIMER0_COMPA_vect) |
||||||
|
{ |
||||||
|
debo_tick(); // poll debouncer
|
||||||
|
update(); // update and display
|
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
// sub-glyphs
|
||||||
|
#define _HEAD_ 15, 21, 21, 30 |
||||||
|
#define _BODY_ 15, 31, 31, 30 |
||||||
|
#define _FOOD_ 10, 21, 17, 14 |
||||||
|
//14, 17, 17, 14
|
||||||
|
#define _NONE_ 0, 0, 0, 0 |
||||||
|
|
||||||
|
// complete glyphs for loading into memory
|
||||||
|
|
||||||
|
// Only one food & one head glyph have to be loaded at a time.
|
||||||
|
|
||||||
|
// Body - Body
|
||||||
|
const uint8_t SYMBOL_BB[] PROGMEM = {_BODY_, _BODY_}; |
||||||
|
|
||||||
|
// Body - None
|
||||||
|
const uint8_t SYMBOL_BX[] PROGMEM = {_BODY_, _NONE_}; |
||||||
|
const uint8_t SYMBOL_XB[] PROGMEM = {_NONE_, _BODY_}; |
||||||
|
|
||||||
|
// Head - None
|
||||||
|
const uint8_t SYMBOL_HX[] PROGMEM = {_HEAD_, _NONE_}; |
||||||
|
const uint8_t SYMBOL_XH[] PROGMEM = {_NONE_, _HEAD_}; |
||||||
|
|
||||||
|
// Body - Head
|
||||||
|
const uint8_t SYMBOL_BH[] PROGMEM = {_BODY_, _HEAD_}; |
||||||
|
const uint8_t SYMBOL_HB[] PROGMEM = {_HEAD_, _BODY_}; |
||||||
|
|
||||||
|
// Head - Food
|
||||||
|
const uint8_t SYMBOL_HF[] PROGMEM = {_HEAD_, _FOOD_}; |
||||||
|
const uint8_t SYMBOL_FH[] PROGMEM = {_FOOD_, _HEAD_}; |
||||||
|
|
||||||
|
// Food - None
|
||||||
|
const uint8_t SYMBOL_FX[] PROGMEM = {_FOOD_, _NONE_}; |
||||||
|
const uint8_t SYMBOL_XF[] PROGMEM = {_NONE_, _FOOD_}; |
||||||
|
|
||||||
|
// Body - Food
|
||||||
|
const uint8_t SYMBOL_BF[] PROGMEM = {_BODY_, _FOOD_}; |
||||||
|
const uint8_t SYMBOL_FB[] PROGMEM = {_FOOD_, _BODY_}; |
||||||
|
|
||||||
|
|
||||||
|
// board block (snake, food...)
|
||||||
|
typedef enum { |
||||||
|
bEMPTY = 0x00, |
||||||
|
bHEAD = 0x01, |
||||||
|
bFOOD = 0x02, |
||||||
|
bBODY_LEFT = 0x80, |
||||||
|
bBODY_RIGHT = 0x81, |
||||||
|
bBODY_UP = 0x82, |
||||||
|
bBODY_DOWN = 0x83, |
||||||
|
} block_t; |
||||||
|
|
||||||
|
// Snake direction
|
||||||
|
typedef enum { |
||||||
|
dLEFT = 0x00, |
||||||
|
dRIGHT = 0x01, |
||||||
|
dUP = 0x02, |
||||||
|
dDOWN = 0x03, |
||||||
|
} dir_t; |
||||||
|
|
||||||
|
// Coordinate on board
|
||||||
|
typedef struct { |
||||||
|
int8_t x; |
||||||
|
int8_t y; |
||||||
|
} coord_t; |
||||||
|
|
||||||
|
#define is_body(blk) (((blk) & 0x80) != 0) |
||||||
|
#define mk_body_dir(dir) (0x80 + (dir)) |
||||||
|
|
||||||
|
// compare two coords
|
||||||
|
#define coord_eq(a, b) (((a).x == (b).x) && ((a).y == (b).y)) |
||||||
|
|
||||||
|
|
||||||
|
bool crashed; |
||||||
|
uint8_t snake_len; |
||||||
|
|
||||||
|
// y, x indexing
|
||||||
|
block_t board[ROWS][COLS]; |
||||||
|
|
||||||
|
coord_t head_pos; |
||||||
|
coord_t tail_pos; |
||||||
|
dir_t head_dir; |
||||||
|
|
||||||
|
const uint8_t CODE_BB = 0; |
||||||
|
const uint8_t CODE_BX = 1; |
||||||
|
const uint8_t CODE_XB = 2; |
||||||
|
const uint8_t CODE_H = 3; // glyph with head, dynamic
|
||||||
|
const uint8_t CODE_F = 4; // glyph with food, dynamic
|
||||||
|
const uint8_t CODE_XX = 32; // space
|
||||||
|
|
||||||
|
|
||||||
|
// Set a block in board
|
||||||
|
#define set_block_xy(x, y, block) do { board[y][x] = (block); } while(0) |
||||||
|
#define get_block_xy(x, y) board[y][x] |
||||||
|
#define get_block(pos) get_block_xy((pos).x, (pos).y) |
||||||
|
#define set_block(pos, block) set_block_xy((pos).x, (pos).y, (block)) |
||||||
|
|
||||||
|
|
||||||
|
void init_cgram() |
||||||
|
{ |
||||||
|
// those will be always the same
|
||||||
|
lcd_define_glyph_pgm(CODE_BB, SYMBOL_BB); |
||||||
|
lcd_define_glyph_pgm(CODE_BX, SYMBOL_BX); |
||||||
|
lcd_define_glyph_pgm(CODE_XB, SYMBOL_XB); |
||||||
|
lcd_define_glyph_pgm(5, SYMBOL_XF); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
void place_food() |
||||||
|
{ |
||||||
|
while(1) { |
||||||
|
const uint8_t xx = rand() % COLS; |
||||||
|
const uint8_t yy = rand() % ROWS; |
||||||
|
|
||||||
|
if (get_block_xy(xx, yy) == bEMPTY) { |
||||||
|
set_block_xy(xx, yy, bFOOD); |
||||||
|
break; |
||||||
|
} |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
void init_gameboard() |
||||||
|
{ |
||||||
|
//erase the board
|
||||||
|
for (uint8_t x = 0; x < COLS; x++) { |
||||||
|
for (uint8_t y = 0; y < ROWS; y++) { |
||||||
|
set_block_xy(x, y, bEMPTY); |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
lcd_clear(); |
||||||
|
|
||||||
|
tail_pos = (coord_t) {.x = 0, .y = 0}; |
||||||
|
|
||||||
|
set_block_xy(0, 0, bBODY_RIGHT); |
||||||
|
set_block_xy(1, 0, bBODY_RIGHT); |
||||||
|
set_block_xy(2, 0, bBODY_RIGHT); |
||||||
|
set_block_xy(3, 0, bHEAD); |
||||||
|
|
||||||
|
head_pos = (coord_t) {.x = 3, .y = 0}; |
||||||
|
|
||||||
|
snake_len = 4; // includes head
|
||||||
|
|
||||||
|
head_dir = dRIGHT; |
||||||
|
crashed = false; |
||||||
|
|
||||||
|
place_food(); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
uint8_t presc = 0; |
||||||
|
|
||||||
|
bool restart_held; |
||||||
|
void update() |
||||||
|
{ |
||||||
|
if (debo_get_pin(D_RESTART)) { |
||||||
|
|
||||||
|
if (!restart_held) { |
||||||
|
// restart
|
||||||
|
init_gameboard(); |
||||||
|
presc = 0; |
||||||
|
restart_held = true; |
||||||
|
} |
||||||
|
|
||||||
|
} else { |
||||||
|
restart_held = false; |
||||||
|
} |
||||||
|
|
||||||
|
if(!crashed) { |
||||||
|
|
||||||
|
// resolve movement direction
|
||||||
|
if (debo_get_pin(D_LEFT)) |
||||||
|
head_dir = dLEFT; |
||||||
|
else if (debo_get_pin(D_RIGHT)) |
||||||
|
head_dir = dRIGHT; |
||||||
|
else if (debo_get_pin(D_UP)) |
||||||
|
head_dir = dUP; |
||||||
|
else if (debo_get_pin(D_DOWN)) |
||||||
|
head_dir = dDOWN; |
||||||
|
|
||||||
|
// time's up for a move
|
||||||
|
if (presc++ == STEP_DELAY) { |
||||||
|
presc = 0; |
||||||
|
|
||||||
|
// move snake
|
||||||
|
const coord_t oldpos = head_pos; |
||||||
|
|
||||||
|
switch (head_dir) { |
||||||
|
case dLEFT: head_pos.x--; break; |
||||||
|
case dRIGHT: head_pos.x++; break; |
||||||
|
case dUP: head_pos.y--; break; |
||||||
|
case dDOWN: head_pos.y++; break; |
||||||
|
} |
||||||
|
|
||||||
|
bool do_move = false; |
||||||
|
bool do_grow = false; |
||||||
|
|
||||||
|
if (head_pos.x < 0 || head_pos.x >= COLS || head_pos.y < 0 || head_pos.y >= ROWS) { |
||||||
|
// ouch, a wall!
|
||||||
|
crashed = true; |
||||||
|
} else { |
||||||
|
// check if tile occupied or not
|
||||||
|
if (coord_eq(head_pos, tail_pos)) { |
||||||
|
// head moved in previous tail, that's OK.
|
||||||
|
do_move = true; |
||||||
|
} else { |
||||||
|
// moved to other tile than tail
|
||||||
|
switch (get_block(head_pos)) { |
||||||
|
|
||||||
|
case bFOOD: |
||||||
|
do_grow = true; // fall through
|
||||||
|
case bEMPTY: |
||||||
|
do_move = true; |
||||||
|
break; |
||||||
|
|
||||||
|
default: // includes all BODY_xxx
|
||||||
|
crashed = true; // snake crashed into some block
|
||||||
|
} |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
if (do_move) { |
||||||
|
// Move tail
|
||||||
|
if (do_grow) { |
||||||
|
// let tail as is
|
||||||
|
snake_len++; // grow the counter
|
||||||
|
} else { |
||||||
|
// tail dir
|
||||||
|
dir_t td = get_block(tail_pos) & 0xF; |
||||||
|
|
||||||
|
// clean tail
|
||||||
|
set_block(tail_pos, bEMPTY); |
||||||
|
|
||||||
|
// move tail based on old direction of tail block
|
||||||
|
switch (td) { |
||||||
|
case dLEFT: tail_pos.x--; break; |
||||||
|
case dRIGHT: tail_pos.x++; break; |
||||||
|
case dUP: tail_pos.y--; break; |
||||||
|
case dDOWN: tail_pos.y++; break; |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
// Move head
|
||||||
|
set_block(head_pos, bHEAD); // place head in new pos
|
||||||
|
set_block(oldpos, mk_body_dir(head_dir)); // directional body in old head pos
|
||||||
|
|
||||||
|
if (do_grow) { |
||||||
|
// food eaten, place new
|
||||||
|
place_food(); |
||||||
|
} |
||||||
|
} |
||||||
|
} |
||||||
|
} // end !crashed
|
||||||
|
|
||||||
|
|
||||||
|
// Render the board
|
||||||
|
for (uint8_t r = 0; r < ROWS / 2; r++) { |
||||||
|
lcd_xy(0, r); |
||||||
|
for (uint8_t c = 0; c < COLS; c++) { |
||||||
|
const block_t t1 = get_block_xy(c, r * 2); |
||||||
|
const block_t t2 = get_block_xy(c, (r * 2) + 1); |
||||||
|
|
||||||
|
uint8_t code = '!'; // ! marks fail
|
||||||
|
|
||||||
|
if ((t1 == bEMPTY) && (t2 == bEMPTY)) { |
||||||
|
code = CODE_XX; |
||||||
|
if (crashed) code = '*'; |
||||||
|
} else if (is_body(t1) && is_body(t2)) |
||||||
|
code = CODE_BB; |
||||||
|
else if (is_body(t1) && (t2 == bEMPTY)) |
||||||
|
code = CODE_BX; |
||||||
|
else if (t1 == bEMPTY && is_body(t2)) |
||||||
|
code = CODE_XB; |
||||||
|
else if ((t1 == bFOOD) || (t2 == bFOOD)) { |
||||||
|
// one is food
|
||||||
|
|
||||||
|
code = CODE_F; |
||||||
|
|
||||||
|
if (t1 == bFOOD) { |
||||||
|
if (t2 == bEMPTY) |
||||||
|
lcd_define_glyph_pgm(code, SYMBOL_FX); |
||||||
|
else if (t2 == bHEAD) |
||||||
|
lcd_define_glyph_pgm(code, SYMBOL_FH); |
||||||
|
else if (is_body(t2)) |
||||||
|
lcd_define_glyph_pgm(code, SYMBOL_FB); |
||||||
|
} else { // t2 is food
|
||||||
|
if (t1 == bEMPTY) |
||||||
|
lcd_define_glyph_pgm(code, SYMBOL_XF); |
||||||
|
else if (t1 == bHEAD) |
||||||
|
lcd_define_glyph_pgm(code, SYMBOL_HF); |
||||||
|
else if (is_body(t1)) |
||||||
|
lcd_define_glyph_pgm(code, SYMBOL_BF); |
||||||
|
} |
||||||
|
lcd_xy(c,r); |
||||||
|
|
||||||
|
} else if ((t1 == bHEAD )|| (t2 == bHEAD)) { |
||||||
|
// one is head
|
||||||
|
|
||||||
|
code = CODE_H; |
||||||
|
|
||||||
|
if (t1 == bHEAD) { |
||||||
|
if (t2 == bEMPTY) |
||||||
|
lcd_define_glyph_pgm(code, SYMBOL_HX); |
||||||
|
else if (is_body(t2)) |
||||||
|
lcd_define_glyph_pgm(code, SYMBOL_HB); |
||||||
|
} else { // t2 is head
|
||||||
|
if (t1 == bEMPTY) |
||||||
|
lcd_define_glyph_pgm(code, SYMBOL_XH); |
||||||
|
else if (is_body(t1)) |
||||||
|
lcd_define_glyph_pgm(code, SYMBOL_BH); |
||||||
|
} |
||||||
|
|
||||||
|
lcd_xy(c,r); |
||||||
|
} |
||||||
|
|
||||||
|
lcd_char(code); |
||||||
|
} |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
void main() { while(1); } // timer does everything
|
||||||
@ -0,0 +1,166 @@ |
|||||||
|
|
||||||
|
MCU = atmega328p
|
||||||
|
|
||||||
|
F_CPU = 16000000
|
||||||
|
|
||||||
|
LFUSE = 0xFF
|
||||||
|
HFUSE = 0xDE
|
||||||
|
EFUSE = 0x05
|
||||||
|
|
||||||
|
MAIN = main.c
|
||||||
|
|
||||||
|
## If you've split your program into multiple files,
|
||||||
|
## include the additional .c source (in same directory) here
|
||||||
|
## (and include the .h files in your foo.c)
|
||||||
|
LOCAL_SOURCE =
|
||||||
|
|
||||||
|
## Here you can link to one more directory (and multiple .c files)
|
||||||
|
# EXTRA_SOURCE_DIR = ../AVR-Programming-Library/
|
||||||
|
EXTRA_SOURCE_DIR =
|
||||||
|
EXTRA_SOURCE_FILES =
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
##########------------------------------------------------------##########
|
||||||
|
########## Programmer Defaults ##########
|
||||||
|
########## Set up once, then forget about it ##########
|
||||||
|
########## (Can override. See bottom of file.) ##########
|
||||||
|
##########------------------------------------------------------##########
|
||||||
|
#19200
|
||||||
|
PROGRAMMER_TYPE = arduino
|
||||||
|
PROGRAMMER_ARGS = -b 57600 -P /dev/ttyUSB0
|
||||||
|
|
||||||
|
|
||||||
|
##########------------------------------------------------------##########
|
||||||
|
########## Makefile Magic! ##########
|
||||||
|
########## Summary: ##########
|
||||||
|
########## We want a .hex file ##########
|
||||||
|
########## Compile source files into .elf ##########
|
||||||
|
########## Convert .elf file into .hex ##########
|
||||||
|
########## You shouldn't need to edit below. ##########
|
||||||
|
##########------------------------------------------------------##########
|
||||||
|
|
||||||
|
## Defined programs / locations
|
||||||
|
CC = avr-gcc
|
||||||
|
OBJCOPY = avr-objcopy
|
||||||
|
OBJDUMP = avr-objdump
|
||||||
|
AVRSIZE = avr-size
|
||||||
|
AVRDUDE = sudo avrdude
|
||||||
|
|
||||||
|
## Compilation options, type man avr-gcc if you're curious.
|
||||||
|
CFLAGS = -std=gnu99 -mmcu=$(MCU) -DF_CPU=$(F_CPU)UL -I. -I$(EXTRA_SOURCE_DIR)
|
||||||
|
CFLAGS += -funsigned-char -funsigned-bitfields -fpack-struct -fshort-enums
|
||||||
|
CFLAGS += -Wall -Wno-main -Wno-strict-prototypes -Wno-comment
|
||||||
|
CFLAGS += -g2 -Wextra -Wfatal-errors
|
||||||
|
CFLAGS += -ffunction-sections -fdata-sections -Wl,--gc-sections -Wl,--relax
|
||||||
|
|
||||||
|
CFLAGS_BUILD = $(CFLAGS) -Os
|
||||||
|
|
||||||
|
# CFLAGS += -lm
|
||||||
|
## CFLAGS += -Wl,-u,vfprintf -lprintf_flt -lm ## for floating-point printf
|
||||||
|
## CFLAGS += -Wl,-u,vfprintf -lprintf_min ## for smaller printf
|
||||||
|
|
||||||
|
## Lump target and extra source files together
|
||||||
|
TARGET = $(strip $(basename $(MAIN)))
|
||||||
|
SRC1 = $(TARGET).c
|
||||||
|
SRC = $(SRC1)
|
||||||
|
EXTRA_SOURCE = $(addprefix $(EXTRA_SOURCE_DIR), $(EXTRA_SOURCE_FILES))
|
||||||
|
SRC += $(EXTRA_SOURCE)
|
||||||
|
SRC += $(LOCAL_SOURCE)
|
||||||
|
|
||||||
|
## List of all header files
|
||||||
|
HEADERS = $(SRC:.c=.h)
|
||||||
|
|
||||||
|
## For every .c file, compile an .o object file
|
||||||
|
OBJ = $(SRC:.c=.o)
|
||||||
|
|
||||||
|
## Generic Makefile targets. (Only .hex file is necessary)
|
||||||
|
all: $(TARGET).hex size |
||||||
|
pre: $(TARGET).pre |
||||||
|
|
||||||
|
%.hex: %.elf |
||||||
|
$(OBJCOPY) -R .eeprom -O ihex $< $@
|
||||||
|
|
||||||
|
%.elf: $(SRC) |
||||||
|
$(CC) $(CFLAGS_BUILD) $(SRC) --output $@
|
||||||
|
|
||||||
|
%.pre: $(SRC1) |
||||||
|
$(CC) $(CFLAGS) -E $(SRC1) --output $@
|
||||||
|
|
||||||
|
%.eeprom: %.elf |
||||||
|
$(OBJCOPY) -j .eeprom --change-section-lma .eeprom=0 -O ihex $< $@
|
||||||
|
|
||||||
|
debug: |
||||||
|
@echo
|
||||||
|
@echo "Source files:" $(SRC)
|
||||||
|
@echo "MCU, F_CPU, BAUD:" $(MCU), $(F_CPU), $(BAUD)
|
||||||
|
@echo
|
||||||
|
|
||||||
|
# Optionally create listing file from .elf
|
||||||
|
# This creates approximate assembly-language equivalent of your code.
|
||||||
|
# Useful for debugging time-sensitive bits,
|
||||||
|
# or making sure the compiler does what you want.
|
||||||
|
disassemble: $(TARGET).lst |
||||||
|
|
||||||
|
dis: disassemble |
||||||
|
lst: disassemble |
||||||
|
|
||||||
|
eeprom: $(TARGET).eeprom |
||||||
|
|
||||||
|
%.lst: %.elf |
||||||
|
$(OBJDUMP) -S $< > $@
|
||||||
|
|
||||||
|
# Optionally show how big the resulting program is
|
||||||
|
size: $(TARGET).elf |
||||||
|
$(AVRSIZE) -C --mcu=$(MCU) $(TARGET).elf
|
||||||
|
|
||||||
|
clean: |
||||||
|
rm -f $(TARGET).elf $(TARGET).hex $(TARGET).obj \
|
||||||
|
$(TARGET).o $(TARGET).d $(TARGET).eep $(TARGET).lst \
|
||||||
|
$(TARGET).lss $(TARGET).sym $(TARGET).map $(TARGET)~ \
|
||||||
|
$(TARGET).eeprom
|
||||||
|
|
||||||
|
squeaky_clean: |
||||||
|
rm -f *.elf *.hex *.obj *.o *.d *.eep *.lst *.lss *.sym *.map *~
|
||||||
|
|
||||||
|
|
||||||
|
##########------------------------------------------------------##########
|
||||||
|
########## Programmer-specific details ##########
|
||||||
|
########## Flashing code to AVR using avrdude ##########
|
||||||
|
##########------------------------------------------------------##########
|
||||||
|
|
||||||
|
flash: $(TARGET).hex |
||||||
|
$(AVRDUDE) -c $(PROGRAMMER_TYPE) -p $(MCU) $(PROGRAMMER_ARGS) -U flash:w:$<
|
||||||
|
|
||||||
|
flash_eeprom: $(TARGET).eeprom |
||||||
|
$(AVRDUDE) -c $(PROGRAMMER_TYPE) -p $(MCU) $(PROGRAMMER_ARGS) -U eeprom:w:$<
|
||||||
|
|
||||||
|
terminal: |
||||||
|
$(AVRDUDE) -c $(PROGRAMMER_TYPE) -p $(MCU) $(PROGRAMMER_ARGS) -nt
|
||||||
|
|
||||||
|
|
||||||
|
flash_arduino: PROGRAMMER_TYPE = arduino |
||||||
|
flash_arduino: PROGRAMMER_ARGS = |
||||||
|
flash_arduino: flash |
||||||
|
|
||||||
|
flash_dragon_isp: PROGRAMMER_TYPE = dragon_isp |
||||||
|
flash_dragon_isp: PROGRAMMER_ARGS = |
||||||
|
flash_dragon_isp: flash |
||||||
|
|
||||||
|
|
||||||
|
##########------------------------------------------------------##########
|
||||||
|
########## Fuse settings and suitable defaults ##########
|
||||||
|
##########------------------------------------------------------##########
|
||||||
|
|
||||||
|
## Generic
|
||||||
|
FUSE_STRING = -U lfuse:w:$(LFUSE):m -U hfuse:w:$(HFUSE):m -U efuse:w:$(EFUSE):m
|
||||||
|
|
||||||
|
fuses: |
||||||
|
$(AVRDUDE) -c $(PROGRAMMER_TYPE) -p $(MCU) \
|
||||||
|
$(PROGRAMMER_ARGS) $(FUSE_STRING)
|
||||||
|
show_fuses: |
||||||
|
$(AVRDUDE) -c $(PROGRAMMER_TYPE) -p $(MCU) $(PROGRAMMER_ARGS) -nv
|
||||||
|
|
||||||
|
## Called with no extra definitions, sets to defaults
|
||||||
|
set_default_fuses: FUSE_STRING = -U lfuse:w:$(LFUSE):m -U hfuse:w:$(HFUSE):m -U efuse:w:$(EFUSE):m |
||||||
|
set_default_fuses: fuses |
||||||
@ -0,0 +1,10 @@ |
|||||||
|
Snake for HD44780 |
||||||
|
================= |
||||||
|
|
||||||
|
This is a Snake game (known from old Nokia phones) played on a character display with HD44780. |
||||||
|
|
||||||
|
Program tested on Arduino Pro Mini (flashed with avrdude using the Makefile). |
||||||
|
|
||||||
|
**Connections** are `#define`d in `main.c`, board size and snake speed can also be adjusted. No external parts except the display and buttons required. |
||||||
|
|
||||||
|
Best works with a gamepad, but any buttons will work. |
||||||
@ -0,0 +1,351 @@ |
|||||||
|
; Zapojeni (Připojen DMC-50399 v 4-bitovem modu): |
||||||
|
; +------u------+ |
||||||
|
; Vcc -> reset --+ /RST Vcc +-- napajeni +5V |
||||||
|
; --+ PD0 PB7 +-- RS (0=instr W, BF+addr R; 1=data W/R) |
||||||
|
; --+ PD1 PB6 +-- R/W (1=read,0=write) |
||||||
|
; --+ PA1 PB5 +-- E (clock, active falling edge) |
||||||
|
; --+ PA0 PB4 +-- |
||||||
|
; --+ PD2 PB3 +-- DATA 7 |
||||||
|
; --+ PD3 PB2 +-- DATA 6 |
||||||
|
; --+ PD4 PB1 +-- DATA 5 |
||||||
|
; --+ PD5 PB0 +-- DATA 4 |
||||||
|
; GND --+ GND PD6 +-- |
||||||
|
; +-------------+ |
||||||
|
|
||||||
|
;DMC-50399: |
||||||
|
; 1 - GND |
||||||
|
; 2 - +5V |
||||||
|
; 3 - 0V (lcd driver) |
||||||
|
; 4 - RS |
||||||
|
; 5 - R/W |
||||||
|
; 6 - E |
||||||
|
; 7 - DATA 0 |
||||||
|
; 8 - DATA 1 |
||||||
|
;... |
||||||
|
;14 - DATA 7 |
||||||
|
|
||||||
|
.device attiny2313 |
||||||
|
;běží na 4MHz, ckdiv8=1 (vypnuto) |
||||||
|
;250x16=1ms=1000us |
||||||
|
|
||||||
|
;LFUSE: 0xE2 -U lfuse:w:0xE2:m |
||||||
|
;HFUSE: 0xDF -U hfuse:w:0xDF:m |
||||||
|
|
||||||
|
|
||||||
|
;K O N S T A N T Y + P R E Z D I V K Y P O R T U A P I N U |
||||||
|
.equ LCDPORT = PORTB |
||||||
|
.equ LCDPIN = PINB |
||||||
|
.equ LCDDDR = DDRB |
||||||
|
|
||||||
|
.equ RS = 7 |
||||||
|
.equ RW = 6 |
||||||
|
.equ E = 5 |
||||||
|
|
||||||
|
.equ LCD_CLEAR = 0b00000001 |
||||||
|
.equ LCD_HOME = 0b00000010 |
||||||
|
|
||||||
|
.equ LCD_MODE_INC_NOSHIFT = 0b00000110 |
||||||
|
.equ LCD_MODE_INC_SHIFT = 0b00000111 |
||||||
|
.equ LCD_MODE_DEC_NOSHIFT = 0b00000100 |
||||||
|
.equ LCD_MODE_DEC_SHIFT = 0b00000101 |
||||||
|
|
||||||
|
.equ LCD_DISPLAY_DISABLED = 0b00001000 |
||||||
|
.equ LCD_DISPLAY_NOCURSOR = 0b00001100 |
||||||
|
.equ LCD_DISPLAY_CURSOR = 0b00001110 |
||||||
|
.equ LCD_DISPLAY_ALTER = 0b00001101 |
||||||
|
.equ LCD_DISPLAY_CURSOR_ALTER = 0b00001111 |
||||||
|
|
||||||
|
.equ LCD_CURSOR_LEFT = 0b00010000 |
||||||
|
.equ LCD_CURSOR_RIGHT = 0b00010100 |
||||||
|
.equ LCD_SHIFT_LEFT = 0b00011000 |
||||||
|
.equ LCD_SHIFT_RIGHT = 0b00011100 |
||||||
|
|
||||||
|
|
||||||
|
;5x7 font, 1-line |
||||||
|
.equ LCD_MODE_4BIT_1LINE = 0b00100000 |
||||||
|
;.equ LCD_MODE_8BIT_1LINE = 0b00110000 |
||||||
|
;5x7 font, 2-line |
||||||
|
.equ LCD_MODE_4BIT_2LINE = 0b00101000 |
||||||
|
;.equ LCD_MODE_8BIT_2LINE = 0b00111000 |
||||||
|
|
||||||
|
.equ ROW1_ADDR = 0x00 |
||||||
|
.equ ROW2_ADDR = 0x40 |
||||||
|
.equ ROW3_ADDR = 0x14 |
||||||
|
.equ ROW4_ADDR = 0x54 |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
;aliases |
||||||
|
.def ZH = r31 |
||||||
|
.def ZL = r30 |
||||||
|
.def YH = r29 |
||||||
|
.def YL = r28 |
||||||
|
.def XH = r27 |
||||||
|
.def XL = r26 |
||||||
|
|
||||||
|
; Z A C A T E K P R O G R A M U |
||||||
|
;vektory preruseni |
||||||
|
.org 0x0000 ;RESET |
||||||
|
rjmp RESET ;skok na start po resetu |
||||||
|
|
||||||
|
.org 0x0013 |
||||||
|
|
||||||
|
;nastaveni po resetu |
||||||
|
.DB "HD44780 INTERFACE" ;(nazev programu) |
||||||
|
RESET: |
||||||
|
ldi r16,low(RAMEND) ;nastavi stack pointer |
||||||
|
out SPL,r16 |
||||||
|
cli ;zakazat vsechna preruseni |
||||||
|
|
||||||
|
; Nastaveni portu |
||||||
|
;PORTB = LCDPORT |
||||||
|
ldi r16,0b11111111 ;smer portu B |
||||||
|
out LCDDDR,r16 |
||||||
|
ldi r16,0b00000000 ;vypnout B |
||||||
|
out LCDPORT,r16 |
||||||
|
|
||||||
|
sei ;Global Interrupt Enable |
||||||
|
|
||||||
|
; == display init == |
||||||
|
rcall LCD_INIT |
||||||
|
|
||||||
|
ldi r17,LCD_MODE_INC_NOSHIFT |
||||||
|
rcall TX_INSTR |
||||||
|
|
||||||
|
ldi r17,LCD_DISPLAY_NOCURSOR |
||||||
|
rcall TX_INSTR |
||||||
|
|
||||||
|
; == load user-defined characters to CGRAM == (default, array label named MYCHARS, end-mark=0xFE) |
||||||
|
ldi r17,0 |
||||||
|
rcall CGRAM_SET_ADDR |
||||||
|
|
||||||
|
ldi ZH,high(MYCHARS*2) |
||||||
|
ldi ZL,low(MYCHARS*2) |
||||||
|
CGRAM_loop: |
||||||
|
lpm r17,Z+ |
||||||
|
cpi r17,0xFE |
||||||
|
breq CGRAM_loop_end |
||||||
|
rcall TX_DATA |
||||||
|
rjmp CGRAM_loop |
||||||
|
CGRAM_loop_end: |
||||||
|
|
||||||
|
|
||||||
|
; == pgm body == |
||||||
|
|
||||||
|
;load text to DDRAM |
||||||
|
ldi r17,ROW1_ADDR |
||||||
|
rcall DDRAM_SET_ADDR |
||||||
|
|
||||||
|
ldi ZH,high(MYTEXT1*2) |
||||||
|
ldi ZL,low(MYTEXT1*2) |
||||||
|
DDRAM_loop: |
||||||
|
lpm r17,Z+ |
||||||
|
cpi r17,0xFE |
||||||
|
breq DDRAM_loop_end |
||||||
|
rcall TX_DATA |
||||||
|
rjmp DDRAM_loop |
||||||
|
DDRAM_loop_end: |
||||||
|
|
||||||
|
;load text to DDRAM |
||||||
|
ldi r17,ROW2_ADDR |
||||||
|
rcall DDRAM_SET_ADDR |
||||||
|
|
||||||
|
ldi ZH,high(MYTEXT2*2) |
||||||
|
ldi ZL,low(MYTEXT2*2) |
||||||
|
DDRAM2_loop: |
||||||
|
lpm r17,Z+ |
||||||
|
cpi r17,0xFE |
||||||
|
breq DDRAM2_loop_end |
||||||
|
rcall TX_DATA |
||||||
|
rjmp DDRAM2_loop |
||||||
|
DDRAM2_loop_end: |
||||||
|
|
||||||
|
;direct write to X,Y - example |
||||||
|
ldi r16,3 ;Y, zacina 0 a roste smerem dolu |
||||||
|
ldi r17,5 ;X, zacina nulou a roste smerem doprava |
||||||
|
rcall LCD_CURSOR_XY |
||||||
|
ldi r17,"%" |
||||||
|
rcall TX_DATA |
||||||
|
ldi r17,"%" |
||||||
|
rcall TX_DATA |
||||||
|
ldi r17,"%" |
||||||
|
rcall TX_DATA |
||||||
|
;infinite loop |
||||||
|
loop: rjmp loop |
||||||
|
|
||||||
|
|
||||||
|
MYTEXT1: |
||||||
|
.DB 0,0,0," POKUSNY TEXT ",0,0,0,0xFE |
||||||
|
MYTEXT2: |
||||||
|
.DB "Opravdu pekny text!",0xFE |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
; == USER-DEFINED CHARS == |
||||||
|
MYCHARS: |
||||||
|
; 5x8, first 3 bits are not used |
||||||
|
;end of mychars |
||||||
|
.DB 0xe,0x1f,0x15,0x1f,0x1f,0x1f,0x15 ;smajlik |
||||||
|
|
||||||
|
;konec |
||||||
|
.DB 0xFE |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
;r16=Y |
||||||
|
;r17=X |
||||||
|
LCD_CURSOR_XY: |
||||||
|
cpi r16,0 |
||||||
|
brne test1 |
||||||
|
fail: ldi r16,ROW1_ADDR |
||||||
|
rjmp addrdone |
||||||
|
test1: |
||||||
|
cpi r16,1 |
||||||
|
brne test2 |
||||||
|
ldi r16,ROW2_ADDR |
||||||
|
rjmp addrdone |
||||||
|
test2: |
||||||
|
cpi r16,2 |
||||||
|
brne test3 |
||||||
|
ldi r16,ROW3_ADDR |
||||||
|
rjmp addrdone |
||||||
|
test3: |
||||||
|
cpi r16,3 |
||||||
|
brne fail |
||||||
|
ldi r16,ROW4_ADDR |
||||||
|
addrdone: |
||||||
|
add r17,r16 |
||||||
|
rcall DDRAM_SET_ADDR |
||||||
|
ret |
||||||
|
|
||||||
|
;r16=počet ms (cca) |
||||||
|
delay: |
||||||
|
push r17 ;2 |
||||||
|
push r18 ;2 |
||||||
|
d1: |
||||||
|
ldi r17,250 ;1 |
||||||
|
d2: |
||||||
|
ldi r18,14 ;1 |
||||||
|
d3: |
||||||
|
dec r18 ;1 |
||||||
|
nop |
||||||
|
brne d3 ;2 (1 |
||||||
|
dec r17 ; +1) |
||||||
|
brne d2 ;2 (1 |
||||||
|
dec r16 ; +1) |
||||||
|
brne d1 ;2 (1) |
||||||
|
|
||||||
|
pop r18 ;2 |
||||||
|
pop r17 ;2 |
||||||
|
ret |
||||||
|
|
||||||
|
|
||||||
|
LCD_INIT: |
||||||
|
ldi r16,16 |
||||||
|
rcall delay |
||||||
|
ldi r16,0b00000010 ;4bit |
||||||
|
out PORTB,r16 |
||||||
|
rcall LCD_CLK |
||||||
|
ldi r16,5 |
||||||
|
rcall delay |
||||||
|
ldi r17,LCD_MODE_4BIT_2LINE ;set 4-bit mode |
||||||
|
rcall TX_INSTR |
||||||
|
ret |
||||||
|
|
||||||
|
;r17 |
||||||
|
TX_INSTR: |
||||||
|
swap r17 ;send high nibble |
||||||
|
mov r16,r17 |
||||||
|
andi r16,0b00001111 |
||||||
|
out LCDPORT,r16 |
||||||
|
rcall LCD_CLK |
||||||
|
|
||||||
|
swap r17 ;send low nibble |
||||||
|
mov r16,r17 |
||||||
|
andi r16,0b00001111 |
||||||
|
out LCDPORT,r16 |
||||||
|
rcall LCD_CLK |
||||||
|
|
||||||
|
ret |
||||||
|
|
||||||
|
;r17 |
||||||
|
TX_DATA: |
||||||
|
swap r17 ;send high nibble |
||||||
|
mov r16,r17 |
||||||
|
andi r16,0b00001111 |
||||||
|
sbr r16,(1<<RS) |
||||||
|
out LCDPORT,r16 |
||||||
|
rcall LCD_CLK |
||||||
|
|
||||||
|
swap r17 ;send low nibble |
||||||
|
mov r16,r17 |
||||||
|
andi r16,0b00001111 |
||||||
|
sbr r16,(1<<RS) |
||||||
|
out LCDPORT,r16 |
||||||
|
rcall LCD_CLK |
||||||
|
|
||||||
|
ret |
||||||
|
|
||||||
|
;r17 disabled to reduce code size |
||||||
|
;RX_DATA: |
||||||
|
; ;input |
||||||
|
; ldi r16,0b11110000 ;LCDPORT dirrection (RS RW E n.c.) output, (D7 D6 D5 D4) input |
||||||
|
; out LCDDDR,r16 |
||||||
|
; ldi r16,0b00001111 ;pullups to data pins enabled |
||||||
|
; out LCDPORT,r16 |
||||||
|
; |
||||||
|
; clr r17 |
||||||
|
; ldi r16,(1<<RW)|(1<<RS) |
||||||
|
; out LCDPORT,r16 ;set LCD to read mode, for data |
||||||
|
; |
||||||
|
; rcall LCD_CLK ;receive high nibble |
||||||
|
; in r16,LCDPIN |
||||||
|
; andi r16,0b00001111 |
||||||
|
; or r17,r16 |
||||||
|
; swap r17 ;store high nibble |
||||||
|
; |
||||||
|
; rcall LCD_CLK ;receive low nibble |
||||||
|
; in r16,LCDPIN |
||||||
|
; andi r16,0b00001111 |
||||||
|
; or r17,r16 ;store low nibble |
||||||
|
; |
||||||
|
; ;output |
||||||
|
; ldi r16,0b11111111 ;LCDPORT as output (RS RW E n.c. D7 D6 D5 D4) |
||||||
|
; out LCDDDR,r16 |
||||||
|
; ldi r16,0b00000000 ;LCDPORT off |
||||||
|
; out LCDPORT,r16 |
||||||
|
; |
||||||
|
; ;r17=received value (D7 D6 D5 D4 D3 D2 D1 D0) |
||||||
|
; ret |
||||||
|
|
||||||
|
LCD_CLK: |
||||||
|
sbi LCDPORT,E ;EXECUTE on |
||||||
|
nop |
||||||
|
nop |
||||||
|
nop |
||||||
|
cbi LCDPORT,E ;EXECUTE off |
||||||
|
ldi r16,150 ;pause: 100 for 4MHZ |
||||||
|
clkw: |
||||||
|
dec r16 |
||||||
|
brne clkw |
||||||
|
ret |
||||||
|
|
||||||
|
;r17 |
||||||
|
;7 bitu (1.radek zacina 00,druhej 40) |
||||||
|
DDRAM_SET_ADDR: |
||||||
|
clr r16 |
||||||
|
sbr r16,0b10000000 |
||||||
|
or r17,r16 |
||||||
|
rcall TX_INSTR |
||||||
|
ret |
||||||
|
|
||||||
|
;r17 |
||||||
|
;6 bitu (5,4,3 = znak, 2,1,0 = radek - shora) |
||||||
|
CGRAM_SET_ADDR: |
||||||
|
clr r16 |
||||||
|
sbr r16,0b01000000 |
||||||
|
or r17,r16 |
||||||
|
rcall TX_INSTR |
||||||
|
ret |
||||||
@ -0,0 +1,8 @@ |
|||||||
|
AVR utils library |
||||||
|
================= |
||||||
|
|
||||||
|
This is my ever-evolving library (not only) for AVR programming. |
||||||
|
|
||||||
|
When I'm done with a project, I copy the current library to the project, so it doesn't break when I do further improvements. |
||||||
|
|
||||||
|
Each library file contains a large comment block explaining it's function. |
||||||
@ -0,0 +1,39 @@ |
|||||||
|
#pragma once |
||||||
|
|
||||||
|
#include <avr/io.h> |
||||||
|
#include <stdbool.h> |
||||||
|
#include "calc.h" |
||||||
|
|
||||||
|
/** Initialize the ADC */ |
||||||
|
void adc_init() |
||||||
|
{ |
||||||
|
ADCSRA |= _BV(ADPS2) | _BV(ADPS1) | _BV(ADPS0); // 128 prescaler -> 125 kHz
|
||||||
|
ADMUX |= _BV(REFS0); // Voltage reference
|
||||||
|
sbi(ADCSRA, ADEN); // Enable ADC
|
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
/** Sample analog pin with 8-bit precision */ |
||||||
|
uint8_t adc_read_byte(uint8_t channel) |
||||||
|
{ |
||||||
|
write_low_nibble(ADMUX, channel); // Select channel to sample
|
||||||
|
sbi(ADMUX, ADLAR); // Align result to left
|
||||||
|
sbi(ADCSRA, ADSC); // Start conversion
|
||||||
|
|
||||||
|
while(bit_is_high(ADCSRA, ADSC)); // Wait for it...
|
||||||
|
|
||||||
|
return ADCH; // The upper 8 bits of ADC result
|
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
/** Sample analog pin with 10-bit precision */ |
||||||
|
uint16_t adc_read_word(uint8_t channel) |
||||||
|
{ |
||||||
|
write_low_nibble(ADMUX, channel); // Select channel to sample
|
||||||
|
cbi(ADMUX, ADLAR); // Align result to right
|
||||||
|
sbi(ADCSRA, ADSC); // Start conversion
|
||||||
|
|
||||||
|
while(get_bit(ADCSRA, ADSC)); // Wait for it...
|
||||||
|
|
||||||
|
return ADCW; // The whole ADC word (10 bits)
|
||||||
|
} |
||||||
@ -0,0 +1,42 @@ |
|||||||
|
#pragma once |
||||||
|
|
||||||
|
/**
|
||||||
|
Pin definitions for Arduino (Pro Mini with ATmega328P) |
||||||
|
*/ |
||||||
|
|
||||||
|
#include "pins.h" |
||||||
|
|
||||||
|
#define D0 D,0 |
||||||
|
#define D1 D,1 |
||||||
|
#define D2 D,2 |
||||||
|
#define D3 D,3 |
||||||
|
#define D4 D,4 |
||||||
|
#define D5 D,5 |
||||||
|
#define D6 D,6 |
||||||
|
#define D7 D,7 |
||||||
|
#define D8 B,0 |
||||||
|
#define D9 B,1 |
||||||
|
#define D10 B,2 |
||||||
|
|
||||||
|
// MOSI MISO SCK - not good for input
|
||||||
|
#define D11 B,3 |
||||||
|
#define D12 B,4 |
||||||
|
#define D13 B,5 |
||||||
|
|
||||||
|
#define D14 C,0 |
||||||
|
#define D15 C,1 |
||||||
|
#define D16 C,2 |
||||||
|
#define D17 C,3 |
||||||
|
#define D18 C,4 |
||||||
|
#define D19 C,5 |
||||||
|
#define D20 C,6 |
||||||
|
#define D21 C,7 |
||||||
|
|
||||||
|
#define A0 C,0 |
||||||
|
#define A1 C,1 |
||||||
|
#define A2 C,2 |
||||||
|
#define A3 C,3 |
||||||
|
#define A4 C,4 |
||||||
|
#define A5 C,5 |
||||||
|
#define A6 C,6 |
||||||
|
#define A7 C,7 |
||||||
@ -0,0 +1,89 @@ |
|||||||
|
#pragma once |
||||||
|
|
||||||
|
/**
|
||||||
|
Bit and byte manipulation utilities |
||||||
|
*/ |
||||||
|
|
||||||
|
|
||||||
|
// --- Increment in range ---
|
||||||
|
// when overflown, wraps within range. Lower bound < upper bound.
|
||||||
|
// ..., upper bound excluded
|
||||||
|
#define inc_wrap(var, min, max) do { if ((var) >= (max - 1)) { (var) = (min); } else { (var)++; } } while(0) |
||||||
|
// ..., upper bound included
|
||||||
|
#define inc_wrapi(var, min, max) inc_wrap((var), (min), (max) + 1) |
||||||
|
|
||||||
|
|
||||||
|
// --- Decrement in range ---
|
||||||
|
// when underflown, wraps within range. Lower bound < upper bound.
|
||||||
|
// ..., upper bound excluded
|
||||||
|
#define dec_wrap(var, min, max) do { if ((var) <= (min)) { (var) = (max) - 1; } else { (var)--; } } while(0) |
||||||
|
// ..., upper bound included
|
||||||
|
#define dec_wrapi(var, min, max) dec_wrap((var), (min), (max) + 1) |
||||||
|
|
||||||
|
|
||||||
|
// --- Bit manipulation --
|
||||||
|
|
||||||
|
// Set bit
|
||||||
|
#define sbi(reg, bit) do { (reg) |= (1 << (uint8_t)(bit)); } while(0) |
||||||
|
|
||||||
|
// Clear bit
|
||||||
|
#define cbi(reg, bit) do { (reg) &= ~(1 << (uint8_t)(bit)); } while(0) |
||||||
|
|
||||||
|
// Get n-th bit
|
||||||
|
#define read_bit(reg, bit) (((reg) >> (uint8_t)(bit)) & 0x1) |
||||||
|
#define get_bit(reg, bit) read_bit(reg, bit) |
||||||
|
|
||||||
|
// Test n-th bit (Can't use bit_is_set, as it's redefined in sfr_def.h)
|
||||||
|
#define bit_is_high(reg, bit) read_bit(reg, bit) |
||||||
|
#define bit_is_low(reg, bit) (!read_bit(reg, bit)) |
||||||
|
|
||||||
|
// Write value to n-th bit
|
||||||
|
#define write_bit(reg, bit, value) do { (reg) = ((reg) & ~(1 << (uint8_t)(bit))) | (((uint8_t)(value) & 0x1) << (uint8_t)(bit)); } while(0) |
||||||
|
#define set_bit(reg, bit, value) write_bit(reg, bit, value) |
||||||
|
|
||||||
|
// Invert n-th bit
|
||||||
|
#define toggle_bit(reg, bit) do { (reg) ^= (1 << (uint8_t)(bit)); } while(0) |
||||||
|
|
||||||
|
|
||||||
|
// --- Bit manipulation with pointer to variable ---
|
||||||
|
|
||||||
|
// Set n-th bit in pointee
|
||||||
|
#define sbi_p(reg_p, bit) do { (*(reg_p)) |= (1 << (uint8_t)(bit)); } while(0) |
||||||
|
// Clear n-th bit in pointee
|
||||||
|
#define cbi_p(reg_p, bit) do { (*(reg_p)) &= ~(1 << (uint8_t)(bit)); } while(0) |
||||||
|
|
||||||
|
// Get n-th bit in pointee
|
||||||
|
#define read_bit_p(reg_p, bit) ((*(reg_p) >> (uint8_t)(bit)) & 0x1) |
||||||
|
#define get_bit_p(reg_p, bit) read_bit_p(reg_p, bit) |
||||||
|
|
||||||
|
// Test n-th bit in pointee (Can't use bit_is_set, as it's redefined in sfr_def.h)
|
||||||
|
#define bit_is_high_p(reg_p, bit) read_bit_p(reg_p, bit) |
||||||
|
#define bit_is_low_p(reg_p, bit) (!read_bit_p(reg_p, bit)) |
||||||
|
|
||||||
|
// Write value to a bit in pointee
|
||||||
|
#define write_bit_p(reg_p, bit, value) do { *(reg_p) = (*(reg_p) & ~(1 << ((uint8_t)(bit) & 0x1))) | (((uint8_t)(value) & 0x1) << (uint8_t)(bit)); } while(0) |
||||||
|
#define set_bit_p(reg_p, bit, value) write_bit_p(reg_p, bit, value) |
||||||
|
#define toggle_bit_p(reg_p, bit) do { *(reg_p) ^= (1 << (uint8_t)(bit)); } while(0) |
||||||
|
|
||||||
|
|
||||||
|
// --- Nibble manipulation ---
|
||||||
|
|
||||||
|
// Replace nibble in a byte
|
||||||
|
#define write_low_nibble(reg, value) do { (reg) = ((reg) & 0xF0) | ((uint8_t)(value) & 0xF); } while(0) |
||||||
|
#define write_high_nibble(reg, value) do { (reg) = ((reg) & 0x0F) | (((uint8_t)(value) & 0xF) << 4); } while(0) |
||||||
|
|
||||||
|
#define write_low_nibble_p(reg_p, value) do { *(reg_p) = (*(reg_p) & 0xF0) | ((uint8_t)(value) & 0xF); } while(0) |
||||||
|
#define write_high_nibble_p(reg_p, value) do { *(reg_p) = (*(reg_p) & 0x0F) | (((uint8_t)(value) & 0xF) << 4); } while(0) |
||||||
|
|
||||||
|
|
||||||
|
// --- Range tests ---
|
||||||
|
|
||||||
|
// Test if X is within low..high, regardless of bounds order
|
||||||
|
#define in_range(x, low, high) ((((low) < (high)) && ((x) >= (low) && (x) < (high))) || (((low) > (high)) && ((x) >= (high) && (x) < (low)))) |
||||||
|
// ..., include greater bound
|
||||||
|
#define in_rangei(x, low, high) ((((low) <= (high)) && ((x) >= (low) && (x) <= (high))) || (((low) > (high)) && ((x) >= (high) && (x) <= (low)))) |
||||||
|
|
||||||
|
// Test if X in low..high, wrap around ends if needed.
|
||||||
|
#define in_range_wrap(x, low, high) ((((low) < (high)) && ((x) >= (low) && (x) < (high))) || (((low) > (high)) && ((x) >= (low) || (x) < (high)))) |
||||||
|
// ..., include upper bound
|
||||||
|
#define in_range_wrapi(x, low, high) ((((low) <= (high)) && ((x) >= (low) && (x) <= (high))) || (((low) > (high)) && ((x) >= (low) || (x) <= (high)))) |
||||||
@ -0,0 +1,83 @@ |
|||||||
|
#pragma once |
||||||
|
|
||||||
|
/*
|
||||||
|
Some useful utilities for RGB color manipulation |
||||||
|
|
||||||
|
The XXXc macros don't use cast, so they can be used in array initializers. |
||||||
|
|
||||||
|
xrgb ... 3-byte true-color RGB (8 bits per component) |
||||||
|
rgbXX ... XX-bit color value, with equal nr of bits per component |
||||||
|
|
||||||
|
XX_r (_g, _b) ... extract component from the color, and convert it to 0..255 |
||||||
|
*/ |
||||||
|
|
||||||
|
typedef struct { |
||||||
|
uint8_t r; |
||||||
|
uint8_t g; |
||||||
|
uint8_t b; |
||||||
|
} xrgb_t; |
||||||
|
|
||||||
|
typedef uint32_t rgb24_t; |
||||||
|
typedef uint16_t rgb16_t; |
||||||
|
typedef uint16_t rgb12_t; |
||||||
|
typedef uint8_t rgb6_t; |
||||||
|
|
||||||
|
|
||||||
|
#define xrgb(rr, gg, bb) ((xrgb_t)xrgbc(rr, gg, bb)) |
||||||
|
// xrgb for constant array declarations
|
||||||
|
#define xrgbc(rr, gg, bb) { .r = ((uint8_t)(rr)), .g = ((uint8_t)(gg)), .b = ((uint8_t)(bb)) } |
||||||
|
#define xrgb_r(c) ((uint8_t)(c.r)) |
||||||
|
#define xrgb_g(c) ((uint8_t)(c.g)) |
||||||
|
#define xrgb_b(c) ((uint8_t)(c.b)) |
||||||
|
#define xrgb_rgb24(c) ((((rgb24_t)c.r) << 16) | (((rgb24_t)c.g) << 8) | (((rgb24_t)c.b))) |
||||||
|
#define xrgb_rgb15(c) (((((rgb15_t)c.r) & 0xF8) << 7) | ((((rgb15_t)c.g) & 0xF8) << 2) | ((((rgb15_t)c.b) & 0xF8) >> 3)) |
||||||
|
#define xrgb_rgb12(c) (((((rgb12_t)c.r) & 0xF0) << 4) | ((((rgb12_t)c.g) & 0xF0)) | ((((rgb12_t)c.b) & 0xF0) >> 4)) |
||||||
|
#define xrgb_rgb6(c) (((((rgb6_t)c.r) & 0xC0) >> 2) | ((((rgb6_t)c.g) & 0xC0) >> 4) | ((((rgb6_t)c.b) & 0xC0) >> 6)) |
||||||
|
|
||||||
|
|
||||||
|
#define rgb24c(r,g,b) (((((rgb24_t)r) & 0xFF) << 16) | ((((rgb24_t)g) & 0xFF) << 8) | (((rgb24_t)b) & 0xFF)) |
||||||
|
#define rgb24(r,g,b) ((rgb24_t) rgb24(r,g,b)) |
||||||
|
|
||||||
|
#define rgb24_r(c) ((((rgb24_t) (c)) >> 16) & 0xFF) |
||||||
|
#define rgb24_g(c) ((((rgb24_t) (c)) >> 8) & 0xFF) |
||||||
|
#define rgb24_b(c) ((((rgb24_t) (c)) >> 0) & 0xFF) |
||||||
|
#define rgb24_xrgb(c) xrgb(rgb24_r(c), rgb24_g(c), rgb24_b(c)) |
||||||
|
#define rgb24_xrgbc(c) xrgbc(rgb24_r(c), rgb24_g(c), rgb24_b(c)) |
||||||
|
|
||||||
|
|
||||||
|
#define rgb15(r,g,b) ((rgb16_t) rgb15c(r,g,b)) |
||||||
|
#define rgb15c(r,g,b) (((r & 0x1F) << 10) | ((g & 0x1F) << 5) | (b & 0x1F)) |
||||||
|
|
||||||
|
#define rgb15_r(c) ((((rgb15_t) (c)) & 0x7C00) >> 7) |
||||||
|
#define rgb15_g(c) ((((rgb15_t) (c)) & 0x3E0) >> 2) |
||||||
|
#define rgb15_b(c) ((((rgb15_t) (c)) & 0x1F) << 3) |
||||||
|
#define rgb15_xrgb(c) xrgb(rgb15_r(c), rgb15_g(c), rgb15_b(c)) |
||||||
|
#define rgb15_rgb24(c) rgb24(rgb15_r(c), rgb15_g(c), rgb15_b(c)) |
||||||
|
#define rgb15_rgb24c(c) rgb24c(rgb15_r(c), rgb15_g(c), rgb15_b(c)) |
||||||
|
|
||||||
|
|
||||||
|
#define rgb12(r,g,b) ((rgb12_t) rgb12c(r,g,b)) |
||||||
|
#define rgb12c(r,g,b) (((r & 0xF) << 8) | ((g & 0xF) << 4) | (b & 0xF)) |
||||||
|
|
||||||
|
#define rgb12_r(c) ((((rgb12_t) (c)) & 0xF00) >> 4) |
||||||
|
#define rgb12_g(c) (((rgb12_t) (c)) & 0xF0) |
||||||
|
#define rgb12_b(c) (((r(rgb12_t) (c)gb) & 0x0F) << 4) |
||||||
|
#define rgb12_xrgb(c) xrgb(rgb12_r(c), rgb12_g(c), rgb12_b(c)) |
||||||
|
#define rgb12_xrgbc(c) xrgbc(rgb12_r(c), rgb12_g(c), rgb12_b(c)) |
||||||
|
#define rgb12_rgb24(c) rgb24(rgb12_r(c), rgb12_g(c), rgb12_b(c)) |
||||||
|
#define rgb12_rgb24c(c) rgb24c(rgb12_r(c), rgb12_g(c), rgb12_b(c)) |
||||||
|
|
||||||
|
|
||||||
|
#define rgb6(r,g,b) ((rgb6_t) rgb6c(r,g,b)) |
||||||
|
#define rgb6c(r,g,b) (((r & 3) << 4) | ((g & 3) << 2) | (b & 3)) |
||||||
|
|
||||||
|
#define rgb6_r(c) ((((rgb6_t) (c)) & 0x30) << 2) |
||||||
|
#define rgb6_g(c) ((((rgb6_t) (c)) & 0xC) << 4) |
||||||
|
#define rgb6_b(c) ((((rgb6_t) (c)) & 0x3) << 6) |
||||||
|
#define rgb6_xrgb(c) xrgb(rgb6_r(c), rgb6_g(c), rgb6_b(c)) |
||||||
|
#define rgb6_xrgbc(c) xrgbc(rgb6_r(c), rgb6_g(c), rgb6_b(c)) |
||||||
|
#define rgb6_rgb24(c) rgb24(rgb6_r(c), rgb6_g(c), rgb6_b(c)) |
||||||
|
#define rgb6_rgb24c(c) rgb24c(rgb6_r(c), rgb6_g(c), rgb6_b(c)) |
||||||
|
|
||||||
|
|
||||||
|
#define add_xrgb(x, y) ((xrgb_t) { (((y).r > (255 - (x).r)) ? 255 : ((x).r + (y).r)), (((y).g > (255 - (x).g)) ? 255 : ((x).g + (y).g)), (((y).b > 255 - (x).b) ? 255 : ((x).b + (y).b)) }) |
||||||
@ -0,0 +1,103 @@ |
|||||||
|
#pragma once |
||||||
|
|
||||||
|
/**
|
||||||
|
An implementation of button debouncer. |
||||||
|
|
||||||
|
First, the system must be initialized - even before including: |
||||||
|
|
||||||
|
#define DEBO_CHANNELS 2 |
||||||
|
#define DEBO_TICKS 5 |
||||||
|
|
||||||
|
#inclue "lib/debounce.h" |
||||||
|
|
||||||
|
A pin is registered like this: |
||||||
|
|
||||||
|
#define BTN1 B,0 |
||||||
|
#define BTN2 B,1 |
||||||
|
|
||||||
|
debo_add(BTN0); // The function returns number assigned to the pin (0, 1, ...)
|
||||||
|
debo_add_rev(BTN1); // active low
|
||||||
|
debo_register(&PINB, PB2, 0); // direct access - register, pin & invert
|
||||||
|
|
||||||
|
Then periodically call the tick function (perhaps in a timer interrupt): |
||||||
|
|
||||||
|
debo_tick(); |
||||||
|
|
||||||
|
To check if input is active, use |
||||||
|
|
||||||
|
debo_get_pin(0); // state of input registered as #0
|
||||||
|
debo_get_pin(1); // state of input registered as #1
|
||||||
|
*/ |
||||||
|
|
||||||
|
#include <avr/io.h> |
||||||
|
#include <stdbool.h> |
||||||
|
|
||||||
|
#include "calc.h" |
||||||
|
#include "pins.h" |
||||||
|
|
||||||
|
|
||||||
|
// Number of pins to debounce
|
||||||
|
#ifndef DEBO_CHANNELS |
||||||
|
# error "DEBO_CHANNELS not defined!" |
||||||
|
#endif |
||||||
|
|
||||||
|
#ifndef DEBO_TICKS |
||||||
|
# warning "DEBO_TICKS not defined, defaulting to 5!" |
||||||
|
# define DEBO_TICKS 5 |
||||||
|
#endif |
||||||
|
|
||||||
|
|
||||||
|
/* Internal deboucer entry */ |
||||||
|
typedef struct { |
||||||
|
PORT_P reg; // pointer to IO register
|
||||||
|
uint8_t bit; // bits 6 and 7 of this hold "state" & "invert" flag
|
||||||
|
uint8_t count; // number of ticks this was in the new state
|
||||||
|
} debo_slot_t; |
||||||
|
|
||||||
|
/** Debounce data array */ |
||||||
|
debo_slot_t debo_slots[DEBO_CHANNELS]; |
||||||
|
uint8_t debo_next_slot = 0; |
||||||
|
|
||||||
|
/** Define a debounced pin (must be IO!) */ |
||||||
|
|
||||||
|
#define debo_add_rev(io) debo_register(&io2pin(io_pack(io)), io2n(io_pack(io)), 1) |
||||||
|
#define debo_add(io) debo_register(&io2pin(io_pack(io)), io2n(io_pack(io)), 0) |
||||||
|
|
||||||
|
uint8_t debo_register(PORT_P reg, uint8_t bit, bool invert) |
||||||
|
{ |
||||||
|
debo_slots[debo_next_slot] = (debo_slot_t){ |
||||||
|
.reg = reg, |
||||||
|
.bit = bit | ((invert & 1) << 7) | (get_bit_p(reg, bit) << 6), // bit 7 = invert, bit 6 = state
|
||||||
|
.count = 0, |
||||||
|
}; |
||||||
|
|
||||||
|
return debo_next_slot++; |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
/** Check debounced pins, should be called periodically. */ |
||||||
|
void debo_tick() |
||||||
|
{ |
||||||
|
for (uint8_t i = 0; i < debo_next_slot; i++) { |
||||||
|
// current pin value (right 3 bits, xored with inverse bit)
|
||||||
|
bool value = get_bit_p(debo_slots[i].reg, debo_slots[i].bit & 0x7); |
||||||
|
|
||||||
|
if (value != get_bit(debo_slots[i].bit, 6)) { |
||||||
|
|
||||||
|
// different pin state than last recorded state
|
||||||
|
if (debo_slots[i].count < DEBO_TICKS) { |
||||||
|
debo_slots[i].count++; |
||||||
|
} else { |
||||||
|
// overflown -> latch value
|
||||||
|
set_bit(debo_slots[i].bit, 6, value); // set state bit
|
||||||
|
debo_slots[i].count = 0; |
||||||
|
} |
||||||
|
} else { |
||||||
|
debo_slots[i].count = 0; // reset the counter
|
||||||
|
} |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
/** Get a value of debounced pin */ |
||||||
|
#define debo_get_pin(i) (get_bit(debo_slots[i].bit, 6) ^ get_bit(debo_slots[i].bit, 7)) |
||||||
@ -0,0 +1,391 @@ |
|||||||
|
#pragma once |
||||||
|
|
||||||
|
#include <stdbool.h> |
||||||
|
#include <stdint.h> |
||||||
|
#include <avr/io.h> |
||||||
|
#include <avr/pgmspace.h> |
||||||
|
#include <util/delay.h> |
||||||
|
|
||||||
|
#include "calc.h" |
||||||
|
#include "pins.h" |
||||||
|
#include "nsdelay.h" |
||||||
|
|
||||||
|
/*
|
||||||
|
HD44780 LCD display driver - 4-bit mode |
||||||
|
|
||||||
|
Required macros - pin settings (eg. B,3 or D,0) |
||||||
|
|
||||||
|
LCD_PIN_RS |
||||||
|
LCD_PIN_RW |
||||||
|
LCD_PIN_E |
||||||
|
LCD_PIN_D7 |
||||||
|
LCD_PIN_D6 |
||||||
|
LCD_PIN_D5 |
||||||
|
LCD_PIN_D4 |
||||||
|
|
||||||
|
Define those before including the header file. |
||||||
|
*/ |
||||||
|
|
||||||
|
// Commands for user
|
||||||
|
|
||||||
|
// Clear screen (reset)
|
||||||
|
#define LCD_CLEAR 0b00000001 |
||||||
|
// Move cursor to (0,0), unshift...
|
||||||
|
#define LCD_HOME 0b00000010 |
||||||
|
|
||||||
|
// Set mode: Increment + NoShift
|
||||||
|
#define LCD_MODE_INC 0b00000110 |
||||||
|
// Set mode: Increment + Shift
|
||||||
|
#define LCD_MODE_INC_SHIFT 0b00000111 |
||||||
|
|
||||||
|
// Set mode: Decrement + NoShift
|
||||||
|
#define LCD_MODE_DEC 0b00000100 |
||||||
|
// Set mode: Decrement + Shift
|
||||||
|
#define LCD_MODE_DEC_SHIFT 0b00000101 |
||||||
|
|
||||||
|
// Disable display (data remains untouched)
|
||||||
|
#define LCD_DISABLE 0b00001000 |
||||||
|
|
||||||
|
// Disable cursor
|
||||||
|
#define LCD_CURSOR_NONE 0b00001100 |
||||||
|
// Set cursor to still underscore
|
||||||
|
#define LCD_CURSOR_BAR 0b00001110 |
||||||
|
// Set cursor to blinking block
|
||||||
|
#define LCD_CURSOR_BLINK 0b00001101 |
||||||
|
// Set cursor to both of the above at once
|
||||||
|
#define LCD_CURSOR_BOTH (LCD_CURSOR_BAR | LCD_CURSOR_BLINK) |
||||||
|
|
||||||
|
// Move cursor
|
||||||
|
#define LCD_MOVE_LEFT 0b00010000 |
||||||
|
#define LCD_MOVE_RIGHT 0b00010100 |
||||||
|
|
||||||
|
// Shift display
|
||||||
|
#define LCD_SHIFT_LEFT 0b00011000 |
||||||
|
#define LCD_SHIFT_RIGHT 0b00011100 |
||||||
|
|
||||||
|
// Set iface to 5x7 font, 1-line
|
||||||
|
#define LCD_IFACE_4BIT_1LINE 0b00100000 |
||||||
|
#define LCD_IFACE_8BIT_1LINE 0b00110000 |
||||||
|
// Set iface to 5x7 font, 2-line
|
||||||
|
#define LCD_IFACE_4BIT_2LINE 0b00101000 |
||||||
|
#define LCD_IFACE_8BIT_2LINE 0b00111000 |
||||||
|
|
||||||
|
|
||||||
|
// Start address of rows
|
||||||
|
const uint8_t LCD_ROW_ADDR[] = {0x00, 0x40, 0x14, 0x54}; |
||||||
|
|
||||||
|
// prototypes
|
||||||
|
|
||||||
|
// --- PUBLIC API ---
|
||||||
|
|
||||||
|
/** Init the display */ |
||||||
|
void lcd_init(); |
||||||
|
/** Write a command */ |
||||||
|
void lcd_write_command(const uint8_t bb); |
||||||
|
/** Write data byte */ |
||||||
|
void lcd_write_data(const uint8_t bb); |
||||||
|
/** Read busy flag & address */ |
||||||
|
uint8_t lcd_read_bf_addr(); |
||||||
|
/** Read byte from ram */ |
||||||
|
uint8_t lcd_read_ram(); |
||||||
|
/** Show string */ |
||||||
|
void lcd_str(char* str); |
||||||
|
/** Show string at X, Y */ |
||||||
|
#define lcd_str_xy(x, y, str_p) do { lcd_xy((x), (y)); lcd_str((str_p)); } while(0) |
||||||
|
/** Show char */ |
||||||
|
void lcd_char(const char c); |
||||||
|
/** Show char at X, Y */ |
||||||
|
#define lcd_char_xy(x, y, c) do { lcd_xy((x), (y)); lcd_char((c)); } while(0) |
||||||
|
/** Move cursor to X, Y */ |
||||||
|
void lcd_xy(const uint8_t x, const uint8_t y); |
||||||
|
/** Set address in CGRAM */ |
||||||
|
void lcd_set_addr_cgram(const uint8_t acg); |
||||||
|
/** Set address in DDRAM */ |
||||||
|
void lcd_set_addr(const uint8_t add); |
||||||
|
/** Go home */ |
||||||
|
void lcd_home(); |
||||||
|
/** Clear the screen */ |
||||||
|
void lcd_clear(); |
||||||
|
|
||||||
|
/** Set cursor */ |
||||||
|
#define CURSOR_NONE 0b00 |
||||||
|
#define CURSOR_BAR 0b10 |
||||||
|
#define CURSOR_BLINK 0b01 |
||||||
|
#define CURSOR_BOTH 0b11 |
||||||
|
void lcd_cursor(uint8_t type); |
||||||
|
|
||||||
|
/** Disable / enable, preserving cursor */ |
||||||
|
void lcd_disable(); |
||||||
|
void lcd_enable(); |
||||||
|
|
||||||
|
/** Define a custom glyph */ |
||||||
|
void lcd_define_glyph(const uint8_t index, const uint8_t* array); |
||||||
|
|
||||||
|
|
||||||
|
// Internals
|
||||||
|
void _lcd_mode_r(); |
||||||
|
void _lcd_mode_w(); |
||||||
|
void _lcd_clk(); |
||||||
|
void _lcd_wait_bf(); |
||||||
|
void _lcd_write_byte(uint8_t bb); |
||||||
|
uint8_t _lcd_read_byte(); |
||||||
|
|
||||||
|
|
||||||
|
// Write utilities
|
||||||
|
#define _lcd_write_low(bb) _lcd_write_nibble((bb) & 0x0F) |
||||||
|
#define _lcd_write_high(bb) _lcd_write_nibble(((bb) & 0xF0) >> 4) |
||||||
|
#define _lcd_write_nibble(nib) do { \ |
||||||
|
write_pin(LCD_PIN_D7, get_bit((nib), 3)); \
|
||||||
|
write_pin(LCD_PIN_D6, get_bit((nib), 2)); \
|
||||||
|
write_pin(LCD_PIN_D5, get_bit((nib), 1)); \
|
||||||
|
write_pin(LCD_PIN_D4, get_bit((nib), 0)); \
|
||||||
|
} while(0) |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
// 0 W, 1 R
|
||||||
|
bool _lcd_mode; |
||||||
|
|
||||||
|
/** Initialize the display */ |
||||||
|
void lcd_init() |
||||||
|
{ |
||||||
|
// configure pins as output
|
||||||
|
as_output(LCD_PIN_E); |
||||||
|
as_output(LCD_PIN_RW); |
||||||
|
as_output(LCD_PIN_RS); |
||||||
|
_lcd_mode = 1; // force data pins to output
|
||||||
|
_lcd_mode_w(); |
||||||
|
|
||||||
|
// Magic sequence to enter 4-bit mode
|
||||||
|
_delay_ms(16); |
||||||
|
_lcd_write_nibble(0b0011); |
||||||
|
_lcd_clk(); |
||||||
|
_delay_ms(5); |
||||||
|
_lcd_clk(); |
||||||
|
_delay_ms(5); |
||||||
|
_lcd_clk(); |
||||||
|
_delay_ms(5); |
||||||
|
_lcd_write_nibble(0b0010); |
||||||
|
_lcd_clk(); |
||||||
|
_delay_us(100); |
||||||
|
|
||||||
|
// Configure the display
|
||||||
|
lcd_write_command(LCD_IFACE_4BIT_2LINE); |
||||||
|
lcd_write_command(LCD_DISABLE); |
||||||
|
lcd_write_command(LCD_CLEAR); |
||||||
|
lcd_write_command(LCD_MODE_INC); |
||||||
|
|
||||||
|
lcd_enable(); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
/** Send a pulse on the ENABLE line */ |
||||||
|
void _lcd_clk() |
||||||
|
{ |
||||||
|
pin_up(LCD_PIN_E); |
||||||
|
delay_ns(420); |
||||||
|
pin_down(LCD_PIN_E); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
/** Enter READ mode */ |
||||||
|
void _lcd_mode_r() |
||||||
|
{ |
||||||
|
if (_lcd_mode == 1) return; // already in R mode
|
||||||
|
|
||||||
|
pin_up(LCD_PIN_RW); |
||||||
|
|
||||||
|
as_input_pu(LCD_PIN_D7); |
||||||
|
as_input_pu(LCD_PIN_D6); |
||||||
|
as_input_pu(LCD_PIN_D5); |
||||||
|
as_input_pu(LCD_PIN_D4); |
||||||
|
|
||||||
|
_lcd_mode = 1; |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
/** Enter WRITE mode */ |
||||||
|
void _lcd_mode_w() |
||||||
|
{ |
||||||
|
if (_lcd_mode == 0) return; // already in W mode
|
||||||
|
|
||||||
|
pin_down(LCD_PIN_RW); |
||||||
|
|
||||||
|
as_output(LCD_PIN_D7); |
||||||
|
as_output(LCD_PIN_D6); |
||||||
|
as_output(LCD_PIN_D5); |
||||||
|
as_output(LCD_PIN_D4); |
||||||
|
|
||||||
|
_lcd_mode = 0; |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
/** Read a byte */ |
||||||
|
uint8_t _lcd_read_byte() |
||||||
|
{ |
||||||
|
_lcd_mode_r(); |
||||||
|
|
||||||
|
uint8_t res = 0; |
||||||
|
|
||||||
|
_lcd_clk(); |
||||||
|
res = (read_pin(LCD_PIN_D7) << 7) | (read_pin(LCD_PIN_D6) << 6) | (read_pin(LCD_PIN_D5) << 5) | (read_pin(LCD_PIN_D4) << 4); |
||||||
|
|
||||||
|
_lcd_clk(); |
||||||
|
res |= (read_pin(LCD_PIN_D7) << 3) | (read_pin(LCD_PIN_D6) << 2) | (read_pin(LCD_PIN_D5) << 1) | (read_pin(LCD_PIN_D4) << 0); |
||||||
|
|
||||||
|
return res; |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
/** Write an instruction byte */ |
||||||
|
void lcd_write_command(uint8_t bb) |
||||||
|
{ |
||||||
|
_lcd_wait_bf(); |
||||||
|
pin_down(LCD_PIN_RS); // select instruction register
|
||||||
|
_lcd_write_byte(bb); // send instruction byte
|
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
/** Write a data byte */ |
||||||
|
void lcd_write_data(uint8_t bb) |
||||||
|
{ |
||||||
|
_lcd_wait_bf(); |
||||||
|
pin_up(LCD_PIN_RS); // select data register
|
||||||
|
_lcd_write_byte(bb); // send data byte
|
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
/** Read BF & Address */ |
||||||
|
uint8_t lcd_read_bf_addr() |
||||||
|
{ |
||||||
|
pin_down(LCD_PIN_RS); |
||||||
|
return _lcd_read_byte(); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
/** Read CGRAM or DDRAM */ |
||||||
|
uint8_t lcd_read_ram() |
||||||
|
{ |
||||||
|
pin_up(LCD_PIN_RS); |
||||||
|
return _lcd_read_byte(); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
/** Write a byte using the 8-bit interface */ |
||||||
|
void _lcd_write_byte(uint8_t bb) |
||||||
|
{ |
||||||
|
_lcd_mode_w(); // enter W mode
|
||||||
|
|
||||||
|
_lcd_write_high(bb); |
||||||
|
_lcd_clk(); |
||||||
|
|
||||||
|
_lcd_write_low(bb); |
||||||
|
_lcd_clk(); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
/** Wait until the device is ready */ |
||||||
|
void _lcd_wait_bf() |
||||||
|
{ |
||||||
|
while(lcd_read_bf_addr() & _BV(7)); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
/** Send a string to LCD */ |
||||||
|
void lcd_str(char* str_p) |
||||||
|
{ |
||||||
|
while (*str_p) |
||||||
|
lcd_char(*str_p++); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
/** Sedn a char to LCD */ |
||||||
|
void lcd_char(const char c) |
||||||
|
{ |
||||||
|
lcd_write_data(c); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
/** Set cursor position */ |
||||||
|
void lcd_xy(const uint8_t x, const uint8_t y) |
||||||
|
{ |
||||||
|
lcd_set_addr(LCD_ROW_ADDR[y] + (x)); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
uint8_t _lcd_old_cursor = CURSOR_NONE; |
||||||
|
bool _lcd_enabled = false; |
||||||
|
|
||||||
|
/** Set LCD cursor. If not enabled, only remember it. */ |
||||||
|
void lcd_cursor(uint8_t type) |
||||||
|
{ |
||||||
|
_lcd_old_cursor = (type & CURSOR_BOTH); |
||||||
|
|
||||||
|
if (_lcd_enabled) lcd_write_command(LCD_CURSOR_NONE | _lcd_old_cursor); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
/** Display display (preserving cursor) */ |
||||||
|
void lcd_disable() |
||||||
|
{ |
||||||
|
lcd_write_command(LCD_DISABLE); |
||||||
|
_lcd_enabled = false; |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
/** Enable display (restoring cursor) */ |
||||||
|
void lcd_enable() |
||||||
|
{ |
||||||
|
_lcd_enabled = true; |
||||||
|
lcd_cursor(_lcd_old_cursor); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
/** Go home */ |
||||||
|
void lcd_home() |
||||||
|
{ |
||||||
|
lcd_write_command(LCD_HOME); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
/** Clear the screen */ |
||||||
|
void lcd_clear() |
||||||
|
{ |
||||||
|
lcd_write_command(LCD_CLEAR); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
/** Define a glyph */ |
||||||
|
void lcd_define_glyph(const uint8_t index, const uint8_t* array) |
||||||
|
{ |
||||||
|
lcd_set_addr_cgram(index * 8); |
||||||
|
for (uint8_t i = 0; i < 8; ++i) { |
||||||
|
lcd_write_data(array[i]); |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
/** Define a glyph */ |
||||||
|
void lcd_define_glyph_pgm(const uint8_t index, const uint8_t* array) |
||||||
|
{ |
||||||
|
lcd_set_addr_cgram(index * 8); |
||||||
|
for (uint8_t i = 0; i < 8; ++i) { |
||||||
|
lcd_write_data(pgm_read_byte(&array[i])); |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
/** Set address in CGRAM */ |
||||||
|
void lcd_set_addr_cgram(const uint8_t acg) |
||||||
|
{ |
||||||
|
lcd_write_command(0b01000000 | ((acg) & 0b00111111)); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
/** Set address in DDRAM */ |
||||||
|
void lcd_set_addr(const uint8_t add) |
||||||
|
{ |
||||||
|
lcd_write_command(0b10000000 | ((add) & 0b01111111)); |
||||||
|
} |
||||||
@ -0,0 +1,22 @@ |
|||||||
|
#pragma once |
||||||
|
|
||||||
|
/**
|
||||||
|
Custom loops |
||||||
|
*/ |
||||||
|
|
||||||
|
// Repeat code n times (uint8_t counter)
|
||||||
|
#define repeat(count) repeat_aux(count, _repeat_##__COUNTER__) |
||||||
|
#define repeat_aux(count, cntvar) for (uint8_t cntvar = 0; cntvar < (count); cntvar++) |
||||||
|
|
||||||
|
// Repeat code n times (uint16_t counter)
|
||||||
|
#define repeatx(count) repeatx_aux(count, _repeatx_##__COUNTER__) |
||||||
|
#define repeatx_aux(count, cntvar) for (uint16_t cntvar = 0; cntvar < (count); cntvar++) |
||||||
|
|
||||||
|
// Repeat with custom counter name (uint8_t)
|
||||||
|
#define loop(var, count) repeat_aux(count, var) |
||||||
|
// ..., uint16_t
|
||||||
|
#define loopx(var, count) repeatx_aux(count, var) |
||||||
|
|
||||||
|
// Do until condition is met
|
||||||
|
#define until(what) while(!(what)) |
||||||
|
|
||||||
@ -0,0 +1,6 @@ |
|||||||
|
#pragma once |
||||||
|
|
||||||
|
/** Weird constructs for the compiler */ |
||||||
|
|
||||||
|
// general macros
|
||||||
|
#define SECTION(pos) __attribute__((naked, used, section(pos))) |
||||||
@ -0,0 +1,21 @@ |
|||||||
|
#pragma once |
||||||
|
|
||||||
|
/**
|
||||||
|
Functions for precise delays (nanoseconds / cycles) |
||||||
|
*/ |
||||||
|
|
||||||
|
#include <avr/io.h> |
||||||
|
#include <util/delay_basic.h> |
||||||
|
#include <stdint.h> |
||||||
|
|
||||||
|
/* Convert nanoseconds to cycle count */ |
||||||
|
#define ns2cycles(ns) ( (ns) / (1000000000L / (signed long) F_CPU) ) |
||||||
|
|
||||||
|
/** Wait c cycles */ |
||||||
|
#define delay_c(c) (((c) > 0) ? __builtin_avr_delay_cycles(c) : __builtin_avr_delay_cycles(0)) |
||||||
|
|
||||||
|
/** Wait n nanoseconds, plus c cycles */ |
||||||
|
#define delay_ns_c(ns, c) delay_c(ns2cycles(ns) + (c)) |
||||||
|
|
||||||
|
/** Wait n nanoseconds */ |
||||||
|
#define delay_ns(ns) delay_c(ns2cycles(ns)) |
||||||
@ -0,0 +1,107 @@ |
|||||||
|
#pragma once |
||||||
|
|
||||||
|
/**
|
||||||
|
This file provides macros for pin manipulation. |
||||||
|
|
||||||
|
You can define your application pins like so: |
||||||
|
|
||||||
|
// Led at PORTB, pin 1
|
||||||
|
#define LED B,1 |
||||||
|
|
||||||
|
// Switch at PORTD, pin 7
|
||||||
|
#define SW1 D,7 |
||||||
|
|
||||||
|
Now you can use macros from this file to wirh with the pins, eg: |
||||||
|
|
||||||
|
as_output(LED); |
||||||
|
as_input(SW1); |
||||||
|
pullup_on(SW1); |
||||||
|
|
||||||
|
toggle_pin(LED); |
||||||
|
while (pin_is_low(SW1)); |
||||||
|
|
||||||
|
- The macros io2XXX() can be used to get literal name of register associated with the pin. |
||||||
|
- io2n() provides pin number. |
||||||
|
- The XXX_aux() macros are internal and should not be used elsewhere. |
||||||
|
- The io_pack() macro is used to pass pin (io) to other macro without expanding it. |
||||||
|
*/ |
||||||
|
|
||||||
|
#include <avr/io.h> |
||||||
|
#include "calc.h" |
||||||
|
|
||||||
|
|
||||||
|
// Get particular register associated with the name X (eg. D -> PORTD)
|
||||||
|
#define reg_ddr(X) DDR ## X |
||||||
|
#define reg_port(X) PORT ## X |
||||||
|
#define reg_pin(X) PIN ## X |
||||||
|
|
||||||
|
#define io2ddr_aux(reg, bit) reg_ddr(reg) |
||||||
|
#define io2ddr(io) io2ddr_aux(io) |
||||||
|
#define io2port_aux(reg, bit) reg_port(reg) |
||||||
|
#define io2port(io) io2port_aux(io) |
||||||
|
#define io2pin_aux(reg, bit) reg_pin(reg) |
||||||
|
#define io2pin(io) io2pin_aux(io) |
||||||
|
#define io2n_aux(reg, bit) bit |
||||||
|
#define io2n(io) io2n_aux(io) |
||||||
|
|
||||||
|
#define io_pack(port, bit) port, bit |
||||||
|
|
||||||
|
|
||||||
|
// pointer to port
|
||||||
|
typedef volatile uint8_t* PORT_P; |
||||||
|
// number of bit in port
|
||||||
|
typedef uint8_t BIT_N; |
||||||
|
|
||||||
|
|
||||||
|
// === pin manipulation ===
|
||||||
|
#define set_pin_aux(port, bit) sbi(reg_port(port), (bit)) |
||||||
|
#define clear_pin_aux(port, bit) cbi(reg_port(port), (bit)) |
||||||
|
#define read_pin_aux(port, bit) get_bit(reg_pin(port), (bit)) |
||||||
|
#define write_pin_aux(port, bit, value) set_bit(reg_port(port), (bit), (value)) |
||||||
|
#define toggle_pin_aux(port, bit) sbi(reg_pin(port), (bit)) |
||||||
|
|
||||||
|
|
||||||
|
#define pin_up(io) set_pin_aux(io) |
||||||
|
#define pin_high(io) set_pin_aux(io) |
||||||
|
|
||||||
|
#define pin_down(io) clear_pin_aux(io) |
||||||
|
#define pin_low(io) clear_pin_aux(io) |
||||||
|
|
||||||
|
#define get_pin(io) read_pin_aux(io) |
||||||
|
#define read_pin(io) read_pin_aux(io) |
||||||
|
|
||||||
|
#define pin_is_low(io) !read_pin_aux(io) |
||||||
|
#define pin_is_high(io) read_pin_aux(io) |
||||||
|
|
||||||
|
#define set_pin(io, value) write_pin_aux(io, (value)) |
||||||
|
#define write_pin(io, value) write_pin_aux(io, (value)) |
||||||
|
#define toggle_pin(io) toggle_pin_aux(io) |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
// setting pin direction
|
||||||
|
#define as_input_aux(port, bit) cbi(reg_ddr(port), (bit)) |
||||||
|
#define as_output_aux(port, bit) sbi(reg_ddr(port), (bit)) |
||||||
|
#define set_dir_aux(port, bit, dir) write_bit(reg_ddr(port), (bit), (dir)) |
||||||
|
|
||||||
|
|
||||||
|
#define as_input(io) as_input_aux(io) |
||||||
|
#define as_input_pu(io) do { as_input_aux(io); pullup_enable_aux(io); } while(0) |
||||||
|
|
||||||
|
#define as_output(io) as_output_aux(io) |
||||||
|
#define set_dir(io, dir) set_dir_aux(io, (dir)) |
||||||
|
|
||||||
|
|
||||||
|
// setting pullup
|
||||||
|
#define pullup_enable_aux(port, bit) sbi(reg_port(port), (bit)) |
||||||
|
#define pullup_disable_aux(port, bit) cbi(reg_port(port), (bit)) |
||||||
|
#define set_pullup_aux(port, bit, on) write_bit(reg_port(port), (bit), (on)) |
||||||
|
|
||||||
|
|
||||||
|
#define pullup_enable(io) pullup_enable_aux(io) |
||||||
|
#define pullup_on(io) pullup_enable_aux(io) |
||||||
|
|
||||||
|
#define pullup_disable(io) pullup_disable_aux(io) |
||||||
|
#define pullup_off(io) pullup_disable_aux(io) |
||||||
|
|
||||||
|
#define set_pullup(io, on) set_pullup_aux(io, on) |
||||||
@ -0,0 +1,98 @@ |
|||||||
|
#pragma once |
||||||
|
|
||||||
|
/**
|
||||||
|
Utils for driving a WS28xx (tested on WS2812B) RGB LED strips. |
||||||
|
|
||||||
|
It's implemented as macros to avoid overhead when passing values, and to |
||||||
|
enable driving multiple strips at once. |
||||||
|
|
||||||
|
To avoid bloating your code, try to reduce the number of invocations - |
||||||
|
compute color and then send it. |
||||||
|
|
||||||
|
[IMPORTANT] |
||||||
|
|
||||||
|
Some seemingly random influences can ruin the communication. |
||||||
|
If you have enough memory, consider preparing the colors in array, |
||||||
|
and sending this array using one of the "ws_send_XXX_array" macros. |
||||||
|
|
||||||
|
*/ |
||||||
|
|
||||||
|
#include <avr/io.h> |
||||||
|
|
||||||
|
#include "pins.h" |
||||||
|
#include "nsdelay.h" |
||||||
|
#include "colors.h" |
||||||
|
|
||||||
|
/* Driver code for WS2812B */ |
||||||
|
|
||||||
|
// --- timing constraints (NS) ---
|
||||||
|
|
||||||
|
#ifndef WS_T_1H |
||||||
|
# define WS_T_1H 700 |
||||||
|
#endif |
||||||
|
|
||||||
|
#ifndef WS_T_1L |
||||||
|
# define WS_T_1L 150 |
||||||
|
#endif |
||||||
|
|
||||||
|
#ifndef WS_T_0H |
||||||
|
# define WS_T_0H 150 |
||||||
|
#endif |
||||||
|
|
||||||
|
#ifndef WS_T_0L |
||||||
|
# define WS_T_0L 700 |
||||||
|
#endif |
||||||
|
|
||||||
|
#ifndef WS_T_LATCH |
||||||
|
# define WS_T_LATCH 7000 |
||||||
|
#endif |
||||||
|
|
||||||
|
|
||||||
|
/** Wait long enough for the colors to show */ |
||||||
|
#define ws_show() do {delay_ns_c(WS_T_LATCH, 0); } while(0) |
||||||
|
|
||||||
|
|
||||||
|
/** Send one byte to the RGB strip */ |
||||||
|
#define ws_send_byte(io, bb) do { \ |
||||||
|
for (volatile int8_t __ws_tmp = 7; __ws_tmp >= 0; --__ws_tmp) { \
|
||||||
|
if ((bb) & (1 << __ws_tmp)) { \
|
||||||
|
pin_high(io_pack(io)); delay_ns_c(WS_T_1H, -2); \
|
||||||
|
pin_low(io_pack(io)); delay_ns_c(WS_T_1L, -10); \
|
||||||
|
} else { \
|
||||||
|
pin_high(io_pack(io)); delay_ns_c(WS_T_0H, -2); \
|
||||||
|
pin_low(io_pack(io)); delay_ns_c(WS_T_0L, -10); \
|
||||||
|
} \
|
||||||
|
} \
|
||||||
|
} while(0) |
||||||
|
|
||||||
|
|
||||||
|
/** Send R,G,B color to the strip */ |
||||||
|
#define ws_send_rgb(io, r, g, b) do { \ |
||||||
|
ws_send_byte(io_pack(io), g); \
|
||||||
|
ws_send_byte(io_pack(io), r); \
|
||||||
|
ws_send_byte(io_pack(io), b); \
|
||||||
|
} while(0) |
||||||
|
|
||||||
|
/** Send a RGB struct */ |
||||||
|
#define ws_send_xrgb(io, xrgb) ws_send_rgb(io_pack(io), (xrgb).r, (xrgb).g, (xrgb).b) |
||||||
|
|
||||||
|
/** Send color hex */ |
||||||
|
#define ws_send_rgb24(io, rgb) ws_send_rgb(io_pack(io), rgb24_r(rgb), rgb24_g(rgb), rgb24_b(rgb)) |
||||||
|
#define ws_send_rgb15(io, rgb) ws_send_rgb(io_pack(io), rgb15_r(rgb), rgb15_g(rgb), rgb15_b(rgb)) |
||||||
|
#define ws_send_rgb12(io, rgb) ws_send_rgb(io_pack(io), rgb12_r(rgb), rgb12_g(rgb), rgb12_b(rgb)) |
||||||
|
#define ws_send_rgb6(io, rgb) ws_send_rgb(io_pack(io), rgb6_r(rgb), rgb6_g(rgb), rgb6_b(rgb)) |
||||||
|
|
||||||
|
/** Send array of colors */ |
||||||
|
#define ws_send_xrgb_array(io, rgbs, length) __ws_send_array_proto(io_pack(io), (rgbs), (length), xrgb) |
||||||
|
#define ws_send_rgb24_array(io, rgbs, length) __ws_send_array_proto(io_pack(io), (rgbs), (length), rgb24) |
||||||
|
#define ws_send_rgb15_array(io, rgbs, length) __ws_send_array_proto(io_pack(io), (rgbs), (length), rgb15) |
||||||
|
#define ws_send_rgb12_array(io, rgbs, length) __ws_send_array_proto(io_pack(io), (rgbs), (length), rgb12) |
||||||
|
#define ws_send_rgb6_array(io, rgbs, length) __ws_send_array_proto(io_pack(io), (rgbs), (length), rgb6) |
||||||
|
|
||||||
|
// prototype for sending array. it's ugly, sorry.
|
||||||
|
#define __ws_send_array_proto(io, rgbs, length, style) do { \ |
||||||
|
for (uint8_t __ws_tmp_sap_i = 0; __ws_tmp_sap_i < length; __ws_tmp_sap_i++) { \
|
||||||
|
style ## _t __ws_tmp_sap2 = (rgbs)[__ws_tmp_sap_i]; \
|
||||||
|
ws_send_ ## style(io_pack(io), __ws_tmp_sap2); \
|
||||||
|
} \
|
||||||
|
} while(0) |
||||||
@ -0,0 +1,31 @@ |
|||||||
|
#pragma once |
||||||
|
|
||||||
|
/**
|
||||||
|
Ye Olde Control Structures |
||||||
|
*/ |
||||||
|
|
||||||
|
#include "loops.h" |
||||||
|
|
||||||
|
#define whilst(what) while((what)) |
||||||
|
#define when(what) if((what)) |
||||||
|
#define otherwise else |
||||||
|
#define commence { |
||||||
|
#define then { |
||||||
|
#define cease } |
||||||
|
#define choose(what) switch((what)) |
||||||
|
#define option case |
||||||
|
#define shatter break |
||||||
|
#define replay continue |
||||||
|
#define equals == |
||||||
|
#define is == |
||||||
|
#define be = |
||||||
|
#define over > |
||||||
|
#define above > |
||||||
|
#define under < |
||||||
|
#define below < |
||||||
|
#define let /**/ |
||||||
|
#define raise(what) (what)++ |
||||||
|
|
||||||
|
#define number int |
||||||
|
|
||||||
|
#warning "This is a joke. Do not use YeOlde.h in serious code!" |
||||||
@ -0,0 +1,426 @@ |
|||||||
|
#include <avr/io.h> |
||||||
|
#include <avr/interrupt.h> |
||||||
|
#include <avr/pgmspace.h> |
||||||
|
#include <util/delay.h> |
||||||
|
#include <stdbool.h> |
||||||
|
#include <stdint.h> |
||||||
|
#include <stdlib.h> |
||||||
|
|
||||||
|
#include "lib/meta.h" |
||||||
|
#include "lib/arduino_pins.h" |
||||||
|
#include "lib/calc.h" |
||||||
|
#include "lib/adc.h" |
||||||
|
|
||||||
|
#define LCD_PIN_RS D10 |
||||||
|
#define LCD_PIN_RW D11 |
||||||
|
#define LCD_PIN_E D12 |
||||||
|
#define LCD_PIN_D4 D13 |
||||||
|
#define LCD_PIN_D5 D14 |
||||||
|
#define LCD_PIN_D6 D15 |
||||||
|
#define LCD_PIN_D7 D16 |
||||||
|
// D17 = A3 = source of entropy for random.
|
||||||
|
|
||||||
|
#include "lib/lcd.h" |
||||||
|
|
||||||
|
|
||||||
|
// Buttons (to ground)
|
||||||
|
#define BTN_LEFT D2 |
||||||
|
#define BTN_RIGHT D3 |
||||||
|
#define BTN_UP D4 |
||||||
|
#define BTN_DOWN D5 |
||||||
|
#define BTN_SELECT D6 |
||||||
|
#define BTN_RESTART D7 |
||||||
|
|
||||||
|
// Debouncer channels for buttons
|
||||||
|
// (Must be added in this order to debouncer)
|
||||||
|
#define D_LEFT 0 |
||||||
|
#define D_RIGHT 1 |
||||||
|
#define D_UP 2 |
||||||
|
#define D_DOWN 3 |
||||||
|
#define D_SELECT 4 |
||||||
|
#define D_RESTART 5 |
||||||
|
|
||||||
|
#define DEBO_CHANNELS 6 |
||||||
|
#define DEBO_TICKS 1 // in 0.01s
|
||||||
|
|
||||||
|
#include "lib/debounce.h" |
||||||
|
|
||||||
|
// Board size (!!! rows = 2x number of display lines, max 2*4 = 8 !!!)
|
||||||
|
#define ROWS 4 |
||||||
|
#define COLS 20 |
||||||
|
|
||||||
|
// Delay between snake steps, in 10 ms
|
||||||
|
#define STEP_DELAY 24 |
||||||
|
|
||||||
|
// proto
|
||||||
|
void update(); |
||||||
|
void init_cgram(); |
||||||
|
void init_gameboard(); |
||||||
|
|
||||||
|
void SECTION(".init8") init() |
||||||
|
{ |
||||||
|
// Randomize RNG
|
||||||
|
adc_init(); |
||||||
|
srand(adc_read_word(3)); |
||||||
|
|
||||||
|
// Init LCD
|
||||||
|
lcd_init(); |
||||||
|
init_cgram(); // load default glyphs
|
||||||
|
|
||||||
|
// Init game board.
|
||||||
|
init_gameboard(); |
||||||
|
|
||||||
|
// gamepad buttons
|
||||||
|
as_input_pu(BTN_LEFT); |
||||||
|
as_input_pu(BTN_RIGHT); |
||||||
|
as_input_pu(BTN_UP); |
||||||
|
as_input_pu(BTN_DOWN); |
||||||
|
as_input_pu(BTN_SELECT); |
||||||
|
as_input_pu(BTN_RESTART); |
||||||
|
|
||||||
|
// add buttons to debouncer
|
||||||
|
debo_add_rev(BTN_LEFT); |
||||||
|
debo_add_rev(BTN_RIGHT); |
||||||
|
debo_add_rev(BTN_UP); |
||||||
|
debo_add_rev(BTN_DOWN); |
||||||
|
debo_add_rev(BTN_SELECT); |
||||||
|
debo_add_rev(BTN_RESTART); |
||||||
|
|
||||||
|
// setup timer
|
||||||
|
TCCR0A = _BV(WGM01); // CTC
|
||||||
|
TCCR0B = _BV(CS02) | _BV(CS00); // prescaler 1024
|
||||||
|
OCR0A = 156; // interrupt every 10 ms
|
||||||
|
sbi(TIMSK0, OCIE0A); |
||||||
|
sei(); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
/** timer 0 interrupt vector */ |
||||||
|
ISR(TIMER0_COMPA_vect) |
||||||
|
{ |
||||||
|
debo_tick(); // poll debouncer
|
||||||
|
update(); // update and display
|
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
// sub-glyphs
|
||||||
|
#define _HEAD_ 15, 21, 21, 30 |
||||||
|
#define _BODY_ 15, 31, 31, 30 |
||||||
|
#define _FOOD_ 10, 21, 17, 14 |
||||||
|
//14, 17, 17, 14
|
||||||
|
#define _NONE_ 0, 0, 0, 0 |
||||||
|
|
||||||
|
// complete glyphs for loading into memory
|
||||||
|
|
||||||
|
// Only one food & one head glyph have to be loaded at a time.
|
||||||
|
|
||||||
|
// Body - Body
|
||||||
|
const uint8_t SYMBOL_BB[] PROGMEM = {_BODY_, _BODY_}; |
||||||
|
|
||||||
|
// Body - None
|
||||||
|
const uint8_t SYMBOL_BX[] PROGMEM = {_BODY_, _NONE_}; |
||||||
|
const uint8_t SYMBOL_XB[] PROGMEM = {_NONE_, _BODY_}; |
||||||
|
|
||||||
|
// Head - None
|
||||||
|
const uint8_t SYMBOL_HX[] PROGMEM = {_HEAD_, _NONE_}; |
||||||
|
const uint8_t SYMBOL_XH[] PROGMEM = {_NONE_, _HEAD_}; |
||||||
|
|
||||||
|
// Body - Head
|
||||||
|
const uint8_t SYMBOL_BH[] PROGMEM = {_BODY_, _HEAD_}; |
||||||
|
const uint8_t SYMBOL_HB[] PROGMEM = {_HEAD_, _BODY_}; |
||||||
|
|
||||||
|
// Head - Food
|
||||||
|
const uint8_t SYMBOL_HF[] PROGMEM = {_HEAD_, _FOOD_}; |
||||||
|
const uint8_t SYMBOL_FH[] PROGMEM = {_FOOD_, _HEAD_}; |
||||||
|
|
||||||
|
// Food - None
|
||||||
|
const uint8_t SYMBOL_FX[] PROGMEM = {_FOOD_, _NONE_}; |
||||||
|
const uint8_t SYMBOL_XF[] PROGMEM = {_NONE_, _FOOD_}; |
||||||
|
|
||||||
|
// Body - Food
|
||||||
|
const uint8_t SYMBOL_BF[] PROGMEM = {_BODY_, _FOOD_}; |
||||||
|
const uint8_t SYMBOL_FB[] PROGMEM = {_FOOD_, _BODY_}; |
||||||
|
|
||||||
|
|
||||||
|
// board block (snake, food...)
|
||||||
|
typedef enum { |
||||||
|
bEMPTY = 0x00, |
||||||
|
bHEAD = 0x01, |
||||||
|
bFOOD = 0x02, |
||||||
|
bBODY_LEFT = 0x80, |
||||||
|
bBODY_RIGHT = 0x81, |
||||||
|
bBODY_UP = 0x82, |
||||||
|
bBODY_DOWN = 0x83, |
||||||
|
} block_t; |
||||||
|
|
||||||
|
// Snake direction
|
||||||
|
typedef enum { |
||||||
|
dLEFT = 0x00, |
||||||
|
dRIGHT = 0x01, |
||||||
|
dUP = 0x02, |
||||||
|
dDOWN = 0x03, |
||||||
|
} dir_t; |
||||||
|
|
||||||
|
// Coordinate on board
|
||||||
|
typedef struct { |
||||||
|
int8_t x; |
||||||
|
int8_t y; |
||||||
|
} coord_t; |
||||||
|
|
||||||
|
#define is_body(blk) (((blk) & 0x80) != 0) |
||||||
|
#define mk_body_dir(dir) (0x80 + (dir)) |
||||||
|
|
||||||
|
// compare two coords
|
||||||
|
#define coord_eq(a, b) (((a).x == (b).x) && ((a).y == (b).y)) |
||||||
|
|
||||||
|
|
||||||
|
bool crashed; |
||||||
|
uint8_t snake_len; |
||||||
|
|
||||||
|
// y, x indexing
|
||||||
|
block_t board[ROWS][COLS]; |
||||||
|
|
||||||
|
coord_t head_pos; |
||||||
|
coord_t tail_pos; |
||||||
|
dir_t head_dir; |
||||||
|
|
||||||
|
const uint8_t CODE_BB = 0; |
||||||
|
const uint8_t CODE_BX = 1; |
||||||
|
const uint8_t CODE_XB = 2; |
||||||
|
const uint8_t CODE_H = 3; // glyph with head, dynamic
|
||||||
|
const uint8_t CODE_F = 4; // glyph with food, dynamic
|
||||||
|
const uint8_t CODE_XX = 32; // space
|
||||||
|
|
||||||
|
|
||||||
|
// Set a block in board
|
||||||
|
#define set_block_xy(x, y, block) do { board[y][x] = (block); } while(0) |
||||||
|
#define get_block_xy(x, y) board[y][x] |
||||||
|
#define get_block(pos) get_block_xy((pos).x, (pos).y) |
||||||
|
#define set_block(pos, block) set_block_xy((pos).x, (pos).y, (block)) |
||||||
|
|
||||||
|
|
||||||
|
void init_cgram() |
||||||
|
{ |
||||||
|
// those will be always the same
|
||||||
|
lcd_define_glyph_pgm(CODE_BB, SYMBOL_BB); |
||||||
|
lcd_define_glyph_pgm(CODE_BX, SYMBOL_BX); |
||||||
|
lcd_define_glyph_pgm(CODE_XB, SYMBOL_XB); |
||||||
|
lcd_define_glyph_pgm(5, SYMBOL_XF); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
void place_food() |
||||||
|
{ |
||||||
|
while(1) { |
||||||
|
const uint8_t xx = rand() % COLS; |
||||||
|
const uint8_t yy = rand() % ROWS; |
||||||
|
|
||||||
|
if (get_block_xy(xx, yy) == bEMPTY) { |
||||||
|
set_block_xy(xx, yy, bFOOD); |
||||||
|
break; |
||||||
|
} |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
void init_gameboard() |
||||||
|
{ |
||||||
|
//erase the board
|
||||||
|
for (uint8_t x = 0; x < COLS; x++) { |
||||||
|
for (uint8_t y = 0; y < ROWS; y++) { |
||||||
|
set_block_xy(x, y, bEMPTY); |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
lcd_clear(); |
||||||
|
|
||||||
|
tail_pos = (coord_t) {.x = 0, .y = 0}; |
||||||
|
|
||||||
|
set_block_xy(0, 0, bBODY_RIGHT); |
||||||
|
set_block_xy(1, 0, bBODY_RIGHT); |
||||||
|
set_block_xy(2, 0, bBODY_RIGHT); |
||||||
|
set_block_xy(3, 0, bHEAD); |
||||||
|
|
||||||
|
head_pos = (coord_t) {.x = 3, .y = 0}; |
||||||
|
|
||||||
|
snake_len = 4; // includes head
|
||||||
|
|
||||||
|
head_dir = dRIGHT; |
||||||
|
crashed = false; |
||||||
|
|
||||||
|
place_food(); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
uint8_t presc = 0; |
||||||
|
|
||||||
|
bool restart_held; |
||||||
|
void update() |
||||||
|
{ |
||||||
|
if (debo_get_pin(D_RESTART)) { |
||||||
|
|
||||||
|
if (!restart_held) { |
||||||
|
// restart
|
||||||
|
init_gameboard(); |
||||||
|
presc = 0; |
||||||
|
restart_held = true; |
||||||
|
} |
||||||
|
|
||||||
|
} else { |
||||||
|
restart_held = false; |
||||||
|
} |
||||||
|
|
||||||
|
if(!crashed) { |
||||||
|
|
||||||
|
// resolve movement direction
|
||||||
|
if (debo_get_pin(D_LEFT)) |
||||||
|
head_dir = dLEFT; |
||||||
|
else if (debo_get_pin(D_RIGHT)) |
||||||
|
head_dir = dRIGHT; |
||||||
|
else if (debo_get_pin(D_UP)) |
||||||
|
head_dir = dUP; |
||||||
|
else if (debo_get_pin(D_DOWN)) |
||||||
|
head_dir = dDOWN; |
||||||
|
|
||||||
|
// time's up for a move
|
||||||
|
if (presc++ == STEP_DELAY) { |
||||||
|
presc = 0; |
||||||
|
|
||||||
|
// move snake
|
||||||
|
const coord_t oldpos = head_pos; |
||||||
|
|
||||||
|
switch (head_dir) { |
||||||
|
case dLEFT: head_pos.x--; break; |
||||||
|
case dRIGHT: head_pos.x++; break; |
||||||
|
case dUP: head_pos.y--; break; |
||||||
|
case dDOWN: head_pos.y++; break; |
||||||
|
} |
||||||
|
|
||||||
|
bool do_move = false; |
||||||
|
bool do_grow = false; |
||||||
|
|
||||||
|
if (head_pos.x < 0 || head_pos.x >= COLS || head_pos.y < 0 || head_pos.y >= ROWS) { |
||||||
|
// ouch, a wall!
|
||||||
|
crashed = true; |
||||||
|
} else { |
||||||
|
// check if tile occupied or not
|
||||||
|
if (coord_eq(head_pos, tail_pos)) { |
||||||
|
// head moved in previous tail, that's OK.
|
||||||
|
do_move = true; |
||||||
|
} else { |
||||||
|
// moved to other tile than tail
|
||||||
|
switch (get_block(head_pos)) { |
||||||
|
|
||||||
|
case bFOOD: |
||||||
|
do_grow = true; // fall through
|
||||||
|
case bEMPTY: |
||||||
|
do_move = true; |
||||||
|
break; |
||||||
|
|
||||||
|
default: // includes all BODY_xxx
|
||||||
|
crashed = true; // snake crashed into some block
|
||||||
|
} |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
if (do_move) { |
||||||
|
// Move tail
|
||||||
|
if (do_grow) { |
||||||
|
// let tail as is
|
||||||
|
snake_len++; // grow the counter
|
||||||
|
} else { |
||||||
|
// tail dir
|
||||||
|
dir_t td = get_block(tail_pos) & 0xF; |
||||||
|
|
||||||
|
// clean tail
|
||||||
|
set_block(tail_pos, bEMPTY); |
||||||
|
|
||||||
|
// move tail based on old direction of tail block
|
||||||
|
switch (td) { |
||||||
|
case dLEFT: tail_pos.x--; break; |
||||||
|
case dRIGHT: tail_pos.x++; break; |
||||||
|
case dUP: tail_pos.y--; break; |
||||||
|
case dDOWN: tail_pos.y++; break; |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
// Move head
|
||||||
|
set_block(head_pos, bHEAD); // place head in new pos
|
||||||
|
set_block(oldpos, mk_body_dir(head_dir)); // directional body in old head pos
|
||||||
|
|
||||||
|
if (do_grow) { |
||||||
|
// food eaten, place new
|
||||||
|
place_food(); |
||||||
|
} |
||||||
|
} |
||||||
|
} |
||||||
|
} // end !crashed
|
||||||
|
|
||||||
|
|
||||||
|
// Render the board
|
||||||
|
for (uint8_t r = 0; r < ROWS / 2; r++) { |
||||||
|
lcd_xy(0, r); |
||||||
|
for (uint8_t c = 0; c < COLS; c++) { |
||||||
|
const block_t t1 = get_block_xy(c, r * 2); |
||||||
|
const block_t t2 = get_block_xy(c, (r * 2) + 1); |
||||||
|
|
||||||
|
uint8_t code = '!'; // ! marks fail
|
||||||
|
|
||||||
|
if ((t1 == bEMPTY) && (t2 == bEMPTY)) { |
||||||
|
code = CODE_XX; |
||||||
|
if (crashed) code = '*'; |
||||||
|
} else if (is_body(t1) && is_body(t2)) |
||||||
|
code = CODE_BB; |
||||||
|
else if (is_body(t1) && (t2 == bEMPTY)) |
||||||
|
code = CODE_BX; |
||||||
|
else if (t1 == bEMPTY && is_body(t2)) |
||||||
|
code = CODE_XB; |
||||||
|
else if ((t1 == bFOOD) || (t2 == bFOOD)) { |
||||||
|
// one is food
|
||||||
|
|
||||||
|
code = CODE_F; |
||||||
|
|
||||||
|
if (t1 == bFOOD) { |
||||||
|
if (t2 == bEMPTY) |
||||||
|
lcd_define_glyph_pgm(code, SYMBOL_FX); |
||||||
|
else if (t2 == bHEAD) |
||||||
|
lcd_define_glyph_pgm(code, SYMBOL_FH); |
||||||
|
else if (is_body(t2)) |
||||||
|
lcd_define_glyph_pgm(code, SYMBOL_FB); |
||||||
|
} else { // t2 is food
|
||||||
|
if (t1 == bEMPTY) |
||||||
|
lcd_define_glyph_pgm(code, SYMBOL_XF); |
||||||
|
else if (t1 == bHEAD) |
||||||
|
lcd_define_glyph_pgm(code, SYMBOL_HF); |
||||||
|
else if (is_body(t1)) |
||||||
|
lcd_define_glyph_pgm(code, SYMBOL_BF); |
||||||
|
} |
||||||
|
lcd_xy(c,r); |
||||||
|
|
||||||
|
} else if ((t1 == bHEAD )|| (t2 == bHEAD)) { |
||||||
|
// one is head
|
||||||
|
|
||||||
|
code = CODE_H; |
||||||
|
|
||||||
|
if (t1 == bHEAD) { |
||||||
|
if (t2 == bEMPTY) |
||||||
|
lcd_define_glyph_pgm(code, SYMBOL_HX); |
||||||
|
else if (is_body(t2)) |
||||||
|
lcd_define_glyph_pgm(code, SYMBOL_HB); |
||||||
|
} else { // t2 is head
|
||||||
|
if (t1 == bEMPTY) |
||||||
|
lcd_define_glyph_pgm(code, SYMBOL_XH); |
||||||
|
else if (is_body(t1)) |
||||||
|
lcd_define_glyph_pgm(code, SYMBOL_BH); |
||||||
|
} |
||||||
|
|
||||||
|
lcd_xy(c,r); |
||||||
|
} |
||||||
|
|
||||||
|
lcd_char(code); |
||||||
|
} |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
void main() { while(1); } // timer does everything
|
||||||
Loading…
Reference in new issue