16F88 internal clock configuration

[Tom Gonser]

Hmmm.. Reinstalling PBP is just copying files to a folder I thought. I think I need to do this, but am not sure exactly how to 'deinstall'. PBP does not show up in WinXP as a program that has a de-installer. I can move them out of a folder, restart, then put them back, but I don't see what that would do.

Also, I think the 16F88.bas file is corrupt because the installer tries to update it, but says it fails because of an unknown version of that 16f88.bas.... This is probably the reason for the odd behaviour.

I'll ping MELABS..

Thanks for all your help!

Tom

[Tom Gonser]

Thanks folks!! The pesky (and cool) 16F88 gave up the ghost, and is computing math right!! I re-installed PBP, updated the 16F88.INC files, and reduced program space to 3000 from 4200. I DID have to struggle with the _CONFIG settings a bit, finally dupmping the .INC files in favor of putting it in the code after the @...

[but] The ONLY thing that remains is an odd thing... My 'Onetime' routine does not appear to 'take'... I WANT it to go the the routine 'Onetime', and output data on the various serouts.. sort of a 'welcome' for 5 seconds.. What they DO is 'flash' super fast, and then disappear. Then the main program loop starts and things work fine..

This is the LAST issue with this port! Is the fact I was running at 4mhz on the other unit an issue? I have the following OSC flags:

DEFINE OSC 8
OSCCON=%01111000 '8 Mhz
CMCON = 7 'turn comparators off
ANSEL = 0 'All digital


A section of the program follows:

....

Init:

PORTA = %00000 'Initialize PortA to all zeros - all output
TRISA = %00000 'All port A output

PORTB = %00000010 'Initialize PortB
TRISB = %00000010 'Port 2 input

' -----[ Main Code ]-------------------------------------------------------

Gosub Onetime

Menu:' ****** [Main Program Loop] ************************************************** ***************
gosub counter ' main counter routine
gosub getdata ' go get data
gosub calcvalue ' calculate values
gosub displayit ' display information
if wp > 10 then
gosub waypoint
endif

goto menu

'************************************************* ************************************************
'************************* [First Screen] *****************
Onetime:
wp= 0
serout2 Apinout, 16468, [I,CLR]
serout2 Apinout, 16468, [I,L1_C1]
serout2 Apinout, 16468, [" MicroTracker"]
serout2 Apinout, 16468, [I,L2_C1]
serout2 Apinout, 16468, ["(C)05 GPSFlight"]

serout2 AGPSout, 16572,[27,91,50,74] ' clear screen vt-100
serout2 AGPSout, 16572,[27,91,#10,59,#10,72] ' 10 th row, 10 column
serout2 AGPSout, 16572,["GPSFlight MicroTracker"]
serout2 AGPSout, 16572,[27,91,#12,59,#3,72] ' 5 th row, 3rd column
serout2 AGPSout, 16572,["GPS Waypoint Port 4800-8-1-n"]
serout2 AGPSout, 16572,[27,91,#13,59,#3,72] ' 5 th row, 3rd column
serout2 AGPSout, 16572,["Connect GPS to this port to recieve waypoints"]

serout2 cpinout, 84,[27,91,50,74] ' clear screen vt-100
serout2 cpinout, 84,[27,91,53,59,51,72] ' 5 th row, 3rd column
serout2 cpinout, 84,["GPSFlign MicroTracker (C) 2005 GPSFlight, Inc.",10, 13]

serout2 AGPSout, 16572,[27,91,50,74] ' clear screen vt-100
serout2 cpinout, 84,[27,91,50,74] ' clear screen vt-100
Pause 5000
Return