Klok invoegen bij project!

' LCD clock program using On Interrupt
' Uses TMR0 and prescaler.  Watchdog Timer should be
' set to off at program time and Nap and Sleep should not be used.
' Buttons may be used to set hours and minutes

		Include "PROTON_4.INC"

		Dim hour    as     byte    		' Define hour variable
		Dim dhour   as     byte    		' Define display hour variable
		Dim minute  as     byte    		' Define minute variable
		Dim second  as     byte    		' Define second variable
		Dim ticks   as     byte    		' Define pieces of seconds variable
		Dim update  as     byte    		' Define variable to indicate update of LCD
		Dim i       as     byte    		' Debounce loop variable

        Delayms 100       				' Wait for LCD to startup

        hour = 0        				' Set initial time to 00:00:00
        minute = 0
        second = 0
        ticks = 0

        update = 1      				' Force first display

' Set TMR0 to interrupt every 16.384 milliseconds
        OPTION_REG = $55        		' Set TMR0 configuration and enable PORTB pullups
        INTCON = $A0            		' Enable TMR0 interrupts
        On Interrupt Goto Tickint		' Create a SOFTWARE INTERRUPT

' Main program loop - in this case, it only updates the LCD with the time
mainloop:
        PORTB = 0       				' PORTB lines low to read buttons
        TRISB = $F0     				' Enable all buttons

        ' Check any button pressed to set time
        If PORTB.7 = 0 Then decmin
        If PORTB.6 = 0 Then incmin      ' Last 2 buttons set minute
        If PORTB.5 = 0 Then dechr
        If PORTB.4 = 0 Then inchr       ' First 2 buttons set hour

        ' Check for time to update screen
