Interrupts and Sleep help 16f818

[andybarrett1]

Hi thank you for reading…

Using a 16f818/819

I am attempting to put something together that is asleep most of the time and only wakes up for a minute or so to read a display when a button is pressed…To save battery power.

I was thinking of using the ON INTERRUPT command on RB0 , And @SLEEP (the asm version, not the PicBasic Pro)

At the moment I am using the internal Pullups …(Option_Reg.7) … Some talk suggests issues on wakeup ?

I have no code yet as am looking for examples most of what I can find confuses me… I can do hardware but software is not easy !!

Any help / pointers welcome

Thank you for reading.

[Acetronics2]

Hi,

Here is one way to do that ( Pic is a 18F2520 )

Sommeil:

	LCDOUT $FE,2, "BYE-BYE "

	For I = 8 to 0	Step -1					'Animation arret
	
		LCDOUT 	$FE,$C0,REP "*"\I," "			'	...  4s 			
		PAUSE 500
		
	NEXT I
	
	PORTB.4 	= 0					'Ports LCD à 0
	PORTB.5 	= 0

	PORTC.7 	= 0					' PortC à 0
	PORTC.6 	= 0
	PORTC.5 	= 0
	PORTC.4 	= 0	
	
	
	AlLCD 		= 1					' Coupure LCD
	AlRef 		= 0					' Coupure Vref	
	ADCON0.0	= 0					' Désactivation ADC

	
	T3CON.0		= 0				' arret TMR3
	T1CON.0		= 0				' arret TMR1
	T0CON.7 	= 0				' arret TMR0
	
	INTCON.7 	= 0			' Wakeup sans interruptions
	
	INTCON3.0 	= 0						' reset flag INT1
	INTCON3.3 	= 1			' validation INT1 pour réveil

	Alim		= 0			'Coupure alimentation
	Signal 		= 0			'Extinction voyant régime
				
@ SLEEP
@ Nop						' Redémarrage par mise du contact sans coupure générale
							' Arret par décharge capa alim. 

	
	INTCON3.3 	= 0			'Neutralisation INT1
	INTCON3.0 	= 0			'Reset Flag INT1
	Alim		= 1			'Remise alimentation si remise contact rapide.
	
'*****************************************************************************
Wakeup: 'Début du Programme - reveil du PIC / Affichage Memoire
'*****************************************************************************
'
FLAGS 	= 0					' Validation Reset LCD

	PORTB.4 = 0					'Ports LCD à 0
	PORTB.5 = 0

	PORTC.7 = 0					' PortC.4-7 à 0
	PORTC.6 = 0
	PORTC.5 = 0
	PORTC.4 = 0
	
Reveil 	= 1
LSelect	= 0
	
GOTO Load				'Rechargement mémoires et Affichage de Départ

Here, the processor stops and restarts @ the line after the "@Sleep" command, because GIE bit has been disabled.
The @NOP is highly recommended here ...

IF GIE is not disabled , processor will jump to the Interrupt stubb ...

Alain

[Demon]

Merci Alain.

I'm keeping a link to this thread.

Robert

[andybarrett1]

Hello again...

Have put together some code as I see it... :-

' Name        : PI.pbp
' Compiler    : PICBASIC PRO Compiler 2.5
' Assembler   : MPASM
' Target PIC  : PIC16F628A or similar type
' Hardware    : VeroBoard
' Oscillator  : 4Megs Internal
' Keywords    : I2CREAD, I2CWRITE, LCDOUT
' Description : PICBASIC PRO program for an LCD clock program
' using the Dallas DS1307 I2C RTC.


' Define LCD pins
        DEFINE LCD_EREG PORTA
        DEFINE LCD_EBIT 6

' Alias pins
        SDA Var PORTB.1
        SCL Var PORTB.4
        wakebutton var PORTB.0 'shake
        lcdandrtc var PORTA.6 'LCD and RTC ON/OFF
        timeout1 var byte
        'timeout2 var byte
        
        

