mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-13 08:06:00 +02:00
255 lines
7.4 KiB
ObjectPascal
255 lines
7.4 KiB
ObjectPascal
unit esp8266;
|
|
|
|
interface
|
|
|
|
const
|
|
//unit: Hz
|
|
APB_CLK_FREQ = 80*1000000;
|
|
UART_CLK_FREQ = APB_CLK_FREQ;
|
|
//divided by 256
|
|
TIMER_CLK_FREQ = (APB_CLK_FREQ shr 8);
|
|
|
|
//Peripheral device base address
|
|
PERIPHS_DPORT_BASEADDR = $3ff00000;
|
|
PERIPHS_GPIO_BASEADDR = $60000300;
|
|
PERIPHS_TIMER_BASEDDR = $60000600;
|
|
PERIPHS_RTC_BASEADDR = $60000700;
|
|
PERIPHS_IO_MUX = $60000800;
|
|
|
|
//Interrupt remap control registers
|
|
EDGE_INT_ENABLE_REG = (PERIPHS_DPORT_BASEADDR+$04);
|
|
// TM1_EDGE_INT_ENABLE() = SET_PERI_REG_MASK(EDGE_INT_ENABLE_REG, BIT1);
|
|
// TM1_EDGE_INT_DISABLE() = CLEAR_PERI_REG_MASK(EDGE_INT_ENABLE_REG, BIT1);
|
|
|
|
//GPIO reg
|
|
// GPIO_REG_READ(reg) = READ_PERI_REG(PERIPHS_GPIO_BASEADDR + reg);
|
|
// GPIO_REG_WRITE(reg, val) = WRITE_PERI_REG(PERIPHS_GPIO_BASEADDR + reg, val);
|
|
GPIO_OUT_ADDRESS = $00;
|
|
GPIO_OUT_W1TS_ADDRESS = $04;
|
|
GPIO_OUT_W1TC_ADDRESS = $08;
|
|
|
|
GPIO_ENABLE_ADDRESS = $0c;
|
|
GPIO_ENABLE_W1TS_ADDRESS = $10;
|
|
GPIO_ENABLE_W1TC_ADDRESS = $14;
|
|
GPIO_OUT_W1TC_DATA_MASK = $0000ffff;
|
|
|
|
GPIO_IN_ADDRESS = $18;
|
|
|
|
GPIO_STATUS_ADDRESS = $1c;
|
|
GPIO_STATUS_W1TS_ADDRESS = $20;
|
|
GPIO_STATUS_W1TC_ADDRESS = $24;
|
|
GPIO_STATUS_INTERRUPT_MASK = $0000ffff;
|
|
|
|
GPIO_RTC_CALIB_SYNC = PERIPHS_GPIO_BASEADDR+$6c;
|
|
//first write to zero, then to one to start
|
|
RTC_CALIB_START = BIT31;
|
|
//max 8ms
|
|
RTC_PERIOD_NUM_MASK = $3ff;
|
|
GPIO_RTC_CALIB_VALUE = PERIPHS_GPIO_BASEADDR+$70;
|
|
//after measure, flag to one, when start from zero to one, turn to zero
|
|
RTC_CALIB_RDY_S = 31;
|
|
RTC_CALIB_VALUE_MASK = $fffff;
|
|
|
|
GPIO_PIN0_ADDRESS = $28;
|
|
|
|
GPIO_ID_PIN0 = 0;
|
|
// GPIO_ID_PIN(n) = (GPIO_ID_PIN0+(n));
|
|
GPIO_LAST_REGISTER_ID = 15;
|
|
GPIO_ID_NONE = $ffffffff;
|
|
|
|
GPIO_PIN_COUNT = 16;
|
|
|
|
GPIO_PIN_CONFIG_MSB = 12;
|
|
GPIO_PIN_CONFIG_LSB = 11;
|
|
GPIO_PIN_CONFIG_MASK = $00001800;
|
|
// GPIO_PIN_CONFIG_GET(x) = (((x) and GPIO_PIN_CONFIG_MASK) shr GPIO_PIN_CONFIG_LSB);
|
|
// GPIO_PIN_CONFIG_SET(x) = (((x) shl GPIO_PIN_CONFIG_LSB) and GPIO_PIN_CONFIG_MASK);
|
|
|
|
GPIO_WAKEUP_ENABLE = 1;
|
|
GPIO_WAKEUP_DISABLE = (not GPIO_WAKEUP_ENABLE);
|
|
GPIO_PIN_WAKEUP_ENABLE_MSB = 10;
|
|
GPIO_PIN_WAKEUP_ENABLE_LSB = 10;
|
|
GPIO_PIN_WAKEUP_ENABLE_MASK = $00000400;
|
|
// GPIO_PIN_WAKEUP_ENABLE_GET(x) = (((x) and GPIO_PIN_WAKEUP_ENABLE_MASK) shr GPIO_PIN_WAKEUP_ENABLE_LSB);
|
|
// GPIO_PIN_WAKEUP_ENABLE_SET(x) = (((x) shl GPIO_PIN_WAKEUP_ENABLE_LSB) and GPIO_PIN_WAKEUP_ENABLE_MASK);
|
|
|
|
GPIO_PIN_INT_TYPE_MASK = $380;
|
|
GPIO_PIN_INT_TYPE_MSB = 9;
|
|
GPIO_PIN_INT_TYPE_LSB = 7;
|
|
// GPIO_PIN_INT_TYPE_GET(x) = (((x) and GPIO_PIN_INT_TYPE_MASK) shr GPIO_PIN_INT_TYPE_LSB);
|
|
// GPIO_PIN_INT_TYPE_SET(x) = (((x) shl GPIO_PIN_INT_TYPE_LSB) and GPIO_PIN_INT_TYPE_MASK);
|
|
|
|
GPIO_PAD_DRIVER_ENABLE = 1;
|
|
GPIO_PAD_DRIVER_DISABLE = (not GPIO_PAD_DRIVER_ENABLE);
|
|
GPIO_PIN_PAD_DRIVER_MSB = 2;
|
|
GPIO_PIN_PAD_DRIVER_LSB = 2;
|
|
GPIO_PIN_PAD_DRIVER_MASK = $00000004;
|
|
// GPIO_PIN_PAD_DRIVER_GET(x) = (((x) and GPIO_PIN_PAD_DRIVER_MASK) shr GPIO_PIN_PAD_DRIVER_LSB);
|
|
// GPIO_PIN_PAD_DRIVER_SET(x) = (((x) shl GPIO_PIN_PAD_DRIVER_LSB) and GPIO_PIN_PAD_DRIVER_MASK);
|
|
|
|
GPIO_AS_PIN_SOURCE = 0;
|
|
SIGMA_AS_PIN_SOURCE = (not GPIO_AS_PIN_SOURCE);
|
|
GPIO_PIN_SOURCE_MSB = 0;
|
|
GPIO_PIN_SOURCE_LSB = 0;
|
|
GPIO_PIN_SOURCE_MASK = $00000001;
|
|
// GPIO_PIN_SOURCE_GET(x) = (((x) and GPIO_PIN_SOURCE_MASK) shr GPIO_PIN_SOURCE_LSB);
|
|
// GPIO_PIN_SOURCE_SET(x) = (((x) shl GPIO_PIN_SOURCE_LSB) and GPIO_PIN_SOURCE_MASK);
|
|
|
|
// TIMER reg
|
|
// RTC_REG_READ(addr) = READ_PERI_REG(PERIPHS_TIMER_BASEDDR + addr);
|
|
// RTC_REG_WRITE(addr, val) = WRITE_PERI_REG(PERIPHS_TIMER_BASEDDR + addr, val);
|
|
// RTC_CLR_REG_MASK(reg, mask) = CLEAR_PERI_REG_MASK(PERIPHS_TIMER_BASEDDR +reg, mask);
|
|
// Returns the current time according to the timer timer.
|
|
// NOW() = RTC_REG_READ(FRC2_COUNT_ADDRESS);
|
|
|
|
//load initial_value to timer1
|
|
FRC1_LOAD_ADDRESS = $00;
|
|
|
|
//timer1's counter value(count from initial_value to 0)
|
|
FRC1_COUNT_ADDRESS = $04;
|
|
|
|
FRC1_CTRL_ADDRESS = $08;
|
|
|
|
//clear timer1's interrupt when write this address
|
|
FRC1_INT_ADDRESS = $0c;
|
|
FRC1_INT_CLR_MASK = $00000001;
|
|
|
|
//timer2's counter value(count from initial_value to 0)
|
|
FRC2_COUNT_ADDRESS = $24;
|
|
|
|
//RTC reg
|
|
REG_RTC_BASE = PERIPHS_RTC_BASEADDR;
|
|
|
|
RTC_STORE0 = (REG_RTC_BASE + $030);
|
|
RTC_STORE1 = (REG_RTC_BASE + $034);
|
|
RTC_STORE2 = (REG_RTC_BASE + $038);
|
|
RTC_STORE3 = (REG_RTC_BASE + $03C);
|
|
|
|
RTC_GPIO_OUT = (REG_RTC_BASE + $068);
|
|
RTC_GPIO_ENABLE = (REG_RTC_BASE + $074);
|
|
RTC_GPIO_IN_DATA = (REG_RTC_BASE + $08C);
|
|
RTC_GPIO_CONF = (REG_RTC_BASE + $090);
|
|
PAD_XPD_DCDC_CONF = (REG_RTC_BASE + $0A0);
|
|
|
|
//PIN Mux reg
|
|
PERIPHS_IO_MUX_FUNC = $13;
|
|
PERIPHS_IO_MUX_FUNC_S = 4;
|
|
PERIPHS_IO_MUX_PULLUP = BIT7;
|
|
PERIPHS_IO_MUX_PULLUP2 = BIT6;
|
|
PERIPHS_IO_MUX_SLEEP_PULLUP = BIT3;
|
|
PERIPHS_IO_MUX_SLEEP_PULLUP2 = BIT2;
|
|
PERIPHS_IO_MUX_SLEEP_OE = BIT1;
|
|
PERIPHS_IO_MUX_OE = BIT0;
|
|
|
|
PERIPHS_IO_MUX_CONF_U = (PERIPHS_IO_MUX + $00);
|
|
SPI0_CLK_EQU_SYS_CLK = BIT8;
|
|
SPI1_CLK_EQU_SYS_CLK = BIT9;
|
|
PERIPHS_IO_MUX_MTDI_U = (PERIPHS_IO_MUX + $04);
|
|
FUNC_GPIO12 = 3;
|
|
PERIPHS_IO_MUX_MTCK_U = (PERIPHS_IO_MUX + $08);
|
|
FUNC_GPIO13 = 3;
|
|
PERIPHS_IO_MUX_MTMS_U = (PERIPHS_IO_MUX + $0C);
|
|
FUNC_GPIO14 = 3;
|
|
PERIPHS_IO_MUX_MTDO_U = (PERIPHS_IO_MUX + $10);
|
|
FUNC_GPIO15 = 3;
|
|
FUNC_U0RTS = 4;
|
|
PERIPHS_IO_MUX_U0RXD_U = (PERIPHS_IO_MUX + $14);
|
|
FUNC_GPIO3 = 3;
|
|
PERIPHS_IO_MUX_U0TXD_U = (PERIPHS_IO_MUX + $18);
|
|
FUNC_U0TXD = 0;
|
|
FUNC_GPIO1 = 3;
|
|
PERIPHS_IO_MUX_SD_CLK_U = (PERIPHS_IO_MUX + $1c);
|
|
FUNC_SDCLK = 0;
|
|
FUNC_SPICLK = 1;
|
|
PERIPHS_IO_MUX_SD_DATA0_U = (PERIPHS_IO_MUX + $20);
|
|
FUNC_SDDATA0 = 0;
|
|
FUNC_SPIQ = 1;
|
|
FUNC_U1TXD = 4;
|
|
PERIPHS_IO_MUX_SD_DATA1_U = (PERIPHS_IO_MUX + $24);
|
|
FUNC_SDDATA1 = 0;
|
|
FUNC_SPID = 1;
|
|
FUNC_U1RXD = 4;
|
|
FUNC_SDDATA1_U1RXD = 7;
|
|
PERIPHS_IO_MUX_SD_DATA2_U = (PERIPHS_IO_MUX + $28);
|
|
FUNC_SDDATA2 = 0;
|
|
FUNC_SPIHD = 1;
|
|
FUNC_GPIO9 = 3;
|
|
PERIPHS_IO_MUX_SD_DATA3_U = (PERIPHS_IO_MUX + $2c);
|
|
FUNC_SDDATA3 = 0;
|
|
FUNC_SPIWP = 1;
|
|
FUNC_GPIO10 = 3;
|
|
PERIPHS_IO_MUX_SD_CMD_U = (PERIPHS_IO_MUX + $30);
|
|
FUNC_SDCMD = 0;
|
|
FUNC_SPICS0 = 1;
|
|
PERIPHS_IO_MUX_GPIO0_U = (PERIPHS_IO_MUX + $34);
|
|
FUNC_GPIO0 = 0;
|
|
PERIPHS_IO_MUX_GPIO2_U = (PERIPHS_IO_MUX + $38);
|
|
FUNC_GPIO2 = 0;
|
|
FUNC_U1TXD_BK = 2;
|
|
FUNC_U0TXD_BK = 4;
|
|
PERIPHS_IO_MUX_GPIO4_U = (PERIPHS_IO_MUX + $3C);
|
|
FUNC_GPIO4 = 0;
|
|
PERIPHS_IO_MUX_GPIO5_U = (PERIPHS_IO_MUX + $40);
|
|
FUNC_GPIO5 = 0;
|
|
|
|
// PIN_PULLUP_DIS(PIN_NAME) = CLEAR_PERI_REG_MASK(PIN_NAME, PERIPHS_IO_MUX_PULLUP);
|
|
// PIN_PULLUP_EN(PIN_NAME) = SET_PERI_REG_MASK(PIN_NAME, PERIPHS_IO_MUX_PULLUP);
|
|
|
|
implementation
|
|
|
|
var
|
|
_stack_top: record end; external name '_stack_top';
|
|
_data: record end; external name '_data';
|
|
_edata: record end; external name '_edata';
|
|
_text_start: record end; external name '_text_start';
|
|
_etext: record end; external name '_etext';
|
|
_bss_start: record end; external name '_bss_start';
|
|
_bss_end: record end; external name '_bss_end';
|
|
|
|
procedure Pascalmain; external name 'PASCALMAIN';
|
|
|
|
procedure HaltProc; assembler; nostackframe; public name'_haltproc';
|
|
asm
|
|
.Lloop:
|
|
b .Lloop
|
|
end;
|
|
|
|
procedure Startup;
|
|
var
|
|
psrc,pdst,pend: plongword;
|
|
begin
|
|
// Copy .text
|
|
psrc:=@_etext;
|
|
pdst:=@_data;
|
|
pend:=@_edata;
|
|
while pdst<pend do
|
|
begin
|
|
pdst^:=psrc^;
|
|
inc(pdst);
|
|
inc(psrc);
|
|
end;
|
|
|
|
// Clear .bss
|
|
pend:=@_bss_end;
|
|
while pdst<pend do
|
|
begin
|
|
pdst^:=0;
|
|
inc(pdst);
|
|
end;
|
|
|
|
PascalMain;
|
|
Haltproc;
|
|
end;
|
|
|
|
procedure LowLevelStartup; assembler; nostackframe;
|
|
asm
|
|
l32r a1, .Lstack_ptr
|
|
|
|
j Startup
|
|
|
|
.Lstack_ptr:
|
|
.long _stack_top
|
|
end;
|
|
|
|
end.
|