eddy/stm32samples
1
0
Fork 0
mirror of https://github.com/eddyem/stm32samples.git synced 2026-02-28 03:44:30 +03:00
Code Issues Packages Projects Releases Wiki Activity

restructuring

Browse Source
This commit is contained in:
Edward Emelianov
2022-03-10 11:04:14 +03:00
parent 29560b7c0c
commit 733dbd75d2
1758 changed files with 14 additions and 26855 deletions
Download Patch File Download Diff File Expand all files Collapse all files

139
F1:F103/Tetris/Makefile Normal file
View File

@@ -0,0 +1,139 @@
BINARY = TETRIS
BOOTPORT ?= /dev/ttyUSB0
BOOTSPEED ?= 115200
# MCU FAMILY
FAMILY ?= F1
# MCU code
MCU ?= F103x8
# density (stm32f10x.h, lines 70-84)
DENSITY ?= MD
# change this linking script depending on particular MCU model,
LDSCRIPT ?= stm32f103x8.ld
# debug
DEFS = -DEBUG
INDEPENDENT_HEADERS=
FP_FLAGS ?= -msoft-float -mfloat-abi=soft
ASM_FLAGS ?= -mthumb -mcpu=cortex-m3 -mfix-cortex-m3-ldrd
ARCH_FLAGS = $(ASM_FLAGS) $(FP_FLAGS)
###############################################################################
# Executables
#PREFIX ?= arm-none-eabi
# gcc from arm web site
PREFIX ?= /opt/bin/arm-none-eabi
TOOLCHLIB ?= /opt/arm-none-eabi/lib
RM := rm -f
RMDIR := rmdir
CC := $(PREFIX)-gcc
# don't replace ld with gcc: the binary size would be much greater!!
LD := $(PREFIX)-ld
AR := $(PREFIX)-ar
AS := $(PREFIX)-as
SIZE := $(PREFIX)-size
OBJCOPY := $(PREFIX)-objcopy
OBJDUMP := $(PREFIX)-objdump
GDB := $(PREFIX)-gdb
STFLASH := $(shell which st-flash)
STBOOT := $(shell which stm32flash)
DFUUTIL := $(shell which dfu-util)
###############################################################################
# Source files
OBJDIR = mk
SRC := $(wildcard *.c)
OBJS := $(addprefix $(OBJDIR)/, $(SRC:%.c=%.o))
STARTUP = $(OBJDIR)/startup.o
OBJS += $(STARTUP)
# dependencies: we need them to recompile files if their headers-dependencies changed
DEPS := $(OBJS:.o=.d)
INC_DIR ?= ../inc
INCLUDE := -I$(INC_DIR)/Fx -I$(INC_DIR)/cm
LIB_DIR := $(INC_DIR)/ld
###############################################################################
# C flags
CFLAGS += -O2 -g -D__thumb2__=1 -MD -Wl,--gc-sections
CFLAGS += -Wall -Werror -Wextra -Wshadow
CFLAGS += -fno-common -ffunction-sections -fdata-sections -fno-stack-protector
CFLAGS += $(ARCH_FLAGS)
###############################################################################
# Linker flags
LDFLAGS += -nostartfiles --static -nostdlibs --gc-sections
LDFLAGS += -L$(LIB_DIR) -L$(TOOLCHLIB)
LDFLAGS += -T$(LDSCRIPT)
###############################################################################
# Used libraries
LDLIBS += -lc $(shell $(CC) $(CFLAGS) -print-libgcc-file-name)
DEFS += -DSTM32$(FAMILY) -DSTM32$(MCU) -DSTM32F10X_$(DENSITY)
ELF := $(OBJDIR)/$(BINARY).elf
LIST := $(OBJDIR)/$(BINARY).list
BIN := $(BINARY).bin
HEX := $(BINARY).hex
all: bin list size
elf: $(ELF)
bin: $(BIN)
hex: $(HEX)
list: $(LIST)
ifneq ($(MAKECMDGOALS),clean)
-include $(DEPS)
endif
$(OBJDIR):
mkdir $(OBJDIR)
$(STARTUP): $(INC_DIR)/startup/vector.c
$(CC) $(CFLAGS) $(DEFS) $(INCLUDE) -o $@ -c $<
$(OBJDIR)/%.o: %.c
@echo " CC $<"
$(CC) $(CFLAGS) $(DEFS) $(INCLUDE) -o $@ -c $<
$(BIN): $(ELF)
@echo " OBJCOPY $(BIN)"
$(OBJCOPY) -Obinary $(ELF) $(BIN)
$(HEX): $(ELF)
@echo " OBJCOPY $(HEX)"
$(OBJCOPY) -Oihex $(ELF) $(HEX)
$(LIST): $(ELF)
@echo " OBJDUMP $(LIST)"
$(OBJDUMP) -S $(ELF) > $(LIST)
$(ELF): $(OBJDIR) $(OBJS)
@echo " LD $(ELF)"
$(LD) $(LDFLAGS) $(OBJS) $(LDLIBS) -o $(ELF)
size: $(ELF)
$(SIZE) $(ELF)
clean:
@echo " CLEAN"
$(RM) $(OBJS) $(DEPS) $(ELF) $(HEX) $(LIST)
@rmdir $(OBJDIR) 2>/dev/null || true
flash: $(BIN)
@echo " FLASH $(BIN)"
$(STFLASH) write $(BIN) 0x8000000
boot: $(BIN)
@echo " LOAD $(BIN) through bootloader"
$(STBOOT) -b$(BOOTSPEED) $(BOOTPORT) -w $(BIN)
dfuboot: $(BIN)
@echo " LOAD $(BIN) THROUGH DFU"
$(DFUUTIL) -a0 -D $(BIN) -s 0x08000000
.PHONY: clean flash boot

11
F1:F103/Tetris/Readme Normal file
View File

@@ -0,0 +1,11 @@
Some games @ HUB75E-based RGB LED panel
Snake:
Classical snake with additional food:
cyan - increase snake size
yellow - additional score
green - decrease snake size
Tetris:
Tetris with a little bigger cup than in classical game

BIN
F1:F103/Tetris/TETRIS.bin Normal file
View File

Binary file not shown.

94
F1:F103/Tetris/adcrandom.c Normal file
View File

@@ -0,0 +1,94 @@
/*
* This file is part of the TETRIS project.
* Copyright 2021 Edward V. Emelianov <edward.emelianoff@gmail.com>.
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
// random numbers generator based on ADC values of Tsens and Vref
#include "adcrandom.h"
#define ADC_CHANNELS_NO (2)
// 16-Tsens, 17-Vref
static uint8_t const ADCchno[ADC_CHANNELS_NO] = {16, 17};
uint16_t getADCval(uint8_t ch){
if(ch >= ADC_CHANNELS_NO) return 0;
ADC1->SQR3 = ADCchno[ch];
ADC1->SR = 0;
// turn ON ADC
ADC1->CR2 |= ADC_CR2_ADON;
while(!(ADC1->SR & ADC_SR_EOC)); // wait end of conversion
return ADC1->DR;
}
struct xorshift128_state {
uint32_t a, b, c, d;
} state = {0};
static uint32_t xorshift128(){
/* Algorithm "xor128" from p. 5 of Marsaglia, "Xorshift RNGs" */
uint32_t t = state.d;
uint32_t const s = state.a;
state.d = state.c;
state.c = state.b;
state.b = s;
t ^= t << 11;
t ^= t >> 8;
return state.a = t ^ s ^ (s >> 19);
}
static uint32_t rnd(){
uint32_t r = 0;
for(int i = 0; i < 32; ++i){
r <<= 1;
//r |= (getADCval(0) & 1) ^ (getADCval(1) & 1);
r |= getADCval(0) & 1;
}
return r;
}
uint32_t getRand(){
static uint8_t g = 0;
if(g++ == 0){
state.a = rnd();
state.b = rnd();
state.c = rnd();
state.d = rnd();
}
return xorshift128();
}
void adc_setup(){
//GPIOC->CRL |= CRL(0, CNF_ANALOG|MODE_INPUT);
uint32_t ctr = 0;
// Enable clocking
RCC->APB2ENR |= RCC_APB2ENR_ADC1EN;
RCC->CFGR &= ~(RCC_CFGR_ADCPRE);
RCC->CFGR |= RCC_CFGR_ADCPRE_DIV2; // ADC clock = RCC / 2
// sampling time - 1.5 cycles for all chanels
//ADC1->SMPR1 = ADC_SMPR1_SMP10_0 | ADC_SMPR1_SMP16_0 | ADC_SMPR1_SMP17_0;//channels 10, 16 and 17
// single mode, enable vref & Tsens; wake up ADC
ADC1->CR2 |= ADC_CR2_TSVREFE | ADC_CR2_ADON;
// wait for Tstab - at least 1us
while(++ctr < 0xff) nop();
// calibration
ADC1->CR2 |= ADC_CR2_RSTCAL;
ctr = 0; while((ADC1->CR2 & ADC_CR2_RSTCAL) && ++ctr < 0xfffff);
ADC1->CR2 |= ADC_CR2_CAL;
ctr = 0; while((ADC1->CR2 & ADC_CR2_CAL) && ++ctr < 0xfffff);
}

29
F1:F103/Tetris/adcrandom.h Normal file
View File