' Allocate variables
        RTCYear  Var Byte
        RTCMonth Var Byte
        RTCDate  Var Byte
        RTCDay   Var Byte
        RTCHour  Var Byte
        RTCMin   Var Byte
        RTCSec   Var Byte
        RTCCtrl  Var Byte
     
        TRISA=0 'outputs
        TRISB=15 'Bit 0,1,2,3 inputs
        CMCON=7 'turns  off analogs
wakeup: INTCON=%00010000 'RB0 is interrupt
        OPTION_REG.6=0 'Trig on falling
        OPTION_REG.7=0 'Enables pull ups       
        Pause 500            ' Wait for LCD to startup
        Lcdout $fe, 1 ' Clear LCD screen
        Lcdout "WELCOME TO"  ' Display WELCOME TO 
        Lcdout $fe, $C0, "      PI DAY" ' Display  PI Day
        Pause 2000       ' Wait 2 seconds
        Lcdout $fe, 1 ' Clear LCD screen
        
        'Set initial time 
        RTCYear = $15
        RTCMonth = $03
        RTCDate = $03
        RTCDay = $06
        RTCHour = $20
        RTCMin = $46
        RTCSec = 0
        RTCCtrl = 0
        'Gosub settime        ' Set the time
        Goto mainloop        ' Skip over subroutines

' Subroutine to write time to RTC

'settime:I2CWrite SDA, SCL, $D0, $00, [RTCSec, RTCMin, RTCHour, RTCDay, RTCDate, RTCMonth, RTCYear, RTCCtrl]
'        Return

' Subroutine to read time from RTC
        
gettime:I2CRead SDA, SCL, $D0, $00, [RTCSec, RTCMin, RTCHour, RTCDay, RTCDate, RTCMonth, RTCYear, RTCCtrl]
        timeout1=rtcmin
        Return

' Main program loop 
        
mainloop:Gosub gettime        ' Read the time from the RTC

        ' Display time on LCD
        'Lcdout $fe, 1, hex2 RTCMonth, "/", hex2 RTCDate, "/" , hex2 RTCYear,_
        '"  ", hex2 RTCHour, ":", hex2 RTCMin, ":", hex2 RTCSec

        Lcdout $fe, 1, HEX2 RTCDate, "/", HEX2 RTCMonth,"   ", HEX2 RTCHour, ":", HEX2 RTCMin, ":", HEX2 RTCSec
        
        IF RTCHour <=$12 then  gosub morning
        IF RTCHour >=$13 then  gosub afternoon
        
        IF RTCHour=$03 and RTCMin=$14 Then CACHE ' Morning Cache
        IF RTCHour=$15 and RTCMin=$14 Then CACHE ' Afternoon Cache
        
        
        if rtcmin=(timeout1+2) then bedtime
        
        Pause 500            ' Do it about 2 times a second
        Goto mainloop        ' Do it forever
        
morning:    Lcdout $fe, $C0, "CACHE @  3:14AM"
        return
        
afternoon:  Lcdout $fe, $C0, "CACHE @ 3:14PM" 
        return
        
CACHE:  Lcdout $fe, 1 ' Clear LCD screen
        LCDOUT "CONGRATULATIONS"
        Lcdout $fe, $C0, "CACHE IS LOCATED"
        PAUSE 2000
        Lcdout $fe, 1 ' Clear LCD screen
        Lcdout "N   XX",$DF, "  YY.ZZZ "  ' Display N   123° 456.789
        Lcdout $fe, $C0, "W   XX",$DF, "  YY.ZZZ " ' Display  W   123° 456.789
        PAUSE 20000
         
bedtime:high lcdandrtc 'turn of lcd and rtc
        INTCON.1=0 'reset RB0 interupt flag
        @ sleep
        @ NOP
        @ NOP
        pause 500 'wakeup delay
        goto wakeup
        
        end

Would appreciate some comments .... good or bad on above code.... I am not really sure about my jumps out of the main loop to "bedtime" I have just identified that if it is more than 58 mins to the hour my +2 calc wont work :-) So need to find a work around ?

Thank you for reading... Andy

[Tabsoft]

Andy,

