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




Bookmarks