@@ -0,0 +1,29 @@
/*
* This file is part of the TETRIS project.
* Copyright 2021 Edward V. Emelianov <edward.emelianoff@gmail.com>.
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
#pragma once
#ifndef ADCRANDOM_H__
#define ADCRANDOM_H__
#include <stm32f1.h>
void adc_setup();
uint16_t getADCval(uint8_t ch);
uint32_t getRand();
#endif // ADCRANDOM_H__

631
F1:F103/Tetris/arkanoid.c Normal file
View File

@@ -0,0 +1,631 @@
/*
* This file is part of the TETRIS project.
* Copyright 2021 Edward V. Emelianov <edward.emelianoff@gmail.com>.
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
#include "adcrandom.h"
#include "arkanoid.h"
#include "buttons.h"
#include "debug.h"
#include "fonts.h"
#include "proto.h"
#include "screen.h"
// fraction of 1 for fixed point
#define FIXPOINT (1000)
// time (in ms) for keeping racket old X speed
#define KEEPXSPEEDTIME (300)
// max amount of balls
#define NBALLSMAX (8)
// fixed point macros:
// int to fixed
#define i2fixed(x) ((x)*FIXPOINT)
// fixed to int
#define fixed2i(x) ((x)/FIXPOINT)
// field parameters (should be multiple of BRICK_WIDTH)
#define FIELD_WIDTH (39)
// bottom height
#define FIELD_BOTTOM (12)
// X coordinate of field start
#define X0 (1)
// active zone (with bricks)
#define FIELD_ACTIVE (SCREEN_HEIGHT - FIELD_BOTTOM)
// Y-coordinate of racket
#define RACKET_Y (SCREEN_HEIGHT - 2)
// floor (should be seen when bonus activates)
#define FLOOR_Y (SCREEN_HEIGHT - 1)
// starting Y speed of the ball
#define BALL_NORMAL_SPEED (0.007 * FIXPOINT)
#define BALL_MIN_Y_SPEED (0.005 * FIXPOINT)
// maximal speed of the ball
#define BALL_MAX_X_SPEED (0.015 * FIXPOINT)
#define BALL_MAX_Y_SPEED (0.010 * FIXPOINT)
// racket speed delta per millisecond
#define D_RACKET_SPEED (0.002 * FIXPOINT)
// part of racket's speed to add to ball's speed (1/frac)
#define XSPDFRAC (200)
#define YSPDFRAC (1000)
#define BRICK_WIDTH (3)
// colors
#define BACKGROUND_COLOR (COLOR_BLACK)
#define FOREGROUND_COLOR (COLOR_LYELLOW)
#define CUP_COLOR (COLOR_LRED)
#define RACKET_COLOR (COLOR_LGREEN)
#define BALL_COLOR (COLOR_GREEN)
// racket widths
#define RACKET_MEDIUM (5)
#define RACKET_NARROW (3)
#define RACKET_WIDE (9)
// starting amount of lives
#define LIVES_AT_START (3)
// probability of bonus appears (percent)
#define BONUS_PROBABILITY (35)
// there's a bonus inside this brick
#define BRICK_IS_BONUS (1<<7)
// and there's another free flag @ 1<<6 + reserved @ 1<<5
// mask to get color from brick type
#define COLOR_MASK (0x3f)
typedef enum{ // brick types
BRICK_NONE = 0, // no brick
BRICK_WALL, // non-breakable brick
BRICK_GRAY, // two bricks without bonuses
BRICK_WHITE,
BRICK_FLOOR, // add floor under the racket
BRICK_ENLARGE, // enlarge the rocket (don't forget to move it's center when positioned at the edge)
BRICK_CATCH, // sticky balls
BRICK_SLOW, // slow ball
BRICK_DISRUPTION // each ball divides to three
} bricktype;
static const uint8_t brickcolors[] = {
[BRICK_NONE] = 0,
[BRICK_WALL] = CUP_COLOR,
[BRICK_GRAY] = 0b00100101,
[BRICK_WHITE] = COLOR_WHITE,
[BRICK_FLOOR] = COLOR_LBLUE,
[BRICK_ENLARGE] = COLOR_LGREEN,
[BRICK_CATCH] = COLOR_LCYAN,
[BRICK_SLOW] = COLOR_LYELLOW,
[BRICK_DISRUPTION] = COLOR_LPURPLE,
};
// empty cell
#define ____ (0)
// simple bricks with no bonuses
#define _VV_ (BRICK_GRAY)
#define _WW_ (BRICK_WHITE)
// bricks with bonuses
#define _FL_ (BRICK_FLOOR)
#define _EN_ (BRICK_ENLARGE)
#define _CA_ (BRICK_CATCH)
#define _SL_ (BRICK_SLOW)
#define _DI_ (BRICK_DISRUPTION)
// wall
#define XXXX (BRICK_WALL)
#define FIELD_SZ (FIELD_ACTIVE * FIELD_WIDTH / BRICK_WIDTH)
#define LEVELS_AMOUNT (3)
// empty level
#if 0
static uint8_t levelX[FIELD_SZ] = {
/*00*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*01*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*02*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*03*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*04*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*05*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*06*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*07*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*08*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*09*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*10*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*11*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*12*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*13*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*14*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*15*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*16*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*17*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*18*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*19*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
};
#endif
static uint8_t level1[FIELD_SZ] = {
/*00*/ _VV_,____,____,____,____,_WW_,____,_WW_,____,____,____,____,_VV_,
/*01*/ ____,_VV_,____,____,____,____,_WW_,____,____,____,____,_VV_,____,
/*02*/ ____,____,_VV_,____,____,____,____,____,____,____,_VV_,____,____,
/*03*/ ____,_SL_,____,_VV_,____,____,____,____,____,_VV_,____,_SL_,____,
/*04*/ ____,____,____,____,_VV_,_DI_,_DI_,_DI_,_VV_,____,____,____,____,
/*05*/ ____,____,____,____,____,_VV_,_DI_,_VV_,____,____,____,____,____,
/*06*/ ____,____,____,____,_EN_,____,_VV_,____,_EN_,____,____,____,____,
/*07*/ ____,____,____,____,____,_CA_,_FL_,_CA_,____,____,____,____,____,
/*08*/ ____,____,____,____,____,____,_CA_,____,____,____,____,____,____,
/*09*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*10*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*11*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*12*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*13*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*14*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*15*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*16*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*17*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*18*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*19*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
};
static uint8_t level2[FIELD_SZ] = {
/*00*/ ____,____,____,_WW_,____,_WW_,____,_WW_,____,_WW_,____,____,____,
/*01*/ ____,____,_WW_,_VV_,____,____,_WW_,____,____,_VV_,_WW_,____,____,
/*02*/ ____,_WW_,_WW_,____,_VV_,____,____,____,_VV_,____,_WW_,_WW_,____,
/*03*/ _WW_,____,____,_WW_,____,_VV_,____,_VV_,____,_WW_,____,____,_WW_,
/*04*/ ____,____,_VV_,____,_WW_,____,_VV_,____,_WW_,____,_VV_,____,____,
/*05*/ ____,____,____,____,____,_WW_,____,_WW_,____,____,____,____,____,
/*06*/ ____,____,____,____,____,____,_WW_,____,____,____,____,____,____,
/*07*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*08*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*09*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*10*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*11*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*12*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*13*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*14*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*15*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*16*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*17*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*18*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*19*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
};
static uint8_t level3[FIELD_SZ] = { // w=13, h=20
/*00*/ _WW_,_VV_,_WW_,____,____,_VV_,____,____,____,____,_VV_,____,____,
/*01*/ _VV_,_WW_,_VV_,____,_VV_,____,_VV_,____,____,____,_VV_,____,____,
/*02*/ ____,____,_WW_,_VV_,____,____,____,_VV_,____,____,_VV_,____,____,
/*03*/ ____,____,____,_WW_,_VV_,____,____,____,_VV_,____,_VV_,____,_VV_,
/*04*/ ____,____,____,____,_WW_,_VV_,____,____,____,_VV_,_VV_,_VV_,____,
/*05*/ ____,____,_WW_,____,____,_WW_,_VV_,____,____,____,_VV_,_WW_,_WW_,
/*06*/ ____,____,____,____,____,____,_WW_,_VV_,____,____,_VV_,____,____,
/*07*/ ____,____,____,_WW_,_WW_,_WW_,_WW_,_WW_,_VV_,____,_VV_,____,_VV_,
/*08*/ ____,____,____,____,____,____,____,____,_WW_,_VV_,_VV_,_VV_,_WW_,
/*09*/ ____,____,_VV_,____,____,____,____,____,____,_WW_,_VV_,_WW_,____,
/*10*/ ____,____,_VV_,_VV_,_VV_,_VV_,_VV_,_VV_,_VV_,_VV_,_VV_,_VV_,_VV_,
/*11*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*12*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*13*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*14*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*15*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*16*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*17*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*18*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
/*19*/ ____,____,____,____,____,____,____,____,____,____,____,____,____,
};
static uint8_t *levels[LEVELS_AMOUNT] = {level1, level2, level3};
static uint8_t currentLevel[FIELD_SZ]; // data of current level's bricks
static uint8_t paused = 0;
// flags for theball.flags
#define ACTIVE_BALL (1<<0)
#define STICKY_BALL (1<<1)
// !!! BALL AND RACKET COORDINATES ARE IN FIELD SYSTEM !!!
typedef struct{ // all coordinates and speeds are fixed point
int x; int y; // old/actual center coordinates
int xspeed; int yspeed; // speed
uint8_t flags;
} theball;
extern uint32_t volatile Tms;
// current balls amount (level ends when last ball falls)
static uint8_t Nballs;
static theball balls[NBALLSMAX];
static uint8_t racketW; // current racket width
// all coordinates and speeds are fixed point
static int racketX;
static int racketspeed, oldracketspeed;
// level number
static uint8_t curLevNo;
// lifes amount
static uint16_t Nlives;
// total bricks amount
static uint16_t Nbricks;
// bonuses
static uint8_t floor_activated; // ==1 if floor is active
static void showText(){ // show score/level etc
int y = curfont->height - curfont->baseline;
PutStringAt(X0+FIELD_WIDTH+2, y, " ");
PutStringAt(X0+FIELD_WIDTH+2, y, u2str(score));
y += curfont->height;
int w = PutStringAt(X0+FIELD_WIDTH+2, y, u2str(Nlives));
PutStringAt(X0+FIELD_WIDTH+2+w, y, "L ");
y += curfont->height;
if(paused){
PutStringAt(X0+FIELD_WIDTH+2, y, "PAUSE");
}else
PutStringAt(X0+FIELD_WIDTH+2, y, " ");
}
#ifdef EBUG
static void showcur(){
uint8_t *targ = currentLevel;
const char *brk;
for(int y = 0; y < FIELD_ACTIVE; ++y){
for(int x = 0; x < (FIELD_WIDTH / BRICK_WIDTH); ++x){
uint8_t b = *targ++;
switch(b & COLOR_MASK){
case 0:
brk = "___";
break;
case 1:
brk = "XXX";
break;
case 2:
brk = "_VV";
break;
case 3:
brk = "_WW";
break;
case 4:
brk = "_FL";
break;
case 5:
brk = "_EN";
break;
case 6:
brk = "_CA";
break;
case 7:
brk = "_SL";
break;
case 8:
brk = "_DI";
break;
default:
brk = "????";
break;
}
USB_send(brk);
if(b & BRICK_IS_BONUS) USB_send("+");
else USB_send("_");
USB_send(" ");
}
USB_send("\n");
}
}
#else
#define showcur()
#endif
static void draw_level(){
if(curLevNo > LEVELS_AMOUNT) curLevNo = LEVELS_AMOUNT;
uint8_t *brickz = levels[curLevNo], *targ = currentLevel;
for(int y = 0; y < FIELD_ACTIVE; ++y){
for(int x = 0; x < (FIELD_WIDTH / BRICK_WIDTH); ++x){
uint8_t cur = *brickz++, curcol = cur & COLOR_MASK;
if((curcol > BRICK_WHITE) && getRand() % 100 < BONUS_PROBABILITY) cur |= BRICK_IS_BONUS;
*targ++ = cur; // copy brick data into level
if(!cur) continue;
uint8_t curclolr = brickcolors[curcol];
int X = X0 + x*BRICK_WIDTH;
DrawPix(X+0, y, curclolr);
DrawPix(X+1, y, curclolr);
DrawPix(X+2, y, curclolr);
DBG("Brick "); DBGU(cur); DBG(" @ "); DBGU(x); DBG(" , "); DBGU(y); NL();
if(cur != BRICK_WALL) ++Nbricks;
}
}
showcur();
for(int y = 0; y < SCREEN_HEIGHT; ++y){
DrawPix(X0-1, y, CUP_COLOR);
DrawPix(X0+FIELD_WIDTH, y, CUP_COLOR);
}
showText();
}
// x is pixel coordinate in field system
static void draw_racket(int x, uint8_t color){
int xl = X0 + x - racketW / 2;
for(int i = 0; i < racketW; ++i){
DrawPix(xl + i, RACKET_Y, color);
}
//DBG("Racket @"); DBGU(x); DBG(" colr "); DBGU(color); DBG(" spd "); DBGU(racketspeed); NL();
}
static void process_racket(int dt){
if(!racketspeed) return;
oldracketspeed = racketspeed;
int xnew = racketX + racketspeed * dt;
int X = fixed2i(xnew), Xo = fixed2i(racketX);
if(X == Xo){
racketX = xnew;
return;
}
int xmax = FIELD_WIDTH - 1 - racketW/2;
if(X < racketW/2){
X = racketW/2;
xnew = i2fixed(X);
racketspeed = 0;
//DBG("Left border\n");
}else if(X > xmax){
X = xmax;
xnew = i2fixed(X);
racketspeed = 0;
//DBG("Right border\n");
}else{
draw_racket(Xo, BACKGROUND_COLOR); // clear racket
draw_racket(X, RACKET_COLOR);
}
racketX = xnew;
}
static void startlevl(){
racketW = RACKET_MEDIUM;
DBG("wid: "); DBGU(racketW); NL();
racketX = i2fixed(FIELD_WIDTH / 2);
racketspeed = 0;
oldracketspeed = 0;
floor_activated = 0;
Nballs = 1;
for(int i = 1; i < NBALLSMAX; ++i) balls[i].flags = 0;
int rx = fixed2i(racketX);
balls[0] = (theball){.x = racketX, .y = i2fixed(RACKET_Y-1), .flags = STICKY_BALL|ACTIVE_BALL};
draw_racket(rx, RACKET_COLOR);
DrawPix(X0+rx, RACKET_Y-1, BALL_COLOR);
Tlast = Tms;
showText(); // refresh Nlives text
clear_events();
}
// The ball gets the active field cell?
// @return 0 if ball falled out
static int process_ball(theball *ball, int dt){ // dt is time since last check, ms
if(ball->flags & STICKY_BALL){ // ball follows the racket
int Xold = fixed2i(ball->x), Xnew = fixed2i(racketX);
ball->y = i2fixed(RACKET_Y - 1);
ball->x = racketX;
if(Xold != Xnew){ // redraw ball
DrawPix(X0 + Xold, RACKET_Y - 1, BACKGROUND_COLOR);
DrawPix(X0 + Xnew, RACKET_Y - 1, BALL_COLOR);
}
return 1;
}
int DX = ball->xspeed * dt, DY = ball->yspeed * dt;
int xnew = ball->x + DX;
int ynew = ball->y + DY;
// get integer coordinates (in field's system!)
int X = fixed2i(xnew), Y = fixed2i(ynew);
int Xo = fixed2i(ball->x), Yo = fixed2i(ball->y);
if(Xo == X && Yo == Y){ // still the old cell
ball->x = xnew;
ball->y = ynew;
return 1;
}
// ball is in new cell; delete old
DrawPix(X0 + Xo, Yo, BACKGROUND_COLOR);
//DBG("Del ball @ "); DBGU(Xo); DBG(", "); DBGU(Yo); NL();
if(X < 0){ // left border
DBG("Ball: left border\n");
xnew = DX; X = 0;
ball->xspeed = -ball->xspeed;
}else if(X > FIELD_WIDTH - 1){ // right border
DBG("Ball: right border\n");
X = FIELD_WIDTH-1;
xnew = i2fixed(FIELD_WIDTH) - DX;
ball->xspeed = -ball->xspeed;
}else if(Y < 0){ // upper border
DBG("Ball: upper border\n");
ynew = DY; Y = 0;
ball->yspeed = -ball->yspeed;
}else if(Y > RACKET_Y){ // fall into the depth
if(!floor_activated){
DBG("Ball: drop down\n");
return 0;
}
ynew = i2fixed(RACKET_Y) - DY; Y = RACKET_Y;
ball->yspeed = -ball->yspeed;
DBG("Ball: floor\n");
}else if(Y == RACKET_Y){ // check the racket
DBG("check the racket\n");
int w2 = i2fixed(racketW) / 2;
if(xnew >= racketX - w2 && xnew <= racketX + w2){ // got the racket
int absrs = (oldracketspeed > 0) ? oldracketspeed : -oldracketspeed;
ynew = i2fixed(RACKET_Y) - DY; Y = RACKET_Y - 1;
ball->xspeed += oldracketspeed / XSPDFRAC;
if(ball->xspeed > BALL_MAX_X_SPEED) ball->xspeed = BALL_MAX_X_SPEED;
else if(ball->xspeed < -BALL_MAX_X_SPEED) ball->xspeed = -BALL_MAX_X_SPEED;
if(absrs){
ball->yspeed += absrs/YSPDFRAC;
if(ball->yspeed > BALL_MAX_Y_SPEED) ball->yspeed = BALL_MAX_Y_SPEED;
}/* else{
--ball->yspeed;
if(ball->yspeed < BALL_MIN_Y_SPEED) ball->yspeed = BALL_MIN_Y_SPEED;
}*/
DBG("Ball: got racket, racketspeed="); DBGU(absrs);
DBG(" ballspeed: "); DBGU(ball->xspeed); DBG(", "); DBGU(ball->yspeed); NL();
ball->yspeed = -ball->yspeed; // change ball direction
}
}else if(Y < FIELD_ACTIVE){ // ball is in brick zone, check hits
int idx = (FIELD_WIDTH * Y + X) / BRICK_WIDTH;
uint8_t cur = currentLevel[idx];
if(cur){
DBG("brick y="); DBGU(Y); DBG(", x="); DBGU(X); DBG(", idx="); DBGU(idx); DBG(", cur="); DBGU(cur); NL();
/*
* Ball hits the brick, process this
* TODO: DONT FORGET ABOUT BONUSES!!!
*/
if(cur != BRICK_WALL){ // brick can be broken
// delete brick
DBG("Now delete ["); DBGU(idx); DBG("]="); DBGU(currentLevel[idx]); NL();
currentLevel[idx] = 0;
//showcur();
int sX = X/BRICK_WIDTH; sX *= BRICK_WIDTH; sX += X0;
DBG("sx="); DBGU(sX); NL();
DrawPix(sX+0, Y, BACKGROUND_COLOR);
DrawPix(sX+1, Y, BACKGROUND_COLOR);
DrawPix(sX+2, Y, BACKGROUND_COLOR);
/* process bonuses here */
score += (cur & COLOR_MASK) + 1;
if(--Nbricks == 0){
if(++curLevNo >= LEVELS_AMOUNT){
DBG("No more levels, you win!\n");
return 0; // no more levels
}
// init next level
ClearScreen();
draw_level();
startlevl();
return 1;
}
showText();
}
// check from which side the ball came and change direction
if(Xo != X && Yo == Y) ball->xspeed = -ball->xspeed;
else if(Yo != Y && Xo == X) ball->yspeed = -ball->yspeed;
else{ball->xspeed = -ball->xspeed; ball->yspeed = -ball->yspeed; }
X = Xo; Y = Yo; xnew = ball->x; ynew = ball->y;
}
}
ball->x = xnew; ball->y = ynew;
DrawPix(X0 + X, Y, BALL_COLOR);
//DBG("Draw ball @ "); DBGU(X); DBG(", "); DBGU(Y); NL();
return 1;
}
static void fire_a_balls(){ // run sticked balls
for(int i = 0; i < NBALLSMAX; ++i){
if(balls[i].flags & STICKY_BALL){ // this ball is alive
DBG("run a ball, racket speed = "); DBGU(oldracketspeed); NL();
balls[i].flags &= ~STICKY_BALL;
balls[i].xspeed = oldracketspeed / XSPDFRAC;
int absrs = (oldracketspeed > 0) ? oldracketspeed : -oldracketspeed;
balls[i].yspeed = -BALL_NORMAL_SPEED - absrs/YSPDFRAC;
if(balls[i].yspeed < -BALL_MAX_Y_SPEED) balls[i].yspeed = -BALL_MAX_Y_SPEED;
if(balls[i].xspeed > BALL_MAX_X_SPEED) balls[i].xspeed = BALL_MAX_X_SPEED;
else if(balls[i].xspeed < -BALL_MAX_X_SPEED) balls[i].xspeed = -BALL_MAX_X_SPEED;
}
}
}
void arkanoid_init(){
setBGcolor(BACKGROUND_COLOR);
setFGcolor(FOREGROUND_COLOR);
choose_font(FONTN8);
ClearScreen();
ScreenON();
score = 0;
Nlives = LIVES_AT_START;
curLevNo = 0;
draw_level();
startlevl();
}
/*
* BUTTONS:
* left/right - move racket
* set - fire a ball
* up - pause/resume
* menu - go to menu
*/
int arkanoid_process(){
static uint32_t Tracketspeed = 0;
if(Tms == Tlast) return 1;
int dt = (int)(Tms - Tlast);
Tlast = Tms;
// check buttons
keyevent evt;
#define PRESS(x) (keystate(x, &evt) && evt == EVT_PRESS)
#define HOLD(x) (keyevt(x) == EVT_HOLD)
#define RELEASE(x) (keyevt(x) == EVT_RELEASE)
if(PRESS(KEY_U)){ // UP - pause
if(paused){
DBG("----> Arkanoid resume\n");
paused = 0;
showText();
}else{
DBG("----> Arkanoid paused\n");
paused = 1;
showcur();
showText();
}
}
if(paused){
clear_events();
return 1;
}
uint8_t released = 0;
if(PRESS(KEY_L)) racketspeed = -FIXPOINT; // single move @1pt
else if(HOLD(KEY_L)) racketspeed += -D_RACKET_SPEED;
else released = 1;
if(PRESS(KEY_R)) racketspeed = FIXPOINT; // single move @1pt
else if(HOLD(KEY_R)) racketspeed += D_RACKET_SPEED;
else ++released;
if(2 == released){
if(racketspeed){
Tracketspeed = Tms;
racketspeed = 0;
DBG("Racket stops @"); DBGU(oldracketspeed); NL();
}else{
if(Tms - Tracketspeed > KEEPXSPEEDTIME){
#ifdef EBUG
if(oldracketspeed) USB_send("oldracspd=0\n");
#endif
oldracketspeed = 0;
}
}
}
if(PRESS(KEY_S)){
fire_a_balls();
}
if(keystate(KEY_M, &evt) && evt == EVT_HOLD){ // break the game
return 0;
}
#undef PRESS
#undef HOLD
process_racket(dt);
for(int i = 0; i < NBALLSMAX; ++i){
if(balls[i].flags & ACTIVE_BALL){ // this ball is alive
if(!process_ball(&balls[i], dt)){ // ball falls out
balls[i].flags = 0;
--Nballs;
DBG("--balls: "); DBGU(Nballs); NL();
}
}
}
if(Nballs == 0){ // --lives
DBG("Ball falled\n");
if(--Nlives == 0){
DBG("no more lives\n");
return 0; // game over
}
draw_racket(fixed2i(racketX), BACKGROUND_COLOR); // clear racket
startlevl();
}
return 1;
}

25
F1:F103/Tetris/arkanoid.h Normal file
View File

@@ -0,0 +1,25 @@
/*
* This file is part of the TETRIS project.
* Copyright 2021 Edward V. Emelianov <edward.emelianoff@gmail.com>.
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
#pragma once
#ifndef ARKANOID_H__
#define ARKANOID_H__
void arkanoid_init();
int arkanoid_process();
#endif // ARKANOID_H__

108
F1:F103/Tetris/balls.c Normal file
View File

@@ -0,0 +1,108 @@
/*
* This file is part of the TETRIS project.
* Copyright 2021 Edward V. Emelianov <edward.emelianoff@gmail.com>.
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
#include "adcrandom.h"
#include "balls.h"
#include "screen.h"
#include "proto.h"
#include "usb.h"
extern uint32_t volatile Tms;
// fraction of 1 for fixed point
#define FIXPOINT (10000)
// max pause in ms to add next ball
#define MAXPAUSEADDBALL (5000)
// max speed in fractions per millisecond
#define SPEEDMAX (300)
// max balls amount
#define NBALLSMAX (20)
// coordinates/speeds in fractions
static int
x[NBALLSMAX], y[NBALLSMAX],
xnew[NBALLSMAX], ynew[NBALLSMAX],
xspeed[NBALLSMAX], yspeed[NBALLSMAX];
static uint8_t colr[NBALLSMAX];
static int Nballs = 0;
static uint32_t TlastB, Taddb;
static void clear_balls(){
for(int i = 0; i < Nballs; ++i)
DrawPix(x[i]/FIXPOINT, y[i]/FIXPOINT, 0);
}
static void draw_balls(){
for(int i = 0; i < Nballs; ++i){
x[i] = xnew[i]; y[i] = ynew[i];
DrawPix(x[i]/FIXPOINT, y[i]/FIXPOINT, colr[i]);
}
}
static void add_ball(){
if(Nballs == NBALLSMAX) return;
uint8_t c = getRand() & 0xff;
if(c == 0) c = 1;
colr[Nballs] = c;
x[Nballs] = SCREEN_WIDTH*FIXPOINT/2;
y[Nballs] = SCREEN_HEIGHT*FIXPOINT/2;
xspeed[Nballs] = ((int)getRand()) % SPEEDMAX;
yspeed[Nballs] = ((int)getRand()) % SPEEDMAX;
++Nballs;
Taddb = Tms + getRand() % MAXPAUSEADDBALL;
}
void balls_init(){
Nballs = 0;
setBGcolor(COLOR_BLACK);
ClearScreen();
ScreenON();
TlastB = Tms;
add_ball();
}
//#define abs(x) ((x<0) ? -x : x)
void process_balls(){
if(Tms == TlastB) return;
if(Nballs < NBALLSMAX && Taddb < Tms){
add_ball();
}
int diff = (int)(Tms - TlastB);
for(int i = 0; i < Nballs; ++i){
xnew[i] = x[i] + xspeed[i]*diff;
ynew[i] = y[i] + yspeed[i]*diff;
inline void xrev(){xspeed[i] = -xspeed[i]; xnew[i] = x[i] + xspeed[i]*diff;}
inline void yrev(){yspeed[i] = -yspeed[i]; ynew[i] = y[i] + yspeed[i]*diff;}
if(xnew[i] < 0) xrev();
else if(xnew[i] > SCREEN_WIDTH*FIXPOINT) xrev();
if(ynew[i] < 0) yrev();
else if(ynew[i] > SCREEN_HEIGHT*FIXPOINT) yrev();
int nx = xnew[i]/FIXPOINT, ny = ynew[i]/FIXPOINT;
int dx = nx - x[i]/FIXPOINT, dy = ny - y[i]/FIXPOINT;
if((dx || dy) && GetPix(nx, ny)){ // change direction in case of collisions
xrev(); yrev();
xspeed[i] += getRand() & 3; // and randomly change speed
yspeed[i] += getRand() & 3;
}
}
clear_balls();
draw_balls();
TlastB = Tms;
}

26
F1:F103/Tetris/balls.h Normal file
View File

@@ -0,0 +1,26 @@
/*
* This file is part of the TETRIS project.
* Copyright 2021 Edward V. Emelianov <edward.emelianoff@gmail.com>.
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
#pragma once
#ifndef BALLS_H__
#define BALLS_H__
void process_balls();
void balls_init();
#endif // BALLS_H__

115
F1:F103/Tetris/buttons.c Normal file
View File

@@ -0,0 +1,115 @@
/*
* This file is part of the TETRIS project.
* Copyright 2021 Edward V. Emelianov <edward.emelianoff@gmail.com>.
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
#include <stm32f1.h>
#include "buttons.h"
#include "hardware.h"
extern volatile uint32_t Tms;
uint32_t lastUnsleep = 0;
// threshold in ms for press/hold
#define PRESSTHRESHOLD (9)
#define HOLDTHRESHOLD (199)
typedef struct{
keycode code; // key code
keyevent event; // current key event
int16_t counter; // press/release counter
GPIO_TypeDef *port; // key port
uint16_t pin; // key pin
uint8_t changed; // the event have been changed
} keybase;
keybase allkeys[KEY_AMOUNT] = {
[KEY_L] = {.port = JLEFT_port, .pin = JLEFT_pin},
[KEY_R] = {.port = JRIGHT_port, .pin = JRIGHT_pin},
[KEY_U] = {.port = JUP_port, .pin = JUP_pin},
[KEY_D] = {.port = JDOWN_port, .pin = JDOWN_pin},
[KEY_M] = {.port = JMENU_port, .pin = JMENU_pin},
[KEY_S] = {.port = JENTER_port, .pin = JENTER_pin}
};
void process_keys(){
static uint32_t lastT = 0;
if(Tms == lastT) return;
uint16_t d = (uint16_t)(Tms - lastT);
lastT = Tms;
for(int i = 0; i < KEY_AMOUNT; ++i){
keybase *k = &allkeys[i];
keyevent e = k->event;
if(PRESSED(k->port, k->pin)){ // key is in pressed state
lastUnsleep = Tms; // update activity time (any key is in pressed state)
switch(e){
case EVT_NONE: // just pressed
case EVT_RELEASE:
if((k->counter += d) > PRESSTHRESHOLD)
k->event = EVT_PRESS;
break;
case EVT_PRESS: // hold
if((k->counter += d)> HOLDTHRESHOLD)
k->event = EVT_HOLD;
break;
default:
break;
}
}else{ // released
switch(e){
case EVT_PRESS: // count -> none
if(k->counter > PRESSTHRESHOLD) k->counter = PRESSTHRESHOLD;
else if((k->counter -= d) < 0) k->event = EVT_NONE; // button released
break;
case EVT_HOLD: // count -> release
if(k->counter > PRESSTHRESHOLD) k->counter = PRESSTHRESHOLD;
else if((k->counter -= d) < 0) k->event = EVT_RELEASE; // button released
break;
default:
break;
}
}
if(e != k->event) k->changed = 1;
}
}
/**
* @brief keystate curent key state
* @param k - key code
* @param evt - its event
* @return 1 if event was changed since last call
*/
uint8_t keystate(keycode k, keyevent *evt){
if(k >= KEY_AMOUNT) return EVT_NONE;
*evt = allkeys[k].event;
// change state `release` to `none` after 1st check (or will be `changed` @ release -> none)
if(*evt == EVT_RELEASE) allkeys[k].event = EVT_NONE;
uint8_t r = allkeys[k].changed;
allkeys[k].changed = 0;
return r;
}
keyevent keyevt(keycode k){
if(k >= KEY_AMOUNT) return EVT_NONE;
return allkeys[k].event;
}
// clear all `changed` states
void clear_events(){
for(int i = 0; i < KEY_AMOUNT; ++i)
allkeys[i].changed = 0;
}

