12f675_fuse_about_to_blow!

[mackrackit]

I sometimes wonder is there a 'best of practise' when it comes to programming

Yup, it is called seeing how Darrel or Bruce would do it..

Then again I'm still pretty much at the 'if it works I'm happy' stage of things......

Me too!

[LEDave]

Problem:

I'm using SLEEP uncalibrated to put the PIC to SLEEP until an IOC occurs earlier on in the program. I'm also using SLEEP 1800 to put the PIC to sleep and test that it's still dark before transmitting the VISITS data. I'm getting an error when I compile the program though (see attachment). I've turned the _WDT_ON but still this error. Any ideas? Is using SLEEP an SLEEP Period in the same program uncompatable?

DARK:
     E_OUT=0           ' Disable transmitter
     INTCON.0 = 0      ' Clear int on change flag
     @ SLEEP 1800      ' It could be night time...It might only be a cloud though...   
                       ' so back to sleep for half an hour..zzzz
     @ NOP             ' Do nothing for 1st instruction on wake-up
              
    if  GPIO.4= 0  then ENCODE  ' It really ia dark so carry on and transmit VISITS
    
    IF  GPIO.4= 1  THEN RETURN  ' It's not dark after all so carry_on_counting

Forgot to add, if I comment out the line:

 @ SLEEP 1800      ' It could be night time...It might only be a cloud though...

the program compiles

Dave

[mackrackit]

@SLEEP can not be used like that. The OSC is stopped when sleeping so it would not know what to do with it.

But... Bruce to the rescue again.
http://www.picbasic.co.uk/forum/showthread.php?t=7013

[LEDave]

Hi mackrackit

But... Bruce to the rescue again.

I must add him to my Christmas card list too.....!

So @SLEEP (no period) for the visits count with IOC and a WDT timing loop for the "is it dark or just very cloudy" 30 min sleep.

OPTION_REG = %00001111

So with OPTION reg bit.4 set to 1 prescaler assigned for WDT on and a 128 prescaler I'm thinking that:

30mins x 60sec / 2.304secs = 781 counts for Bruce's timing / SLEEP loop below.

COUNTER=0 ' clear before entry
WHILE COUNTER < 781
@ SLEEP
COUNTER=COUNTER+1
WEND

So not really sleeping, more power napping.........

How does the above sound / look.

Dave

[mackrackit]

So not really sleeping, more power napping.........

That is what I was doing while driving home today....

How does the above sound / look.

Looks like it should work.
And you say that you have been doing this less than a year.

[LEDave]

That is what I was doing while driving home today....

Careful, we don't want any incidents now do we...!

And you say that you have been doing this less than a year.

A year February from memory, I think the progress made has been down to the tutors as much as the pupil.

Dave

[LEDave]

Ok,

Time to stick my neck out and say I think (I think) I've finished the TX / RX programs. I haven't connected them to the sensor / LDR to test for operation but I'd be very interested as to whether you can see any gaping errors in the code, here goes, TX first:

