A GPS disciplined clock

Dependencies:   net lpc1768 crypto clock web log

Committer:
andrewboyson
Date:
Tue Dec 04 14:39:47 2018 +0000
Revision:
14:1bce51823be0
Parent:
12:9bd8f04df514
Child:
16:3d40d832dc70
Updated clock

Who changed what in which revision?

UserRevisionLine numberNew contents of line
andrewboyson 8:2ef0f459bc83 1 #include <stdlib.h>
andrewboyson 8:2ef0f459bc83 2 #include <stdbool.h>
andrewboyson 8:2ef0f459bc83 3
andrewboyson 12:9bd8f04df514 4 #include "clkstate.h"
andrewboyson 8:2ef0f459bc83 5 #include "log.h"
andrewboyson 8:2ef0f459bc83 6 #include "net.h"
andrewboyson 8:2ef0f459bc83 7 #include "link.h"
andrewboyson 8:2ef0f459bc83 8 #include "dns.h"
andrewboyson 8:2ef0f459bc83 9 #include "dnsname.h"
andrewboyson 8:2ef0f459bc83 10 #include "dnsquery.h"
andrewboyson 8:2ef0f459bc83 11 #include "dnsreply.h"
andrewboyson 8:2ef0f459bc83 12 #include "dnsserver.h"
andrewboyson 8:2ef0f459bc83 13 #include "ntp.h"
andrewboyson 8:2ef0f459bc83 14 #include "dhcp.h"
andrewboyson 8:2ef0f459bc83 15 #include "ns.h"
andrewboyson 8:2ef0f459bc83 16 #include "nr4.h"
andrewboyson 8:2ef0f459bc83 17 #include "nr6.h"
andrewboyson 12:9bd8f04df514 18 #include "clksync.h"
andrewboyson 8:2ef0f459bc83 19 #include "echo4.h"
andrewboyson 8:2ef0f459bc83 20 #include "echo6.h"
andrewboyson 8:2ef0f459bc83 21 #include "dest6.h"
andrewboyson 8:2ef0f459bc83 22 #include "ra.h"
andrewboyson 8:2ef0f459bc83 23 #include "rs.h"
andrewboyson 8:2ef0f459bc83 24 #include "ar4.h"
andrewboyson 8:2ef0f459bc83 25 #include "ar6.h"
andrewboyson 8:2ef0f459bc83 26 #include "arp.h"
andrewboyson 8:2ef0f459bc83 27 #include "ip4.h"
andrewboyson 8:2ef0f459bc83 28 #include "ip6.h"
andrewboyson 8:2ef0f459bc83 29 #include "udp.h"
andrewboyson 8:2ef0f459bc83 30 #include "tcp.h"
andrewboyson 8:2ef0f459bc83 31 #include "http.h"
andrewboyson 8:2ef0f459bc83 32 #include "tftp.h"
andrewboyson 8:2ef0f459bc83 33
andrewboyson 8:2ef0f459bc83 34 #define GPREG1 (*((volatile unsigned *) 0x40024048))
andrewboyson 8:2ef0f459bc83 35 #define GPREG2 (*((volatile unsigned *) 0x4002404C))
andrewboyson 8:2ef0f459bc83 36 #define GPREG3 (*((volatile unsigned *) 0x40024050))
andrewboyson 8:2ef0f459bc83 37 #define GPREG4 (*((volatile unsigned *) 0x40024054))
andrewboyson 8:2ef0f459bc83 38 #define ALMON (*((volatile unsigned *) 0x40024078))
andrewboyson 8:2ef0f459bc83 39 #define ALYEAR (*((volatile unsigned *) 0x4002407C))
andrewboyson 11:baa388c55583 40 #define ALDOY (*((volatile unsigned *) 0x40024074))
andrewboyson 11:baa388c55583 41
andrewboyson 11:baa388c55583 42 /*
andrewboyson 11:baa388c55583 43 ALSEC 6 Alarm value for Seconds R/W 0x4002 4060
andrewboyson 11:baa388c55583 44 ALMIN 6 Alarm value for Minutes R/W 0x4002 4064
andrewboyson 11:baa388c55583 45 ALHOUR 5 Alarm value for Hours R/W 0x4002 4068
andrewboyson 11:baa388c55583 46 ALDOM 5 Alarm value for Day of Month R/W 0x4002 406C
andrewboyson 11:baa388c55583 47 ALDOW 3 Alarm value for Day of Week R/W 0x4002 4070
andrewboyson 11:baa388c55583 48 ALDOY 9 Alarm value for Day of Year R/W 0x4002 4074
andrewboyson 11:baa388c55583 49 ALMON 4 Alarm value for Months R/W 0x4002 4078
andrewboyson 11:baa388c55583 50 ALYEAR 12 Alarm value for Years R/W 0x4002 407C
andrewboyson 11:baa388c55583 51 */
andrewboyson 8:2ef0f459bc83 52
andrewboyson 8:2ef0f459bc83 53 enum { iLogUart, iNetStack, iNetNewLine, iNetVerbose, iLink, iDnsName, iDnsQuery, iDnsReply, iDnsServer,
andrewboyson 14:1bce51823be0 54 iNtp, iDhcp, iNsRecvSol, iNsRecvAdv, iNsSendSol, iNr4, iNr6, iNtpClient, iClkSync, iEcho4, iEcho6,
andrewboyson 8:2ef0f459bc83 55 iDest6, iRa, iRs, iAr4, iAr6, iArp, iIp4, iIp6, iUdp, iTcp, iHttp, iTftp };
andrewboyson 8:2ef0f459bc83 56
andrewboyson 8:2ef0f459bc83 57 int GetGpsLat() { return GPREG1; } void SetGpsLat (int value) { GPREG1 = value; }
andrewboyson 8:2ef0f459bc83 58 int GetGpsLng() { return GPREG2; } void SetGpsLng (int value) { GPREG2 = value; }
andrewboyson 8:2ef0f459bc83 59 int GetGpsHgt() { return GPREG3; } void SetGpsHgt (int value) { GPREG3 = value; }
andrewboyson 8:2ef0f459bc83 60
andrewboyson 11:baa388c55583 61 int GetSensorHeight()
andrewboyson 11:baa388c55583 62 {
andrewboyson 11:baa388c55583 63 return ALDOY; //9 bits
andrewboyson 11:baa388c55583 64 }
andrewboyson 11:baa388c55583 65 void SetSensorHeight(int value)
andrewboyson 11:baa388c55583 66 {
andrewboyson 11:baa388c55583 67 ALDOY = value & 0x01FF; //9 bits
andrewboyson 11:baa388c55583 68 }
andrewboyson 11:baa388c55583 69
andrewboyson 8:2ef0f459bc83 70 static bool getBit(int bit)
andrewboyson 8:2ef0f459bc83 71 {
andrewboyson 8:2ef0f459bc83 72 return GPREG4 & (1U << bit);
andrewboyson 8:2ef0f459bc83 73 }
andrewboyson 8:2ef0f459bc83 74 static void setBit(int bit, bool value)
andrewboyson 8:2ef0f459bc83 75 {
andrewboyson 8:2ef0f459bc83 76 if (value) GPREG4 |= 1U << bit ;
andrewboyson 8:2ef0f459bc83 77 else GPREG4 &= ~(1U << bit);
andrewboyson 8:2ef0f459bc83 78 }
andrewboyson 8:2ef0f459bc83 79
andrewboyson 8:2ef0f459bc83 80 void SetTraceNetHost (char* text)
andrewboyson 8:2ef0f459bc83 81 {
andrewboyson 8:2ef0f459bc83 82 int value = strtol(text, NULL, 16);
andrewboyson 8:2ef0f459bc83 83 NetTraceHost[1] = value & 0xFF; //Little endian so low byte
andrewboyson 8:2ef0f459bc83 84 NetTraceHost[0] = (value >> 8) & 0xFF; //high byte
andrewboyson 8:2ef0f459bc83 85 ALMON = value >> 12; // 4 bits
andrewboyson 8:2ef0f459bc83 86 ALYEAR = value & 0x3FFF; //12 bits
andrewboyson 8:2ef0f459bc83 87 }
andrewboyson 8:2ef0f459bc83 88 void ChgLogUart () { LogUart = !LogUart; setBit(iLogUart, LogUart ); }
andrewboyson 8:2ef0f459bc83 89 void ChgTraceNetStack () { NetTraceStack = !NetTraceStack; setBit(iNetStack, NetTraceStack ); }
andrewboyson 8:2ef0f459bc83 90 void ChgTraceNetNewLine() { NetTraceNewLine = !NetTraceNewLine; setBit(iNetNewLine, NetTraceNewLine); }
andrewboyson 8:2ef0f459bc83 91 void ChgTraceNetVerbose() { NetTraceVerbose = !NetTraceVerbose; setBit(iNetVerbose, NetTraceVerbose); }
andrewboyson 8:2ef0f459bc83 92 void ChgTraceLink () { LinkTrace = !LinkTrace; setBit(iLink, LinkTrace ); }
andrewboyson 8:2ef0f459bc83 93 void ChgTraceDnsName () { DnsNameTrace = !DnsNameTrace; setBit(iDnsName, DnsNameTrace ); }
andrewboyson 8:2ef0f459bc83 94 void ChgTraceDnsQuery () { DnsQueryTrace = !DnsQueryTrace; setBit(iDnsQuery, DnsQueryTrace ); }
andrewboyson 8:2ef0f459bc83 95 void ChgTraceDnsReply () { DnsReplyTrace = !DnsReplyTrace; setBit(iDnsReply, DnsReplyTrace ); }
andrewboyson 8:2ef0f459bc83 96 void ChgTraceDnsServer () { DnsServerTrace = !DnsServerTrace; setBit(iDnsServer, DnsServerTrace ); }
andrewboyson 8:2ef0f459bc83 97 void ChgTraceNtp () { NtpTrace = !NtpTrace; setBit(iNtp, NtpTrace ); }
andrewboyson 8:2ef0f459bc83 98 void ChgTraceDhcp () { DhcpTrace = !DhcpTrace; setBit(iDhcp, DhcpTrace ); }
andrewboyson 8:2ef0f459bc83 99 void ChgTraceNsRecvSol () { NsTraceRecvSol = !NsTraceRecvSol; setBit(iNsRecvSol, NsTraceRecvSol); }
andrewboyson 8:2ef0f459bc83 100 void ChgTraceNsRecvAdv () { NsTraceRecvAdv = !NsTraceRecvAdv; setBit(iNsRecvAdv, NsTraceRecvAdv); }
andrewboyson 8:2ef0f459bc83 101 void ChgTraceNsSendSol () { NsTraceSendSol = !NsTraceSendSol; setBit(iNsSendSol, NsTraceSendSol); }
andrewboyson 8:2ef0f459bc83 102 void ChgTraceNr4 () { Nr4Trace = !Nr4Trace ; setBit(iNr4, Nr4Trace ); }
andrewboyson 8:2ef0f459bc83 103 void ChgTraceNr6 () { Nr6Trace = !Nr6Trace ; setBit(iNr6, Nr6Trace ); }
andrewboyson 8:2ef0f459bc83 104 void ChgTraceNtpClient () { NtpClientTrace = !NtpClientTrace ; setBit(iNtpClient, NtpClientTrace ); }
andrewboyson 14:1bce51823be0 105 void ChgTraceSync () { ClkSyncTrace = !ClkSyncTrace ; setBit(iClkSync, ClkSyncTrace ); }
andrewboyson 8:2ef0f459bc83 106 void ChgTraceEcho4 () { Echo4Trace = !Echo4Trace ; setBit(iEcho4, Echo4Trace ); }
andrewboyson 8:2ef0f459bc83 107 void ChgTraceEcho6 () { Echo6Trace = !Echo6Trace ; setBit(iEcho6, Echo6Trace ); }
andrewboyson 8:2ef0f459bc83 108 void ChgTraceDest6 () { Dest6Trace = !Dest6Trace ; setBit(iDest6, Dest6Trace ); }
andrewboyson 8:2ef0f459bc83 109 void ChgTraceRa () { RaTrace = !RaTrace ; setBit(iRa, RaTrace ); }
andrewboyson 8:2ef0f459bc83 110 void ChgTraceRs () { RsTrace = !RsTrace ; setBit(iRs, RsTrace ); }
andrewboyson 8:2ef0f459bc83 111 void ChgTraceAr4 () { Ar4Trace = !Ar4Trace ; setBit(iAr4, Ar4Trace ); }
andrewboyson 8:2ef0f459bc83 112 void ChgTraceAr6 () { Ar6Trace = !Ar6Trace ; setBit(iAr6, Ar6Trace ); }
andrewboyson 8:2ef0f459bc83 113 void ChgTraceArp () { ArpTrace = !ArpTrace ; setBit(iArp, ArpTrace ); }
andrewboyson 8:2ef0f459bc83 114 void ChgTraceIp4 () { Ip4Trace = !Ip4Trace ; setBit(iIp4, Ip4Trace ); }
andrewboyson 8:2ef0f459bc83 115 void ChgTraceIp6 () { Ip6Trace = !Ip6Trace ; setBit(iIp6, Ip6Trace ); }
andrewboyson 8:2ef0f459bc83 116 void ChgTraceUdp () { UdpTrace = !UdpTrace ; setBit(iUdp, UdpTrace ); }
andrewboyson 8:2ef0f459bc83 117 void ChgTraceTcp () { TcpTrace = !TcpTrace ; setBit(iTcp, TcpTrace ); }
andrewboyson 8:2ef0f459bc83 118 void ChgTraceHttp () { HttpTrace = !HttpTrace ; setBit(iHttp, HttpTrace ); }
andrewboyson 8:2ef0f459bc83 119 void ChgTraceTftp () { TftpTrace = !TftpTrace ; setBit(iTftp, TftpTrace ); }
andrewboyson 8:2ef0f459bc83 120
andrewboyson 8:2ef0f459bc83 121 void ChgDnsSendRequestsViaIp4() { DnsSendRequestsViaIp4 = !DnsSendRequestsViaIp4; }
andrewboyson 8:2ef0f459bc83 122 void ChgNtpSendRequestsViaIp4() { NtpSendRequestsViaIp4 = !NtpSendRequestsViaIp4; }
andrewboyson 8:2ef0f459bc83 123 void ChgTftpSendRequestsViaIp4() { TftpSendRequestsViaIp4 = !TftpSendRequestsViaIp4; }
andrewboyson 8:2ef0f459bc83 124
andrewboyson 8:2ef0f459bc83 125 int SettingsInit()
andrewboyson 8:2ef0f459bc83 126 {
andrewboyson 8:2ef0f459bc83 127 ClockSlewDivisor = 10;
andrewboyson 8:2ef0f459bc83 128 ClockSlewMaxMs = 20;
andrewboyson 8:2ef0f459bc83 129 ClockPpbDivisor = 1000;
andrewboyson 8:2ef0f459bc83 130 ClockPpbChangeMax = 10000000;
andrewboyson 8:2ef0f459bc83 131 ClockSyncedLimitNs = 100000;
andrewboyson 8:2ef0f459bc83 132 ClockSyncedLimitPpb = 100000;
andrewboyson 8:2ef0f459bc83 133 ClockSyncedHysterisNs = 10000;
andrewboyson 8:2ef0f459bc83 134 ClockSyncedHysterisPpb = 1000;
andrewboyson 8:2ef0f459bc83 135 ClockMaxOffsetSecs = 3;
andrewboyson 8:2ef0f459bc83 136
andrewboyson 8:2ef0f459bc83 137 DnsSendRequestsViaIp4 = false;
andrewboyson 8:2ef0f459bc83 138 NtpSendRequestsViaIp4 = false;
andrewboyson 8:2ef0f459bc83 139 TftpSendRequestsViaIp4 = true;
andrewboyson 8:2ef0f459bc83 140
andrewboyson 8:2ef0f459bc83 141 NetTraceHost[1] = ALYEAR & 0xFF; //Little endian so low byte
andrewboyson 8:2ef0f459bc83 142 NetTraceHost[0] = (ALMON << 4) + (ALYEAR >> 8); //high byte
andrewboyson 8:2ef0f459bc83 143
andrewboyson 8:2ef0f459bc83 144 LogUart = getBit(iLogUart);
andrewboyson 8:2ef0f459bc83 145 NetTraceStack = getBit(iNetStack);
andrewboyson 8:2ef0f459bc83 146 NetTraceNewLine = getBit(iNetNewLine);
andrewboyson 8:2ef0f459bc83 147 NetTraceVerbose = getBit(iNetVerbose);
andrewboyson 8:2ef0f459bc83 148 LinkTrace = getBit(iLink);
andrewboyson 8:2ef0f459bc83 149 DnsNameTrace = getBit(iDnsName);
andrewboyson 8:2ef0f459bc83 150 DnsQueryTrace = getBit(iDnsQuery);
andrewboyson 8:2ef0f459bc83 151 DnsReplyTrace = getBit(iDnsReply);
andrewboyson 8:2ef0f459bc83 152 DnsServerTrace = getBit(iDnsServer);
andrewboyson 8:2ef0f459bc83 153 NtpTrace = getBit(iNtp);
andrewboyson 8:2ef0f459bc83 154 DhcpTrace = getBit(iDhcp);
andrewboyson 8:2ef0f459bc83 155 NsTraceRecvSol = getBit(iNsRecvSol);
andrewboyson 8:2ef0f459bc83 156 NsTraceRecvAdv = getBit(iNsRecvAdv);
andrewboyson 8:2ef0f459bc83 157 NsTraceSendSol = getBit(iNsSendSol);
andrewboyson 8:2ef0f459bc83 158 Nr4Trace = getBit(iNr4);
andrewboyson 8:2ef0f459bc83 159 Nr6Trace = getBit(iNr6);
andrewboyson 8:2ef0f459bc83 160 NtpClientTrace = getBit(iNtpClient);
andrewboyson 14:1bce51823be0 161 ClkSyncTrace = getBit(iClkSync);
andrewboyson 8:2ef0f459bc83 162 Echo4Trace = getBit(iEcho4);
andrewboyson 8:2ef0f459bc83 163 Echo6Trace = getBit(iEcho6);
andrewboyson 8:2ef0f459bc83 164 Dest6Trace = getBit(iDest6);
andrewboyson 8:2ef0f459bc83 165 RaTrace = getBit(iRa);
andrewboyson 8:2ef0f459bc83 166 RsTrace = getBit(iRs);
andrewboyson 8:2ef0f459bc83 167 Ar4Trace = getBit(iAr4);
andrewboyson 8:2ef0f459bc83 168 Ar6Trace = getBit(iAr6);
andrewboyson 8:2ef0f459bc83 169 ArpTrace = getBit(iArp);
andrewboyson 8:2ef0f459bc83 170 Ip4Trace = getBit(iIp4);
andrewboyson 8:2ef0f459bc83 171 Ip6Trace = getBit(iIp6);
andrewboyson 8:2ef0f459bc83 172 UdpTrace = getBit(iUdp);
andrewboyson 8:2ef0f459bc83 173 TcpTrace = getBit(iTcp);
andrewboyson 8:2ef0f459bc83 174 HttpTrace = getBit(iHttp);
andrewboyson 8:2ef0f459bc83 175 TftpTrace = getBit(iTftp);
andrewboyson 8:2ef0f459bc83 176
andrewboyson 8:2ef0f459bc83 177 return 0;
andrewboyson 8:2ef0f459bc83 178 }