54
F1:F103/Tetris/buttons.h Normal file
View File

@@ -0,0 +1,54 @@
/*
* This file is part of the TETRIS project.
* Copyright 2021 Edward V. Emelianov <edward.emelianoff@gmail.com>.
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
#pragma once
#ifndef BUTTONS_H__
#include <stm32f1.h>
// long press detector (>99ms)
#define KEY_HOLDTIME (99)
// keycode for press/release
typedef enum{
KEY_L, // left
KEY_R, // right
KEY_U, // up (pause)
KEY_D, // down
KEY_M, // menu (rotate left)
KEY_S, // select (rotate right)
KEY_AMOUNT // amount of keys connected
} keycode;
// events
typedef enum{
EVT_NONE, // no events with given key
EVT_PRESS, // pressed
EVT_HOLD, // hold more than KEY_HOLDTIME ms
EVT_RELEASE // released
} keyevent;
extern uint32_t lastUnsleep; // last keys activity time
void process_keys();
void clear_events();
uint8_t keystate(keycode k, keyevent *evt);
keyevent keyevt(keycode k);
#define BUTTONS_H__
#endif // BUTTONS_H__

35
F1:F103/Tetris/debug.h Normal file
View File

@@ -0,0 +1,35 @@
/*
* This file is part of the TETRIS project.
* Copyright 2021 Edward V. Emelianov <edward.emelianoff@gmail.com>.
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
#pragma once
#ifndef DEBUG_H__
#define DEBUG_H__
#ifdef EBUG
#include "usb.h"
#include "proto.h"
#define DBG(x) USB_send(x)
#define DBGU(x) USB_send(u2str(x))
#define NL() USB_send("\n")
#else // EBUG
#define DBG(x)
#define DBGU(x)
#define NL()
#endif // EBUG
#endif // DEBUG_H__

3168
F1:F103/Tetris/font14.h Normal file
View File

File diff suppressed because it is too large Load Diff

820
F1:F103/Tetris/fontNumb8.h Normal file
View File

@@ -0,0 +1,820 @@
/*
* This file is part of the TETRIS project.
* Copyright 2019 Edward V. Emelianov <eddy@sao.ru, edward.emelianoff@gmail.com>
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
// this file should be included JUST ONCE!
// only in fonts.c
#define FONTNUMB8BYTES 10
#define FONTNUMB8HEIGHT 10
#define FONTNUMB8BASELINE 2
/*
32 (0x20) - 64 (0x40) - @ 96 (0x60) - ` 128 (0x80) - € 160 (0xa0) -   192 (0xc0) - À 224 (0xe0) - à
33 (0x21) - ! 65 (0x41) - A 97 (0x61) - a 129 (0x81) - <20> 161 (0xa1) - ¡ 193 (0xc1) - Á 225 (0xe1) - á
34 (0x22) - " 66 (0x42) - B 98 (0x62) - b 130 (0x82) - ‚ 162 (0xa2) - ¢ 194 (0xc2) - Â 226 (0xe2) - â
35 (0x23) - # 67 (0x43) - C 99 (0x63) - c 131 (0x83) - ƒ 163 (0xa3) - £ 195 (0xc3) - Ã 227 (0xe3) - ã
36 (0x24) - $ 68 (0x44) - D 100 (0x64) - d 132 (0x84) - „ 164 (0xa4) - ¤ 196 (0xc4) - Ä 228 (0xe4) - ä
37 (0x25) - % 69 (0x45) - E 101 (0x65) - e 133 (0x85) - … 165 (0xa5) - ¥ 197 (0xc5) - Å 229 (0xe5) - å
38 (0x26) - & 70 (0x46) - F 102 (0x66) - f 134 (0x86) - † 166 (0xa6) - ¦ 198 (0xc6) - Æ 230 (0xe6) - æ
39 (0x27) - ' 71 (0x47) - G 103 (0x67) - g 135 (0x87) - ‡ 167 (0xa7) - § 199 (0xc7) - Ç 231 (0xe7) - ç
40 (0x28) - ( 72 (0x48) - H 104 (0x68) - h 136 (0x88) - ˆ 168 (0xa8) - ¨ 200 (0xc8) - È 232 (0xe8) - è
41 (0x29) - ) 73 (0x49) - I 105 (0x69) - i 137 (0x89) - ‰ 169 (0xa9) - © 201 (0xc9) - É 233 (0xe9) - é
42 (0x2a) - * 74 (0x4a) - J 106 (0x6a) - j 138 (0x8a) - Š 170 (0xaa) - ª 202 (0xca) - Ê 234 (0xea) - ê
43 (0x2b) - + 75 (0x4b) - K 107 (0x6b) - k 139 (0x8b) - ‹ 171 (0xab) - « 203 (0xcb) - Ë 235 (0xeb) - ë
44 (0x2c) - , 76 (0x4c) - L 108 (0x6c) - l 140 (0x8c) - Œ 172 (0xac) - ¬ 204 (0xcc) - Ì 236 (0xec) - ì
45 (0x2d) - - 77 (0x4d) - M 109 (0x6d) - m 141 (0x8d) - <20> 173 (0xad) - ­ 205 (0xcd) - Í 237 (0xed) - í
46 (0x2e) - . 78 (0x4e) - N 110 (0x6e) - n 142 (0x8e) - Ž 174 (0xae) - ® 206 (0xce) - Î 238 (0xee) - î
47 (0x2f) - / 79 (0x4f) - O 111 (0x6f) - o 143 (0x8f) - <20> 175 (0xaf) - ¯ 207 (0xcf) - Ï 239 (0xef) - ï
48 (0x30) - 0 80 (0x50) - P 112 (0x70) - p 144 (0x90) - <20> 176 (0xb0) - ° 208 (0xd0) - Ð 240 (0xf0) - ð
49 (0x31) - 1 81 (0x51) - Q 113 (0x71) - q 145 (0x91) - ‘ 177 (0xb1) - ± 209 (0xd1) - Ñ 241 (0xf1) - ñ
50 (0x32) - 2 82 (0x52) - R 114 (0x72) - r 146 (0x92) - ’ 178 (0xb2) - ² 210 (0xd2) - Ò 242 (0xf2) - ò
51 (0x33) - 3 83 (0x53) - S 115 (0x73) - s 147 (0x93) - “ 179 (0xb3) - ³ 211 (0xd3) - Ó 243 (0xf3) - ó
52 (0x34) - 4 84 (0x54) - T 116 (0x74) - t 148 (0x94) - ” 180 (0xb4) - ´ 212 (0xd4) - Ô 244 (0xf4) - ô
53 (0x35) - 5 85 (0x55) - U 117 (0x75) - u 149 (0x95) - • 181 (0xb5) - µ 213 (0xd5) - Õ 245 (0xf5) - õ
54 (0x36) - 6 86 (0x56) - V 118 (0x76) - v 150 (0x96) - – 182 (0xb6) - ¶ 214 (0xd6) - Ö 246 (0xf6) - ö
55 (0x37) - 7 87 (0x57) - W 119 (0x77) - w 151 (0x97) - — 183 (0xb7) - · 215 (0xd7) - × 247 (0xf7) - ÷
56 (0x38) - 8 88 (0x58) - X 120 (0x78) - x 152 (0x98) - ˜ 184 (0xb8) - ¸ 216 (0xd8) - Ø 248 (0xf8) - ø
57 (0x39) - 9 89 (0x59) - Y 121 (0x79) - y 153 (0x99) - ™ 185 (0xb9) - ¹ 217 (0xd9) - Ù 249 (0xf9) - ù
58 (0x3a) - : 90 (0x5a) - Z 122 (0x7a) - z 154 (0x9a) - 186 (0xba) - º 218 (0xda) - Ú 250 (0xfa) - ú
59 (0x3b) - ; 91 (0x5b) - [ 123 (0x7b) - { 155 (0x9b) - › 187 (0xbb) - » 219 (0xdb) - Û 251 (0xfb) - û
60 (0x3c) - < 92 (0x5c) - \ 124 (0x7c) - | 156 (0x9c) - œ 188 (0xbc) - ¼ 220 (0xdc) - Ü 252 (0xfc) - ü
61 (0x3d) - = 93 (0x5d) - ] 125 (0x7d) - } 157 (0x9d) - <20> 189 (0xbd) - ½ 221 (0xdd) - Ý 253 (0xfd) - ý
62 (0x3e) - > 94 (0x5e) - ^ 126 (0x7e) - ~ 158 (0x9e) - ž 190 (0xbe) - ¾ 222 (0xde) - Þ 254 (0xfe) - þ
63 (0x3f) - ? 95 (0x5f) - _ 127 (0x7f) - 159 (0x9f) - Ÿ 191 (0xbf) - ¿ 223 (0xdf) - ß 255 (0xff) - ÿ
*/
// this array shows position of every koi8-r symbol in font10_table
const uint8_t fontNumb8_encoding[256] = {
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // 0..31
// 0 1 2 3 4 5 6 7 8 9 A B C D E F
/*20*/1, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, // 47
/*30*/2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 29, 30, 31, 32, 33, 34, // 63
/*40*/35, 12, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 13, // 79
/*50*/49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 0, 0, 0, 0, 0, 0, // 95
/*60*/0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // 111
/*70*/0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // 127
/*80*/0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // 143
/*90*/0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // 159
/*A0*/0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // 175
/*B0*/0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // 191
/*C0*/0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // 207
/*D0*/0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // 223
/*E0*/0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // 239
/*F0*/0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // 255
};
const uint8_t fontNumb8_table[] = {
// 0 0x00 - empty
0,
________,
________,
________,
________,
________,
________,
________,
________,
________,
________,
// 1 0x20 - ' '
4,
________,
________,
________,
________,
________,
________,
________,
________,
________,
________,
// 2 0x30 - '0'
6,
_XXX____,
XX_XX___,
X___X___,
X___X___,
X___X___,
X___X___,
XX_XX___,
_XXX____,
________,
________,
// 3 0x31 - '1'
6,
_XX_____,
X_X_____,
__X_____,
__X_____,
__X_____,
__X_____,
__X_____,
XXXXX___,
________,
________,
// 4 0x32 - '2'
6,
_XXX____,
X___X___,
____X___,
____X___,
___X____,
__X_____,
_X______,
XXXXX___,
________,
________,
// 5 0x33 - '3'
6,
XXXX____,
____X___,
____X___,
_XXX____,
____X___,
____X___,
____X___,
XXXX____,
________,
________,
// 6 0x34 - '4'
7,
___XX___,
___XX___,
__X_X___,
_X__X___,
_X__X___,
XXXXXX__,
____X___,
____X___,
________,
________,
// 7 0x35 - '5'
5,
XXXX____,
X_______,
X_______,
XXX_____,
___X____,
___X____,
___X____,
XXX_____,
________,
________,
// 8 0x36 - '6'
6,
_XXX____,
X___X___,
X_______,
XXXX____,
X___X___,
X___X___,
X___X___,
_XXX____,
________,
________,
// 9 0x37 - '7'
5,
XXXX____,
___X____,
__X_____,
__X_____,
__X_____,
_X______,
_X______,
_X______,
________,
________,
// 10 0x38 - '8'
6,
_XXX____,
X___X___,
X___X___,
_XXX____,
X___X___,
X___X___,
X___X___,
_XXX____,
________,
________,
// 11 0x39 - '9'
6,
_XXX____,
X___X___,
X___X___,
X___X___,
_XXXX___,
____X___,
X___X___,
_XXX____,
________,
________,
// 12 0x41 - 'A'
6,
__X_____,
_X_X____,
_X_X____,
_X_X____,
X___X___,
XXXXX___,
X___X___,
X___X___,
________,
________,
// 13 0x4f - 'O'
7,
__XX____,
_X__X___,
X____X__,
X____X__,
X____X__,
X____X__,
_X__X___,
__XX____,
________,
________,
// 14 0x21 - '!'
2,
X_______,
X_______,
X_______,
X_______,
X_______,
X_______,
________,
X_______,
________,
________,
// 15 0x22 - '"'
4,
________,
X_X_____,
X_X_____,
X_X_____,
________,
________,
________,
________,
________,
________,
// 16 0x23 - '#'
7,
________,
____X_X_,
___X_X__,
XXXXXXX_,
__X_X___,
XXXXXXX_,
_X_X____,
X_X_____,
________,
________,
// 17 0x24 - '$'
6,
__X_____,
_XXX____,
X_X_X___,
X_X_____,
_XXX____,
__X_X___,
X_X_X___,
XXXX____,
__X_____,
________,
// 18 0x25 - '%'
8,
________,
_XX___X_,
X__X_X__,
_XX_X___,
___X____,
__X_XX__,
_X_X__X_,
X___XX__,
________,
________,
// 19 0x26 - '&'
7,
________,
_X______,
X_X_____,
X_X_____,
_X__XX__,
X_XXX___,
X__X____,
_XX_XX__,
________,
________,
// 20 0x27 - '''
2,
________,
X_______,
X_______,
X_______,
________,
________,
________,
________,
________,
________,
// 21 0x28 - '('
4,
__XX____,
_X______,
X_______,
X_______,
X_______,
X_______,
X_______,
_X______,
__XX____,
________,
// 22 0x29 - ')'
4,
XX______,
__X_____,
___X____,
___X____,
___X____,
___X____,
___X____,
__X_____,
XX______,
________,
// 23 0x2A - '*'
6,
________,
________,
__X_____,
XXXXX___,
_XXX____,
X___X___,
________,
________,
________,
________,
// 24 0x2B - '+'
6,
________,
________,
__X_____,
__X_____,
XXXXX___,
__X_____,
__X_____,
________,
________,
________,
// 25 0x2C - ','
3,
________,
________,
________,
________,
________,
________,
XX______,
_X______,
X_______,
________,
// 26 0x2D - '-'
6,
________,
________,
________,
________,
XXXXX___,
________,
________,
________,
________,
________,
// 27 0x2E - '.'
3,
________,
________,
________,
________,
________,
________,
XX______,
XX______,
________,
________,
// 28 0x2F - '/'
6,
____X___,
___X____,
___X____,
__X_____,
__X_____,
_X______,
_X______,
_X______,
X_______,
________,
// 29 0x3A - ':'
3,
________,
________,
XX______,
XX______,
________,
XX______,
XX______,
________,
________,
________,
// 30 0x3B - ';'
3,
________,
________,
________,
XX______,
XX______,
________,
XX______,
_X______,
X_______,
________,
// 31 0x3C - '<'
4,
________,
________,
__X_____,
_X______,
X_______,
_X______,
__X_____,
________,
________,
________,
// 32 0x3D - '='
5,
________,
________,
________,
XXXX____,
________,
XXXX____,
________,
________,
________,
________,
// 33 0x3E - '>'
4,
________,
________,
X_______,
_X______,
__X_____,
_X______,
X_______,
________,
________,
________,
// 34 0x3F - '?'
5,
_XX_____,
X__X____,
___X____,
__X_____,
_X______,
_X______,
________,
_X______,
________,
________,
// 35 0x40 - '@'
8,
___XXX__,
__X__X__,
_X_XXXX_,
X__X_XX_,
X_X_X_X_,
X_X_X_X_,
X__X_X__,
_X______,
__XXXX__,
________,
// 36 0x42 - 'B'
6,
XXX_____,
X__X____,
X_X_____,
XXXX____,
X___X___,
X___X___,
X___X___,
XXXX____,
________,
________,
// 37 0x43 - 'C'
7,
__XXX___,
_X___X__,
X_______,
X_______,
X_______,
X_______,
_X___X__,
__XXX___,
________,
________,
// 38 0x44 - 'D'
6,
XXX_____,
X__X____,
X___X___,
X___X___,
X___X___,
X___X___,
X__X____,
XXX_____,
________,
________,
// 39 0x45 - 'E'
6,
XXXXX___,
X_______,
X_______,
XXX_____,
X_______,
X_______,
X___X___,
XXXXX___,
________,
________,
// 40 0x46 - 'F'
6,
XXXXX___,
X___X___,
X_______,
X_______,
XXX_____,
X_______,
X_______,
X_______,
________,
________,
// 41 0x47 - 'G'
7,
__XXX___,
_X___X__,
X_______,
X_______,
X_______,
X__XXX__,
_X___X__,
__XXX___,
________,
________,
// 42 0x48 - 'H'
6,
X___X___,
X___X___,
X___X___,
XXXXX___,
X___X___,
X___X___,
X___X___,
X___X___,
________,
________,
// 43 0x49 - 'I'
4,
XXX_____,
_X______,
_X______,
_X______,
_X______,
_X______,
_X______,
XXX_____,
________,
________,
// 44 0x4A - 'J'
5,
XXXX____,
X__X____,
___X____,
___X____,
___X____,
___X____,
X_XX____,
_X______,
________,
________,
// 45 0x4B - 'K'
6,
X___X___,
X__X____,
X_X_____,
XXX_____,
X__X____,
X__X____,
X___X___,
X___X___,
________,
________,
// 46 0x4C - 'L'
6,
X_______,
X_______,
X_______,
X_______,
X_______,
X_______,
X___X___,
XXXXX___,
________,
________,
// 47 0x4D - 'M'
8,
X_____X_,
XX___XX_,
X_X_X_X_,
X_X_X_X_,
X__X__X_,
X_____X_,
X_____X_,
X_____X_,
________,
________,
// 48 0x4E - 'N'
6,
X___X___,
XX__X___,
XX__X___,
X_X_X___,
X_X_X___,
X__XX___,
X__XX___,
X___X___,
________,
________,
// 49 0x50 - 'P'
6,
XXXX____,
X__XX___,
X___X___,
X__XX___,
XXXX____,
X_______,
X_______,
X_______,
________,
________,
// 50 0x51 - 'Q'
7,
__XX____,
_X__X___,
X____X__,
X____X__,
X____X__,
X____X__,
_X_XX___,
__XX____,
___XXX__,
________,
// 51 0x52 - 'R'
6,
XXXX____,
X__XX___,
X___X___,
X__XX___,
XXXX____,
X_X_____,
X__X____,
X__XX___,
________,
________,
// 52 0x53 - 'S'
6,
_XX_____,
X__X____,
X_______,
_XX_____,
__XX____,
____X___,
XX_XX___,
_XXX____,
________,
________,
// 53 0x54 - 'T'
6,
XXXXX___,
__X_____,
__X_____,
__X_____,
__X_____,
__X_____,
__X_____,
__X_____,
________,
________,
// 54 0x55 - 'U'
7,
X____X__,
X____X__,
X____X__,
X____X__,
X____X__,
X____X__,
_X__X___,
__XX____,
________,
________,
// 55 0x56 - 'V'
6,
X___X___,
X___X___,
X___X___,
X___X___,
X___X___,
_X_X____,
_X_X____,
__X_____,
________,
________,
// 56 0x57 - 'W'
8,
X_____X_,
X_____X_,
X_____X_,
X__X__X_,
X__X__X_,
_X_X_X__,
_X_X_X__,
__X_X___,
________,
________,
// 57 0x58 - 'X'
6,
X___X___,
X___X___,
_X_X____,
_X_X____,
__X_____,
_X_X____,
X___X___,
X___X___,
________,
________,
// 58 0x59 - 'Y'
6,
X___X___,
X___X___,
X___X___,
_X_X____,
_XXX____,
__X_____,
__X_____,
__X_____,
________,
________,
// 59 0x5A - 'Z'
6,
XXXXX___,
____X___,
___X____,
__X_____,
__X_____,
_X______,
X_______,
XXXXX___,
________,
________,
};
#if 0
// 14 0x21 - '!'
0,
________,
________,
________,
________,
________,
________,
________,
________,
________,
________,
________,
#endif

329
F1:F103/Tetris/fonts.c Normal file
View File

