GPS Help
chris jones
Posts: 391
Hello
i have a GPS PMB-648 GPS module and i ran teh test code that was provided by parallax but i get an error on this line stateing that it requirs a varable.
SERIN GPSpin, T4800, 3000, No_GPS_Data, [WAIT("GPRMC,"), SPSTR 65]
MY FULL CODE
i have a GPS PMB-648 GPS module and i ran teh test code that was provided by parallax but i get an error on this line stateing that it requirs a varable.
SERIN GPSpin, T4800, 3000, No_GPS_Data, [WAIT("GPRMC,"), SPSTR 65]
MY FULL CODE
' -----[ Title ]-----------------------------------------------------------
'
' File...... Easy GPS V1.0.bsp
' Purpose... Easy GPS Interface
' Author.... Parallax, Inc.
' E-mail.... [EMAIL="support@parallax.com"]support@parallax.com[/EMAIL]
' Started... 02-26-2010
' Updated...
'
' {$STAMP BS2}
' {$PBASIC 2.5}
' -----[ Program Description ]---------------------------------------------
' Connect the Yellow Wire from your Parallax GPS Receiver to P0. The Black
' wire goes to VSS and the Red wire goes to VDD. All others wires should
' not be connected (I plugged mine into empty isolated breadboard slots)
' Reads NMEA data string from GPS receiver and parses data. GPS string is
' buffered into scratchpad RAM with SPSTR modifier. Once in SPRAM, data is
' parsed out based on its position.
'
' $GPRMC,POS_UTC,POS_STAT,LAT,LAT_D,LON,LON_D,SPD,HDG,DATE,MAG_VAR,MAG_REF,*CC
'
' POS_UTC - UTC of position. Hours, minutes and seconds. (hhmmss)
' POS_STAT - Position status. (A = Data valid, V = Data invalid)
' LAT - Latitude (ddmm.ffff)
' LAT_D - Latitude direction. (N = North, S = South)
' LON - Longitude (dddmm.ffff)
' LON_D - Longitude direction (E = East, W = West)
' SPD - Speed over ground. (knots) (0.0 - 999.9)
' HDG - Heading/track made good (degrees True) (x.x)
' DATE - Date (ddmmyy)
' MAG_VAR - Magnetic variation (degrees) (x.x)
' MAG_REF - Magnetic variation (E = East, W = West)
' *CC - Checksum
' -----[ Revision History ]------------------------------------------------
' -----[ I/O Definitions ]-------------------------------------------------
GPSpin PIN 0 ' GPS serial input
' -----[ Constants ]-------------------------------------------------------
T4800 CON 500 ' Baud rate for GPS (typical)
MoveTo CON 2 ' DEBUG positioning command
ClrRt CON 11 ' Clear line right of cursor
EST CON -5 ' Eastern Standard Time
CST CON -6 ' Central Standard Time
MST CON -7 ' Mountain Standard Time
PST CON -8 ' Pacific Standard Time
EDT CON -4 ' Eastern Daylight Time
CDT CON -5 ' Central Daylight Time
MDT CON -6 ' Mountain Daylight Time
PDT CON -7 ' Pacific Daylight Time
UTCfix CON PST ' For Rocklin, CA
Comma CON "," ' Comma
DegSym CON 176 ' Degrees symbol for report
MinSym CON 39 ' Minutes symbol
SecSym CON 34 ' Seconds symbol
' -----[ Variables ]-------------------------------------------------------
index VAR Byte ' Index into GPS data in SPRAM
flags VAR Byte ' Holds bit values
valid VAR Flags.BIT3 ' Is data valid?
numSats VAR Byte ' Number of satellites
tmHrs VAR Byte ' Time fields
tmMins VAR Byte
tmSecs VAR Byte
latDeg VAR Byte ' Latitude
latMin VAR Byte
latSec VAR Word
latNS VAR flags.BIT0 ' 0 = N
longDeg VAR Byte ' Longitude
longMin VAR Byte
longSec VAR Word
longEW VAR flags.BIT1 ' 0 = E
speed VAR Word ' In tenths of mph***************
altitude VAR Word ' In feet************************
day VAR Byte ' Day of month, 1 - 31
month VAR flags.NIB1 ' Month, 1 - 12
year VAR Byte ' Year, 00 - 99
char VAR Byte ' Byte pulled from SPRAM
workVal VAR Word ' For numeric conversions
eeAddr VAR workVal ' Pointer to EE data
field VAR Nib ' Field #
fldWidth VAR field ' Width of field
' -----[ EEPROM Data ]-----------------------------------------------------
NotValid DATA "No", 0
IsValid DATA "Yes", 0
DaysInMon DATA 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31
MonNames DATA "JAN",0,"FEB",0,"MAR",0,"APR",0,"MAY",0,"JUN",0
DATA "JUL",0,"AUG",0,"SEP",0,"OCT",0,"NOV",0,"DEC",0
' -----[ Initialization ]--------------------------------------------------
Initialize:
PAUSE 250 ' Let DEBUG open
DEBUG CLS ' Clear the screen
DEBUG "Easy GPS Interface V1.0", CR
DEBUG "======================="
Draw_Ruler:
FOR index = 0 TO 65
IF (index = 0) THEN Print_Ones
IF (index // 10) > 0 THEN Print_Ones
DEBUG MoveTo, (7 + index), 3, DEC1 (index / 10)
Print_Ones:
DEBUG MoveTo, (7 + index), 4, DEC1 (index // 10)
Print_Ticks:
IF (index // 10) > 0 THEN Next_Digit
DEBUG MoveTo, (7 + index), 5, "|"
Next_Digit:
NEXT
Draw_Data_Labels:
DEBUG MoveTo, 0, 9, "Signal Valid: "
DEBUG MoveTo, 0, 11, " Local Time: "
DEBUG MoveTo, 0, 12, " Local Date: "
DEBUG MoveTo, 0, 14, " Latitude: "
DEBUG MoveTo, 0, 15, " Longitude: "
DEBUG MoveTo, 0, 16, " Altitude: "
DEBUG MoveTo, 0, 17, " Speed: "
' -----[ Program Code ]----------------------------------------------------
Main:
' Wait for $GPRMC string and store data in SPRAM
SERIN GPSpin, T4800, 3000, No_GPS_Data, [WAIT("GPRMC,"), SPSTR 65]
GOSUB Parse_GPS_Data ' Extract data from SPRAM
Show_GPMRC_String:
DEBUG MoveTo, 0, 6, "$GPRMC," ' Print header
index = 0 ' Start at position UTC
Print_GPRMC_Char: ' Print the $GPRMC data string
GET index, char ' Get char from SPRAM
DEBUG char ' Display it
IF char = "*" THEN Print_Checksum ' Look for checksum indicator
index = index + 1 ' Point to next char
GOTO Print_GPRMC_Char
Print_Checksum:
GET (index + 1), char ' Get first checksum char
DEBUG char ' Display
GET (index + 2), char ' Get second checksum char
DEBUG char, ClrRt ' Display, clear to end of line
Show_Report:
DEBUG MoveTo, 14, 9 ' Was the signal valid?
LOOKUP valid, [NotValid, IsValid], eeAddr' Get answer from EE
GOSUB Print_Z_String ' Print it
DEBUG " (", DEC numSats, " Satellites)"
DEBUG ClrRt ' Clear end of line
IF (valid = 0) THEN Signal_Not_Valid
Get_Altitude:
SERIN GPSpin, T4800, 2000, Signal_Is_Valid, [WAIT("GPGGA,"), SPSTR 75]
index = 45 ' Altitude
GOSUB Mixed_To_Tenths ' Convert "xxx.x" To number
altitude = workVal
index = 38 : fldWidth = 2 ' Number of sats
GOSUB String_To_Value
numSats = workVal
Show_GPGGA_String:
DEBUG MoveTo, 0, 7, "$GPGGA," ' Print header
index = 0 ' Start at position UTC
Print_GPGGA_Char: ' Print the $GPRMC data string
GET index, char ' Get char from SPRAM
DEBUG char ' Display it
IF char = "*" THEN Print_Chexum ' Look for checksum indicator
index = index + 1 ' Point to next char
GOTO Print_GPGGA_Char
Print_Chexum:
GET (index + 1), char ' Get first checksum char
DEBUG char ' Display
GET (index + 2), char ' Get second checksum char
DEBUG char, ClrRt ' Display, clear to end of line
Signal_Is_Valid:
DEBUG MoveTo, 14, 11, DEC2 tmHrs, ":", DEC2 tmMins, ":", DEC2 tmSecs
DEBUG MoveTo, 14, 12, DEC2 day, " "
eeAddr = (month - 1) * 4 + MonNames ' get address of month name
GOSUB Print_Z_String ' print it
DEBUG " 20", DEC2 year
DEBUG MoveTo, 14, 14, " ", DEC2 latDeg, DegSym, " ", DEC2 latMin, MinSym, " "
DEBUG DEC2 (latSec / 10), ".", DEC1 (latSec // 10), SecSym, " "
DEBUG "N" + (latNS * 5)
DEBUG MoveTo, 14, 15, DEC3 longDeg, DegSym, " ", DEC2 longMin, MinSym, " "
DEBUG DEC2 (longSec / 10), ".", DEC1 (longSec // 10), SecSym, " "
DEBUG "E" + (longEW * 18)
DEBUG MoveTo, 14, 16, DEC (altitude / 10), ".", DEC1 (altitude //10), " Meters", ClrRt
DEBUG MoveTo, 14, 17, DEC (speed / 10), ".", DEC1 (speed // 10), " MPH "
GOTO Main
Signal_Not_Valid:
DEBUG MoveTo, 14, 11, "?", ClrRt ' Clear all fields
DEBUG MoveTo, 14, 12, "?", ClrRt
DEBUG MoveTo, 14, 14, "?", ClrRt
DEBUG MoveTo, 14, 15, "?", ClrRt
DEBUG MoveTo, 14, 16, "?", ClrRt
DEBUG MoveTo, 14, 17, "?", ClrRt
GOTO Main
' -----[ Subroutines ]-----------------------------------------------------
No_GPS_Data:
DEBUG CLS, "Error: No GPS data detected"
PAUSE 2500
GOTO Initialize ' Try again
Parse_GPS_Data:
index = 0 : fldWidth = 2 ' UTC hours
GOSUB String_To_Value
tmHrs = workVal
index = 2 : fldWidth = 2 ' UTC minutes
GOSUB String_To_Value
tmMins = workVal
index = 4 : fldWidth = 2 ' UTC seconds
GOSUB String_To_Value
tmSecs = workVal
index = 13 : fldWidth = 2 ' Latitude degrees
GOSUB String_To_Value
latDeg = workVal
index = 15 : fldWidth = 2 ' Latitude minutes
GOSUB String_To_Value
latMin = workVal
index = 18 : fldWidth = 4 ' Latitude fractional minutes
GOSUB String_To_Value
latSec = workVal ** $0F5C ' x 0.06 --> tenths of seconds
index = 25 : fldWidth = 3 ' Longitude degrees
GOSUB String_To_Value
longDeg = workVal
index = 28 : fldWidth = 2 ' Longitude minutes
GOSUB String_To_Value
longMin = workVal
index = 31 : fldWidth = 4 ' Longitude fractional minutes
GOSUB String_To_Value
longSec = workVal ** $0F5C ' x 0.06 --> tenths of seconds
' Get non-numeric data
Get_Valid:
GET 11, char
valid = 1 ' Assume valid
IF (char = "A") THEN Get_Lat_Dir ' It is, so skip
valid = 0 ' Set to 0 if not valid
Get_Lat_Dir:
latNS = 0 ' Assume North
GET 19, char ' Check it
IF (char = "N") THEN Get_Long_Dir ' Confirm
latNS = 1 ' Set to 1 if South
Get_Long_Dir:
longEW = 0 ' Assume East
GET 33, char ' Check it
IF (char = "E") THEN Get_Speed ' Confirm
longEW = 1 ' Set to 1 if West
' Get variable length data
Get_Speed:
index = 38
GOSUB Mixed_To_Tenths ' Convert "xxx.x" To number
' speed = workVal ' Speed in knots (tenths)
speed = workVal + (workVal ** $2699) ' x 1.1507771555 for mph
' Get date
' -- past variable data, so we need to use field search
Get_Date:
field = 8 ' Set field to find
GOSUB Move_To_Field ' Go get position
PUT 125, index ' Save date position
fldWidth = 2
GOSUB String_To_Value
day = workVal ' UTC day, 1 - 31
GET 125, index ' Get stored position
index = index + 2 : fldWidth = 2
GOSUB String_To_Value
month = workVal ' UTC month, 1 - 12
GET 125, index ' Get stored position
index = index + 4 : fldWidth = 2
GOSUB String_To_Value
year = workVal ' UTC year, 0 - 99
' Adjust date for local position
Correct_Local_Time_Date:
workVal = tmHrs + UTCfix ' Add UTC offset
IF (workVal < 24) THEN Adjust_Time ' Midnight crossed?
workVal = UTCfix ' Yes, so adjust date
BRANCH workVal.BIT15, [Location_Leads, Location_Lags]
Location_Leads: ' East of Greenwich
day = day + 1 ' No, move to next day
eeAddr = DaysInMon * (month - 1) ' Get days in month
READ eeAddr, char
IF (day <= char) THEN Adjust_Time ' In same month?
month = month + 1 ' No, move to next month
day = 1 ' First day
IF (month < 13) THEN Adjust_Time ' In same year?
month = 1 ' No, set to January
year = year + 1 // 100 ' Add one to year
GOTO Adjust_Time
Location_Lags: ' West of Greenwich
day = day - 1 ' Adjust day
IF (day > 0) THEN Adjust_Time ' Same month?
month = month - 1
IF (month > 0) THEN Adjust_Time ' Same year?
month = 1 ' No, set to January
eeAddr = DaysInMon * (month - 1)
READ eeAddr, day ' Get new day
year = year + 99 // 100 ' Set to previous year
Adjust_Time:
tmHrs = tmHrs + (24 + UTCfix) // 24 ' Localize hours
RETURN
' *********************************************
' Convert string data (nnnn) to numeric value
' -- index - location of first digit in data
' -- fldWidth - width of data field (1 to 5)
' -- workVal - returns numeric value of field
' *********************************************
String_To_Value:
workVal = 0
IF (fldWidth = 0) OR (fldWidth > 5) THEN String_To_Value_Done
Get_Field_Digit:
GET index, char ' Get digit from field
workVal = workVal + (char - "0") ' Convert, add into value
fldWidth = fldWidth - 1 ' Decrement field width
IF (fldWidth = 0) THEN String_To_Value_Done
workVal = workVal * 10 ' Shift result digits left
index = index + 1 ' Point to next digit
GOTO Get_Field_Digit
String_To_Value_Done:
RETURN
' *****************************************************
' Convert string data (nnn.n) to numeric value (tenths)
' -- index - location of first digit in data
' -- workVal - returns numeric value of field
' *****************************************************
Mixed_To_Tenths:
workVal = 0
Get_Mixed_Digit:
GET index, char ' Read digit from speed field
IF (char = ".") THEN Get_Mixed_Last ' Skip decimal point
workVal = (workVal + (char - "0")) * 10' Add digit, move data left
index = index + 1 ' Point to next digit
GOTO Get_Mixed_Digit
Get_Mixed_Last:
GET (index + 1), char
workVal = workVal + (char - "0") ' Speed in knots
RETURN
' ************************************************************
' Find field location after variable-length data (i.e., speed)
' -- field - field number
' -- index - returns position of first digit in field
' ************************************************************
Move_To_Field:
index = 0
IF (field = 0) THEN Move_To_Field_Done' If zero, we're there
Get_Char:
GET index, char ' Get char from SPRAM
IF (char = Comma) THEN Found_Comma ' Is it a comma?
index = index + 1 ' No, move to next char
GOTO Get_Char
Found_Comma:
field = field - 1 ' Was comma, dec field coutner
index = index + 1 ' Point to next char
IF (field = 0) THEN Move_To_Field_Done' If field = 0, we're there
GOTO Get_Char
Move_To_Field_Done:
RETURN
' *********************************************
' Print Zero-terminated string stored in EEPROM
' -- eeAddr - starting character of string
' *********************************************
Print_Z_String:
READ eeAddr, char ' Get char from EE
IF (char = 0) THEN Print_Z_String_Done' If zero, we're done
DEBUG char ' Print the char
eeAddr = eeAddr + 1 ' Point to the next one
GOTO Print_Z_String
Print_Z_String_Done:
RETURN
Comments
Your code has a BS2 directive.
How else can I put it?
It's a .bsp file.
I'm not with Parallax, I'm only the piano player.