/// AX.25 compliant packet header that contains destination, station call sign, and path.
/// 0x76 for SSID-11, 0x78 for SSID-12
static uint8_t TNC_AX25_HEADER[] = {
- 'A' << 1, 'P' << 1, 'A' << 1, 'M' << 1, ' ' << 1, ' ' << 1, 0x60, \
- 'N' << 1, '0' << 1, 'C' << 1, 'A' << 1, 'L' << 1, 'L' << 1, 0x78, \
- 'W' << 1, 'I' << 1, 'D' << 1, 'E' << 1, '2' << 1, ' ' << 1, 0x65, \
+ 'A' << 1, 'P' << 1, 'A' << 1, 'M' << 1, ' ' << 1, ' ' << 1, 0x60,
+ 'N' << 1, '0' << 1, 'C' << 1, 'A' << 1, 'L' << 1, 'L' << 1, 0x78,
+ 'W' << 1, 'I' << 1, 'D' << 1, 'E' << 1, '2' << 1, ' ' << 1, 0x65,
0x03, 0xf0 };
#define TNC_CALLSIGN_OFF 7
} // END switch
}
+static void tncCompressInt(uint8_t *dest, int32_t value, int len) {
+ int i;
+ for (i = len - 1; i >= 0; i--) {
+ dest[i] = value % 91 + 33;
+ value /= 91;
+ }
+}
+
+static int ao_num_sats(void)
+{
+ int i;
+ int n = 0;
+
+ for (i = 0; i < ao_gps_tracking_data.channels; i++) {
+ if (ao_gps_tracking_data.sats[i].svid)
+ n++;
+ }
+ return n;
+}
+
+static char ao_gps_locked(void)
+{
+ if (ao_gps_data.flags & AO_GPS_VALID)
+ return 'L';
+ else
+ return 'U';
+}
+
+static int tncComment(uint8_t *buf)
+{
+#if HAS_ADC
+ struct ao_data packet;
+
+ ao_arch_critical(ao_data_get(&packet););
+
+ int16_t battery = ao_battery_decivolt(packet.adc.v_batt);
+#ifdef AO_SENSE_DROGUE
+ int16_t apogee = ao_ignite_decivolt(AO_SENSE_DROGUE(&packet));
+#endif
+#ifdef AO_SENSE_MAIN
+ int16_t main = ao_ignite_decivolt(AO_SENSE_MAIN(&packet));
+#endif
+
+ return sprintf((char *) buf,
+ "%c%d B%d.%d"
+#ifdef AO_SENSE_DROGUE
+ " A%d.%d"
+#endif
+#ifdef AO_SENSE_MAIN
+ " M%d.%d"
+#endif
+ , ao_gps_locked(),
+ ao_num_sats(),
+ battery/10,
+ battery % 10
+#ifdef AO_SENSE_DROGUE
+ , apogee/10,
+ apogee%10
+#endif
+#ifdef AO_SENSE_MAIN
+ , main/10,
+ main%10
+#endif
+ );
+#else
+ return sprintf((char *) buf,
+ "%c%d",
+ ao_gps_locked(),
+ ao_num_sats());
+#endif
+}
+
+/*
+ * APRS use a log encoding of altitude with a base of 1.002, such that
+ *
+ * feet = 1.002 ** encoded_altitude
+ *
+ * meters = (1.002 ** encoded_altitude) * 0.3048
+ *
+ * log2(meters) = log2(1.002 ** encoded_altitude) + log2(0.3048)
+ *
+ * log2(meters) = encoded_altitude * log2(1.002) + log2(0.3048)
+ *
+ * encoded_altitude = (log2(meters) - log2(0.3048)) / log2(1.002)
+ *
+ * encoded_altitude = (log2(meters) + log2(1/0.3048)) * (1/log2(1.002))
+ *
+ * We need 9 bits of mantissa to hold 1/log2(1.002) (~ 347), which leaves us
+ * 23 bits of fraction. That turns out to be *just* enough to avoid any
+ * errors in the result (cool, huh?).
+ */
+
+#define fixed23_int(x) ((uint32_t) ((x) << 23))
+#define fixed23_one fixed23_int(1)
+#define fixed23_two fixed23_int(2)
+#define fixed23_half (fixed23_one >> 1)
+#define fixed23_floor(x) ((x) >> 23)
+#define fixed23_real(x) ((uint32_t) ((x) * fixed23_one + 0.5))
+
+static inline uint64_t
+fixed23_mul(uint32_t x, uint32_t y)
+{
+ return ((uint64_t) x * y + fixed23_half) >> 23;
+}
+
+/*
+ * Use 30 fraction bits for the altitude. We need two bits at the
+ * top as we need to handle x, where 0 <= x < 4. We don't
+ * need 30 bits, but it's actually easier this way as we normalize
+ * the incoming value to 1 <= x < 2, and having the integer portion
+ * way up high means we don't have to deal with shifting in both
+ * directions to cover from 0 to 2**30-1.
+ */
+
+#define fixed30_int(x) ((uint32_t) ((x) << 30))
+#define fixed30_one fixed30_int(1)
+#define fixed30_half (fixed30_one >> 1)
+#define fixed30_two fixed30_int(2)
+
+static inline uint32_t
+fixed30_mul(uint32_t x, uint32_t y)
+{
+ return ((uint64_t) x * y + fixed30_half) >> 30;
+}
+
+/*
+ * Fixed point log2. Takes integer argument, returns
+ * fixed point result with 23 bits of fraction
+ */
+
+static uint32_t
+ao_fixed_log2(uint32_t x)
+{
+ uint32_t result;
+ uint32_t frac = fixed23_one;
+
+ /* Bounds check for sanity */
+ if (x <= 0)
+ return 0;
+
+ if (x >= fixed30_one)
+ return 0xffffffff;
+
+ /*
+ * Normalize and compute integer log portion
+ *
+ * This makes 1 <= x < 2, and computes result to be
+ * the integer portion of the log2 of x
+ */
+
+ for (result = fixed23_int(30); x < fixed30_one; result -= fixed23_one, x <<= 1)
+ ;
+
+ /*
+ * Given x, find y and n such that:
+ *
+ * x = y * 2**n 1 <= y < 2
+ *
+ * That means:
+ *
+ * lb(x) = n + lb(y)
+ *
+ * Now, repeatedly square y to find find z and m such that:
+ *
+ * z = y ** (2**m) 2 <= z < 4
+ *
+ * This is possible because 1 <= y < 2
+ *
+ * lb(y) = lb(z) / 2**m
+ *
+ * (1 + lb(z/2))
+ * = -------------
+ * 2**m
+ *
+ * = 2**-m + 2**-m * lb(z/2)
+ *
+ * Note that if 2 <= z < 4, then 1 <= (z/2) < 2, so we can
+ * iterate to find lb(z/2)
+ *
+ * In this implementation, we don't care about the 'm' value,
+ * instead we only care about 2**-m, which we store in 'frac'
+ */
+
+ while (frac != 0 && x != fixed30_one) {
+ /* Repeatedly square x until 2 <= x < 4 */
+ while (x < fixed30_two) {
+ x = fixed30_mul(x, x);
+
+ /* Divide the fractional result bit by 2 */
+ frac >>= 1;
+ }
+
+ /* Add in this result bit */
+ result |= frac;
+
+ /* Make 1 <= x < 2 again and iterate */
+ x >>= 1;
+ }
+ return result;
+}
+
+#define APRS_LOG_CONVERT fixed23_real(1.714065192056127)
+#define APRS_LOG_BASE fixed23_real(346.920048461100941)
+
+static int
+ao_aprs_encode_altitude(int meters)
+{
+ return fixed23_floor(fixed23_mul(ao_fixed_log2(meters) + APRS_LOG_CONVERT, APRS_LOG_BASE) + fixed23_half);
+}
+
/**
* Generate the plain text position packet.
*/
static int tncPositionPacket(void)
{
- int32_t latitude = ao_gps_data.latitude;
- int32_t longitude = ao_gps_data.longitude;
- int32_t altitude = ao_gps_data.altitude;
-
- uint16_t lat_deg;
- uint16_t lon_deg;
- uint16_t lat_min;
- uint16_t lat_frac;
- uint16_t lon_min;
- uint16_t lon_frac;
-
- char lat_sign = 'N', lon_sign = 'E';
-
- if (latitude < 0) {
- lat_sign = 'S';
- latitude = -latitude;
+ static int32_t latitude;
+ static int32_t longitude;
+ static int32_t altitude;
+ int32_t lat, lon, alt;
+ uint8_t *buf;
+
+ if (ao_gps_data.flags & AO_GPS_VALID) {
+ latitude = ao_gps_data.latitude;
+ longitude = ao_gps_data.longitude;
+ altitude = ao_gps_data.altitude;
+ if (altitude < 0)
+ altitude = 0;
}
- if (longitude < 0) {
- lon_sign = 'W';
- longitude = -longitude;
- }
+ buf = tncBuffer;
+ *buf++ = '!';
- /* Round latitude and longitude by 0.005 minutes */
- latitude = latitude + 833;
- if (latitude > 900000000)
- latitude = 900000000;
- longitude = longitude + 833;
- if (longitude > 1800000000)
- longitude = 1800000000;
-
- lat_deg = latitude / 10000000;
- latitude -= lat_deg * 10000000;
- latitude *= 60;
- lat_min = latitude / 10000000;
- latitude -= lat_min * 10000000;
- lat_frac = latitude / 100000;
-
- lon_deg = longitude / 10000000;
- longitude -= lon_deg * 10000000;
- longitude *= 60;
- lon_min = longitude / 10000000;
- longitude -= lon_min * 10000000;
- lon_frac = longitude / 100000;
-
- if (altitude < 0)
- altitude = 0;
-
- altitude = (altitude * (int32_t) 10000 + (3048/2)) / (int32_t) 3048;
-
- return sprintf ((char *) tncBuffer, "=%02u%02u.%02u%c\\%03u%02u.%02u%cO /A=%06u\015",
- lat_deg, lat_min, lat_frac, lat_sign,
- lon_deg, lon_min, lon_frac, lon_sign,
- altitude);
+ /* Symbol table ID */
+ *buf++ = '/';
+
+ lat = ((uint64_t) 380926 * (900000000 - latitude)) / 10000000;
+ lon = ((uint64_t) 190463 * (1800000000 + longitude)) / 10000000;
+
+ alt = ao_aprs_encode_altitude(altitude);
+
+ tncCompressInt(buf, lat, 4);
+ buf += 4;
+ tncCompressInt(buf, lon, 4);
+ buf += 4;
+
+ /* Symbol code */
+ *buf++ = '\'';
+
+ tncCompressInt(buf, alt, 2);
+ buf += 2;
+
+ *buf++ = 33 + ((1 << 5) | (2 << 3));
+
+ buf += tncComment(buf);
+
+ return buf - tncBuffer;
}
static int16_t
tncIndex = 0;
tncMode = TNC_TX_SYNC;
- ao_radio_send_lots(tncFill);
+ ao_radio_send_aprs(tncFill);
}
/** @} */