@@ -0,0 +1,329 @@
/*
* This file is part of the TETRIS project.
* Copyright 2019 Edward V. Emelianov <eddy@sao.ru, edward.emelianoff@gmail.com>
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
#include <stddef.h>
#include "debug.h"
#include "fonts.h"
/* Bash-script to generate the symbols
#!/bin/bash
function bits(){
Ans=""
for x in $(seq 7 -1 0); do
B=$((1<<$x))
if [ $(($1&$B)) -ne 0 ]; then Ans="${Ans}X"
else Ans="${Ans}_"
fi
done
echo $Ans
}
for x in $(seq 0 255); do
printf "#define $(bits $x)\t0x%02x\n" $x
done
*/
#define ________ 0x00
#define _______X 0x01
#define ______X_ 0x02
#define ______XX 0x03
#define _____X__ 0x04
#define _____X_X 0x05
#define _____XX_ 0x06
#define _____XXX 0x07
#define ____X___ 0x08
#define ____X__X 0x09
#define ____X_X_ 0x0a
#define ____X_XX 0x0b
#define ____XX__ 0x0c
#define ____XX_X 0x0d
#define ____XXX_ 0x0e
#define ____XXXX 0x0f
#define ___X____ 0x10
#define ___X___X 0x11
#define ___X__X_ 0x12
#define ___X__XX 0x13
#define ___X_X__ 0x14
#define ___X_X_X 0x15
#define ___X_XX_ 0x16
#define ___X_XXX 0x17
#define ___XX___ 0x18
#define ___XX__X 0x19
#define ___XX_X_ 0x1a
#define ___XX_XX 0x1b
#define ___XXX__ 0x1c
#define ___XXX_X 0x1d
#define ___XXXX_ 0x1e
#define ___XXXXX 0x1f
#define __X_____ 0x20
#define __X____X 0x21
#define __X___X_ 0x22
#define __X___XX 0x23
#define __X__X__ 0x24
#define __X__X_X 0x25
#define __X__XX_ 0x26
#define __X__XXX 0x27
#define __X_X___ 0x28
#define __X_X__X 0x29
#define __X_X_X_ 0x2a
#define __X_X_XX 0x2b
#define __X_XX__ 0x2c
#define __X_XX_X 0x2d
#define __X_XXX_ 0x2e
#define __X_XXXX 0x2f
#define __XX____ 0x30
#define __XX___X 0x31
#define __XX__X_ 0x32
#define __XX__XX 0x33
#define __XX_X__ 0x34
#define __XX_X_X 0x35
#define __XX_XX_ 0x36
#define __XX_XXX 0x37
#define __XXX___ 0x38
#define __XXX__X 0x39
#define __XXX_X_ 0x3a
#define __XXX_XX 0x3b
#define __XXXX__ 0x3c
#define __XXXX_X 0x3d
#define __XXXXX_ 0x3e
#define __XXXXXX 0x3f
#define _X______ 0x40
#define _X_____X 0x41
#define _X____X_ 0x42
#define _X____XX 0x43
#define _X___X__ 0x44
#define _X___X_X 0x45
#define _X___XX_ 0x46
#define _X___XXX 0x47
#define _X__X___ 0x48
#define _X__X__X 0x49
#define _X__X_X_ 0x4a
#define _X__X_XX 0x4b
#define _X__XX__ 0x4c
#define _X__XX_X 0x4d
#define _X__XXX_ 0x4e
#define _X__XXXX 0x4f
#define _X_X____ 0x50
#define _X_X___X 0x51
#define _X_X__X_ 0x52
#define _X_X__XX 0x53
#define _X_X_X__ 0x54
#define _X_X_X_X 0x55
#define _X_X_XX_ 0x56
#define _X_X_XXX 0x57
#define _X_XX___ 0x58
#define _X_XX__X 0x59
#define _X_XX_X_ 0x5a
#define _X_XX_XX 0x5b
#define _X_XXX__ 0x5c
#define _X_XXX_X 0x5d
#define _X_XXXX_ 0x5e
#define _X_XXXXX 0x5f
#define _XX_____ 0x60
#define _XX____X 0x61
#define _XX___X_ 0x62
#define _XX___XX 0x63
#define _XX__X__ 0x64
#define _XX__X_X 0x65
#define _XX__XX_ 0x66
#define _XX__XXX 0x67
#define _XX_X___ 0x68
#define _XX_X__X 0x69
#define _XX_X_X_ 0x6a
#define _XX_X_XX 0x6b
#define _XX_XX__ 0x6c
#define _XX_XX_X 0x6d
#define _XX_XXX_ 0x6e
#define _XX_XXXX 0x6f
#define _XXX____ 0x70
#define _XXX___X 0x71
#define _XXX__X_ 0x72
#define _XXX__XX 0x73
#define _XXX_X__ 0x74
#define _XXX_X_X 0x75
#define _XXX_XX_ 0x76
#define _XXX_XXX 0x77
#define _XXXX___ 0x78
#define _XXXX__X 0x79
#define _XXXX_X_ 0x7a
#define _XXXX_XX 0x7b
#define _XXXXX__ 0x7c
#define _XXXXX_X 0x7d
#define _XXXXXX_ 0x7e
#define _XXXXXXX 0x7f
#define X_______ 0x80
#define X______X 0x81
#define X_____X_ 0x82
#define X_____XX 0x83
#define X____X__ 0x84
#define X____X_X 0x85
#define X____XX_ 0x86
#define X____XXX 0x87
#define X___X___ 0x88
#define X___X__X 0x89
#define X___X_X_ 0x8a
#define X___X_XX 0x8b
#define X___XX__ 0x8c
#define X___XX_X 0x8d
#define X___XXX_ 0x8e
#define X___XXXX 0x8f
#define X__X____ 0x90
#define X__X___X 0x91
#define X__X__X_ 0x92
#define X__X__XX 0x93
#define X__X_X__ 0x94
#define X__X_X_X 0x95
#define X__X_XX_ 0x96
#define X__X_XXX 0x97
#define X__XX___ 0x98
#define X__XX__X 0x99
#define X__XX_X_ 0x9a
#define X__XX_XX 0x9b
#define X__XXX__ 0x9c
#define X__XXX_X 0x9d
#define X__XXXX_ 0x9e
#define X__XXXXX 0x9f
#define X_X_____ 0xa0
#define X_X____X 0xa1
#define X_X___X_ 0xa2
#define X_X___XX 0xa3
#define X_X__X__ 0xa4
#define X_X__X_X 0xa5
#define X_X__XX_ 0xa6
#define X_X__XXX 0xa7
#define X_X_X___ 0xa8
#define X_X_X__X 0xa9
#define X_X_X_X_ 0xaa
#define X_X_X_XX 0xab
#define X_X_XX__ 0xac
#define X_X_XX_X 0xad
#define X_X_XXX_ 0xae
#define X_X_XXXX 0xaf
#define X_XX____ 0xb0
#define X_XX___X 0xb1
#define X_XX__X_ 0xb2
#define X_XX__XX 0xb3
#define X_XX_X__ 0xb4
#define X_XX_X_X 0xb5
#define X_XX_XX_ 0xb6
#define X_XX_XXX 0xb7
#define X_XXX___ 0xb8
#define X_XXX__X 0xb9
#define X_XXX_X_ 0xba
#define X_XXX_XX 0xbb
#define X_XXXX__ 0xbc
#define X_XXXX_X 0xbd
#define X_XXXXX_ 0xbe
#define X_XXXXXX 0xbf
#define XX______ 0xc0
#define XX_____X 0xc1
#define XX____X_ 0xc2
#define XX____XX 0xc3
#define XX___X__ 0xc4
#define XX___X_X 0xc5
#define XX___XX_ 0xc6
#define XX___XXX 0xc7
#define XX__X___ 0xc8
#define XX__X__X 0xc9
#define XX__X_X_ 0xca
#define XX__X_XX 0xcb
#define XX__XX__ 0xcc
#define XX__XX_X 0xcd
#define XX__XXX_ 0xce
#define XX__XXXX 0xcf
#define XX_X____ 0xd0
#define XX_X___X 0xd1
#define XX_X__X_ 0xd2
#define XX_X__XX 0xd3
#define XX_X_X__ 0xd4
#define XX_X_X_X 0xd5
#define XX_X_XX_ 0xd6
#define XX_X_XXX 0xd7
#define XX_XX___ 0xd8
#define XX_XX__X 0xd9
#define XX_XX_X_ 0xda
#define XX_XX_XX 0xdb
#define XX_XXX__ 0xdc
#define XX_XXX_X 0xdd
#define XX_XXXX_ 0xde
#define XX_XXXXX 0xdf
#define XXX_____ 0xe0
#define XXX____X 0xe1
#define XXX___X_ 0xe2
#define XXX___XX 0xe3
#define XXX__X__ 0xe4
#define XXX__X_X 0xe5
#define XXX__XX_ 0xe6
#define XXX__XXX 0xe7
#define XXX_X___ 0xe8
#define XXX_X__X 0xe9
#define XXX_X_X_ 0xea
#define XXX_X_XX 0xeb
#define XXX_XX__ 0xec
#define XXX_XX_X 0xed
#define XXX_XXX_ 0xee
#define XXX_XXXX 0xef
#define XXXX____ 0xf0
#define XXXX___X 0xf1
#define XXXX__X_ 0xf2
#define XXXX__XX 0xf3
#define XXXX_X__ 0xf4
#define XXXX_X_X 0xf5
#define XXXX_XX_ 0xf6
#define XXXX_XXX 0xf7
#define XXXXX___ 0xf8
#define XXXXX__X 0xf9
#define XXXXX_X_ 0xfa
#define XXXXX_XX 0xfb
#define XXXXXX__ 0xfc
#define XXXXXX_X 0xfd
#define XXXXXXX_ 0xfe
#define XXXXXXXX 0xff
// here are fonts themself
#include "font14.h"
//#include "fontNumb16.h"
//#include "fontNumb10.h"
#include "fontNumb8.h"
static const afont FONTS[] = {
[FONT14] = {font14_table, font14_encoding, FONT14HEIGHT, FONT14BYTES, FONT14BASELINE},
[FONTN8] = {fontNumb8_table, fontNumb8_encoding, FONTNUMB8HEIGHT, FONTNUMB8BYTES, FONTNUMB8BASELINE},
};
const afont *curfont = &FONTS[FONT14];
/**
* @brief choose_font - font selector
* @param newfont - font to choose
* @return 0 if all OK
*/
int choose_font(font_t newfont){
if(newfont >= FONT_T_MAX || newfont <= FONT_T_MIN) return 1;
curfont = &FONTS[newfont];
return 0;
}
const uint8_t *font_char(uint8_t Char){
uint8_t idx = curfont->enctable[Char];
//DBG("font_char("); DBGU(Char); DBG(")="); DBGU(idx); NL();
if(!idx) return NULL; // no this character in font
return &(curfont->font[idx*(curfont->bytes+1)]);
}

48
F1:F103/Tetris/fonts.h Normal file
View File

@@ -0,0 +1,48 @@
/*
* This file is part of the TETRIS project.
* Copyright 2019 Edward V. Emelianov <eddy@sao.ru, edward.emelianoff@gmail.com>
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
#pragma once
#ifndef FONTS_H__
#define FONTS_H__
#include <stdint.h>
// type for font choosing
typedef enum{
FONT_T_MIN = -1, // no fonts <= this
FONT14, // 16x16, font height near 14px
// FONTN16, // numbers 16x8, font height 16px
// FONTN10, // numbers 10x8, font height 10px
FONTN8, // numbers and 'A'/'O', height 8px
FONT_T_MAX // no fonts >= this
} font_t;
int choose_font(font_t newfont);
const uint8_t *font_char(uint8_t Char);
typedef struct{
const uint8_t *font; // font inself
const uint8_t *enctable; // font encoding table
uint8_t height; // full font matrix height
uint8_t bytes; // amount of bytes in font matrix
uint8_t baseline; // baseline position (coordinate from bottom line)
} afont;
extern const afont *curfont;
#endif // FONTS_H__

7
F1:F103/Tetris/getrand Normal file
View File

@@ -0,0 +1,7 @@
#!/bin/bash
COMDEV=/dev/ttyUSB0
stty -F $COMDEV -hupcl -opost -onlcr -isig -iexten -echo -echoe -echok -echoctl -echoke -icanon min 0 time 1 115200
echo "G" > $COMDEV &
cat $COMDEV

175
F1:F103/Tetris/hardware.c Normal file
View File

@@ -0,0 +1,175 @@
/*
* This file is part of the TETRIS project.
* Copyright 2021 Edward V. Emelianov <edward.emelianoff@gmail.com>.
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
#include "hardware.h"
#include "usb.h"
uint8_t transfer_done = 0; // ==1 when DMA transfer ready
// buffer for DMA
static uint32_t dmabuf[SCREEN_WIDTH];
void iwdg_setup(){
uint32_t tmout = 16000000;
/* Enable the peripheral clock RTC */
/* (1) Enable the LSI (40kHz) */
/* (2) Wait while it is not ready */
RCC->CSR |= RCC_CSR_LSION; /* (1) */
while((RCC->CSR & RCC_CSR_LSIRDY) != RCC_CSR_LSIRDY){if(--tmout == 0) break;} /* (2) */
/* Configure IWDG */
/* (1) Activate IWDG (not needed if done in option bytes) */
/* (2) Enable write access to IWDG registers */
/* (3) Set prescaler by 64 (1.6ms for each tick) */
/* (4) Set reload value to have a rollover each 2s */
/* (5) Check if flags are reset */
/* (6) Refresh counter */
IWDG->KR = IWDG_START; /* (1) */
IWDG->KR = IWDG_WRITE_ACCESS; /* (2) */
IWDG->PR = IWDG_PR_PR_1; /* (3) */
IWDG->RLR = 1250; /* (4) */
tmout = 16000000;
while(IWDG->SR){if(--tmout == 0) break;} /* (5) */
IWDG->KR = IWDG_REFRESH; /* (6) */
}
static inline void gpio_setup(){
// Enable clocks to the GPIO subsystems, turn on AFIO clocking to disable SWD/JTAG
RCC->APB2ENR |= RCC_APB2ENR_IOPAEN | RCC_APB2ENR_IOPBEN | RCC_APB2ENR_IOPCEN | RCC_APB2ENR_AFIOEN;
// turn off JTAG (PB3/4 is in use)
AFIO->MAPR = AFIO_MAPR_SWJ_CFG_JTAGDISABLE;
// turn off USB pullup
USBPU_OFF();
// Set led as opendrain output
GPIOC->CRH = CRH(13, CNF_ODOUTPUT|MODE_SLOW);
// SCREEN color PINs: PA0..PA5
GPIOA->CRL = CRL(0, CNF_PPOUTPUT|MODE_FAST) | CRL(1, CNF_PPOUTPUT|MODE_FAST) | CRL(2, CNF_PPOUTPUT|MODE_FAST) |
CRL(3, CNF_PPOUTPUT|MODE_FAST) | CRL(4, CNF_PPOUTPUT|MODE_FAST) | CRL(5, CNF_PPOUTPUT|MODE_FAST);
// USB pullup - opendrain output
GPIOA->CRH = CRH(15, CNF_PPOUTPUT|MODE_SLOW);
// A..D, LAT
GPIOB->CRL = CRL(4, CNF_PPOUTPUT|MODE_FAST) | CRL(5, CNF_PPOUTPUT|MODE_FAST) | CRL(6, CNF_PPOUTPUT|MODE_FAST) | CRL(7, CNF_PPOUTPUT|MODE_FAST);
// nOE: PB4..PB9; Joystick: PB10..PB15 (pullup input)
GPIOB->ODR = 0b111111 << 10; // pullup
GPIOB->CRH = CRH(8, CNF_PPOUTPUT|MODE_FAST) | CRH(9, CNF_PPOUTPUT|MODE_FAST) |
CRH(10, CNF_PUDINPUT|MODE_INPUT) | CRH(11, CNF_PUDINPUT|MODE_INPUT) | CRH(12, CNF_PUDINPUT|MODE_INPUT) |
CRH(13, CNF_PUDINPUT|MODE_INPUT) | CRH(14, CNF_PUDINPUT|MODE_INPUT) | CRH(15, CNF_PUDINPUT|MODE_INPUT);
}
// setup timer3 for DMA transfers & SCK @ TIM3_CH1 (PA6)
static inline void tim_setup(){
SCRN_DISBL(); // turn off output
GPIOA->CRL |= CRL(6, CNF_AFPP|MODE_FAST);
RCC->APB1ENR |= RCC_APB1ENR_TIM3EN;
// PCS=1 don't work;
TIM3->PSC = 4; // 7.2MHz
TIM3->ARR = 7;
TIM3->CCMR1 = TIM_CCMR1_OC1M; // PWM mode 2 (inactive->active)
//TIM3->CCMR1 = TIM_CCMR1_OC1M_2 | TIM_CCMR1_OC1M_1; // PWM mode 1 (active->inactive)
TIM3->CCER = TIM_CCER_CC1E; // output 1 enable
TIM3->DIER = TIM_DIER_UDE; // enable DMA requests
RCC->AHBENR |= RCC_AHBENR_DMA1EN;
// memsize 32bit, periphsize 32bit, memincr, mem2periph, full transfer interrupt
DMA1_Channel3->CCR = DMA_CCR_PSIZE_1 | DMA_CCR_MSIZE_1 | DMA_CCR_MINC | DMA_CCR_DIR | DMA_CCR_TCIE;
DMA1_Channel3->CMAR = (uint32_t)dmabuf;
DMA1_Channel3->CPAR = (uint32_t)&GPIOA->BSRR;
NVIC_EnableIRQ(DMA1_Channel3_IRQn);
}
void hw_setup(){
gpio_setup();
tim_setup();
}
void stopTIMDMA(){
DMA1_Channel3->CCR &= ~DMA_CCR_EN; // stop DMA
TIM3->CR1 = 0; // turn off timer
}
static inline uint8_t getcolrvals(uint8_t colr, uint8_t Ntick){
uint8_t result = 0; // bits: 0-R, 1-G, 2-B
#ifdef SCREEN_IS_NEGATIVE
if(colr >> 5 <= Ntick) result = 1;
colr &= 0x1f;
if(colr >> 2 <= Ntick) result |= 2;
colr &= 3;
if(colr) colr = (colr << 1) + 1;
if(colr <= Ntick) result |= 4;
#else
if(colr >> 5 > Ntick) result = 1;
colr &= 0x1f;
if(colr >> 2 > Ntick) result |= 2;
colr &= 3;
if(colr) colr = (colr << 1) + 1;
if(colr > Ntick) result |= 4;
#endif
return result;
}
/**
* @brief ConvertScreenBuf - convert creen buffer into DMA buffer
* @param sbuf - screen buffer
* @param Nrow - current row number
* @param Ntick - tick number (0..7) for quasi-PWM colors
*/
void ConvertScreenBuf(uint8_t *sbuf, uint8_t Nrow, uint8_t Ntick){ // __attribute__((unused))
//USB_send("ConvertScreenBuf\n");
uint8_t *_1st = &sbuf[SCREEN_WIDTH*Nrow], *_2nd = _1st + SCREEN_WIDTH*NBLOCKS; // first and second lines
for(int i = 0; i < SCREEN_WIDTH; ++i){ // ~50us for 64 pixels
uint8_t pinsset = getcolrvals(_1st[i], Ntick);
pinsset |= getcolrvals(_2nd[i], Ntick) << 3;
//dmabuf[i] = (i%2) ? ((COLR_pin<<16) | i) : (0b100010);
dmabuf[i] = (COLR_pin << 16) | pinsset; // All BR are 1, BS depending on color
}
}
static uint8_t blknum_curr = 0;
/**
* @brief TIM_DMA_transfer - start DMA transfer
* @param buf - buffer with data for GPIOA->BSRR
* @param blknum - number of active block
*/
void TIM_DMA_transfer(uint8_t blknum){
//USB_send("TIM_DMA_transfer\n");
TIM3->CR1 = 0; // turn off timer
transfer_done = 0;
// set first pixel color
//COLR_port->BSRR = dmabuf[0];
DMA1_Channel3->CNDTR = SCREEN_WIDTH;
DMA1_Channel3->CCR |= DMA_CCR_EN; // start DMA
TIM3->CCR1 = 4; // 50% PWM
TIM3->CR1 = TIM_CR1_CEN; // turn on timer
blknum_curr = blknum;
}
// DMA transfer complete - stop transfer
void dma1_channel3_isr(){
//TIM3->CR1 |= TIM_CR1_OPM; // set one pulse mode to turn off timer after last CLK pulse
//TIM3->SR = 0;
TIM3->CR1 = 0;
DMA1_Channel3->CCR &= ~DMA_CCR_EN; // stop DMA
//while(!(TIM3->SR & TIM_SR_UIF)); // wait for last pulse
SCRN_DISBL(); // clear main output
ADDR_port->ODR = (ADDR_port->ODR & ~(ADDR_pin)) | (blknum_curr << ADDR_roll); // set address
SET(LAT); // activate latch
DMA1->IFCR = DMA_IFCR_CGIF3;
transfer_done = 1;
CLEAR(LAT);
SCRN_ENBL(); // activate main output
process_screen();
//USB_send("transfer done\n");
}

