Code:
'****************************************************************
'* Name : hand held gps.BAS *
'* Author : Dave Cutliff *
'* Notice : Copyright (c) 2002 Use at your own risk *
'* : All Rights Reserved *
'* Date : 9/8/02 *
'* Version : 3.0 *
'* Notes : *
'* : *
'****************************************************************
'LCD Setup
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 4
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 1
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 3
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2
DEFINE LCD_COMMANDUS 2000
DEFINE LCD_DATAUS 50
'**********************************************************************
Cont CON %10100000
vol_addr CON 0
first_addr CON 2
CMCON = 7
'VRCON = 0
'**********************************************************************
'Set up Serial port
SerPin VAR PORTA.2
SerPout VAR PORTA.3
GPSIN VAR PORTB.2
'**********************************************************************
EECLR VAR WORD
A VAR BYTE
B VAR BYTE
G var byte
n VAR BYTE
C VAR WORD
D VAR BYTE
D1 VAR BYTE
E VAR BYTE
E1 VAR BYTE
Cse VAR BYTE(3) 'Whole number course (no decimal)
Spd VAR BYTE(3) 'Whole number speed in kts.(no decimal)
gdat VAR BYTE(60)
cnt VAR BYTE
volume VAR WORD
addr VAR WORD
LOGDAT VAR BYTE '(32)
OLD1 VAR BYTE
NEW1 VAR BYTE
Temp1 VAR BYTE
response VAR BYTE
Encodercnt VAR BYTE
N_ VAR OLD1.BIT4
O_ VAR NEW1.BIT5
INPUT PORTA.4 'ENCODER a
INPUT PORTA.5 'ENCODER b
INPUT PORTB.0 'ENCODER SWITCH
'status VAR BYTE 'GPS status, A = good data, V = bad data
NEW1 = PORTA & %00110000
OLD1 = NEW1
Encodercnt = 1
'*********************************************************************
'LOG DATA VIA RB.0 INTERRUPT
INTCON =$90 'RB.0 INTERRPT NEG TRIGGER
OPTION_REG.6 = 0
GOTO START
'*********************************************************************
DISABLE
log:
addr = (volume * 36) + 2 'append address
FOR A = 0 TO 35
I2CWRITE porta.1,porta.0,cont,addr,[gdat(A)] 'write GPS data
PAUSE 10
addr = ADDR + 1
NEXT A
VOLUME = VOLUME + 1
I2CWRITE porta.1,porta.0,cont,0,[VOLUME] 'write new address count
PAUSE 10
INTCON.1 = 0
RESUME
ENABLE
'************************************************************************
Start:
cnt = 0
PAUSE 1000
LCDOUT $fe,1 'clear lcd
LCDOUT $fe,2 'home
LCDOUT $fe,$0c 'Curser off
I2CREAD PORTA.1,PORTA.0,CONT,0,[VOLUME] 'the eeprom reverses the upper
PAUSE 10 ' and lower bytes of the "volume"
D = VOLUME.BYTE1 ' word. These vars put the word
E = VOLUME.BYTE0 ' back in the correct order
D1 = E
E1 = D
VOLUME.BYTE1 = D1
VOLUME.BYTE0 = E1
LCDOUT "EPROM HAS ",HEX VOLUME," BYTES"
pause 1000
IF VOLUME = 0 THEN GET_DATA 'no saved data get data
IF PORTB.0 = 0 THEN GET_DATA 'bypass serial by pushing button
ON INTERRUPT GOTO log 'LOG DATA VIA RB.0 INTERRUPT
'************************************************************************
has_data:
LCDOUT $fe,1 'clear lcd
LCDOUT $fe,2 'home
PAUSE 250
SEROUT2 SerPout,188,["1 Clear EEProm", 10, 13] 'send PC instructions
SEROUT2 SerPout,188,["2 Append data", 10, 13]
SEROUT2 SerPout,188,["3 Read data log", 10, 13]
SERIN2 serpin,188,[DEC1 response] ' PC response
if response < 1 or response > 3 then has_data
branchL response,[NOP,Clear_EEProm,get_data,Read_EE] 'process response
GOTO has_data
'************************************************************************
get_data:
'ENABLE 'SEROUT2 SerPout,188,["1 "]
gosub CHK_ENCODER1
OLD1 = NEW1
if portb.0 = 0 then gosub log 'if the switch is pressed log data
'serin2 SERPIN,188,2000,no_data,[wait("$GPGGA,"),str gdat\35\"*"] 'FOR TESTING W/O GPS CONNECTED
serin2 GPSIN,188,2000,no_data,[wait("$GPGGA,"),str gdat\60\"*"] ' FOR RUNNING WITH GPS CONNECTED
'serout2 serpout,188,["$GPRMC," ,gdat(0),gdat (1),gdat(2),gdat (3),gdat(4),gdat(5),_
'gdat(6),gdat(7),",A,",gdat(8),gdat(9),gdat(10),gdat(11),gdat(12),gdat(13),_
'gdat(14),gdat(15),gdat(16),gdat(17),gdat(18),gdat (19),gdat(20),gdat(21),gdat(22),gdat(23),_
'gdat(24),gdat(25),gdat(26),gdat(27),gdat(28),gdat(29),gdat(30)]
'SEROUT2 SERPOUT, 188,[13,10]
gosub GPSOUT
GOTO good_fix
'************************************************************************
bad_fix:
LCDOUT $fe,1 'clear lcd
LCDOUT $fe,2 'home
LCDOUT " Bad Data "
GOTO get_data
'************************************************************************
good_fix:
branchL Encodercnt,[NOP,latout,tout,Sat_dat] 'process encoder changes
GOTO get_data
'************************************************************************
NOP: 'PLACE HOLDER
GOTO get_data
'************************************************************************
no_data:
LCDOUT $fe,1
LCDOUT $fe,2
LCDOUT " No Data "
cnt = 0
GOTO get_data
'************************************************************************
Sat_dat: 'Number of sats received and quality
LCDOUT $fe,1
LCDOUT $fe,2
LCDOUT "Recp Quality ",gdat(32)
LCDOUT $fe,$C0
LCDOUT "Sat's received ",gdat(34)
PAUSE 500
GOTO get_data
'************************************************************************
tout: ' Time
LCDOUT $fe,1
LCDOUT $fe,2
cnt = cnt + 1
LCDOUT " ",gdat(0),gdat (1), ":",gdat(2),gdat (3), ":",gdat(4),gdat(5)
GOTO get_data
'************************************************************************
latout: 'lat and long data
LCDOUT $fe,1
LCDOUT $fe,2
cnt = cnt + 1
LCDOUT " ",gdat(9),gdat(10),%11011111,gdat (11),_
gdat(12),gdat(13),gdat(14),gdat(15),gdat(16), " ",gdat(18)
LCDOUT $fe,$C0
LCDOUT gdat(20),gdat(21),gdat(22),%11011111,gdat(23),gdat(24),gdat(25),_
gdat(26),gdat(27),gdat(28)," ",gdat(30)
PAUSE 500
GOTO get_data
'**********Write to EEprom**********************************************
Clear_EEProm:
LCDOUT "CLEARING EE"
FOR EECLR = 0 TO VOLUME * 37 'sets range to clear
I2CWRITE porta.1,porta.0,cont,EECLR,[$0] 'write zeros
PAUSE 10
NEXT EECLR
VOLUME = 0
I2CWRITE porta.1,porta.0,cont,0,[VOLUME] 'write volume zero
PAUSE 10
SEROUT2 SerPout,188,["VOLUME ", HEX volume,10,13]
LCDOUT "VOLUME", HEX VOLUME
PAUSE 1000
LCDOUT $fe,1
'NEXT A
GOTO get_data
'************************************************************************
GPSOUT:
serout2 serpout,188,["$GPGGA," ]
for G = 0 to 60
serout2 serpout,188,[gdat(G)]
next G
'SEROUT2 SERPOUT, 188,[",A,"]
'for G = 8 to 30
'serout2 serpout,188,[gdat(G)]
'next G
SEROUT2 SERPOUT, 188,[13,10]
return
'***********Read EEProm*************************************************
Read_EE:
B = 0 'line counter
FOR C = 2 TO VOLUME * 36 'address range
ADDR = C
I2CREAD PORTA.1,PORTA.0,CONT,ADDR,[LOGDAT]
PAUSE 10
SEROUT2 SERPOUT, 188,[LOGDAT]
B = B + 1
IF B = 36 THEN GOSUB END_LINE 'put carrage return and line feed
NEXT C
GOTO GET_DATA
'************************************************************************
END_LINE:
SEROUT2 SERPOUT, 188,[13,10] 'put carrage retun and line feed at end of line
B=0
RETURN
'************************************************************************
CHK_ENCODER1:
NEW1 = PORTA & %00110000 'read porta
If NEW1 = OLD1 Then RETURN 'if no change return
Temp1 = N_ ^ O_ 'XOR bits to determine direction
If Temp1 = 1 Then GoTo Inc1 ' if 1 then incroment
Encodercnt = Encodercnt - 1 'decroment counter
if Encodercnt < 1 then Encodercnt = 3 'max count = 3 change to add pages
RETURN
Inc1:
Encodercnt = Encodercnt + 1 'incoment counter
if Encodercnt = 4 then Encodercnt = 1 'set min number
RETURN
end
Bookmarks