Svenska ElektronikForumet

Kod: Markera allt

// globala variabler
volatile unsigned char sekund = 0;
volatile unsigned char minut = 0;
volatile unsigned char timme = 0;
volatile unsigned char flagga = 0; // signalerar en gång per sekund

void interrupt( void ) {
    static unsigned char timer = 0; // starta med noll första gången
    static unsigned char sekund = 0;
    static
    timer++; // räkna upp 
    if (timer == 225) {
        sekund ++;
        flagga = 1;
        if (sekund == 60) {
            sekund = 0;
            minut++;
        }
    }
}

// i main har du sedan denna kod , som måste köras oftare än en gång per sekund för att du inte ska missa flaggan:

    if (flagga) {
        flagga = 0;
        // dags att kolla vad klockan är
        if (sekund == 0) {
            if (minut = 30) {
                // halvtimme slag
            }
        }
    }

Kod: Markera allt

void interrupt(void)
  { // Timer to time out the heater
  PIR1.TMR2IF = false; // Clear interrupt flag
  if(Heater_Timer) Heater_Timer--;
  }

Kod: Markera allt

void Initialize_Timer(void)
  {
  PR2         = 100;
  T2CON       = 0b01111111;
  INTCON      = 0b11000000;
  PIE1.TMR2IE = true;
  PIR1.TMR2IF = false;
  }

Kod: Markera allt

// Del av att skriva till EEPROM
    do
      {
      INTCON.GIE  = false; // << STOPPA INTERRUPT
      }
    while(INTCON.GIE); // Säkerställer att interrupts verkligen blir stoppat, info. i databladet
    EECON2      = 0x55; // Specifik sekvens för att starta skriva till EEPROM
    EECON2      = 0xAA; // Specifik sekvens för att starta skriva till EEPROM
    EECON1.WR   = true; // The write will now start
    INTCON.GIE  = true; // << OK, LÅT INTERRUPTS KOMMA IGEN
    while(EECON1.WR);  // Wait for it to finish before doing next

Kod: Markera allt

;**********************************************************************
;   This file is a basic code template for object module code         *
;   generation on the PIC16F690. This file contains the               *
;   basic code building blocks to build upon.                         *
;                                                                     *
;   Refer to the MPASM User's Guide for additional information on     *
;   features of the assembler and linker (Document DS33014).          *
;                                                                     *
;   Refer to the respective PIC data sheet for additional             *
;   information on the instruction set.                               *
;                                                                     *
;**********************************************************************
;                                                                     *
;    Filename:      xxx.asm                                           *
;    Date:                                                            *
;    File Version:                                                    *
;                                                                     *
;    Author:                                                          *
;    Company:                                                         *
;                                                                     *
;                                                                     *
;**********************************************************************
;                                                                     *
;    Files required: P16F690.INC                                      *
;                                                                     *
;                                                                     *
;                                                                     *
;**********************************************************************
;                                                                     *
;    Notes:                                                           *
;                                                                     *
;                                                                     *
;                                                                     *
;                                                                     *
;**********************************************************************

    list      p=16F690           ; list directive to define processor
    #include <p16F690.inc>        ; processor specific variable definitions

    errorlevel  -302              ; suppress message 302 from list file

    __CONFIG   _CP_OFF & _CPD_OFF & _BOR_OFF & _MCLRE_ON & _WDT_OFF & _PWRTE_ON & _INTRC_OSC_NOCLKOUT & _FCMEN_OFF & _IESO_OFF 

; '__CONFIG' directive is used to embed configuration word within .asm file.
; The lables following the directive are located in the respective .inc file.
; See data sheet for additional information on configuration word settings.


#define	relayPort	PORTA
#define	relayBit	0





;***** VARIABLE DEFINITIONS (examples)

d1_value	EQU		.219	;
d2_value	EQU		.250	;
d3_value	EQU		.181	;



; example of using Shared Uninitialized Data Section
INT_VAR     UDATA_SHR     
w_temp      RES     1       ; variable used for context saving 
status_temp RES     1       ; variable used for context saving
pclath_temp RES     1       ; variable used for context saving


	udata	0x20				;Minnesbanker som används i koden
d1			res	1					;Tilläggs räknare till TMR0 för att öka tiden		
d2			res	1					;Råvärdet för sec, min hour dagar, 2 siffror
d3			res	1
	