100
F1:F103/Tetris/hardware.h Normal file
View File

@@ -0,0 +1,100 @@
/*
* This file is part of the TETRIS project.
* Copyright 2021 Edward V. Emelianov <edward.emelianoff@gmail.com>.
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
#pragma once
#ifndef __HARDWARE_H__
#define __HARDWARE_H__
#include "stm32f1.h"
#include "screen.h"
// define this if screen colors are negative
// #define SCREEN_IS_NEGATIVE
// define if nOE is negative
#define NOE_IS_NEGATIVE
// LED0 - PC13 (bluepill), blinking each second
#define LED0_port GPIOC
#define LED0_pin (1<<13)
// USB pullup (not present in bluepill) - PA15
#define USBPU_port GPIOA
#define USBPU_pin (1<<15)
#define USBPU_ON() pin_set(USBPU_port, USBPU_pin)
#define USBPU_OFF() pin_clear(USBPU_port, USBPU_pin)
#define LED_blink(x) pin_toggle(x ## _port, x ## _pin)
#define LED_on(x) pin_clear(x ## _port, x ## _pin)
#define LED_off(x) pin_set(x ## _port, x ## _pin)
// SPI DMA channel
#define DMA_SPI_Channel DMA1_Channel3
// SCREEN PINs: A,B,C,D - PB6-PB9; LAT - PB5; nOE - PB4
// CLK - PA6 (TIM3_CH1)
// colors: PA0..PA5
#define COLR_port GPIOA
#define COLR_pin (0x3f)
#define ADDR_port GPIOB
#define ADDR_roll (6)
#define ADDR_pin (0xf<<ADDR_roll)
#define LAT_port GPIOB
#define LAT_pin (1<<5)
#define nOE_port GPIOB
#define nOE_pin (1<<4)
#define SET(x) pin_set(x ## _port, x ## _pin)
#define CLEAR(x) pin_clear(x ## _port, x ## _pin)
#define TOGGLE(x) pin_toggle(x ## _port, x ## _pin)
// #define BUTTONS_NEGATIVE to negate buttons (pressed @1, not @0)
// joystick: PB10..PB15
#define JDOWN_port GPIOB
#define JDOWN_pin (1<<10)
#define JUP_port GPIOB
#define JUP_pin (1<<11)
#define JRIGHT_port GPIOB
#define JRIGHT_pin (1<<12)
#define JLEFT_port GPIOB
#define JLEFT_pin (1<<13)
#define JMENU_port GPIOB
#define JMENU_pin (1<<14)
#define JENTER_port GPIOB
#define JENTER_pin (1<<15)
#ifdef BUTTONS_NEGATIVE
#define PRESSED(port, pin) ((port->IDR & pin) == pin)
#else
#define PRESSED(port, pin) ((port->IDR & pin) == 0)
#endif
#ifdef NOE_IS_NEGATIVE
#define SCRN_ENBL() SET(nOE)
#define SCRN_DISBL() CLEAR(nOE)
#else
#define SCRN_ENBL() CLEAR(nOE)
#define SCRN_DISBL() SET(nOE)
#endif
void iwdg_setup();
void hw_setup();
void TIM_DMA_transfer(uint8_t blknum);
void stopTIMDMA();
void ConvertScreenBuf(uint8_t *sbuf, uint8_t Nrow, uint8_t Ntick);
extern uint8_t transfer_done;
#endif // __HARDWARE_H__

1
F1:F103/Tetris/main.c Symbolic link
View File

@@ -0,0 +1 @@
/home/eddy/Yandex.Disk/Projects/mytakepic/.hg/wcache/checklink-target

101
F1:F103/Tetris/menu.c Normal file
View File

@@ -0,0 +1,101 @@
/*
* This file is part of the TETRIS project.
* Copyright 2021 Edward V. Emelianov <edward.emelianoff@gmail.com>.
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
#include "buttons.h"
#include "fonts.h"
#include "menu.h"
#include "screen.h"
#include "usb.h"
#include "proto.h"
// colors
#define MENUBGCOLOR (0)
#define MENUFGCOLOR (0b1100)
// menu item @ screen center
#define midNo ((MENU_ITEMS - 1) / 2)
// Y coordinate of screen center
#define midY (SCREEN_HH - 1)
static const char* items[] = {
[MENU_SLEEP] = " SLEEP ",
[MENU_BALLS] = " BALLS ",
[MENU_SNAKE] = " SNAKE ",
[MENU_TETRIS] = " TETRIS ",
[MENU_ARKANOID] = " ARKANOID ",
};
static menuitem curitem = MENU_SLEEP;
// show menu
static void _menu(){
choose_font(FONTN8);
setBGcolor(COLOR_BLACK);
ClearScreen();
int charH = curfont->height, charB = curfont->baseline;
int curI = midNo;
if(MENU_ITEMS*charH > SCREEN_HEIGHT){
curI = curitem; charB -= charH/2;
}
for(int i = 0; i < MENU_ITEMS; ++i){
if(i == curitem){
setBGcolor(MENUFGCOLOR);
setFGcolor(MENUBGCOLOR);
}else{
setBGcolor(MENUBGCOLOR);
setFGcolor(MENUFGCOLOR);
}
CenterStringAt(midY + (i-curI)*charH - charB, items[i]);
}
}
// initial menu
void show_menu(){
curitem = MENU_SLEEP;
ScreenON();
_menu();
}
// process menu items and return its status
menuitem menu_activated(){
keyevent evt;
menuitem olditem = curitem;
if(keystate(KEY_U, &evt) && evt == EVT_PRESS){ // dont' react @ HOLD events!
if(curitem) --curitem;
}
if(keystate(KEY_D, &evt) && evt == EVT_PRESS){
if(curitem < (MENU_ITEMS-1)) ++curitem;
}
if(curitem != olditem) _menu();
if(keystate(KEY_S, &evt) && evt == EVT_HOLD){ // select by hold event
return curitem;
}
clear_events(); // clear all other events
return MENU_NONE;
}
// show "GAME OVER" screen
void show_gameover(){
setBGcolor(COLOR_BLACK);
setFGcolor(COLOR_RED);
ClearScreen();
choose_font(FONTN8);
CenterStringAt(SCREEN_HEIGHT/2 - curfont->baseline - 1, "GAME OVER!");
setFGcolor(COLOR_LYELLOW);
CenterStringAt(SCREEN_HEIGHT - curfont->baseline - 2, u2str(score));
}

39
F1:F103/Tetris/menu.h Normal file
View File

@@ -0,0 +1,39 @@
/*
* This file is part of the TETRIS project.
* Copyright 2021 Edward V. Emelianov <edward.emelianoff@gmail.com>.
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
#pragma once
#ifndef MENU_H__
#define MENU_H__
#include <stm32f1.h>
typedef enum{
MENU_SLEEP,
MENU_BALLS,
MENU_SNAKE,
MENU_TETRIS,
MENU_ARKANOID,
MENU_ITEMS,
MENU_NONE
} menuitem;
void show_menu();
void show_gameover();
menuitem menu_activated();
#endif // MENU_H__

263
F1:F103/Tetris/proto.c Normal file
View File

@@ -0,0 +1,263 @@
/*
* This file is part of the TETRIS project.
* Copyright 2021 Edward V. Emelianov <edward.emelianoff@gmail.com>.
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
#include "adcrandom.h"
#include "balls.h"
#include "fonts.h"
#include "proto.h"
#include "screen.h"
#include "usb.h"
extern uint8_t countms, balls;
extern uint32_t Tms;
char *omit_spaces(const char *buf){
while(*buf){
if(*buf > ' ') break;
++buf;
}
return (char*)buf;
}
// In case of overflow return `buf` and N==0xffffffff
// read decimal number & return pointer to next non-number symbol
static char *getdec(const char *buf, uint32_t *N){
char *start = (char*)buf;
uint32_t num = 0;
while(*buf){
char c = *buf;
if(c < '0' || c > '9'){
break;
}
if(num > 429496729 || (num == 429496729 && c > '5')){ // overflow
*N = 0xffffff;
return start;
}
num *= 10;
num += c - '0';
++buf;
}
*N = num;
return (char*)buf;
}
// read hexadecimal number (without 0x prefix!)
static char *gethex(const char *buf, uint32_t *N){
char *start = (char*)buf;
uint32_t num = 0;
while(*buf){
char c = *buf;
uint8_t M = 0;
if(c >= '0' && c <= '9'){
M = '0';
}else if(c >= 'A' && c <= 'F'){
M = 'A' - 10;
}else if(c >= 'a' && c <= 'f'){
M = 'a' - 10;
}
if(M){
if(num & 0xf0000000){ // overflow
*N = 0xffffff;
return start;
}
num <<= 4;
num += c - M;
}else{
break;
}
++buf;
}
*N = num;
return (char*)buf;
}
// read octal number (without 0 prefix!)
static char *getoct(const char *buf, uint32_t *N){
char *start = (char*)buf;
uint32_t num = 0;
while(*buf){
char c = *buf;
if(c < '0' || c > '7'){
break;
}
if(num & 0xe0000000){ // overflow
*N = 0xffffff;
return start;
}
num <<= 3;
num += c - '0';
++buf;
}
*N = num;
return (char*)buf;
}
// read binary number (without b prefix!)
static char *getbin(const char *buf, uint32_t *N){
char *start = (char*)buf;
uint32_t num = 0;
while(*buf){
char c = *buf;
if(c < '0' || c > '1'){
break;
}
if(num & 0x80000000){ // overflow
*N = 0xffffff;
return start;
}
num <<= 1;
if(c == '1') num |= 1;
++buf;
}
*N = num;
return (char*)buf;
}
/**
* @brief getnum - read uint32_t from string (dec, hex or bin: 127, 0x7f, 0b1111111)
* @param buf - buffer with number and so on
* @param N - the number read
* @return pointer to first non-number symbol in buf
* (if it is == buf, there's no number or if *N==0xffffffff there was overflow)
*/
char *getnum(const char *txt, uint32_t *N){
char *nxt = NULL;
char *s = omit_spaces(txt);
if(*s == '0'){ // hex, oct or 0
if(s[1] == 'x' || s[1] == 'X'){ // hex
nxt = gethex(s+2, N);
if(nxt == s+2) nxt = (char*)txt;
}else if(s[1] > '0'-1 && s[1] < '8'){ // oct
nxt = getoct(s+1, N);
if(nxt == s+1) nxt = (char*)txt;
}else{ // 0
nxt = s+1;
*N = 0;
}
}else if(*s == 'b' || *s == 'B'){
nxt = getbin(s+1, N);
if(nxt == s+1) nxt = (char*)txt;
}else{
nxt = getdec(s, N);
if(nxt == s) nxt = (char*)txt;
}
return nxt;
}
const char* helpmsg =
"'0/1' - screen off/on\n"
"'A' - get ADC values\n"
"'b' - start/stop Balls\n"
"'C' - clear screen with given color\n"
"'F' - set foreground color\n"
"'G' - get 100 random numbers\n"
"'f' - get FPS\n"
"'R' - software reset\n"
;
const char *parse_cmd(const char *buf){
uint32_t N;
if(buf[1] == '\n'){ // one symbol commands
switch(*buf){
case '0':
ScreenOFF();
return "OFF\n";
break;
case '1':
ScreenON();
return "ON\n";
break;
case 'A':
USB_send("Tsens="); USB_send(u2str(getADCval(0)));
USB_send("\nVref="); USB_send(u2str(getADCval(1)));
USB_send("\nRand="); USB_send(u2str(getRand()));
USB_send("\n");
return NULL;
break;
case 'b':
if(balls){
balls = 0;
return "Stop balls\n";
}else{
balls_init();
balls = 1;
return "Start balls\n";
}
case 'f':
if(SCREEN_RELAX == getScreenState()) return "Screen is inactive\n";
USB_send("FPS=");
USB_send(u2str(getFPS()));
USB_send("\n");
return NULL;
break;
case 'G':
/*USB_send(u2str(Tms)); USB_send("\n");
for(int i=0; i < 1000; ++i) getRand();
USB_send(u2str(Tms)); USB_send("\n");*/
for(int i = 0; i < 1000; ++i){
USB_send(u2str(getRand()));
USB_send("\n");
}
return NULL;
break;
case 'R':
USB_send("Soft reset\n");
NVIC_SystemReset();
break;
default:
return helpmsg;
}
return NULL;
}else{
switch(*buf){
case 'C':
if(getnum(buf+1, &N)){
ScreenOFF();
setBGcolor(N);
ClearScreen();
ScreenON();
return "Background color\n";
}
return "Wrong color\n";
break;
case 'F':
if(getnum(buf+1, &N)){
setFGcolor(N);
return "Foreground color\n";
}
return "Wrong color\n";
break;
default:
return helpmsg;
}
}
return NULL;
}
// return string with number `val`
char *u2str(uint32_t val){
static char strbuf[11];
char *bufptr = &strbuf[10];
*bufptr = 0;
if(!val){
*(--bufptr) = '0';
}else{
while(val){
*(--bufptr) = val % 10 + '0';
val /= 10;
}
}
return bufptr;
}

32
F1:F103/Tetris/proto.h Normal file
View File

@@ -0,0 +1,32 @@
/*
* This file is part of the TETRIS project.
* Copyright 2021 Edward V. Emelianov <edward.emelianoff@gmail.com>.
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
#pragma once
#ifndef PROTO_H__
#define PROTO_H__
#include <stm32f1.h>
const char *parse_cmd(const char *buf);
void printu(uint32_t val);
void printuhex(uint32_t val);
char *omit_spaces(const char *buf);
char *getnum(const char *buf, uint32_t *N);
char *u2str(uint32_t val);
#endif // PROTO_H__

219
F1:F103/Tetris/screen.c Normal file
View File

@@ -0,0 +1,219 @@
/*
* This file is part of the TETRIS project.
* Copyright 2019 Edward V. Emelianov <eddy@sao.ru, edward.emelianoff@gmail.com>
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
#include <string.h> // memset, memcpy
#include <stdio.h>
#include "debug.h"
#include "fonts.h"
#include "hardware.h"
#include "screen.h"
// !!!FOR LITTLE-ENDIAN!!!
uint32_t score = 0; // current game's score
uint32_t StepMS, Tlast, incSpd = 0; // common for all games timer values
// X coordinate - from left to right!
// Y coordinate - from top to bottom!
// (0,0) is top left corner
// all-screen buffer
uint8_t screenbuf[SCREENBUF_SZ];
extern volatile uint32_t Tms; // time for FPS count
static uint32_t FPS = 0, Tfps = 0; // approx FPS
uint32_t getFPS(){return FPS;}
static uint8_t fgColor = 0xff, bgColor = 0; // foreground and background colors
void setBGcolor(uint8_t c){bgColor = c;}
void setFGcolor(uint8_t c){fgColor = c;}
/**
* @brief FillScreen - fill screen buffer with current bgColor
*/
void ClearScreen(){
for(int i = 0; i < SCREENBUF_SZ; ++i)
screenbuf[i] = bgColor;
}
/**
* @brief DrawPix - set or clear pixel
* @param X, Y - pixel coordinates (could be outside of screen)
* @param pix - == pixel color (RRRGGGBB)
*/
void DrawPix(int16_t X, int16_t Y, uint8_t pix){
if(X < 0 || X > SCREEN_WIDTH-1 || Y < 0 || Y > SCREEN_HEIGHT-1) return; // outside of screen
// now calculate coordinate of pixel
screenbuf[Y*SCREEN_WIDTH + X] = pix;
}
void InvertPix(int16_t X, int16_t Y){
if(X < 0 || X > SCREEN_WIDTH-1 || Y < 0 || Y > SCREEN_HEIGHT-1) return; // outside of screen
screenbuf[Y*SCREEN_WIDTH + X] = ~screenbuf[Y*SCREEN_WIDTH + X];
}
void XORPix(int16_t X, int16_t Y, uint8_t pix){
if(X < 0 || X > SCREEN_WIDTH-1 || Y < 0 || Y > SCREEN_HEIGHT-1) return; // outside of screen
screenbuf[Y*SCREEN_WIDTH + X] ^= pix;
}
uint8_t GetPix(int16_t X, int16_t Y){
if(X < 0 || X > SCREEN_WIDTH-1 || Y < 0 || Y > SCREEN_HEIGHT-1) return 0;
return screenbuf[Y*SCREEN_WIDTH + X];
}
/**
* @brief DrawCharAt - draws character @ position X,Y (this point is left baseline corner of char!)
* character will be drawn with current fg and bg colors
* @param X, Y - started point
* @param Char - char to draw
* @return char width
*/
uint8_t DrawCharAt(int16_t X, int16_t Y, uint8_t Char){
const uint8_t *curchar = font_char(Char);
if(!curchar) return 0;
// now change Y coordinate to left upper corner of font
Y += curfont->baseline - curfont->height + 1;
// height and width of letter in pixels
uint8_t h = curfont->height, w = *curchar++; // now curchar is pointer to bits array
uint8_t lw = curfont->bytes / h; // width of letter in bytes
for(uint8_t row = 0; row < h; ++row){
for(uint8_t col = 0; col < w; ++col){
if(curchar[row*lw + (col/8)] & (1 << (7 - (col%8))))
DrawPix(X + col, Y + row, fgColor);
else
DrawPix(X + col, Y + row, bgColor);
}
}
return w;
}
/**
* @brief PutStringAt - draw text string @ screen
* @param X, Y - base coordinates
* @param str - string to draw
* @return - text width in pixels
*/
uint8_t PutStringAt(int16_t X, int16_t Y, const char *str){
if(!str) return 0;
int16_t Xold = X;
while(*str){
X += DrawCharAt(X, Y, (uint8_t)*str++);
}
return X - Xold;
}
/**
* @brief CenterStringAt - draw string @ center line
* @param Y - y coordinate
* @param str - string
* @return - text width in pixels
*/
uint8_t CenterStringAt(int16_t Y, const char *str){
int l = strpixlen(str);
return PutStringAt((SCREEN_WIDTH - l)/2, Y, str);
}
// full string length in pixels
int strpixlen(const char *str){
int l = 0;
while(*str){
const uint8_t *c = font_char(*str++);
if(c) l += *c;
}
return l;
}
static screen_state ScrnState = SCREEN_RELAX;
screen_state getScreenState(){return ScrnState;}
static uint8_t currentB = 0; // current block number
static uint8_t Ntick = 0; // tick number (0..7) for PWM color
/**
* @brief process_screen - screen state machine processing
*/
void process_screen(){
static uint32_t framecnt = 0;
switch(ScrnState){
case SCREEN_ACTIVE: // transmission active
if(transfer_done){
ScrnState = SCREEN_UPDATENXT;
}else return;
// fallthrough
case SCREEN_UPDATENXT:
ConvertScreenBuf(screenbuf, currentB, Ntick); // convert data
TIM_DMA_transfer(currentB); // start transfer
ScrnState = SCREEN_ACTIVE;
if(++Ntick >= 7 + NBLACK_FRAMES){
Ntick = 0;
if(++currentB >= NBLOCKS){
currentB = 0; // start again
++framecnt;
if(Tms - Tfps > 999){
FPS = framecnt;
Tfps = Tms;
framecnt = 0;
}
}
}
break;
default:
return;
}
}
/**
* @brief ShowScreen - turn on data transmission
*/
void ScreenON(){
ScrnState = SCREEN_UPDATENXT;
Tfps = Tms;
process_screen();
}
void ScreenOFF(){
stopTIMDMA();
SCRN_DISBL();
ScrnState = SCREEN_RELAX;
currentB = 0;
Ntick = 0;
}
/**
* @brief RGB2pack - convert RGB color to packed RRRGGGBB
* @param RGB - color (each in range 0..8)
* @return packed color
*/
uint8_t RGB2pack(const uint8_t *RGB){
uint8_t b = RGB[2] & 7;
if(b) b = (b - 1) >> 1;
return ((RGB[0] & 7)<<5 | (RGB[1] & 7) << 2 | b);
}
/**
* @brief pack2RGB - convert packed color to array of RGB (0..8)
* @param pack - packed color
* @return RGB array
*/
uint8_t *pack2RGB(uint8_t pack){
static uint8_t RGB[3];
RGB[0] = pack >> 5;
RGB[1] = (pack & 0x1c) >> 2;
pack &= 3;
if(pack) RGB[2] = (pack<<1) + 1;
else RGB[2] = 0;
return RGB;
}

