Svenska ElektronikForumet

Kod: Markera allt

        *                       START TMR 2, ALL REGS IN ABANK
        LOD A,#%_0000_0001      USE FOSC/4
        LOD T2CLK,A
        STZ T2RST               A KNOWN STATE TO THIS
        STZ T2TMR               CLEAR COUNTER
        LOD A,#128              TIMER PERIOD
        LOD T2PR,A
        LOD A,#%_0_011_0000     /8 PRESCALER, /1 POSTSCALER
        LOD T2CON,A
        LOD A,#%_101_0000
        LOD T2HLT,A
        SMB T2CON,7             START TIMER


        *                       START TMR 1, ALL REGS IN ABANK
        LOD A,#%_000_00001      USE FOSC/4
        LOD T1CLK,A
        LOD A,#%_0011_0010      /8 PRESCALER
        LOD T1CON,A
        STZ T1GCON              A KNOWN STATE TO THESE
        STZ T1GATE
        SMB T1CON,0             START TIMER

        .BC
        LOD BS,#63
        *                       START TMR 4, ALL REGS IN ABANK
        LOD A,#%_0000_0001      USE FOSC/4
        LOD T4CLK,A
        STZ T4RST               A KNOWN STATE TO THIS
        STZ T4TMR               CLEAR COUNTER
        LOD A,#128              TIMER PERIOD
        LOD T4PR,A
        LOD A,#%_0_011_0000     /8 PRESCALER, /1 POSTSCALER
        LOD T4CON,A
        LOD A,#%_101_0000
        LOD T4HLT,A
        *SMB T2CON,7             START TIMER
        LOD A,#%_1_011_0000     /8 PRESCALER, /1 POSTSCALER
        LOD T4CON,A
        .EC





        *                       START INTERRUPTS
        LOD BS,#PIR4/256
        CLF T2IF
        CLF T1IF
        CLF T4IF
        STZ PIR4
        STZ PIR7
        *SEF T2IE
        *SEF T1IE
        SEF T4IE

        SEF GIEL
        SEF GIE

        JMP @



        .BS 4-(@\4)\4           EVEN FOUR
******  TMR2 IRQ ROUTINE
*
TMR1IRQ
TMR2IRQ
TMR4IRQ

        LOD A,#$FF              DO SOMETHING VISIBLE
        EOR LATD,A

        LOD BS,#PIR4/256
        CLF T2IF                CLEAR INTFLAG
        STZ PIR4
        STZ PIR7
        RIQ                     DONE

Kod: Markera allt

void interrupt high_priority HIGH_ISR(void)
  {
  static WORD Counter;
  if(TMR2IF) // Is it Timer2 interrupt?
    {
    TMR2IF = false; // Clear flag as it's being done now
    Counter++;      // Count up Counter by one
    if(Counter >= 125) // Every 250/125 second (0,5 sec)
      {
      Counter = 0; // Clear Counter
      if(LED_Green) LED_Green = false; // If it's on, turn it off
      else          LED_Green = true;  // else turn it on
      }
    }
  }


void interrupt low_priority ISR(void)
  {
  }


void main(void)
  {
  // First initiate ports and functions
  ANSELA  = 0x00;  // No analog function on pins
  ANSELB  = 0x00;  // No analog function on pins
  ANSELC  = 0x00;  // No analog function on pins
  PORTA   = 0x00;  // All low
  PORTB   = 0x00;  // All low
  PORTC   = 0x00;  // All low
  TRISA   = TRISA_DEFAULT; // Set to all out but RA0
  TRISB   = TRISB_DEFAULT; // All out
  TRISC   = TRISC_DEFAULT;
  OSCCON  = 0x70;  // Select Primary clock, 16MHz INTOSC
  OSCCON2 = 0x00;  // Nothing here
  PLLEN   = true;  // Turn on PLL
  IPEN    = true;  // Allow for interrupt priority
  PIE1    = 0x00;  // None of these interrupt enabled
  PIE2    = 0x00;  // None of these interrupt enabled
  // Start a Timer2 interrupt
  TMR2IP  = true;  // Set Timer2 interrupt to high priority
  TMR2IF  = false; // Clear any pending interrupt
  TMR2IE  = true;  // Allow for interrupts to come
  PR2     = 250;   // Set periode = SYSCLK / 16 / 16 / 250 = 250Hz
  T2CON   = 0x7E;  // 0111 1110, 1:16 prescaler, 1:16 postscaler, Timer2 on
  GIEH    = true;  // Allow high priority interrupt to be executed
  GIEL    = false; // Stop any low priority interrupts
  while(true)
    {
    }
  }