Permanent sleep

[Acetronics2]

Hi, Charudatt

Straight from my test bench :


@ __CONFIG _INTOSC_OSC_NOCLKOUT & _WDT_OFF & _LVP_OFF & _PWRTE_OFF & _CP_OFF & _BODEN_OFF

DEFINE NO_CLRWDT 1
DEFINE LCD_EBIT 1

CMCON=7
VRCON=%01101100 'VRCON bit7 is OFF for no current drain
OPTION_REG.7 = 1 ' DISABLE INTERNAL PULLUPS
Porta = 0
PORTB = 0
Trisa = %11111111
Trisb = %01111111

LED VAR PORTB.5
SleepLed var PORTB.7
Dummy var byte

'
' PIC Low-Power Sleep Routine
' ---------------------------
'
' Set Sleep Interrupts
' --------------------
INTCON=%00010000 ' Interrupt Control Register
' 7=0 - GIE - Global Interrupt Enable
' 6=0 - PEIE - Peripheral Interrupt Enable
' 5=0 - TOIE - TMR0 Overflow Interrupt Enable
' 4=1 - INTE - RB0/INT Enable
' 3=0 - RBIE - PORTB change interrupt Enable
' 2=0 - TOIF - TMR0 Overflow Flag
' 1-0 - INTF - RB0/Ext Interrupt Flag
' 0=0 - RBIF - PORTB Interrupt Flag
OPTION_REG.6=1 ' 1=RB0 Rising-Edge Trigger, 0=Falling-Edge Trigger

PAUSE 500
LCDOUT $FE,1
CYCLE:
'
' Reset Interrupt Flags
' ---------------------
INTCON.1=0 ' Reset RB0 Flag
INTCON.0=0 ' Reset PORTB change Flag
'
' Sleep
' -----
LOW LED


LCDOUT $FE,2 , "*** SLEEPING ***"
High Sleepled

@ SLEEP

Dummy = PORTB
LOW SleepLed
@ nop
@ nop
@ nop

Pause 100 ' Needed for system Wake-Up
HIGH LED : PAUSE 200

LCDOUT $FE,1, " HURRY UP "

PAUSE 5000
LOW LED

GOTO CYCLE

END

CONFIG Modified to suit MPLAB Requirements ...

I used a LCD to show what happening and fixed LEDs for Wake (green) /Sleep ( Red ) states ...

disabled CLRWDT PbP insertions ... ( a passing idea ??? )

also disabled the WPU ... but that is not problematic.

also changed LEDs PORTs ...

As PORTB was used ... I did not try "Interrupt change on PortB" ... but works great with B.0 interrupt.

Works fine ... as you intended to program it !!!

Regards

Alain