93
F1:F103/Tetris/screen.h Normal file
View File

@@ -0,0 +1,93 @@
/*
* This file is part of the TETRIS project.
* Copyright 2019 Edward V. Emelianov <eddy@sao.ru, edward.emelianoff@gmail.com>
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
#pragma once
#ifndef SCREEN_H__
#define SCREEN_H__
#include <stdint.h>
// additional black frames for display won't be so bright
#define NBLACK_FRAMES (7)
// display size in px
// PANEL_WIDTH is width of one panel
//#define PANEL_WIDTH (64)
// SCREEN_WIDTH is total screen width
#define SCREEN_WIDTH (64)
#define SCREEN_HEIGHT (32)
#define SCREENBUF_SZ (SCREEN_WIDTH*SCREEN_HEIGHT)
#define SCREEN_HW (SCREEN_WIDTH/2)
#define SCREEN_HH (SCREEN_HEIGHT/2)
// amount of blocks @ screen
#define NBLOCKS (16)
// pause to show a quater of screen - 10ms (25Hz framerate)
#define SCREEN_PAUSE (3)
typedef enum{ // screen states
SCREEN_RELAX, // nothing to do (screen is off)
SCREEN_ACTIVE, // transmission active
SCREEN_UPDATENXT // update next quarter
} screen_state;
// colors
#define COLOR_BLACK (0b00000000)
#define COLOR_WHITE (0b11111111)
#define COLOR_GRAY (0b01101101)
#define COLOR_LGRAY (0b10110110)
#define COLOR_BLUE (0b00000011)
#define COLOR_LBLUE (0b00000001)
#define COLOR_GREEN (0b00011100)
#define COLOR_LGREEN (0b00001100)
#define COLOR_RED (0b11100000)
#define COLOR_LRED (0b01100000)
#define COLOR_CYAN (0b00011111)
#define COLOR_LCYAN (0b00000101)
#define COLOR_PURPLE (0b11100011)
#define COLOR_LPURPLE (0b01100001)
#define COLOR_YELLOW (0b11111100)
#define COLOR_LYELLOW (0b00100100)
extern uint32_t score; // current game score
extern uint8_t screenbuf[SCREENBUF_SZ];
extern uint32_t StepMS, Tlast, incSpd; // common for all games timer values
screen_state getScreenState();
void ClearScreen();
void setBGcolor(uint8_t c);
void setFGcolor(uint8_t c);
void DrawPix(int16_t X, int16_t Y, uint8_t pix);
void InvertPix(int16_t X, int16_t Y);
void XORPix(int16_t X, int16_t Y, uint8_t pix);
uint8_t GetPix(int16_t X, int16_t Y);
uint8_t DrawCharAt(int16_t X, int16_t Y, uint8_t Char);
uint8_t PutStringAt(int16_t X, int16_t Y, const char *str);
uint8_t CenterStringAt(int16_t Y, const char *str);
int strpixlen(const char *str);
uint8_t *getScreenBuf();
void process_screen();
void ScreenON();
void ScreenOFF();
uint32_t getFPS();
uint8_t RGB2pack(const uint8_t *RGB);
uint8_t *pack2RGB(uint8_t pack);
#endif // SCREEN_H__

255
F1:F103/Tetris/snake.c Normal file
View File

@@ -0,0 +1,255 @@
/*
* This file is part of the TETRIS project.
* Copyright 2021 Edward V. Emelianov <edward.emelianoff@gmail.com>.
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
#include "adcrandom.h"
#include "buttons.h"
#include "screen.h"
#include "snake.h"
#include "usb.h"
#include "proto.h"
#define SNAKE_MAXLEN (128)
// colors RRRGGGBB
#define SNAKE_BGCOLOR (0)
#define SNAKE_HEADCOLOR (0b00001100)
#define SNAKE_COLOR (0b00000100)
// food: +1 to size
#define FOOD_COLOR (0b00001101)
// cut - -1 to size
#define CUT_COLOR (0b00011100)
// chance of CUT appears when drawing food (/1000)
#define CUT_PROMILLE (80)
// score - +10 to score
#define SCORE_COLOR (0b00100100)
// add this to score after each SCORE_COLOR eating
#define ADDSCORE (25)
// chance of SCORE appears when doing move (1/1000)
#define SCORE_PROMILLE (15)
// border
#define BORDER_COLOR (0b00100000)
// max and min pause between steps
#define MAXSTEPMS (199)
#define MINSTEPMS (4)
extern uint32_t Tms;
typedef struct{
uint8_t x;
uint8_t y;
} point;
static point snake[SNAKE_MAXLEN];
static int8_t dirX, dirY;
static uint8_t snakelen;
static point Food;
static point RandCoords(){
point pt = {0,0};
for(int i = 0; i < 10000; ++i){ // not more than 10000 tries
pt.x = 1 + getRand() % (SCREEN_WIDTH-2);
pt.y = 1 + getRand() % (SCREEN_HEIGHT-2);
if(GetPix(pt.x, pt.y) == SNAKE_BGCOLOR) break;
};
return pt;
}
// return 0 if failed
static int ThrowFood(){
Food = RandCoords();
if(Food.x == 0 && Food.y == 0) return 0;
DrawPix(Food.x, Food.y, FOOD_COLOR);
if(getRand() % 1000 < CUT_PROMILLE){
point p = RandCoords();
if(p.x == 0 && p.y == 0) return 1;
DrawPix(p.x, p.y, CUT_COLOR);
}
return 1;
}
/*
static void draw_snake(){
USB_send("\n\n\nDraw snake, len="); USB_send(u2str(snakelen)); USB_send("\n");
DrawPix(snake[0].x, snake[0].y, SNAKE_HEADCOLOR);
USB_send(u2str(snake[0].x)); USB_send("-"); USB_send(u2str(snake[0].y)); USB_send(" ");
for(int i = 1; i < snakelen; ++i){
DrawPix(snake[i].x, snake[i].y, SNAKE_COLOR);
USB_send(u2str(snake[i].x)); USB_send("-"); USB_send(u2str(snake[i].y)); USB_send(" ");
}
USB_send("\n");
}*/
void snake_init(){
setBGcolor(SNAKE_BGCOLOR);
ClearScreen();
ScreenON();
snakelen = 1;
snake[0].x = SCREEN_HW;
snake[0].y = SCREEN_HH;
// draw border
for(int i = 0; i < SCREEN_WIDTH; ++i){
DrawPix(i, 0, BORDER_COLOR);
DrawPix(i, SCREEN_HEIGHT-1, BORDER_COLOR);
}
for(int i = 1; i < SCREEN_HEIGHT-1; ++i){
DrawPix(0, i, BORDER_COLOR);
DrawPix(SCREEN_WIDTH-1, i, BORDER_COLOR);
}
ThrowFood();
// starting moving direction
switch(getRand() % 4){
case 0:
dirX = 1; dirY = 0;
break;
case 1:
dirX = -1; dirY = 0;
break;
case 2:
dirX = 0; dirY = 1;
break;
case 3:
dirX = 0; dirY = -1;
break;
}
StepMS = MAXSTEPMS;
Tlast = Tms; incSpd = 0;
score = 0;
DrawPix(snake[0].x, snake[0].y, SNAKE_HEADCOLOR);
USB_send("Snake inited\n");
}
// return 0 if failed
static int move_snake(){
int last = snakelen - 1;
point tail = {snake[last].x, snake[last].y};
DrawPix(Food.x, Food.y, FOOD_COLOR); // redraw food
DrawPix(snake[0].x, snake[0].y, SNAKE_COLOR); // redraw head with body color
DrawPix(tail.x, tail.y, SNAKE_BGCOLOR); // delete tail
for(int i = snakelen-1; i > 0; --i){
snake[i] = snake[i-1];
}
snake[0].x += dirX; snake[0].y += dirY;
uint8_t nxtcolr = GetPix(snake[0].x, snake[0].y);
DrawPix(snake[0].x, snake[0].y, SNAKE_HEADCOLOR); // and draw head
if(nxtcolr != SNAKE_BGCOLOR){ // barrier
USB_send("barrier: "); USB_send(u2str(nxtcolr)); USB_send("\n");
if(nxtcolr == SNAKE_COLOR || nxtcolr == BORDER_COLOR){ // border - game over
if(nxtcolr == SNAKE_COLOR) USB_send("slum into yourself\n");
else USB_send("crush into border\n");
return 0;
}else if(nxtcolr == CUT_COLOR && snakelen > 1){ // make snake shorter
--snakelen;
DrawPix(snake[snakelen].x, snake[snakelen].y, SNAKE_BGCOLOR);
}else if(nxtcolr == SCORE_COLOR){ // add score
score += ADDSCORE;
}
// not border or snake -> FOOD?!
if(snake[0].x == Food.x && snake[0].y == Food.y){ // increase snake len & speed & score
score += snakelen;
if(StepMS > MINSTEPMS) --StepMS;
if(snakelen < SNAKE_MAXLEN){
snake[snakelen] = tail;
++snakelen;
DrawPix(tail.x, tail.y, SNAKE_COLOR);
}
if(!ThrowFood()) return 0;
USB_send("Got food, score="); USB_send(u2str(score));
USB_send(", len="); USB_send(u2str(snakelen));
USB_send(", speed="); USB_send(u2str(StepMS));
USB_send("\n");
}
}
// check borders: they could be broken when `balls` activated
if(snake[0].x >= SCREEN_WIDTH || snake[0].y >= SCREEN_HEIGHT) return 0;
if(getRand() % 1000 < SCORE_PROMILLE){ // add ++score
point pt = RandCoords();
if(pt.x && pt.y)
DrawPix(pt.x, pt.y, SCORE_COLOR);
}
return 1;
}
#define SETDIR(dx, dy) do{dirY = dy; dirX = dx; incSpd = 0;}while(0)
#define INCRSPD() do{if(StepMS > 5*MINSTEPMS){if(incSpd == 0) incSpd = MAXSTEPMS/5; else incSpd += incSpd / 5; \
if(StepMS < incSpd + 5*MINSTEPMS) incSpd = StepMS - 5*MINSTEPMS;}}while(0)
#define DECRSPD() do{incSpd /= 2;}while(0)
// return 0 if game over
int snake_proces(){
keyevent evt;
static uint8_t paused = 0;
// change moving direction
if(keystate(KEY_U, &evt)){ // UP
if(evt == EVT_PRESS){ if(dirY != 1) SETDIR(0, -1);}
}
if(keystate(KEY_D, &evt)){ // Down
if(evt == EVT_PRESS){ if(dirY != -1) SETDIR(0, 1);}
}
if(keystate(KEY_L, &evt)){ // Left
if(evt == EVT_PRESS){ if(dirX != 1) SETDIR(-1, 0);}
}
if(keystate(KEY_R, &evt) && (evt == EVT_PRESS || evt == EVT_HOLD)){ // Right
if(evt == EVT_PRESS){ if(dirX != -1) SETDIR(1, 0);}
}
if(keystate(KEY_M, &evt) && (evt == EVT_PRESS || evt == EVT_HOLD)){ // Menu - Pause or out
if(3 == ++paused){
USB_send("Exit snake\n");
clear_events();
paused = 0;
return 0;
}
}
if(keystate(KEY_S, &evt) && (evt == EVT_PRESS || evt == EVT_HOLD)){ // Set - Pause
if(paused){
USB_send("Snake resume\n");
paused = 0;
}else{
USB_send("Snake paused\n");
paused = 1;
}
}
clear_events();
if(Tms - Tlast > StepMS - incSpd){ // move @ redraw
Tlast = Tms;
if(paused) return 1;
if(keyevt(KEY_U) == EVT_HOLD){
if(dirY == -1) INCRSPD();
else DECRSPD();
USB_send(u2str(incSpd)); USB_send("\n");
}else if(keyevt(KEY_D) == EVT_HOLD){
if(dirY == 1) INCRSPD();
else DECRSPD();
USB_send(u2str(incSpd)); USB_send("\n");
}else if(keyevt(KEY_L) == EVT_HOLD){
if(dirX == -1) INCRSPD();
else DECRSPD();
USB_send(u2str(incSpd)); USB_send("\n");
}else if(keyevt(KEY_R) == EVT_HOLD){
if(dirX == 1) INCRSPD();
else DECRSPD();
USB_send(u2str(incSpd)); USB_send("\n");
}
if(!move_snake()){
USB_send("Snake game over\n");
paused = 0;
return 0;
}
}
return 1;
}

25
F1:F103/Tetris/snake.h Normal file
View File

