mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 21:28:14 +02:00
195 lines
7.5 KiB
ObjectPascal
195 lines
7.5 KiB
ObjectPascal
unit ATtiny9;
|
|
|
|
interface
|
|
|
|
var
|
|
// ANALOG_COMPARATOR
|
|
ACSR : byte absolute $00+$1F; // Analog Comparator Control And Status Register
|
|
DIDR0 : byte absolute $00+$17; //
|
|
// CPU
|
|
CCP : byte absolute $00+$3C; // Configuration Change Protection
|
|
SP : word absolute $00+$3D; // Stack Pointer
|
|
SPL : byte absolute $00+$3D; // Stack Pointer
|
|
SPH : byte absolute $00+$3D+1; // Stack Pointer
|
|
SREG : byte absolute $00+$3F; // Status Register
|
|
CLKMSR : byte absolute $00+$37; // Clock Main Settings Register
|
|
CLKPSR : byte absolute $00+$36; // Clock Prescale Register
|
|
OSCCAL : byte absolute $00+$39; // Oscillator Calibration Value
|
|
SMCR : byte absolute $00+$3A; // Sleep Mode Control Register
|
|
PRR : byte absolute $00+$35; // Power Reduction Register
|
|
VLMCSR : byte absolute $00+$34; // Vcc Level Monitoring Control and Status Register
|
|
RSTFLR : byte absolute $00+$3B; // Reset Flag Register
|
|
NVMCSR : byte absolute $00+$32; // Non-Volatile Memory Control and Status Register
|
|
NVMCMD : byte absolute $00+$33; // Non-Volatile Memory Command
|
|
// PORTB
|
|
PORTCR : byte absolute $00+$0C; // Port Control Register
|
|
PUEB : byte absolute $00+$03; // Pull-up Enable Control Register
|
|
DDRB : byte absolute $00+$01; // Data Direction Register, Port B
|
|
PINB : byte absolute $00+$00; // Port B Data register
|
|
PORTB : byte absolute $00+$02; // Input Pins, Port B
|
|
// EXTERNAL_INTERRUPT
|
|
EICRA : byte absolute $00+$15; // External Interrupt Control Register A
|
|
EIMSK : byte absolute $00+$13; // External Interrupt Mask register
|
|
EIFR : byte absolute $00+$14; // External Interrupt Flag register
|
|
PCICR : byte absolute $00+$12; // Pin Change Interrupt Control Register
|
|
PCIFR : byte absolute $00+$11; // Pin Change Interrupt Flag Register
|
|
PCMSK : byte absolute $00+$10; // Pin Change Mask Register
|
|
// TIMER_COUNTER_0
|
|
TCCR0A : byte absolute $00+$2E; // Timer/Counter 0 Control Register A
|
|
TCCR0B : byte absolute $00+$2D; // Timer/Counter 0 Control Register B
|
|
TCCR0C : byte absolute $00+$2C; // Timer/Counter 0 Control Register C
|
|
TCNT0 : word absolute $00+$28; // Timer/Counter0
|
|
TCNT0L : byte absolute $00+$28; // Timer/Counter0
|
|
TCNT0H : byte absolute $00+$28+1; // Timer/Counter0
|
|
OCR0A : word absolute $00+$26; // Timer/Counter 0 Output Compare Register A
|
|
OCR0AL : byte absolute $00+$26; // Timer/Counter 0 Output Compare Register A
|
|
OCR0AH : byte absolute $00+$26+1; // Timer/Counter 0 Output Compare Register A
|
|
OCR0B : word absolute $00+$24; // Timer/Counter0 Output Compare Register B
|
|
OCR0BL : byte absolute $00+$24; // Timer/Counter0 Output Compare Register B
|
|
OCR0BH : byte absolute $00+$24+1; // Timer/Counter0 Output Compare Register B
|
|
ICR0 : word absolute $00+$22; // Input Capture Register Bytes
|
|
ICR0L : byte absolute $00+$22; // Input Capture Register Bytes
|
|
ICR0H : byte absolute $00+$22+1; // Input Capture Register Bytes
|
|
TIMSK0 : byte absolute $00+$2B; // Timer Interrupt Mask Register 0
|
|
TIFR0 : byte absolute $00+$2A; // Overflow Interrupt Enable
|
|
GTCCR : byte absolute $00+$2F; // General Timer/Counter Control Register
|
|
// WATCHDOG
|
|
WDTCSR : byte absolute $00+$31; // Watchdog Timer Control and Status Register
|
|
|
|
const
|
|
// ACSR
|
|
ACD = 7; // Analog Comparator Disable
|
|
ACO = 5; // Analog Compare Output
|
|
ACI = 4; // Analog Comparator Interrupt Flag
|
|
ACIE = 3; // Analog Comparator Interrupt Enable
|
|
ACIC = 2; // Analog Comparator Input Capture Enable
|
|
ACIS = 0; // Analog Comparator Interrupt Mode Select bits
|
|
// DIDR0
|
|
AIN1D = 1; // AIN1 Digital Input Disable
|
|
AIN0D = 0; // AIN0 Digital Input Disable
|
|
// SREG
|
|
I = 7; // Global Interrupt Enable
|
|
T = 6; // Bit Copy Storage
|
|
H = 5; // Half Carry Flag
|
|
S = 4; // Sign Bit
|
|
V = 3; // Two's Complement Overflow Flag
|
|
N = 2; // Negative Flag
|
|
Z = 1; // Zero Flag
|
|
C = 0; // Carry Flag
|
|
// CLKMSR
|
|
CLKMS = 0; // Clock Main Select Bits
|
|
// CLKPSR
|
|
CLKPS = 0; // Clock Prescaler Select Bits
|
|
// SMCR
|
|
SM = 1; // Sleep Mode Select Bits
|
|
SE = 0; // Sleep Enable
|
|
// PRR
|
|
PRADC = 1; // Power Reduction ADC
|
|
PRTIM0 = 0; // Power Reduction Timer/Counter0
|
|
// VLMCSR
|
|
VLMF = 7; // VLM Flag
|
|
VLMIE = 6; // VLM Interrupt Enable
|
|
VLM = 0; // Trigger Level of Voltage Level Monitor bits
|
|
// RSTFLR
|
|
WDRF = 3; // Watchdog Reset Flag
|
|
EXTRF = 1; // External Reset Flag
|
|
PORF = 0; // Power-on Reset Flag
|
|
// NVMCSR
|
|
NVMBSY = 7; // Non-Volatile Memory Busy
|
|
// PORTCR
|
|
BBMB = 1; // Break-Before-Make Mode Enable
|
|
// EICRA
|
|
ISC01 = 1; // Interrupt Sense Control 0 Bit 1
|
|
ISC00 = 0; // Interrupt Sense Control 0 Bit 0
|
|
// EIMSK
|
|
INT0 = 0; // External Interrupt Request 0 Enable
|
|
// EIFR
|
|
INTF0 = 0; // External Interrupt Flag 0
|
|
// PCICR
|
|
PCIE0 = 0; // Pin Change Interrupt Enable 0
|
|
// PCIFR
|
|
PCIF0 = 0; // Pin Change Interrupt Flag 0
|
|
// PCMSK
|
|
PCINT = 0; // Pin Change Enable Masks
|
|
// TCCR0A
|
|
COM0A = 6; // Compare Output Mode for Channel A bits
|
|
COM0B = 4; // Compare Output Mode for Channel B bits
|
|
WGM0 = 0; // Waveform Generation Mode
|
|
// TCCR0B
|
|
ICNC0 = 7; // Input Capture Noise Canceler
|
|
ICES0 = 6; // Input Capture Edge Select
|
|
CS0 = 0; // Clock Select
|
|
// TCCR0C
|
|
FOC0A = 7; // Force Output Compare for Channel A
|
|
FOC0B = 6; // Force Output Compare for Channel B
|
|
// TIMSK0
|
|
ICIE0 = 5; // Input Capture Interrupt Enable
|
|
OCIE0B = 2; // Output Compare B Match Interrupt Enable
|
|
OCIE0A = 1; // Output Compare A Match Interrupt Enable
|
|
TOIE0 = 0; // Overflow Interrupt Enable
|
|
// TIFR0
|
|
ICF0 = 5; // Input Capture Flag
|
|
OCF0B = 2; // Timer Output Compare Flag 0B
|
|
OCF0A = 1; // Timer Output Compare Flag 0A
|
|
TOV0 = 0; // Timer Overflow Flag
|
|
// GTCCR
|
|
TSM = 7; // Timer Synchronization Mode
|
|
PSR = 0; // Prescaler Reset
|
|
// WDTCSR
|
|
WDIF = 7; // Watchdog Timer Interrupt Flag
|
|
WDIE = 6; // Watchdog Timer Interrupt Enable
|
|
WDP = 0; // Watchdog Timer Prescaler Bits
|
|
WDE = 3; // Watch Dog Enable
|
|
|
|
implementation
|
|
|
|
{$define RELBRANCHES}
|
|
|
|
{$i avrcommon.inc}
|
|
|
|
procedure INT0_ISR; external name 'INT0_ISR'; // Interrupt 1 External Interrupt Request 0
|
|
procedure PCINT0_ISR; external name 'PCINT0_ISR'; // Interrupt 2 Pin Change Interrupt Request 0
|
|
procedure TIM0_CAPT_ISR; external name 'TIM0_CAPT_ISR'; // Interrupt 3 Timer/Counter0 Input Capture
|
|
procedure TIM0_OVF_ISR; external name 'TIM0_OVF_ISR'; // Interrupt 4 Timer/Counter0 Overflow
|
|
procedure TIM0_COMPA_ISR; external name 'TIM0_COMPA_ISR'; // Interrupt 5 Timer/Counter Compare Match A
|
|
procedure TIM0_COMPB_ISR; external name 'TIM0_COMPB_ISR'; // Interrupt 6 Timer/Counter Compare Match B
|
|
procedure ANA_COMP_ISR; external name 'ANA_COMP_ISR'; // Interrupt 7 Analog Comparator
|
|
procedure WDT_ISR; external name 'WDT_ISR'; // Interrupt 8 Watchdog Time-out
|
|
procedure VLM_ISR; external name 'VLM_ISR'; // Interrupt 9 Vcc Voltage Level Monitor
|
|
|
|
procedure _FPC_start; assembler; nostackframe; noreturn; public name '_START'; section '.init';
|
|
asm
|
|
rjmp __dtors_end
|
|
rjmp INT0_ISR
|
|
rjmp PCINT0_ISR
|
|
rjmp TIM0_CAPT_ISR
|
|
rjmp TIM0_OVF_ISR
|
|
rjmp TIM0_COMPA_ISR
|
|
rjmp TIM0_COMPB_ISR
|
|
rjmp ANA_COMP_ISR
|
|
rjmp WDT_ISR
|
|
rjmp VLM_ISR
|
|
|
|
.weak INT0_ISR
|
|
.weak PCINT0_ISR
|
|
.weak TIM0_CAPT_ISR
|
|
.weak TIM0_OVF_ISR
|
|
.weak TIM0_COMPA_ISR
|
|
.weak TIM0_COMPB_ISR
|
|
.weak ANA_COMP_ISR
|
|
.weak WDT_ISR
|
|
.weak VLM_ISR
|
|
|
|
.set INT0_ISR, Default_IRQ_handler
|
|
.set PCINT0_ISR, Default_IRQ_handler
|
|
.set TIM0_CAPT_ISR, Default_IRQ_handler
|
|
.set TIM0_OVF_ISR, Default_IRQ_handler
|
|
.set TIM0_COMPA_ISR, Default_IRQ_handler
|
|
.set TIM0_COMPB_ISR, Default_IRQ_handler
|
|
.set ANA_COMP_ISR, Default_IRQ_handler
|
|
.set WDT_ISR, Default_IRQ_handler
|
|
.set VLM_ISR, Default_IRQ_handler
|
|
end;
|
|
|
|
end.
|