You are correct that your timeout1 test/calculation will fail when the RTC roles over from 59 to 00.
Also, if for some reason that the execution is delayed you could miss an entire minute which would further affect your timeout1 test.

I took the liberty of adding/modifying the logic to make this portion more robust (although I can't test this :-) )
Take a look at the revised code and see if this helps you.

' Name        : PI.pbp
' Compiler    : PICBASIC PRO Compiler 2.5
' Assembler   : MPASM
' Target PIC  : PIC16F628A or similar type
' Hardware    : VeroBoard
' Oscillator  : 4Megs Internal
' Keywords    : I2CREAD, I2CWRITE, LCDOUT
' Description : PICBASIC PRO program for an LCD clock program
' using the Dallas DS1307 I2C RTC.


' Define LCD pins
        DEFINE LCD_EREG PORTA
        DEFINE LCD_EBIT 6

' Alias pins
        SDA Var PORTB.1
        SCL Var PORTB.4
        wakebutton var PORTB.0 'shake
        lcdandrtc var PORTA.6 'LCD and RTC ON/OFF
        timeout1 var byte
        'timeout2 var byte
        PrevTime var byte     'Holds previously read RTCMin
        CurTime  var byte     'Holds currently read RTCMin
        TimeoutMax var byte 'You can change this to a constant if it is not changed during execution
        WakeupFlag var bit    'Used for wakeup/reset tracking for timer
        
        TimeoutMax = $02    'You can delete this if TimeoutMax is a constant
        WakeupFlag = 1        'Preset to true
        
' Allocate variables
        RTCYear  Var Byte
        RTCMonth Var Byte
        RTCDate  Var Byte
        RTCDay   Var Byte
        RTCHour  Var Byte
        RTCMin   Var Byte
        RTCSec   Var Byte
        RTCCtrl  Var Byte
     
        TRISA=0 'outputs
        TRISB=15 'Bit 0,1,2,3 inputs
        CMCON=7 'turns  off analogs
        
        
        
wakeup: INTCON=%00010000 'RB0 is interrupt
        OPTION_REG.6=0 'Trig on falling
        OPTION_REG.7=0 'Enables pull ups       
        Pause 500            ' Wait for LCD to startup
        Lcdout $fe, 1 ' Clear LCD screen
        Lcdout "WELCOME TO"  ' Display WELCOME TO 
        Lcdout $fe, $C0, "      PI DAY" ' Display  PI Day
        Pause 2000       ' Wait 2 seconds
        Lcdout $fe, 1 ' Clear LCD screen
        
        
        timeout1 = TimeoutMax   'Preset timeout1 for countdown
        
        'Set initial time 
        RTCYear = $15
        RTCMonth = $03
        RTCDate = $03
        RTCDay = $06
        RTCHour = $20
        RTCMin = $46
        RTCSec = 0
        RTCCtrl = 0
        'Gosub settime        ' Set the time
        Goto mainloop        ' Skip over subroutines

' Subroutine to write time to RTC

'settime:I2CWrite SDA, SCL, $D0, $00, [RTCSec, RTCMin, RTCHour, RTCDay, RTCDate, RTCMonth, RTCYear, RTCCtrl]
'        Return

' Subroutine to read time from RTC
        
gettime:I2CRead SDA, SCL, $D0, $00, [RTCSec, RTCMin, RTCHour, RTCDay, RTCDate, RTCMonth, RTCYear, RTCCtrl]
        'timeout1=rtcmin
        CurTime = RTCMin    '
        if WakeupFlag = 1 then  '1st time after a wakeup/reset
            PrevTime = CurTime  'Set PrevTime after wakeup/reset
            WakeupFlag = 0        'Clear the flag
        endif
        
        Return

' Main program loop 
        
mainloop:
        Gosub gettime        ' Read the time from the RTC

        ' Display time on LCD
        'Lcdout $fe, 1, hex2 RTCMonth, "/", hex2 RTCDate, "/" , hex2 RTCYear,_
        '"  ", hex2 RTCHour, ":", hex2 RTCMin, ":", hex2 RTCSec

        Lcdout $fe, 1, HEX2 RTCDate, "/", HEX2 RTCMonth,"   ", HEX2 RTCHour, ":", HEX2 RTCMin, ":", HEX2 RTCSec
        
        IF RTCHour <=$12 then  gosub morning
        IF RTCHour >=$13 then  gosub afternoon
        
        IF RTCHour=$03 and RTCMin=$14 Then CACHE ' Morning Cache
        IF RTCHour=$15 and RTCMin=$14 Then CACHE ' Afternoon Cache
        
        
        'if rtcmin=(timeout1+2) then bedtime
        If CurTime > PrevTime Then
            timeout1 = timeout1 - (CurTime - PrevTime)
            PrevTime = CurTime
        else
            'Oops something happened. Current time is less than Previous time
            'This should take care of the rollover from 59 to 00 minutes and unexpected delays
            'If timeout1 = 0 no need to do anything, the timeout1 test below will put the unit to sleep
            'The WakeupFlag will be set when we go to sleep and PrevTime and CurTime will be set properly
            'after we wakeup and proceed through the mainloop
            if timeout1 > 0 then
                timeout1 = timeout1 - 1 'decrement the timeout value
                PrevTime = CurTime  'Reset Previous time to a valid number for the countdown timer
            endif
        endif
        
        if timeout1 = 0 then    'Timeout reached
            WakeupFlag = 1     'Reset the flag
            goto bedtime        'countdown has reached 0, go to sleep
        endif
        
        Pause 500            ' Do it about 2 times a second
        Goto mainloop        ' Do it forever
        
morning:    Lcdout $fe, $C0, "CACHE @  3:14AM"
        return
        
afternoon:  Lcdout $fe, $C0, "CACHE @ 3:14PM" 
        return
        
CACHE:  Lcdout $fe, 1 ' Clear LCD screen
        LCDOUT "CONGRATULATIONS"
        Lcdout $fe, $C0, "CACHE IS LOCATED"
        PAUSE 2000
        Lcdout $fe, 1 ' Clear LCD screen
        Lcdout "N   XX",$DF, "  YY.ZZZ "  ' Display N   123° 456.789
        Lcdout $fe, $C0, "W   XX",$DF, "  YY.ZZZ " ' Display  W   123° 456.789
        PAUSE 20000
         
bedtime:high lcdandrtc 'turn of lcd and rtc
        INTCON.1=0 'reset RB0 interupt flag
        @ sleep
        @ NOP
        @ NOP
        pause 500 'wakeup delay
        goto wakeup
        
        end

[andybarrett1]

Missed this...

Thanks TABSoft..... Will try later.

Let you know how I get on

BR
Andy

[andybarrett1]

Just had a play with this….

Sorted a few problems out around the sleep…. Still got issues jumping out of the main loop to go to sleep…But the sleep works !!

[Tabsoft]

Andy,

You can encase your mainloop code in a Do/Loop While with a test of the WakeupFlag.
Then when the WakeupFlag is set at timeout, the loop will terminate and you can replace the "GOTO mainloop" instruction with a GOTO bedtime as the last instruction of mainloop.

Or

You can use a Do/Loop with an "Exit" statement in place of the "GOTO bedtime" instruction in the timeout1 If/Then test. Still replace the "GOTO mainloop" instruction with a "GOTO bedtime" instruction as the last instruction in mainloop.

Also, I overlooked the fact that you are jumping to CACHE twice a day and CACHE falls through to bedtime without setting the WakeupFlag. You shou set the WakeupFlag before you jump to CACHE.

What kind of problems are you having?

[andybarrett1]

Idea in the night of using a FOR / NEXT loop with a IF / THEN / GOTO

Easy Fix ??

Wil try later !!!

[andybarrett1]

FOR / NEXT Instruction worked…

One Cycle of my loop takes a .5 Seconds so :-

Timeout = 0 to 240
Code…
………..

Next Timeout
GOTO Label

Thank you for help

Andy

[andybarrett1]

Thank you for reading

Just need to get the quiescent current down whist in sleep mode. Currently seeing around the 2mA mark.

I am hoping we can get it lower than that…?

Thank you for reading.

Andy