@@ -0,0 +1,25 @@
/*
* This file is part of the TETRIS project.
* Copyright 2021 Edward V. Emelianov <edward.emelianoff@gmail.com>.
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
#pragma once
#ifndef SNAKE_H__
#define SNAKE_H__
void snake_init();
int snake_proces();
#endif // SNAKE_H__

379
F1:F103/Tetris/tetris.c Normal file
View File

@@ -0,0 +1,379 @@
/*
* This file is part of the TETRIS project.
* Copyright 2021 Edward V. Emelianov <edward.emelianoff@gmail.com>.
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
#include "adcrandom.h"
#include "buttons.h"
#include "debug.h"
#include "fonts.h"
#include "screen.h"
#include "tetris.h"
// backround color
#define BACKGROUND_COLOR (COLOR_BLACK)
#define FOREGROUND_COLOR (COLOR_LYELLOW)
#define CUP_COLOR (COLOR_LRED)
// height of cup
#define CUPHEIGHT (31)
#define CUPWIDTH (14)
// screen coordinate of x=0 @ cup
#define CUPX0 (7)
// screen coordinate of y=0 @ cup (Y grows upside down)
#define CUPY0 (0)
// coordinates of "NEXT figure"
#define NEXTX0 (-5)
#define NEXTY0 (SCREEN_HEIGHT/2-2)
#define xmax (CUPWIDTH-1)
#define ymax (CUPHEIGHT-1)
// min speed
#define MAXSTEPMS (299)
// max speed / drop speed
#define MINSTEPMS (19)
// each NXTSPEEDSCORE of score the speed will be increased
#define NXTSPEEDSCORE (50)
extern uint32_t Tms;
// get coordinates by figure member
#define GETX(u) (((u) >> 4) - 2)
#define GETY(u) (((u) & 0xf) - 2)
typedef struct{
uint8_t f[4];
uint8_t color;
} figure;
// L: 00, 01, 02, 10 + 2 = 0x22, 0x23, 0x24, 0x32
static const figure L = {
.f = {0x22, 0x23, 0x24, 0x32},
.color = 0b00000001
};
// J: 00, 01, 02, -10 + 2 = 0x22, 0x23, 0x24, 0x12
static const figure J = {
.f = {0x22, 0x23, 0x24, 0x12},
.color = 0b00000001
};
// O: 00, 01, 10, 11 + 2 = 0x22, 0x23, 0x32, 0x33
static const figure O = {
.f = {0x22, 0x23, 0x32, 0x33},
.color = 0b00000101
};
// I: 0-1, 00, 01, 02 + 2 = 0x21, 0x22, 0x23, 0x24
static const figure I = {
.f = {0x21, 0x22, 0x23, 0x24},
.color = 0b00100000
};
// S: -10, 00, 01, 11 + 2 = 0x12, 0x22, 0x23, 0x33
static const figure S = {
.f = {0x12, 0x22, 0x23, 0x33},
.color = 0b00000100
};
// Z: -11, 01, 00, 10 + 2 = 0x13, 0x23, 0x22, 0x32
static const figure Z = {
.f = {0x13, 0x23, 0x22, 0x32},
.color = 0b00000100
};
// T: -10, 01, 00, 10 + 2 = 0x12, 0x23, 0x22, 0x32
static const figure T = {
.f = {0x12, 0x23, 0x22, 0x32},
.color = 0b00100101
};
#define FIGURESNUM (7)
static const figure *figures[FIGURESNUM] = {&L, &J, &O, &I, &S, &Z, &T};
static figure curfigure, nextfigure;
// current figure coordinates
static int xf, yf;
// next score the speed will be encreased
static uint32_t nextSpeedScore = 0;
// chk if figure can be put to (x,y); @return 1 if empty
static int chkfigure(int x, int y, const figure *F){
DBG("CHKFIG: x="); DBGU(x); DBG(", y="); DBGU(y); DBG(" ... ");
if(x < 0 || x > xmax){
DBG("x<0 || >xmax\n");
return 0;
}
if(y < 0 || y > ymax){
DBG("y<0 || > ymax\n");
return 0;
}
for(int i = 0; i < 4; ++i){
int xn = x + GETX(F->f[i]), yn = y + GETY(F->f[i]);
if(yn > ymax){
DBG("y > ymax\n");
return 0;
}
if(xn < 0 || xn > xmax){ // border
DBG("x out of borders\n");
return 0;
}
if(GetPix(CUPX0 + xn, CUPY0 + yn) != BACKGROUND_COLOR){ // occupied
DBG("occupied\n");
return 0;
}
}
DBG("good\n");
return 1;
}
// clear figure from old location
static void clearfigure(int x, int y){
DBG("Clear @ "); DBGU(x); DBG(", "); DBGU(y); NL();
for(int i = 0; i < 4; ++i){
int xn = x + GETX(curfigure.f[i]), yn = y + GETY(curfigure.f[i]);
//if(xn < 0 || xn > xmax || yn < 0 || yn > ymax) continue; // out of cup
DrawPix(CUPX0 + xn, CUPY0 + yn, BACKGROUND_COLOR);
}
}
// put figure into new location
static void putfigure(int x, int y, figure *F){
DBG("Put @ "); DBGU(x); DBG(", "); DBGU(y); NL();
for(int i = 0; i < 4; ++i){
int xn = x + GETX(F->f[i]), yn = y + GETY(F->f[i]);
//if(xn < 0 || xn > xmax || yn < 0 || yn > ymax) continue; // out of cup
DrawPix(CUPX0 + xn, CUPY0 + yn, F->color);
}
}
// dir=-1 - right, =1 - left
static void rotatefigure(int dir, figure *F){
figure nF = {.color = F->color};
for(int i = 0; i < 4; ++i){
int x = GETX(F->f[i]), y = GETY(F->f[i]), xn, yn;
if(dir > 0){ // CW
xn = y; yn = -x;
DBG("Rotate CW\n");
}else if(dir < 0){ // CCW
xn = -y; yn = x;
DBG("Rotate CCW\n");
}
nF.f[i] = ((xn + 2) << 4) | (yn + 2);
}
*F = nF;
}
// check cup for full lines & delete them; return number of deleted lines
static int checkandroll(){
int upper = 0, ret = 0;
for(int y = 0; y < CUPHEIGHT; ++y){
int N = 0;
for(int x = 0; x < CUPWIDTH; ++x)
if(GetPix(CUPX0 + x, CUPY0 + y) != BACKGROUND_COLOR) ++N;
if(N == 0) upper = y;
else if(N == CUPWIDTH){ // full line - roll all upper
DBG("========= Full row! ========= "); DBG("y="); DBGU(y); DBG(", upper="); DBGU(upper); NL();
++ret;
for(int yy = y; yy > upper; --yy){
uint8_t *ptr = &screenbuf[(yy+CUPY0)*SCREEN_WIDTH + CUPX0];
for(int x = 0; x < CUPWIDTH; ++x, ++ptr)
*ptr = ptr[-SCREEN_WIDTH]; // copy upper row into the current
}
++upper;
}
}
DBG("Roll="); DBGU(ret); NL();
return ret;
}
// get random number of next figure
static int getrand(){
static int oldnum[2] = {-1, -1};
int r = getRand() % FIGURESNUM;
if(r == oldnum[1]) r = getRand() % FIGURESNUM;
if(r == oldnum[0]) r = getRand() % FIGURESNUM;
oldnum[0] = oldnum[1];
oldnum[1] = r;
return r;
}
// return 0 if cannot move by y
static int mvfig(int *x, int *y, int dx){
register int xx = *x, yy = *y;
DBG("MVFIG: x="); DBGU(*x); DBG(", y="); DBGU(*y); DBG(", dx="); DBGU(dx); NL();
int ret = 1;
clearfigure(xx, yy);
// check dx:
if(dx){
int step = 1;
if(dx < 0){step = -1; dx = -dx;}
while(dx){
if(chkfigure(xx + step, yy, &curfigure)){
xx = xx + step; *x = xx;
}else break;
--dx;
}
}
if(chkfigure(xx, yy+1, &curfigure)){
++yy; *y = yy;
}else ret = 0;
putfigure(xx, yy, &curfigure);
return ret;
}
// dir == -1 - left, 1 - right
static void rotfig(int x, int y, int dir){
if(!dir) return;
DBG("Rotate "); DBGU(dir); NL();
figure newF = curfigure;
rotatefigure(dir, &newF);
clearfigure(x, y);
if(chkfigure(x, y, &newF)){ // can rotate - substitute old figure with new
curfigure = newF;
}
putfigure(x, y, &curfigure);
}
// draw current & next figures; return 0 if can't
static int drawnext(){
DBG("\n\nDraw next figure\n");
curfigure = nextfigure;
clearfigure(NEXTX0, NEXTY0); // clear NEXT
nextfigure = *figures[getrand()];
putfigure(NEXTX0, NEXTY0, &nextfigure);
xf = xmax/2; yf = 1;
if(!chkfigure(xf, yf, &curfigure)) return 0; // can't draw next
putfigure(xf, yf, &curfigure);
Tlast = Tms;
incSpd = StepMS;
return 1;
}
void tetris_init(){
setBGcolor(BACKGROUND_COLOR);
setFGcolor(FOREGROUND_COLOR);
choose_font(FONTN8);
ClearScreen();
ScreenON();
score = 0;
nextSpeedScore = NXTSPEEDSCORE;
StepMS = MAXSTEPMS;
// draw cup
for(int y = 0; y < CUPHEIGHT; ++y){
DrawPix(CUPX0-1, CUPY0 + y, CUP_COLOR);
DrawPix(CUPX0 + CUPWIDTH, CUPY0 + y, CUP_COLOR);
}
for(int x = 0; x < CUPWIDTH + 2; ++x)
DrawPix(CUPX0 - 1 + x, CUPY0 + CUPHEIGHT, CUP_COLOR);
nextfigure = *figures[getrand()];
PutStringAt(CUPX0 + CUPWIDTH + 3, CUPY0 + 3 + curfont->height, "SCORE:");
PutStringAt(CUPX0 + CUPWIDTH + 3, CUPY0 + 3 + 2*curfont->height, "0 ");
drawnext();
}
// process tetris game; @return 0 if game is over
int tetris_process(){
static int moveX = 0, rot = 0;
static uint8_t paused = 0;
keyevent evt;
if(Tms == Tlast) return 1;
#define PRESS(x) (keystate(x, &evt) && evt == EVT_PRESS)
#define HOLD(x) (keyevt(x) == EVT_HOLD)
// change moving direction
if(keystate(KEY_U, &evt) && (evt == EVT_PRESS || evt == EVT_HOLD)){ // UP - pause
if(paused){
DBG("----> Tetris resume\n");
paused = 0;
}else{
DBG("----> Tetris paused\n");
paused = 1;
}
}
if(!paused){
if(keystate(KEY_D, &evt) && evt == EVT_PRESS){ // Down - drop
incSpd = MINSTEPMS;
}
if(PRESS(KEY_L)) // L - left
moveX = -1;
else if(HOLD(KEY_L))
moveX = -2;
if(PRESS(KEY_R)) // Right
moveX = 1;
else if(HOLD(KEY_R))
moveX = 2;
if(PRESS(KEY_M)){ // Menu - rotate CCW
rot = 1;
}
if(PRESS(KEY_S)){ // Set - rotate CW
rot = -1;
}
}
#undef PRESS
#undef HOLD
clear_events();
if(Tms - Tlast > incSpd){
Tlast = Tms;
if(paused) return 1;
int xnew = xf, ynew = yf;
if(rot){
rotfig(xf, yf, rot);
rot = 0;
}
DBG("Move down 1px\n");
if(!mvfig(&xnew, &ynew, moveX)){ // can't move: end of moving?
moveX = 0;
int s = checkandroll();
switch(s){ // add score
case 1:
score += 1;
DBG("One line!\n");
break;
case 2:
score += 3;
DBG("Two lines!\n");
break;
case 3:
score += 7;
DBG("Three lines!\n");
break;
case 4:
score += 15;
DBG("Four lines!\n");
break;
default:
break;
}
DBG("Score: "); DBG(u2str(score)); DBG("\n");
if(s){
setBGcolor(BACKGROUND_COLOR);
setFGcolor(FOREGROUND_COLOR);
choose_font(FONTN8);
uint8_t l = PutStringAt(CUPX0 + CUPWIDTH + 3, CUPY0 + 3 + 2*curfont->height, u2str(score));
PutStringAt(l+CUPX0 + CUPWIDTH + 3, CUPY0 + 3 + 2*curfont->height, " ");
}
if(StepMS > MINSTEPMS && score > nextSpeedScore){ // increase speed
--StepMS;
nextSpeedScore += NXTSPEEDSCORE;
DBG("Increase speed, StepMS="); DBG(u2str(StepMS)); DBG("\n");
}
if(!drawnext()) return 0;
}else{
moveX = 0;
xf = xnew; yf = ynew;
}
}
return 1;
}

25
F1:F103/Tetris/tetris.h Normal file
View File

@@ -0,0 +1,25 @@
/*
* This file is part of the TETRIS project.
* Copyright 2021 Edward V. Emelianov <edward.emelianoff@gmail.com>.
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
#pragma once
#ifndef TETRIS_H__
#define TETRIS_H__
void tetris_init();
int tetris_process();
#endif // TETRIS_H__

167
F1:F103/Tetris/usb.c Normal file
View File

@@ -0,0 +1,167 @@
/*
* This file is part of the TETRIS project.
* Copyright 2021 Edward V. Emelianov <edward.emelianoff@gmail.com>.
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
#include "usb.h"
#include "usb_lib.h"
static volatile uint8_t tx_succesfull = 1;
static volatile uint8_t rxNE = 0;
static int sstrlen(const char *s){
if(!s) return 0;
int l = 0;
while(*s++) ++l;
return l;
}
// interrupt IN handler (never used?)
static void EP1_Handler(){
uint16_t epstatus = KEEP_DTOG(USB->EPnR[1]);
if(RX_FLAG(epstatus)) epstatus = (epstatus & ~USB_EPnR_STAT_TX) ^ USB_EPnR_STAT_RX; // set valid RX
else epstatus = epstatus & ~(USB_EPnR_STAT_TX|USB_EPnR_STAT_RX);
// clear CTR
epstatus = (epstatus & ~(USB_EPnR_CTR_RX|USB_EPnR_CTR_TX));
USB->EPnR[1] = epstatus;
}
// data IN/OUT handlers
static void transmit_Handler(){ // EP3IN
tx_succesfull = 1;
uint16_t epstatus = KEEP_DTOG_STAT(USB->EPnR[3]);
// clear CTR keep DTOGs & STATs
USB->EPnR[3] = (epstatus & ~(USB_EPnR_CTR_TX)); // clear TX ctr
}
static void receive_Handler(){ // EP2OUT
rxNE = 1;
uint16_t epstatus = KEEP_DTOG_STAT(USB->EPnR[2]);
USB->EPnR[2] = (epstatus & ~(USB_EPnR_CTR_RX)); // clear RX ctr
}
void USB_setup(){
NVIC_DisableIRQ(USB_LP_CAN1_RX0_IRQn);
NVIC_DisableIRQ(USB_HP_CAN1_TX_IRQn);
RCC->APB1ENR |= RCC_APB1ENR_USBEN;
USB->CNTR = USB_CNTR_FRES; // Force USB Reset
for(uint32_t ctr = 0; ctr < 72000; ++ctr) nop(); // wait >1ms
//uint32_t ctr = 0;
USB->CNTR = 0;
USB->BTABLE = 0;
USB->DADDR = 0;
USB->ISTR = 0;
USB->CNTR = USB_CNTR_RESETM | USB_CNTR_WKUPM; // allow only wakeup & reset interrupts
NVIC_EnableIRQ(USB_LP_CAN1_RX0_IRQn);
}
static int usbwr(const char *buf, int l){
uint32_t ctra = 1000000;
while(--ctra && tx_succesfull == 0){
IWDG->KR = IWDG_REFRESH;
}
tx_succesfull = 0;
EP_Write(3, (uint8_t*)buf, l);
ctra = 1000000;
while(--ctra && tx_succesfull == 0){
IWDG->KR = IWDG_REFRESH;
}
if(tx_succesfull == 0){usbON = 0; return 1;} // usb is OFF?
return 0;
}
static char usbbuff[USB_TXBUFSZ-1]; // temporary buffer (63 - to prevent need of ZLP)
static int buflen = 0; // amount of symbols in usbbuff
// send next up to 63 bytes of data in usbbuff
static void send_next(){
if(!buflen || !tx_succesfull) return;
tx_succesfull = 0;
EP_Write(3, (uint8_t*)usbbuff, buflen);
buflen = 0;
}
// unblocking sending - just fill a buffer
void USB_send(const char *buf){
int len = sstrlen(buf);
if(!usbON || !len) return;
if(len > USB_TXBUFSZ-1 - buflen){
usbwr(usbbuff, buflen);
buflen = 0;
}
if(len > USB_TXBUFSZ-1){
USB_send_blk(buf, len);
return;
}
while(len--) usbbuff[buflen++] = *buf++;
}
// blocking sending
void USB_send_blk(const char *buf, int len){
if(!usbON || !len) return; // USB disconnected
if(buflen){
usbwr(usbbuff, buflen);
buflen = 0;
}
int needzlp = 0;
while(len){
if(len == USB_TXBUFSZ) needzlp = 1;
int s = (len > USB_TXBUFSZ) ? USB_TXBUFSZ : len;
if(usbwr(buf, s)) return;
len -= s;
buf += s;
}
if(needzlp){
usbwr(NULL, 0);
}
}
void usb_proc(){
switch(USB_Dev.USB_Status){
case USB_STATE_CONFIGURED:
// make new BULK endpoint
// Buffer have 1024 bytes, but last 256 we use for CAN bus (30.2 of RM: USB main features)
EP_Init(1, EP_TYPE_INTERRUPT, USB_EP1BUFSZ, 0, EP1_Handler); // IN1 - transmit
EP_Init(2, EP_TYPE_BULK, 0, USB_RXBUFSZ, receive_Handler); // OUT2 - receive data
EP_Init(3, EP_TYPE_BULK, USB_TXBUFSZ, 0, transmit_Handler); // IN3 - transmit data
USB_Dev.USB_Status = USB_STATE_CONNECTED;
break;
case USB_STATE_DEFAULT:
case USB_STATE_ADDRESSED:
if(usbON){
usbON = 0;
}
break;
default: // USB_STATE_CONNECTED - send next data portion
if(!usbON) return;
send_next();
}
}
/**
* @brief USB_receive
* @param buf (i) - buffer[64] for received data
* @return amount of received bytes
*/
int USB_receive(char *buf){
if(!usbON || !rxNE) return 0;
int sz = EP_Read(2, (uint16_t*)buf);
uint16_t epstatus = KEEP_DTOG(USB->EPnR[2]);
// keep stat_tx & set ACK rx
USB->EPnR[2] = (epstatus & ~(USB_EPnR_STAT_TX)) ^ USB_EPnR_STAT_RX;
rxNE = 0;
return sz;
}

33
F1:F103/Tetris/usb.h Normal file
View File

@@ -0,0 +1,33 @@
/*
* This file is part of the TETRIS project.
* Copyright 2021 Edward V. Emelianov <edward.emelianoff@gmail.com>.
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
#pragma once
#ifndef __USB_H__
#define __USB_H__
#include "hardware.h"
#define BUFFSIZE (64)
void USB_setup();
void usb_proc();
void USB_send(const char *buf);
void USB_send_blk(const char *buf, int len);
int USB_receive(char *buf);
#endif // __USB_H__

102
F1:F103/Tetris/usb_defs.h Normal file
View File

@@ -0,0 +1,102 @@
/*
* This file is part of the TETRIS project.
* Copyright 2021 Edward V. Emelianov <edward.emelianoff@gmail.com>.
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
#pragma once
#ifndef __USB_DEFS_H__
#define __USB_DEFS_H__
#include <stm32f1.h>
// max endpoints number
#define STM32ENDPOINTS 8
/**
* Buffers size definition
**/
#define USB_BTABLE_SIZE 512
// first 64 bytes of USB_BTABLE are registers!
//#define USB_EP0_BASEADDR 64
// for USB FS EP0 buffers are from 8 to 64 bytes long (64 for PL2303)
#define USB_EP0_BUFSZ 64
// USB transmit buffer size (64 for PL2303)
#define USB_TXBUFSZ 64
// USB receive buffer size (64 for PL2303)
#define USB_RXBUFSZ 64
// EP1 - interrupt - buffer size
#define USB_EP1BUFSZ 8
#define USB_BTABLE_BASE 0x40006000
#define USB_BASE ((uint32_t)0x40005C00)
#define USB ((USB_TypeDef *) USB_BASE)
#ifdef USB_BTABLE
#undef USB_BTABLE
#endif
#define USB_BTABLE ((USB_BtableDef *)(USB_BTABLE_BASE))
#define USB_ISTR_EPID 0x0000000F
#define USB_FNR_LSOF_0 0x00000800
#define USB_FNR_lSOF_1 0x00001000
#define USB_LPMCSR_BESL_0 0x00000010
#define USB_LPMCSR_BESL_1 0x00000020
#define USB_LPMCSR_BESL_2 0x00000040
#define USB_LPMCSR_BESL_3 0x00000080
#define USB_EPnR_CTR_RX 0x00008000
#define USB_EPnR_DTOG_RX 0x00004000
#define USB_EPnR_STAT_RX 0x00003000
#define USB_EPnR_STAT_RX_0 0x00001000
#define USB_EPnR_STAT_RX_1 0x00002000
#define USB_EPnR_SETUP 0x00000800
#define USB_EPnR_EP_TYPE 0x00000600
#define USB_EPnR_EP_TYPE_0 0x00000200
#define USB_EPnR_EP_TYPE_1 0x00000400
#define USB_EPnR_EP_KIND 0x00000100
#define USB_EPnR_CTR_TX 0x00000080
#define USB_EPnR_DTOG_TX 0x00000040
#define USB_EPnR_STAT_TX 0x00000030
#define USB_EPnR_STAT_TX_0 0x00000010
#define USB_EPnR_STAT_TX_1 0x00000020
#define USB_EPnR_EA 0x0000000F
#define USB_COUNTn_RX_BLSIZE 0x00008000
#define USB_COUNTn_NUM_BLOCK 0x00007C00
#define USB_COUNTn_RX 0x0000003F
#ifdef USB_TypeDef
#define USB_TypeDef USB_TypeDef_custom
#endif
typedef struct {
__IO uint32_t EPnR[STM32ENDPOINTS];
__IO uint32_t RESERVED[STM32ENDPOINTS];
__IO uint32_t CNTR;
__IO uint32_t ISTR;
__IO uint32_t FNR;
__IO uint32_t DADDR;
__IO uint32_t BTABLE;
} USB_TypeDef;
typedef struct{
__IO uint32_t USB_ADDR_TX;
__IO uint32_t USB_COUNT_TX;
__IO uint32_t USB_ADDR_RX;
__IO uint32_t USB_COUNT_RX;
} USB_EPDATA_TypeDef;
typedef struct{
__IO USB_EPDATA_TypeDef EP[STM32ENDPOINTS];
} USB_BtableDef;
#endif // __USB_DEFS_H__

476
F1:F103/Tetris/usb_lib.c Normal file
View File