'****************************************************************
'*  Name    : rfPIC_TX.BAS                                      *
'*  Author  : B. Reynolds 90% LEDave 10%...Ok 5%                *
'*  Notice  : Copyright (c) 2007 Reynolds Electronics           *
'*          : All Rights Reserved                               *
'*  Date    : 10/09/2007                                        *
'*  Version : 1.0                                               *
'*  Notes   : 2-BIT Encoder for remote control with the         *
'*          : rfPIC12F675 on Microchip rfPIC demo board         *
'****************************************************************
@ __config _INTRC_OSC_NOCLKOUT & _WDT_ON & _MCLRE_OFF & _CP_OFF
    
    DEFINE OSC 4
    DEFINE NO_CLRWDT 1
    DEFINE OSCCAL_1K 1
    
    SYMBOL D_OUT = GPIO.2 ' RF serial data output
    SYMBOL E_OUT = GPIO.5 ' RF transmitter enable output
    
    
    VISITS   VAR word   ' Holds total daily bird visits
    DAT_OUT  VAR BYTE   ' Holds 8-bit data byte
    DAT_OUT2 VAR BYTE   ' Holds 8-bit test byte 
    LOOPS    VAR BYTE   ' Loop var
    CHK_SUM  VAR BYTE   ' Holds calculated checksum of outbound data
    COUNTER  VAR BYTE   ' Holds WDT count values
    BAUD     VAR WORD   ' Holds baud rate
    
    ' Constants
    PreAmble CON $A5    ' 10100101 preamble
    Synch    CON "~"    ' 01111110 synch byte
    N4800    CON 188    ' 4800 bps 
    N2400    CON 16780  ' 2400 bps
    GUARD    CON 5      ' 5mS guard time pause
    
    
    ' hardware init 
    GPIO = 0            ' Everything off on boot
    ' GPIO.2=data out, GPIO.5=RF enable, GPIO.3,4 = Bird_visit_count / It's dark..maybe
    TRISIO = %00011011  '
    ANSEL = 0           ' Disable A/D
    INTCON = %00001000  ' Enable port change wakeup from sleep
    WPU = %00010000     ' pull-up on for GPIO.4 (external pull-up already on GPIO.3)
    IOC = %00011000     ' Wakeup on change enabled for GPIO.3,4
    VRCON = 0           ' Disable internal Vref
    CMCON = 7           ' Disable comparators
    OPTION_REG = %00001111 'Watch_Dog_Timer ON with a 128 prescaler
    
    
    D_OUT = 0           ' Idles low for inverted serial output
    E_OUT = 0           ' Enable for RF transmitter=0 (transmiter off)
    BAUD = N2400        ' Set baud rate here
    
Main:    
    ' Read port to clear missmatch, if with no buttons pressed, then
    ' clear int-on-change flag & snooze until wake up on change. This
    ' conserves battery power on the demo board with 3V coin cell.
    
  IF GPIO.3= 1 AND GPIO.4= 1 THEN ' Nothing has happened so SLEEP
       E_OUT=0       ' Disable transmitter
       INTCON.0 = 0  ' No Bird detected or it's still light so clear int on change flag
       @ SLEEP       ' and start snoozin..zzzzzzzzzzz indefinatly
       @ NOP         ' Do nothing for 1st instruction on wake-up
  ELSE  
   IF  GPIO.3=0 THEN GOSUB COUNTS 'Bird detected at box - GOTO LABEL COUNTS   
   IF  GPIO.4=0 THEN GOSUB DARK   'It's got dark? or just cloudy - GOTO LABEL DARK
  ENDIF     
  GOTO MAIN          'Back to sleep / continue counting
    
    
 COUNTS:
      VISITS = VISITS +1 'Bird at box so increment counter
      INTCON.0 = 0       ' Clear int on change flag
  RETURN                 ' Then back to sleep....
    
 DARK:
      INTCON.0 = 0     ' Clear int on change flag
      E_OUT=0          ' Disable transmitter
                       ' It could be night time...It might only be a cloud though...   
                       ' so back to sleep / wake / sleep for half an hour..zwzwzw
      COUNTER=0        ' clear before entry
WHILE COUNTER < 781    'Loop for 30 mins
     @ SLEEP
     COUNTER=COUNTER+1
     IF  GPIO.3= 0  THEN COUNTS 'Bird at box so continue counting
WEND     
              
    if  GPIO.4= 0  then ENCODE  ' It really ia dark so carry on and transmit VISITS
    
    IF  GPIO.4= 1  THEN RETURN  ' It's not dark after all so carry_on_sleeping_counting 
    
Encode:  
    E_OUT=1     ' Turn transmitter on 
    pauseus 25  ' Let transmitter settle
    DAT_OUT = %10101001
    INTCON.0 = 0  ' Clear int on change flag
      
    ' Build checksum of 2 data bytes
    CHK_SUM = (DAT_OUT * 2)
    
Transmit:
    LET VISITS = VISITS / 2  'Just VISITS to not from the box
    SEROUT2 D_OUT,BAUD,[PreAmble,Synch,DAT_OUT,DAT_OUT,CHK_SUM,VISITS.highbyte,VISITS.lowbyte]
    PAUSE GUARD ' 5mS guard time gives decoder time to respond,calculate,change,etc.
    
    GOTO Main
        
    END

Dave