setting		res	1					;För att ställa in vilket läge counten är min,hour eller dagar.

shadow		res	1

t1			res 1
w2			res 1

debug		res	1


;**********************************************************************
RESET_VECTOR    CODE    0x0000       ; processor reset vector
        goto    start                ; go to beginning of program

INT_VECTOR      CODE    0x0004       ; interrupt vector location

INTERRUPT

        movwf   w_temp            ; save off current W register contents
        movf    STATUS,w          ; move status register into W register
        movwf   status_temp       ; save off contents of STATUS register
        movf    PCLATH,w          ; move pclath register into W register
        movwf   pclath_temp       ; save off contents of PCLATH register
; isr code can go here or be located as a call subroutine elsewhere

	


	BCF			PIR1, TMR1IF	;Nolla TMR1s interrupt flagga

	BTFSC		setting,0		;Kolla om vi ska gå till sista räknaren
	goto		slutraknare

	DECFSZ		d1				;Räkna ner TMR1 tillägsräknare, kolla om den är noll
	GOTO		endIsr			;NEJ, fortsätt räkna
	movlw		d1_value		;JA, Återställ d1 Tillägsräknare
	movwf		d1
	DECFSZ		d2				;Räkna ner TMR1 tillägsräknare, kolla om den är noll
	GOTO		endIsr			;NEJ, fortsätt räkna
	movlw		d2_value		;JA, Återställ d2 Tillägsräknare
	movwf		d2
	BSF			setting,0

slutraknare
	DECFSZ		d3	
	goto		endIsr
	movlw		d3_value		;JA, Återställ d1 Tillägsräknare
	movwf		d3
	CLRF		setting

	CLRF		shadow
	BSF			shadow,relayBit
	MOVFW		shadow
	XORWF		relayPort, f
	



endIsr
        movf    pclath_temp,w     ; retrieve copy of PCLATH register
        movwf   PCLATH            ; restore pre-isr PCLATH register contents
        movf    status_temp,w     ; retrieve copy of STATUS register
        movwf   STATUS            ; restore pre-isr STATUS register contents
        swapf   w_temp,f
        swapf   w_temp,w          ; restore pre-isr W register contents
        retfie                    ; return from interrupt

MAIN_PROG       CODE

start
; remaining code goes here

	BANKSEL	PORTA		;Init Port A & B & C
	CLRF 	PORTA 
	BANKSEL	PORTB
	CLRF 	PORTB
	BANKSEL	PORTC
	CLRF 	PORTC  		

	BANKSEL	ANSEL
	CLRF 	ANSEL 		;digital I/O
	BANKSEL	ANSELH
	CLRF 	ANSELH 		;digital I/O

	BANKSEL	TRISA
	MOVLW 	b'00000000' ;Set RA<0-7> as Outputs
	MOVWF 	TRISA 	

	BANKSEL	TRISB
	MOVLW 	b'00000000' ;Set RB<0-7> as Outputs 
	MOVWF 	TRISB 

	BANKSEL	TRISC
	MOVLW 	b'00000000' ;Set RC Outputs and Inputs
	MOVWF 	TRISC 	

	BCF 	STATUS,RP0 	;Bank 0
	CLRWDT 				;Clear WDT and prescaler
	
	MOVLW	b'00110001'		;TMR1 on prescaler settings
	MOVWF	T1CON

	BANKSEL	PIE1
	BSF		PIE1,0			;TMR1 interrupt enabled

	BANKSEL	INTCON
	MOVLW	b'11000000'		;Global interrupt and TMR0 interrupt enabled
	MOVWF	INTCON 		

	movlw	d1_value	;Ladda TMR0s extraräknare med förbestämt värde, 
	movwf	d1			;definieras i början av koden.
	movlw	d2_value	;Ladda TMR0s extraräknare med förbestämt värde, 
	movwf	d2			;definieras i början av koden.
	movlw	d3_value	;Ladda TMR0s extraräknare med förbestämt värde, 
	movwf	d3			;definieras i början av koden.

	movlw	.1
	movwf	debug

	CLRF	setting

	BSF		relayPort, relayBit



MainLoop

        goto    MainLoop             ; loop forever






; initialize eeprom locations

EE      CODE    0x2100
        DE  0x00, 0x01, 0x02, 0x03

        END                       ; directive 'end of program'