@@ -0,0 +1,476 @@
/*
* This file is part of the TETRIS project.
* Copyright 2021 Edward V. Emelianov <edward.emelianoff@gmail.com>.
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
#include <stdint.h>
#include "usb_lib.h"
ep_t endpoints[STM32ENDPOINTS];
usb_dev_t USB_Dev;
static usb_LineCoding lineCoding = {115200, 0, 0, 8};
static config_pack_t setup_packet;
static uint8_t ep0databuf[EP0DATABUF_SIZE];
static uint8_t ep0dbuflen = 0;
usb_LineCoding getLineCoding(){return lineCoding;}
uint8_t usbON = 0; // device disconnected from terminal
// definition of parts common for USB_DeviceDescriptor & USB_DeviceQualifierDescriptor
#define bcdUSB_L 0x10
#define bcdUSB_H 0x01
#define bDeviceClass 0
#define bDeviceSubClass 0
#define bDeviceProtocol 0
#define bNumConfigurations 1
static const uint8_t USB_DeviceDescriptor[] = {
18, // bLength
0x01, // bDescriptorType - Device descriptor
bcdUSB_L, // bcdUSB_L - 1.10
bcdUSB_H, // bcdUSB_H
bDeviceClass, // bDeviceClass - USB_COMM
bDeviceSubClass, // bDeviceSubClass
bDeviceProtocol, // bDeviceProtocol
USB_EP0_BUFSZ, // bMaxPacketSize
0x7b, // idVendor_L PL2303: VID=0x067b, PID=0x2303
0x06, // idVendor_H
0x03, // idProduct_L
0x23, // idProduct_H
0x00, // bcdDevice_Ver_L
0x03, // bcdDevice_Ver_H
0x01, // iManufacturer
0x02, // iProduct
0x00, // iSerialNumber
bNumConfigurations // bNumConfigurations
};
static const uint8_t USB_DeviceQualifierDescriptor[] = {
10, //bLength
0x06, // bDescriptorType - Device qualifier
bcdUSB_L, // bcdUSB_L
bcdUSB_H, // bcdUSB_H
bDeviceClass, // bDeviceClass
bDeviceSubClass, // bDeviceSubClass
bDeviceProtocol, // bDeviceProtocol
USB_EP0_BUFSZ, // bMaxPacketSize0
bNumConfigurations, // bNumConfigurations
0x00 // Reserved
};
static const uint8_t USB_ConfigDescriptor[] = {
/*Configuration Descriptor*/
0x09, /* bLength: Configuration Descriptor size */
0x02, /* bDescriptorType: Configuration */
39, /* wTotalLength:no of returned bytes */
0x00,
0x01, /* bNumInterfaces: 1 interface */
0x01, /* bConfigurationValue: Configuration value */
0x00, /* iConfiguration: Index of string descriptor describing the configuration */
0xa0, /* bmAttributes - Bus powered, Remote wakeup */
0x32, /* MaxPower 100 mA */
/*---------------------------------------------------------------------------*/
/*Interface Descriptor */
0x09, /* bLength: Interface Descriptor size */
0x04, /* bDescriptorType: Interface */
0x00, /* bInterfaceNumber: Number of Interface */
0x00, /* bAlternateSetting: Alternate setting */
0x03, /* bNumEndpoints: 3 endpoints used */
0xff, /* bInterfaceClass */
0x00, /* bInterfaceSubClass */
0x00, /* bInterfaceProtocol */
0x00, /* iInterface: */
///////////////////////////////////////////////////
/*Endpoint 1 Descriptor*/
0x07, /* bLength: Endpoint Descriptor size */
0x05, /* bDescriptorType: Endpoint */
0x81, /* bEndpointAddress IN1 */
0x03, /* bmAttributes: Interrupt */
0x0a, /* wMaxPacketSize LO: */
0x00, /* wMaxPacketSize HI: */
0x01, /* bInterval: */
/*Endpoint OUT2 Descriptor*/
0x07, /* bLength: Endpoint Descriptor size */
0x05, /* bDescriptorType: Endpoint */
0x02, /* bEndpointAddress: OUT2 */
0x02, /* bmAttributes: Bulk */
(USB_RXBUFSZ & 0xff), /* wMaxPacketSize: 64 */
(USB_RXBUFSZ >> 8),
0x00, /* bInterval: ignore for Bulk transfer */
/*Endpoint IN3 Descriptor*/
0x07, /* bLength: Endpoint Descriptor size */
0x05, /* bDescriptorType: Endpoint */
0x83, /* bEndpointAddress IN3 */
0x02, /* bmAttributes: Bulk */
(USB_TXBUFSZ & 0xff), /* wMaxPacketSize: 64 */
(USB_TXBUFSZ >> 8),
0x00, /* bInterval: ignore for Bulk transfer */
};
_USB_LANG_ID_(USB_StringLangDescriptor, LANG_US);
// these descriptors are not used in PL2303 emulator!
_USB_STRING_(USB_StringSerialDescriptor, u"0");
_USB_STRING_(USB_StringManufacturingDescriptor, u"Prolific Technology Inc.");
_USB_STRING_(USB_StringProdDescriptor, u"USB-Serial Controller");
/*
* default handlers
*/
// SET_LINE_CODING
void WEAK linecoding_handler(usb_LineCoding __attribute__((unused)) *lc){
}
// SET_CONTROL_LINE_STATE
void WEAK clstate_handler(uint16_t __attribute__((unused)) val){
}
// SEND_BREAK
void WEAK break_handler(){
}
// handler of vendor requests
void WEAK vendor_handler(config_pack_t *packet){
if(packet->bmRequestType & 0x80){ // read
uint8_t c;
switch(packet->wValue){
case 0x8484:
c = 2;
break;
case 0x0080:
c = 1;
break;
case 0x8686:
c = 0xaa;
break;
default:
c = 0;
}
EP_WriteIRQ(0, &c, 1);
}else{ // write ZLP
EP_WriteIRQ(0, (uint8_t *)0, 0);
}
}
static void wr0(const uint8_t *buf, uint16_t size){
if(setup_packet.wLength < size) size = setup_packet.wLength; // shortened request
if(size < endpoints[0].txbufsz){
EP_WriteIRQ(0, buf, size);
return;
}
while(size){
uint16_t l = size;
if(l > endpoints[0].txbufsz) l = endpoints[0].txbufsz;
EP_WriteIRQ(0, buf, l);
buf += l;
size -= l;
uint8_t needzlp = (l == endpoints[0].txbufsz) ? 1 : 0;
if(size || needzlp){ // send last data buffer
uint16_t status = KEEP_DTOG(USB->EPnR[0]);
// keep DTOGs, clear CTR_RX,TX, set TX VALID, leave stat_Rx
USB->EPnR[0] = (status & ~(USB_EPnR_CTR_RX|USB_EPnR_CTR_TX|USB_EPnR_STAT_RX))
^ USB_EPnR_STAT_TX;
uint32_t ctr = 1000000;
while(--ctr && (USB->ISTR & USB_ISTR_CTR) == 0){IWDG->KR = IWDG_REFRESH;};
if((USB->ISTR & USB_ISTR_CTR) == 0){
return;
}
if(needzlp) EP_WriteIRQ(0, (uint8_t*)0, 0);
}
}
}
static inline void get_descriptor(){
switch(setup_packet.wValue){
case DEVICE_DESCRIPTOR:
wr0(USB_DeviceDescriptor, sizeof(USB_DeviceDescriptor));
break;
case CONFIGURATION_DESCRIPTOR:
wr0(USB_ConfigDescriptor, sizeof(USB_ConfigDescriptor));
break;
case STRING_LANG_DESCRIPTOR:
wr0((const uint8_t *)&USB_StringLangDescriptor, STRING_LANG_DESCRIPTOR_SIZE_BYTE);
break;
case STRING_MAN_DESCRIPTOR:
wr0((const uint8_t *)&USB_StringManufacturingDescriptor, USB_StringManufacturingDescriptor.bLength);
break;
case STRING_PROD_DESCRIPTOR:
wr0((const uint8_t *)&USB_StringProdDescriptor, USB_StringProdDescriptor.bLength);
break;
case STRING_SN_DESCRIPTOR:
wr0((const uint8_t *)&USB_StringSerialDescriptor, USB_StringSerialDescriptor.bLength);
break;
case DEVICE_QUALIFIER_DESCRIPTOR:
wr0(USB_DeviceQualifierDescriptor, USB_DeviceQualifierDescriptor[0]);
break;
default:
break;
}
}
static uint8_t configuration = 0; // reply for GET_CONFIGURATION (==1 if configured)
static inline void std_d2h_req(){
uint16_t status = 0; // bus powered
switch(setup_packet.bRequest){
case GET_DESCRIPTOR:
get_descriptor();
break;
case GET_STATUS:
EP_WriteIRQ(0, (uint8_t *)&status, 2); // send status: Bus Powered
break;
case GET_CONFIGURATION:
EP_WriteIRQ(0, &configuration, 1);
break;
default:
break;
}
}
static inline void std_h2d_req(){
switch(setup_packet.bRequest){
case SET_ADDRESS:
// new address will be assigned later - after acknowlegement or request to host
USB_Dev.USB_Addr = setup_packet.wValue;
break;
case SET_CONFIGURATION:
// Now device configured
USB_Dev.USB_Status = USB_STATE_CONFIGURED;
configuration = setup_packet.wValue;
break;
default:
break;
}
}
/*
bmRequestType: 76543210
7 direction: 0 - host->device, 1 - device->host
65 type: 0 - standard, 1 - class, 2 - vendor
4..0 getter: 0 - device, 1 - interface, 2 - endpoint, 3 - other
*/
/**
* Endpoint0 (control) handler
*/
static void EP0_Handler(){
uint16_t epstatus = USB->EPnR[0]; // EP0R on input -> return this value after modifications
uint8_t reqtype = setup_packet.bmRequestType & 0x7f;
uint8_t dev2host = (setup_packet.bmRequestType & 0x80) ? 1 : 0;
int rxflag = RX_FLAG(epstatus);
if(rxflag && SETUP_FLAG(epstatus)){
switch(reqtype){
case STANDARD_DEVICE_REQUEST_TYPE: // standard device request
if(dev2host){
std_d2h_req();
}else{
std_h2d_req();
EP_WriteIRQ(0, (uint8_t *)0, 0);
}
break;
case STANDARD_ENDPOINT_REQUEST_TYPE: // standard endpoint request
if(setup_packet.bRequest == CLEAR_FEATURE){
EP_WriteIRQ(0, (uint8_t *)0, 0);
}
break;
case VENDOR_REQUEST_TYPE:
vendor_handler(&setup_packet);
break;
case CONTROL_REQUEST_TYPE:
switch(setup_packet.bRequest){
case GET_LINE_CODING:
EP_WriteIRQ(0, (uint8_t*)&lineCoding, sizeof(lineCoding));
break;
case SET_LINE_CODING: // omit this for next stage, when data will come
break;
case SET_CONTROL_LINE_STATE:
usbON = 1;
clstate_handler(setup_packet.wValue);
break;
case SEND_BREAK:
usbON = 0;
break_handler();
break;
default:
break;
}
if(setup_packet.bRequest != GET_LINE_CODING) EP_WriteIRQ(0, (uint8_t *)0, 0); // write acknowledgement
break;
default:
EP_WriteIRQ(0, (uint8_t *)0, 0);
}
}else if(rxflag){ // got data over EP0 or host acknowlegement
if(endpoints[0].rx_cnt){
if(setup_packet.bRequest == SET_LINE_CODING){
linecoding_handler((usb_LineCoding*)ep0databuf);
}
}
} else if(TX_FLAG(epstatus)){ // package transmitted
// now we can change address after enumeration
if ((USB->DADDR & USB_DADDR_ADD) != USB_Dev.USB_Addr){
USB->DADDR = USB_DADDR_EF | USB_Dev.USB_Addr;
// change state to ADRESSED
USB_Dev.USB_Status = USB_STATE_ADDRESSED;
}
}
epstatus = KEEP_DTOG(USB->EPnR[0]);
if(rxflag) epstatus ^= USB_EPnR_STAT_TX; // start ZLP/data transmission
else epstatus &= ~USB_EPnR_STAT_TX; // or leave unchanged
// keep DTOGs, clear CTR_RX,TX, set RX VALID
USB->EPnR[0] = (epstatus & ~(USB_EPnR_CTR_RX|USB_EPnR_CTR_TX)) ^ USB_EPnR_STAT_RX;
}
static uint16_t lastaddr = LASTADDR_DEFAULT;
/**
* Endpoint initialisation
* @param number - EP num (0...7)
* @param type - EP type (EP_TYPE_BULK, EP_TYPE_CONTROL, EP_TYPE_ISO, EP_TYPE_INTERRUPT)
* @param txsz - transmission buffer size @ USB/CAN buffer
* @param rxsz - reception buffer size @ USB/CAN buffer
* @param uint16_t (*func)(ep_t *ep) - EP handler function
* @return 0 if all OK
*/
int EP_Init(uint8_t number, uint8_t type, uint16_t txsz, uint16_t rxsz, void (*func)(ep_t ep)){
if(number >= STM32ENDPOINTS) return 4; // out of configured amount
if(txsz > USB_BTABLE_SIZE || rxsz > USB_BTABLE_SIZE) return 1; // buffer too large
if(lastaddr + txsz + rxsz >= USB_BTABLE_SIZE) return 2; // out of btable
USB->EPnR[number] = (type << 9) | (number & USB_EPnR_EA);
USB->EPnR[number] ^= USB_EPnR_STAT_RX | USB_EPnR_STAT_TX_1;
if(rxsz & 1 || rxsz > 512) return 3; // wrong rx buffer size
uint16_t countrx = 0;
if(rxsz < 64) countrx = rxsz / 2;
else{
if(rxsz & 0x1f) return 3; // should be multiple of 32
countrx = 31 + rxsz / 32;
}
USB_BTABLE->EP[number].USB_ADDR_TX = lastaddr;
endpoints[number].tx_buf = (uint16_t *)(USB_BTABLE_BASE + lastaddr*2);
endpoints[number].txbufsz = txsz;
lastaddr += txsz;
USB_BTABLE->EP[number].USB_COUNT_TX = 0;
USB_BTABLE->EP[number].USB_ADDR_RX = lastaddr;
endpoints[number].rx_buf = (uint16_t *)(USB_BTABLE_BASE + lastaddr*2);
lastaddr += rxsz;
USB_BTABLE->EP[number].USB_COUNT_RX = countrx << 10;
endpoints[number].func = func;
return 0;
}
// standard IRQ handler
void usb_lp_can_rx0_isr(){
if(USB->ISTR & USB_ISTR_RESET){
usbON = 0;
// Reinit registers
USB->CNTR = USB_CNTR_RESETM | USB_CNTR_CTRM | USB_CNTR_SUSPM | USB_CNTR_WKUPM;
USB->ISTR = 0;
// Endpoint 0 - CONTROL
// ON USB LS size of EP0 may be 8 bytes, but on FS it should be 64 bytes!
lastaddr = LASTADDR_DEFAULT;
// clear address, leave only enable bit
USB->DADDR = USB_DADDR_EF;
USB_Dev.USB_Status = USB_STATE_DEFAULT;
USB->ISTR = ~USB_ISTR_RESET;
if(EP_Init(0, EP_TYPE_CONTROL, USB_EP0_BUFSZ, USB_EP0_BUFSZ, EP0_Handler)){
return;
}
}
if(USB->ISTR & USB_ISTR_CTR){
// EP number
uint8_t n = USB->ISTR & USB_ISTR_EPID;
// copy status register
uint16_t epstatus = USB->EPnR[n];
// copy received bytes amount
endpoints[n].rx_cnt = USB_BTABLE->EP[n].USB_COUNT_RX & 0x3FF; // low 10 bits is counter
// check direction
if(USB->ISTR & USB_ISTR_DIR){ // OUT interrupt - receive data, CTR_RX==1 (if CTR_TX == 1 - two pending transactions: receive following by transmit)
if(n == 0){ // control endpoint
if(epstatus & USB_EPnR_SETUP){ // setup packet -> copy data to conf_pack
EP_Read(0, (uint16_t*)&setup_packet);
ep0dbuflen = 0;
// interrupt handler will be called later
}else if(epstatus & USB_EPnR_CTR_RX){ // data packet -> push received data to ep0databuf
ep0dbuflen = endpoints[0].rx_cnt;
EP_Read(0, (uint16_t*)&ep0databuf);
}
}
}
// call EP handler
if(endpoints[n].func) endpoints[n].func(endpoints[n]);
}
if(USB->ISTR & USB_ISTR_SUSP){ // suspend -> still no connection, may sleep
usbON = 0;
USB->CNTR |= USB_CNTR_FSUSP | USB_CNTR_LP_MODE;
USB->ISTR = ~USB_ISTR_SUSP;
}
if(USB->ISTR & USB_ISTR_WKUP){ // wakeup
USB->CNTR &= ~(USB_CNTR_FSUSP | USB_CNTR_LP_MODE); // clear suspend flags
USB->ISTR = ~USB_ISTR_WKUP;
}
}
/**
* Write data to EP buffer (called from IRQ handler)
* @param number - EP number
* @param *buf - array with data
* @param size - its size
*/
void EP_WriteIRQ(uint8_t number, const uint8_t *buf, uint16_t size){
uint8_t i;
if(size > endpoints[number].txbufsz) size = endpoints[number].txbufsz;
uint16_t N2 = (size + 1) >> 1;
// the buffer is 16-bit, so we should copy data as it would be uint16_t
uint16_t *buf16 = (uint16_t *)buf;
uint32_t *out = (uint32_t *)endpoints[number].tx_buf;
for(i = 0; i < N2; ++i, ++out){
*out = buf16[i];
}
USB_BTABLE->EP[number].USB_COUNT_TX = size;
}
/**
* Write data to EP buffer (called outside IRQ handler)
* @param number - EP number
* @param *buf - array with data
* @param size - its size
*/
void EP_Write(uint8_t number, const uint8_t *buf, uint16_t size){
EP_WriteIRQ(number, buf, size);
uint16_t status = KEEP_DTOG(USB->EPnR[number]);
// keep DTOGs, clear CTR_TX & set TX VALID to start transmission
USB->EPnR[number] = (status & ~(USB_EPnR_CTR_TX)) ^ USB_EPnR_STAT_TX;
}
/*
* Copy data from EP buffer into user buffer area
* @param *buf - user array for data
* @return amount of data read
*/
int EP_Read(uint8_t number, uint16_t *buf){
int sz = endpoints[number].rx_cnt;
if(!sz) return 0;
endpoints[number].rx_cnt = 0;
int n = (sz + 1) >> 1;
uint32_t *in = (uint32_t *)endpoints[number].rx_buf;
if(n){
for(int i = 0; i < n; ++i, ++in)
buf[i] = *(uint16_t*)in;
}
return sz;
}

184
F1:F103/Tetris/usb_lib.h Normal file
View File

@@ -0,0 +1,184 @@
/*
* This file is part of the TETRIS project.
* Copyright 2021 Edward V. Emelianov <edward.emelianoff@gmail.com>.
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
#pragma once
#ifndef __USB_LIB_H__
#define __USB_LIB_H__
#include <wchar.h>
#include "usb_defs.h"
#define EP0DATABUF_SIZE (64)
#define LASTADDR_DEFAULT (STM32ENDPOINTS * 8)
// bmRequestType & 0x7f
#define STANDARD_DEVICE_REQUEST_TYPE 0
#define STANDARD_ENDPOINT_REQUEST_TYPE 2
#define VENDOR_REQUEST_TYPE 0x40
#define CONTROL_REQUEST_TYPE 0x21
// bRequest, standard; for bmRequestType == 0x80
#define GET_STATUS 0x00
#define GET_DESCRIPTOR 0x06
#define GET_CONFIGURATION 0x08
// for bmRequestType == 0
#define CLEAR_FEATURE 0x01
#define SET_FEATURE 0x03 // unused
#define SET_ADDRESS 0x05
#define SET_DESCRIPTOR 0x07 // unused
#define SET_CONFIGURATION 0x09
// for bmRequestType == 0x81, 1 or 0xB2
#define GET_INTERFACE 0x0A // unused
#define SET_INTERFACE 0x0B // unused
#define SYNC_FRAME 0x0C // unused
#define VENDOR_REQUEST 0x01 // unused
// Class-Specific Control Requests
#define SEND_ENCAPSULATED_COMMAND 0x00 // unused
#define GET_ENCAPSULATED_RESPONSE 0x01 // unused
#define SET_COMM_FEATURE 0x02 // unused
#define GET_COMM_FEATURE 0x03 // unused
#define CLEAR_COMM_FEATURE 0x04 // unused
#define SET_LINE_CODING 0x20
#define GET_LINE_CODING 0x21
#define SET_CONTROL_LINE_STATE 0x22
#define SEND_BREAK 0x23
// control line states
#define CONTROL_DTR 0x01
#define CONTROL_RTS 0x02
// wValue
#define DEVICE_DESCRIPTOR 0x100
#define CONFIGURATION_DESCRIPTOR 0x200
#define STRING_LANG_DESCRIPTOR 0x300
#define STRING_MAN_DESCRIPTOR 0x301
#define STRING_PROD_DESCRIPTOR 0x302
#define STRING_SN_DESCRIPTOR 0x303
#define DEVICE_QUALIFIER_DESCRIPTOR 0x600
#define RX_FLAG(epstat) (epstat & USB_EPnR_CTR_RX)
#define TX_FLAG(epstat) (epstat & USB_EPnR_CTR_TX)
#define SETUP_FLAG(epstat) (epstat & USB_EPnR_SETUP)
// EPnR bits manipulation
#define KEEP_DTOG_STAT(EPnR) (EPnR & ~(USB_EPnR_STAT_RX|USB_EPnR_STAT_TX|USB_EPnR_DTOG_RX|USB_EPnR_DTOG_TX))
#define KEEP_DTOG(EPnR) (EPnR & ~(USB_EPnR_DTOG_RX|USB_EPnR_DTOG_TX))
// USB state: uninitialized, addressed, ready for use
typedef enum{
USB_STATE_DEFAULT,
USB_STATE_ADDRESSED,
USB_STATE_CONFIGURED,
USB_STATE_CONNECTED
} USB_state;
// EP types
#define EP_TYPE_BULK 0x00
#define EP_TYPE_CONTROL 0x01
#define EP_TYPE_ISO 0x02
#define EP_TYPE_INTERRUPT 0x03
#define LANG_US (uint16_t)0x0409
#define _USB_STRING_(name, str) \
static const struct name \
{ \
uint8_t bLength; \
uint8_t bDescriptorType; \
uint16_t bString[(sizeof(str) - 2) / 2]; \
\
} \
name = {sizeof(name), 0x03, str}
#define _USB_LANG_ID_(name, lng_id) \
\
static const struct name \
{ \
uint8_t bLength; \
uint8_t bDescriptorType; \
uint16_t bString; \
\
} \
name = {0x04, 0x03, lng_id}
#define STRING_LANG_DESCRIPTOR_SIZE_BYTE (4)
// EP0 configuration packet
typedef struct {
uint8_t bmRequestType;
uint8_t bRequest;
uint16_t wValue;
uint16_t wIndex;
uint16_t wLength;
} config_pack_t;
// endpoints state
typedef struct{
uint16_t *tx_buf; // transmission buffer address
uint16_t txbufsz; // transmission buffer size
uint16_t *rx_buf; // reception buffer address
void (*func)(); // endpoint action function
unsigned rx_cnt : 10; // received data counter
} ep_t;
// USB status & its address
typedef struct {
uint8_t USB_Status;
uint16_t USB_Addr;
}usb_dev_t;
typedef struct {
uint32_t dwDTERate;
uint8_t bCharFormat;
#define USB_CDC_1_STOP_BITS 0
#define USB_CDC_1_5_STOP_BITS 1
#define USB_CDC_2_STOP_BITS 2
uint8_t bParityType;
#define USB_CDC_NO_PARITY 0
#define USB_CDC_ODD_PARITY 1
#define USB_CDC_EVEN_PARITY 2
#define USB_CDC_MARK_PARITY 3
#define USB_CDC_SPACE_PARITY 4
uint8_t bDataBits;
} __attribute__ ((packed)) usb_LineCoding;
typedef struct {
uint8_t bmRequestType;
uint8_t bNotificationType;
uint16_t wValue;
uint16_t wIndex;
uint16_t wLength;
} __attribute__ ((packed)) usb_cdc_notification;
extern ep_t endpoints[];
extern usb_dev_t USB_Dev;
extern uint8_t usbON;
void USB_Init();
void USB_ResetState();
int EP_Init(uint8_t number, uint8_t type, uint16_t txsz, uint16_t rxsz, void (*func)());
void EP_WriteIRQ(uint8_t number, const uint8_t *buf, uint16_t size);
void EP_Write(uint8_t number, const uint8_t *buf, uint16_t size);
int EP_Read(uint8_t number, uint16_t *buf);
usb_LineCoding getLineCoding();
void linecoding_handler(usb_LineCoding *lc);
void clstate_handler(uint16_t val);
void break_handler();
void vendor_handler(config_pack_t *packet);
#endif // __USB_LIB_H__