Chkup:  If update = 1 Then
        	Cls   						' Clear screen

       		' Display time as hh:mm:ss
       		dhour = hour    			' Change hour 0 to 12
       		If (hour // 12) = 0 Then
       			dhour = dhour + 12
       		Endif

       		' Check for AM or PM
       		If hour < 12 Then
       			Print dec2 dhour, ":", dec2 minute, ":", dec2 second, " AM"
       		Else
       			Print dec2 (dhour - 12), ":", dec2 minute, ":", dec2 second, " PM"
       		Endif

       		update = 0      			' Screen updated
       	Endif

		Goto mainloop   				' Do it all forever

' Increment minutes
Incmin: minute = minute + 1
        If minute >= 60 Then
			minute = 0
        Endif
        Goto debounce

' Increment hours
Inchr:  hour = hour + 1
        If hour >= 24 Then
			hour = 0
        Endif
        Goto debounce

' Decrement minutes
Decmin: minute = minute - 1
        If minute >= 60 Then
			minute = 59
        Endif
        Goto debounce

' Decrement hours
Dechr:  hour = hour - 1
        If hour >= 24 Then
			hour = 23
        Endif

' Debounce and delay for 250ms
Debounce: 
        For i = 1 to 25
        	Delayms 10        				' 10ms at a time so no interrupts are lost
        Next

        Update = 1      				' Set to update screen

        Goto Chkup

' Interrupt routine to handle each timer tick
        Disable         				' Disable interrupts during interrupt handler
Tickint: 
		ticks = ticks + 1      		' Count pieces of seconds
        If ticks < 61 Then tiexit       ' 61 ticks per second (16.384ms per tick)

' One second elasped - update time
        ticks = 0
        second = second + 1
        If second >= 60 Then
			second = 0
			minute = minute + 1
			If minute >= 60 Then
				minute = 0
            	hour = hour + 1
             	If hour >= 24 Then
                	hour = 0
           		Endif
    		Endif
        Endif

        update = 1      				' Set to update LCD

Tiexit: INTCON.2 = 0    				' Reset timer interrupt flag
        Resume

 SYMBOL PS0 = OPTION_REG.0      ' Prescaler ratio bit-0 
 SYMBOL PS1 = OPTION_REG.1      ' Prescaler ratio bit-1 
 SYMBOL PS2 = OPTION_REG.2      ' Prescaler ratio bit-2  
 SYMBOL PSA = OPTION_REG.3      ' Prescaler Assignment (1=assigned to WDT 0=assigned to oscillator)  
 

 GIE = 0                         ' Turn off global interrupts 
 PSA = 0                         ' Assign the prescaler to external oscillator 
 PS0 = 1                         ' Set the prescaler 
 PS1 = 1                         ' to increment TMR0 
 PS2 = 1                         ' every 256th instruction cycle 
 T0CS = 0                        ' Assign TMR0 clock to internal source 
 TMR0 = 0                        ' Clear TMR0 initially 
 T0IE = 1                        ' Enable TMR0 overflow interrupt 
 GIE = 1                         ' Enable global interrupts 

 PS2 PS1 PS0 PSA=0 (External crystal OSC) PSA=1 (Internal WDT OSC)
 0   0   0   1 : 2                        1 : 1
 0   0   1   1 : 4                        1 : 2
 0   1   0   1 : 8                        1 : 4
 0   1   1   1 : 16                       1 : 8
 1   0   0   1 : 32                       1 : 16
 1   0   1   1 : 64                       1 : 32
 1   1   0   1 : 128                      1 : 64
 1   1   1   1 : 256                      1 : 128

 DEVICE 16F886
... 
 ON_INTERRUPT GOTO Interrupt_handler
...
Interrupt_handler: 
 INC seconden
 if seconden = 60 then clear seconden
 T0IF = 0                        ' de timer 0 interrupt flag big terug op 0 zetten 
 CONTEXT RESTORE                 ' terugkeren van waar je kwam

 ON_INTERRUPT GOTO Interrupt_handler
...
Interrupt_handler: 
 INC seconden
 if seconden = 60 then clear seconden
 T0IF = 0                        ' de timer 0 interrupt flag big terug op 0 zetten 
 CONTEXT RESTORE                 ' terugkeren van waar je kwam

DEVICE 16F628A                ;We gebruiken een 16F628A type
CONFIG INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON, LVP_OFF, MCLRE_OFF
ALL_DIGITAL TRUE              ;Alle ingangen digitaal


		ON_INTERRUPT Goto myint

		Dim TICK as	Byte SYSTEM
		Dim seconds as Byte		
		Dim minutes as Word	
		Dim hours as Word	
	
		minutes = 0			
		seconds = 0
	
		T1CON = $01				' Turn on Timer1, prescaler = 1
		INTCON 	= $C0			' Enable global interrupts, peripheral interrupts
		PIE1 = $01				' Enable TMR1 overflow interrupt
		
Goto main
	
		Movlw	$C0				; Prepare to set TMR1 high register
		Movwf	TMR1H			; Set TMR1H to C0h
		Incf	TICK,F			; INCREMENT TICK COUNT
  		Bcf     PIR1, 0			; Clear interrupt flag

myint: 	
	PIE1 = 0				
	seconds = seconds + (tick / 61)	
	
	IF seconds = 60 THEN
	minutes = minuten + 1
        seconds = 0
	ENDIF
	
	IF minutes = 60 THEN
        hours = hours + 1
	minutes = 0
	ENDIF
	
	IF hours = 24 THEN
	hours = 0
	ENDIF
	
	PIE1 = $01				
Return						

main:
WHILE 1 = 1                  
  TOGGLE PORTA.1              
  DELAYMS 500                 
WEND                         

END 

DEVICE 16F628A
CONFIG INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON, LVP_OFF,MCLRE_OFF
ALL_DIGITAL true
 
On_interrupt Klok
SYMBOL INTF = INTCON.1        ' RB0 External Interrupt Flag
SYMBOL INTE = INTCON.4        ' RB0 External Interrupt Enable
SYMBOL GIE = INTCON.7         ' Global Interrupt Enable

SYMBOL Sec. = PORTb.0
SYMBOL Min. = portb.1
symbol hrs. = portb.2

DIM seconden as byte
dim minuten as byte
dim uren as byte


DELAYMS 500
CLS

GOTO over_irq

Klok:
INC seconden
if seconden >= 60 then
minuten = minuten + 1
seconden = 0
endif
if minuten >= 60 then
uren = uren + 1
minuten = 0 
endif
if uren >= 24 then
uren = 0
ENDIF
INTF=0
CONTEXT RESTORE


over_irq:
GIE=0
INTE=1
GIE=1

loop:
DELAYMS 100
PRINT AT 1,1, DEC2 uren,":",dec2 minuten,":",dec2 seconden
GOTO loop
END 

Device 16F628A                ;Gebruik een 16F628A type
Config WDT_OFF, PWRTE_ON, LVP_OFF, MCLRE_OFF, HS_OSC
ALL_DIGITAL TRUE              ;Alle ingangen digitaal
XTAL 16                       ;Kristal van 16MHz
...
Symbol GIE = INTCON.7 		   ;global interrupt enable
Symbol T0IE = INTCON.5 	       ;TMR0 overflow interrupt enable 
Symbol T0IF = INTCON.2 	       ;TMR0 overflow interrupt flag bit
Symbol PS0 = OPTION_REG.0      ;Prescaler ratio bit-0 
Symbol PS1 = OPTION_REG.1      ;Prescaler ratio bit-1 
Symbol PS2 = OPTION_REG.2      ;Prescaler ratio bit-2  
Symbol PSA = OPTION_REG.3      ;Prescaler Assignment  
Symbol T0CS = OPTION_REG.5     ;Timer0 Clock Source Select
...
TRISA = ???
TRISB = ???
...
On_interrupt GoTo Klok
GIE = 0				           ;disable all global interrupts
PSA = 0                        ;Assign the prescaler to oscillator 
PS0 = 0                        ;Set the prescaler 
PS1 = 0                        ;to increment TMR0 
PS2 = 0                        ;every 2nd instruction cycle 
T0CS = 0                       ;Assign TMR0 clock to internal source
T0IE = 1			           ;TMR0 overflow interrupt enable
T0IF = 1			           ;TMR0 overflow interrupt flag bit
GIE = 1				           ;enable all global interrupts
TMR0 = 0                       ;zet tmr0 op 0

GoTo loop

Klok:
...
T0IF=0
Context Restore

loop:
...

GIE = 0				           ;disable all global interrupts
PSA = 0                        ;Assign the prescaler to oscillator 
PS0 = 0                        ;Set the prescaler 
PS1 = 0                        ;to increment TMR0 
PS2 = 0                        ;every 2nd instruction cycle 
T0CS = 0                       ;Assign TMR0 clock to internal source
T0IE = 1			           ;TMR0 overflow interrupt enable
T0IF = 1			           ;TMR0 overflow interrupt flag bit
GIE = 1				           ;enable all global interrupts
TMR0 = 0                       ;zet tmr0 op 0

On_interrupt GoTo Klok
GIE = 0				           ;disable all global interrupts
PSA = 0                       ;Assign the prescaler to oscillator 
PS0 = 1                        ;Set the prescaler 
PS1 = 1                        ;to increment TMR0 
PS2 = 1                        ;every 2nd instruction cycle 
T0CS = 0                       ;Assign TMR0 clock to internal source
T0IE = 1			           ;TMR0 overflow interrupt enable
T0IF = 1			           ;TMR0 overflow interrupt flag bit
GIE = 1				           ;enable all global interrupts
TMR0 = 0                       ;zet tmr0 op 0

 PS2 PS1 PS0 PSA=0 (External crystal OSC) PSA=1 (Internal WDT OSC)
 0   1   0   1 : 8                        1 : 4