mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 21:28:14 +02:00
129 lines
3.8 KiB
ObjectPascal
129 lines
3.8 KiB
ObjectPascal
unit ATtiny12;
|
|
|
|
interface
|
|
|
|
var
|
|
ACSR: byte absolute $08; // Analog Comparator Control And Status Register
|
|
PINB: byte absolute $16; // Input Pins, Port B
|
|
DDRB: byte absolute $17; // Data Direction Register, Port B
|
|
PORTB: byte absolute $18; // Data Register, Port B
|
|
EECR: byte absolute $1C; // EEPROM Control Register
|
|
EEDR: byte absolute $1D; // EEPROM Data Register
|
|
EEAR: byte absolute $1E; // EEPROM Read/Write Access
|
|
WDTCR: byte absolute $21; // Watchdog Timer Control Register
|
|
OSCCAL: byte absolute $31; // Status Register
|
|
TCNT0: byte absolute $32; // Timer Counter 0
|
|
TCCR0: byte absolute $33; // Timer/Counter0 Control Register
|
|
MCUSR: byte absolute $34; // MCU Status register
|
|
MCUCR: byte absolute $35; // MCU Control Register
|
|
TIFR: byte absolute $38; // Timer/Counter Interrupt Flag register
|
|
TIMSK: byte absolute $39; // Timer/Counter Interrupt Mask Register
|
|
GIFR: byte absolute $3A; // General Interrupt Flag register
|
|
GIMSK: byte absolute $3B; // General Interrupt Mask Register
|
|
SREG: byte absolute $3F; // Status Register
|
|
|
|
const
|
|
// Analog Comparator Control And Status Register
|
|
ACIS0 = $00; // Analog Comparator Interrupt Mode Select bits
|
|
ACIS1 = $01; // Analog Comparator Interrupt Mode Select bits
|
|
ACIE = $03;
|
|
ACI = $04;
|
|
ACO = $05;
|
|
AINBG = $06;
|
|
ACD = $07;
|
|
// Data Register, Port B
|
|
PB0 = $00;
|
|
PB1 = $01;
|
|
PB2 = $02;
|
|
PB3 = $03;
|
|
PB4 = $04;
|
|
// EEPROM Control Register
|
|
EERE = $00;
|
|
EEWE = $01;
|
|
EEMWE = $02;
|
|
EERIE = $03;
|
|
// Watchdog Timer Control Register
|
|
WDP0 = $00; // Watch Dog Timer Prescaler bits
|
|
WDP1 = $01; // Watch Dog Timer Prescaler bits
|
|
WDP2 = $02; // Watch Dog Timer Prescaler bits
|
|
WDE = $03;
|
|
WDTOE = $04;
|
|
// Status Register
|
|
OSCCAL0 = $00; // Oscillator Calibration
|
|
OSCCAL1 = $01; // Oscillator Calibration
|
|
OSCCAL2 = $02; // Oscillator Calibration
|
|
OSCCAL3 = $03; // Oscillator Calibration
|
|
OSCCAL4 = $04; // Oscillator Calibration
|
|
OSCCAL5 = $05; // Oscillator Calibration
|
|
OSCCAL6 = $06; // Oscillator Calibration
|
|
OSCCAL7 = $07; // Oscillator Calibration
|
|
// Timer/Counter0 Control Register
|
|
CS00 = $00;
|
|
CS01 = $01;
|
|
CS02 = $02;
|
|
// MCU Status register
|
|
PORF = $00;
|
|
EXTRF = $01;
|
|
BORF = $02;
|
|
WDRF = $03;
|
|
// MCU Control Register
|
|
ISC00 = $00; // Interrupt Sense Control 0 bits
|
|
ISC01 = $01; // Interrupt Sense Control 0 bits
|
|
SM = $04;
|
|
SE = $05;
|
|
PUD = $06;
|
|
// Timer/Counter Interrupt Flag register
|
|
TOV0 = $01;
|
|
// Timer/Counter Interrupt Mask Register
|
|
TOIE0 = $01;
|
|
// General Interrupt Flag register
|
|
PCIF = $05;
|
|
INTF0 = $06;
|
|
// General Interrupt Mask Register
|
|
PCIE = $05;
|
|
INT0 = $06;
|
|
// Status Register
|
|
C = $00;
|
|
Z = $01;
|
|
N = $02;
|
|
V = $03;
|
|
S = $04;
|
|
H = $05;
|
|
T = $06;
|
|
I = $07;
|
|
|
|
|
|
implementation
|
|
{$define RELBRANCHES}
|
|
{$i avrcommon.inc}
|
|
|
|
procedure INT0_ISR; external name 'INT0_ISR'; // Interrupt 1 External Interrupt 0
|
|
procedure IO_PINS_ISR; external name 'IO_PINS_ISR'; // Interrupt 2 External Interrupt Request 0
|
|
procedure TIMER0_OVF_ISR; external name 'TIMER0_OVF_ISR'; // Interrupt 3 Timer/Counter0 Overflow
|
|
procedure EE_RDY_ISR; external name 'EE_RDY_ISR'; // Interrupt 4 EEPROM Ready
|
|
procedure ANA_COMP_ISR; external name 'ANA_COMP_ISR'; // Interrupt 5 Analog Comparator
|
|
|
|
procedure _FPC_start; assembler; nostackframe; noreturn; public name '_START'; section '.init';
|
|
asm
|
|
rjmp __dtors_end
|
|
rjmp INT0_ISR
|
|
rjmp IO_PINS_ISR
|
|
rjmp TIMER0_OVF_ISR
|
|
rjmp EE_RDY_ISR
|
|
rjmp ANA_COMP_ISR
|
|
|
|
.weak INT0_ISR
|
|
.weak IO_PINS_ISR
|
|
.weak TIMER0_OVF_ISR
|
|
.weak EE_RDY_ISR
|
|
.weak ANA_COMP_ISR
|
|
|
|
.set INT0_ISR, Default_IRQ_handler
|
|
.set IO_PINS_ISR, Default_IRQ_handler
|
|
.set TIMER0_OVF_ISR, Default_IRQ_handler
|
|
.set EE_RDY_ISR, Default_IRQ_handler
|
|
.set ANA_COMP_ISR, Default_IRQ_handler
|
|
end;
|
|
|
|
end.
|