packet-gmr1_rach: Add GMR-1 RACH dissection

Signed-off-by: Sylvain Munaut <tnt@246tNt.com>

3 files changed, 715 insertions, 0 deletions

diff --git a/epan/CMakeLists.txt b/epan/CMakeLists.txt
index de17bc2229..641c922bf1 100644
--- a/epan/CMakeLists.txt
+++ b/epan/CMakeLists.txt
@@ -642,6 +642,7 @@ set(DISSECTOR_SRC
 	dissectors/packet-gmr1_bcch.c
 	dissectors/packet-gmr1_common.c
 	dissectors/packet-gmr1_dtap.c
+	dissectors/packet-gmr1_rach.c
 	dissectors/packet-gmr1_rr.c
 	dissectors/packet-gmrp.c
 	dissectors/packet-gnutella.c
diff --git a/epan/dissectors/Makefile.common b/epan/dissectors/Makefile.common
index 0c07043d8a..1e68055d29 100644
--- a/epan/dissectors/Makefile.common
+++ b/epan/dissectors/Makefile.common
@@ -562,6 +562,7 @@ DISSECTOR_SRC = \
 	packet-gmr1_bcch.c	\
 	packet-gmr1_common.c	\
 	packet-gmr1_dtap.c	\
+	packet-gmr1_rach.c	\
 	packet-gmr1_rr.c	\
 	packet-gmrp.c		\
 	packet-gnutella.c	\
diff --git a/epan/dissectors/packet-gmr1_rach.c b/epan/dissectors/packet-gmr1_rach.c
new file mode 100644
index 0000000000..194c71f418
--- /dev/null
+++ b/epan/dissectors/packet-gmr1_rach.c
@@ -0,0 +1,713 @@
+/* packet-gmr1_rach.c
+ *
+ * Routines for GMR-1 RACH dissection in wireshark.
+ * Copyright (c) 2012 Sylvain Munaut <tnt@246tNt.com>
+ *
+ * References:
+ *  [1] ETSI TS 101 376-4-8 V1.3.1 - GMR-1 04.008
+ *  [2] ETSI TS 101 376-4-8 V2.2.1 - GMPRS-1 04.008
+ *  [3] ETSI TS 101 376-4-8 V3.1.1 - GMR-1 3G 44.008
+ *
+ * Especially [1] 10.1.8
+ *
+ * $Id$
+ *
+ * Wireshark - Network traffic analyzer
+ * By Gerald Combs <gerald@wireshark.org>
+ * Copyright 1998 Gerald Combs
+ *
+ * This program is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU General Public License
+ * as published by the Free Software Foundation; either version 2
+ * of the License, or (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+ */
+
+#ifdef HAVE_CONFIG_H
+# include "config.h"
+#endif
+
+#include <glib.h>
+#include <epan/packet.h>
+
+#include "packet-csn1.h"
+
+
+/* GMR-1 RACH proto */
+static int proto_gmr1_rach = -1;
+
+/* GMR-1 RACH subtrees */
+static gint ett_rach_msg = -1;
+static gint ett_rach_kls1 = -1;
+static gint ett_rach_kls2 = -1;
+static gint ett_rach_est_cause = -1;
+static gint ett_rach_dialed_num = -1;
+static gint ett_rach_gps_pos = -1;
+
+/* Handoffs */
+static dissector_handle_t data_handle;
+
+/* Fields */
+static int hf_rach_prio = -1;
+static int hf_rach_est_cause = -1;
+static int hf_rach_est_cause_moc = -1;
+static int hf_rach_est_cause_pag_resp = -1;
+static int hf_rach_num_plan = -1;
+static int hf_rach_chan_needed = -1;
+static int hf_rach_retry_cnt = -1;
+static int hf_rach_precorr = -1;
+static int hf_rach_rand_ref = -1;
+
+static int hf_rach_gps_pos_cpi = -1;
+static int hf_rach_gps_pos_lat = -1;
+static int hf_rach_gps_pos_long = -1;
+
+static int hf_rach_mes_pwr_class = -1;
+static int hf_rach_sp_hplmn_id = -1;
+static int hf_rach_pd = -1;
+static int hf_rach_number = -1;
+static int hf_rach_number_grp1 = -1;
+static int hf_rach_number_grp2 = -1;
+static int hf_rach_number_grp3 = -1;
+static int hf_rach_number_grp4 = -1;
+static int hf_rach_number_grp5 = -1;
+static int hf_rach_msc_id = -1;
+static int hf_rach_gps_timestamp = -1;
+static int hf_rach_software_version = -1;
+static int hf_rach_spare = -1;
+static int hf_rach_gci = -1;
+static int hf_rach_r = -1;
+static int hf_rach_o = -1;
+static int hf_rach_number_type = -1;
+
+
+static const value_string rach_prio_vals[] = {
+	{ 0, "Normal Call" },
+	{ 1, "Priority Call" },
+	{ 0, NULL }
+};
+
+static const value_string rach_est_cause_vals[] = {
+	{  4, "In response to alerting" },
+	{  8, "Location update" },
+	{  9, "IMSI Detach" },
+	{ 10, "Supplementary Services" },
+	{ 11, "Short Message Services" },
+	{ 12, "Position Verification" },
+	{ 15, "Emergency Call" },
+	{ 0, NULL }
+};
+
+static const value_string rach_est_cause_moc_vals[] = {
+	{ 1, "Mobile Originated Call" },
+	{ 0, NULL }
+};
+
+static const value_string rach_est_cause_pag_resp_vals[] = {
+	{ 0, "In response to paging" },
+	{ 0, NULL }
+};
+
+static const value_string rach_num_plan_vals[] = {
+	{  0, "Unknown" },
+	{  1, "ISDN E.164/E.163" },
+	{  2, "Not Used" },
+	{  3, "X.121" },
+	{  4, "Telex F.69" },
+	{  8, "National Numbering Plan" },
+	{  9, "Private Numbering Plan" },
+	{ 15, "Reserved for Extension" },
+	{ 0, NULL }
+};
+
+static const value_string rach_chan_needed_vals[] = {
+	{ 0, "any" },
+	{ 1, "SDCCH" },
+	{ 2, "TCH3" },
+	{ 3, "spare" },
+	{ 0, NULL }
+};
+
+static const value_string rach_precorr_vals[] = {
+	{ 0, "Reserved" },
+	{ 1, "-47 symbols correction" },
+	{ 2, "-94 symbols correction" },
+	{ 3, "-141 symbols correction" },
+	{ 4, "+141 symbols correction" },
+	{ 5, "+94 symbols correction" },
+	{ 6, "+47 symbols correction" },
+	{ 7, "No precorrection" },
+	{ 0, NULL }
+};
+
+static void
+dissect_gmr1_rach_kls1(tvbuff_t *tvb, int offset, packet_info *pinfo, proto_tree *tree,
+                       int *is_moc)
+{
+	proto_item *ec_item = NULL;
+	proto_tree *ec_tree = NULL;
+	guint8 ec;
+
+	/* Priority */
+	proto_tree_add_item(tree, hf_rach_prio,
+	                    tvb, offset, 1, ENC_BIG_ENDIAN);
+
+	/* Establishment Cause */
+	ec = (tvb_get_guint8(tvb, offset) >> 1) & 0x1f;
+
+	*is_moc = !!(ec & 0x10);
+
+	if (ec & 0x10)
+	{
+		/* MOC */
+		ec_item = proto_tree_add_item(tree, hf_rach_est_cause_moc,
+		                              tvb, offset, 1, ENC_BIG_ENDIAN);
+
+		ec_tree = proto_item_add_subtree(ec_item, ett_rach_est_cause);
+
+		col_append_str(pinfo->cinfo, COL_INFO, "Mobile Originated Call ");
+
+		/* Numbering plan */
+		proto_tree_add_item(ec_tree, hf_rach_num_plan,
+		                    tvb, offset, 1, ENC_BIG_ENDIAN);
+	}
+	else if ((ec & 0x1c) == 0x00)
+	{
+		/* Paging response */
+		ec_item = proto_tree_add_item(tree, hf_rach_est_cause_pag_resp,
+		                              tvb, offset, 1, ENC_BIG_ENDIAN);
+
+		ec_tree = proto_item_add_subtree(ec_item, ett_rach_est_cause);
+
+		col_append_str(pinfo->cinfo, COL_INFO, "Paging response ");
+
+		/* Channel Needed */
+		proto_tree_add_item(ec_tree, hf_rach_chan_needed,
+		                    tvb, offset, 1, ENC_BIG_ENDIAN);
+	}
+	else
+	{
+		proto_tree_add_item(tree, hf_rach_est_cause,
+		                    tvb, offset, 1, ENC_BIG_ENDIAN);
+
+		col_append_fstr(pinfo->cinfo, COL_INFO, "%s",
+		                val_to_str(ec, rach_est_cause_vals, "Unknown (%u)"));
+	}
+
+	/* Retry counter */
+	proto_tree_add_item(tree, hf_rach_retry_cnt,
+	                    tvb, offset + 1, 1, ENC_BIG_ENDIAN);
+
+	/* Precorrection Indication */
+	proto_tree_add_item(tree, hf_rach_precorr,
+	                    tvb, offset + 1, 1, ENC_BIG_ENDIAN);
+
+	/* Random Reference */
+	proto_tree_add_item(tree, hf_rach_rand_ref,
+	                    tvb, offset + 1, 1, ENC_BIG_ENDIAN);
+}
+
+
+static const value_string rach_gps_pos_cpi_vals[] = {
+	{ 0, "GPS position is old position" },
+	{ 1, "GPS position is current position" },
+	{ 0, NULL }
+};
+
+static void
+rach_gps_pos_lat_fmt(gchar *s, guint32 v)
+{
+	gint32 sv;
+
+	if (v & (1<<18))
+		v |= 0xfff80000;
+
+	sv = v;
+
+	g_snprintf(s, ITEM_LABEL_LENGTH, "%.5f %s (%d)",
+	           abs(sv) / 2912.7f, sv < 0 ? "S" : "N", sv);
+}
+
+static void
+rach_gps_pos_long_fmt(gchar *s, guint32 v)
+{
+	gint32 sv;
+
+	if (v & (1<<19))
+		v |= 0xfff00000;
+
+	sv = v;
+
+	g_snprintf(s, ITEM_LABEL_LENGTH, "%.5f %s (%d)",
+	           abs(sv) / 2912.70555f, sv < 0 ? "W" : "E", sv);
+
+	/* FIXME: The specs says >0 is West ... but it doesn't seem to
+	 *        match real world captures !
+	 */
+}
+
+static void
+dissect_gmr1_rach_gps_pos(tvbuff_t *tvb, int offset, packet_info *pinfo _U_, proto_tree *tree)
+{
+	guint32 lat;
+
+	/* Check for NULL */
+	lat = (tvb_get_ntohl(tvb, offset) >> 4) & 0x7ffff;
+	if (lat == 0x40000) {
+		proto_tree_add_text(tree, tvb, offset, 5, "NULL GPS Position");
+		return;
+	}
+
+	/* CPI */
+	proto_tree_add_item(tree, hf_rach_gps_pos_cpi,
+	                    tvb, offset, 1, ENC_BIG_ENDIAN);
+
+	/* Latitude */
+	proto_tree_add_item(tree, hf_rach_gps_pos_lat,
+	                    tvb, offset, 3, ENC_BIG_ENDIAN);
+
+	/* Longitude */
+	proto_tree_add_item(tree, hf_rach_gps_pos_long,
+	                    tvb, offset + 2, 3, ENC_BIG_ENDIAN);
+}
+
+
+static void
+rach_sp_hplmn_id_fmt(gchar *s, guint32 v)
+{
+	if (v == 0xfffff) {
+		g_snprintf(s, ITEM_LABEL_LENGTH, "%05x (Null)", v);
+	} else if ((v & 0xf8000) == 0xf8000) {
+		g_snprintf(s, ITEM_LABEL_LENGTH, "%05x (SP ID %4d)", v, v & 0x7fff);
+	} else {
+		g_snprintf(s, ITEM_LABEL_LENGTH, "%05x (HPLMN ID)", v);
+	}
+}
+
+static const value_string rach_pd_vals[] = {
+	{ 0, "Fixed to 00 for this version of the protocol" },
+	{ 1, "Reserved" },
+	{ 2, "Reserved" },
+	{ 3, "Reserved" },
+	{ 0, NULL }
+};
+
+static void
+rach_dialed_num_grp1234_fmt(gchar *s, guint32 v)
+{
+	g_snprintf(s, ITEM_LABEL_LENGTH, "%03d", v);
+}
+
+static void
+rach_dialed_num_grp5_fmt(gchar *s, guint32 v)
+{
+	if (v <= 999) {
+		g_snprintf(s, ITEM_LABEL_LENGTH, "%03d", v);
+	} else if (v == 1023) {
+		g_snprintf(s, ITEM_LABEL_LENGTH,
+			"All digits in the preceding group are valid (%d)", v);
+	} else if (v == 1022) {
+		g_snprintf(s, ITEM_LABEL_LENGTH,
+			"First two digits in the preceding group are valid, "
+			"and the third digit (i.e. 0) is padding(%d)", v);
+	} else if (v == 1021) {
+		g_snprintf(s, ITEM_LABEL_LENGTH,
+			"First digit in the preceding group is valid, and "
+			"the second and third 0s are padding(%d)", v);
+	} else if (v >= 1100 && v <= 1199) {
+		g_snprintf(s, ITEM_LABEL_LENGTH, "%02d (%d)", v - 1100, v);
+	} else if (v >= 1200 && v <= 1209) {
+		g_snprintf(s, ITEM_LABEL_LENGTH, "%01d (%d)", v - 1200, v);
+	} else {
+		g_snprintf(s, ITEM_LABEL_LENGTH, "Invalid (%d)", v);
+	}
+}
+
+static void
+rach_gps_timestamp_fmt(gchar *s, guint32 v)
+{
+	if (v == 0xffff) {
+		g_snprintf(s, ITEM_LABEL_LENGTH, ">= 65535 minutes or N/A (%04x)", v);
+	} else {
+		g_snprintf(s, ITEM_LABEL_LENGTH, "%d minutes (%04x)", v, v);
+	}
+}
+
+static const value_string rach_gci_vals[] = {
+	{ 0, "MES is not GPS capable" },
+	{ 1, "MES is GPS capable" },
+	{ 0, NULL }
+};
+
+static const value_string rach_number_type_vals[] = {
+	{ 0, "Unknown" },
+	{ 1, "International Number" },
+	{ 2, "National Number" },
+	{ 3, "Network-specific Number (operator access)" },
+	{ 4, "Dedicated Access short code" },
+	{ 5, "Reserved" },
+	{ 6, "Reserved" },
+	{ 7, "(N/A - Not MO Call)" },
+	{ 0, NULL }
+};
+
+static int
+_parse_dialed_number(gchar *s, int slen, const guint8 *num)
+{
+	guint16 grp[5];
+	int rv;
+
+	grp[0] = ((num[0] & 0x3f) << 4) | ((num[1] & 0xf0) >> 4);
+	grp[1] = ((num[1] & 0x0f) << 6) | ((num[2] & 0xfc) >> 2);
+	grp[2] = ((num[2] & 0x03) << 8) | num[3];
+	grp[3] = ((num[4] & 0xff) << 2) | ((num[5] & 0xc0) >> 6);
+	grp[4] = ((num[5] & 0x3f) << 5) | ((num[6] & 0xf8) >> 3);
+
+	rv = g_snprintf(s, slen, "%03d%03d%03d", grp[0], grp[1], grp[2]);
+
+	if (grp[4] <= 999) {
+		rv += g_snprintf(s + rv, ITEM_LABEL_LENGTH,
+		                 "%03d%03d", grp[3], grp[4]);
+	} else if (grp[4] == 1023) {
+		rv += g_snprintf(s + rv, ITEM_LABEL_LENGTH,
+		                 "%03d", grp[3]);
+	} else if (grp[4] == 1022) {
+		rv += g_snprintf(s + rv, ITEM_LABEL_LENGTH,
+		                 "%02d", grp[3] / 10);
+	} else if (grp[4] == 1021) {
+		rv += g_snprintf(s + rv, ITEM_LABEL_LENGTH,
+		                 "%01d", grp[3] / 100);
+	} else if (grp[4] >= 1100 && grp[4] <= 1199) {
+		rv += g_snprintf(s + rv, ITEM_LABEL_LENGTH,
+		                 "%03d%02d", grp[3], grp[4] - 1100);
+	} else if (grp[4] >= 1200 && grp[4] <= 1209) {
+		rv += g_snprintf(s + rv, ITEM_LABEL_LENGTH,
+		                 "%03d%01d", grp[3], grp[4] - 1200);
+	} else {
+		rv += g_snprintf(s + rv, ITEM_LABEL_LENGTH,
+		                 "%03d%03d (Invalid)", grp[3], grp[4]);
+	}
+
+	return rv;
+}
+
+static void
+dissect_gmr1_rach_kls2(tvbuff_t *tvb, int offset, packet_info *pinfo, proto_tree *tree,
+                       int is_moc)
+{
+	proto_item *dialed_num_item = NULL, *gps_pos_item = NULL;
+	proto_tree *dialed_num_tree = NULL, *gps_pos_tree = NULL;
+
+	/* MES Power Class */
+	proto_tree_add_item(tree, hf_rach_mes_pwr_class,
+	                    tvb, offset, 1, ENC_BIG_ENDIAN);
+
+	/* SP/HPLMN ID */
+	proto_tree_add_item(tree, hf_rach_sp_hplmn_id,
+	                    tvb, offset, 3, ENC_BIG_ENDIAN);
+
+	/* PD */
+	proto_tree_add_item(tree, hf_rach_pd,
+	                    tvb, offset + 3, 1, ENC_BIG_ENDIAN);
+
+
+	/* Is it a MO call ? */
+	if (is_moc) {
+		gchar s[32];
+
+		/* Dialed number */
+			/* Parse number */
+		_parse_dialed_number(s, sizeof(s),
+		                     tvb_get_ptr(tvb, offset + 3, 7));
+
+		col_append_fstr(pinfo->cinfo, COL_INFO, "%s ", s);
+
+			/* Base item */
+		dialed_num_item = proto_tree_add_string(
+			tree, hf_rach_number, tvb, offset + 3, 7, s);
+
+		dialed_num_tree = proto_item_add_subtree(
+			dialed_num_item, ett_rach_dialed_num);
+
+			/* Group 1 */
+		proto_tree_add_item(dialed_num_tree, hf_rach_number_grp1,
+		                    tvb, offset + 3, 2, ENC_BIG_ENDIAN);
+
+			/* Group 2 */
+		proto_tree_add_item(dialed_num_tree, hf_rach_number_grp2,
+		                    tvb, offset + 4, 2, ENC_BIG_ENDIAN);
+
+			/* Group 3 */
+		proto_tree_add_item(dialed_num_tree, hf_rach_number_grp3,
+		                    tvb, offset + 5, 2, ENC_BIG_ENDIAN);
+
+			/* Group 4 */
+		proto_tree_add_item(dialed_num_tree, hf_rach_number_grp4,
+		                    tvb, offset + 7, 2, ENC_BIG_ENDIAN);
+
+			/* Group 5 */
+		proto_tree_add_item(dialed_num_tree, hf_rach_number_grp5,
+		                    tvb, offset + 8, 2, ENC_BIG_ENDIAN);
+	} else {
+		/* MSC ID */
+		proto_tree_add_item(tree, hf_rach_msc_id,
+		                    tvb, offset + 3, 1, ENC_BIG_ENDIAN);
+
+		/* GPS timestamp */
+		proto_tree_add_item(tree, hf_rach_gps_timestamp,
+		                    tvb, offset + 4, 2, ENC_BIG_ENDIAN);
+
+		/* Software version number */
+		proto_tree_add_item(tree, hf_rach_software_version,
+		                    tvb, offset + 6, 1, ENC_BIG_ENDIAN);
+
+		/* Spare */
+		proto_tree_add_item(tree, hf_rach_spare,
+		                    tvb, offset + 6, 1, ENC_BIG_ENDIAN);
+	}
+
+	/* GCI */
+	proto_tree_add_item(tree, hf_rach_gci,
+	                    tvb, offset + 9, 1, ENC_BIG_ENDIAN);
+
+	/* R */
+	proto_tree_add_item(tree, hf_rach_r,
+	                    tvb, offset + 9, 1, ENC_BIG_ENDIAN);
+
+	/* O */
+	proto_tree_add_item(tree, hf_rach_o,
+	                    tvb, offset + 9, 1, ENC_BIG_ENDIAN);
+
+	/* GPS Position */
+	gps_pos_item = proto_tree_add_text(
+		tree, tvb, offset + 10, 5,
+		"GPS Position");
+	gps_pos_tree = proto_item_add_subtree(gps_pos_item, ett_rach_gps_pos);
+
+	dissect_gmr1_rach_gps_pos(tvb, offset + 10, pinfo, gps_pos_tree);
+
+	/* Number type */
+	proto_tree_add_item(tree, hf_rach_number_type,
+	                    tvb, offset + 15, 1, ENC_BIG_ENDIAN);
+}
+
+
+static void
+dissect_gmr1_rach(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree)
+{
+	proto_item *rach_item = NULL, *kls1_item = NULL, *kls2_item = NULL;
+	proto_tree *rach_tree = NULL, *kls1_tree = NULL, *kls2_tree = NULL;
+	int len, is_moc;
+
+	len = tvb_length(tvb);
+
+	rach_item = proto_tree_add_protocol_format(
+		tree, proto_gmr1_rach, tvb, 0, len,
+		"GMR-1 Channel Request (RACH)");
+	rach_tree = proto_item_add_subtree(rach_item, ett_rach_msg);
+
+	if (len != 18) {
+		col_append_str(pinfo->cinfo, COL_INFO, "(Invalid)");
+		call_dissector(data_handle, tvb, pinfo, tree);
+		return;
+	}
+
+	col_append_str(pinfo->cinfo, COL_INFO, "(RACH) ");
+
+	kls1_item = proto_tree_add_text(
+		rach_tree, tvb, 0, 2,
+		"Class-1 informations");
+	kls1_tree = proto_item_add_subtree(kls1_item, ett_rach_kls1);
+
+	dissect_gmr1_rach_kls1(tvb, 0, pinfo, kls1_tree, &is_moc);
+
+	kls2_item = proto_tree_add_text(
+		rach_tree, tvb, 2, 16,
+		"Class-2 informations");
+	kls2_tree = proto_item_add_subtree(kls2_item, ett_rach_kls2);
+
+	dissect_gmr1_rach_kls2(tvb, 2, pinfo, kls2_tree, is_moc);
+}
+
+void
+proto_register_gmr1_rach(void)
+{
+	static hf_register_info hf[] = {
+		{ &hf_rach_prio,
+		  { "Priority", "gmr1.rach.priority",
+		    FT_UINT8, BASE_DEC, VALS(rach_prio_vals), 0x01,
+		    NULL, HFILL }
+		},
+		{ &hf_rach_est_cause,
+		  { "Establishment Cause", "gmr1.rach.est_cause",
+		    FT_UINT8, BASE_HEX, VALS(rach_est_cause_vals), 0x3e,
+		    NULL, HFILL }
+		},
+		{ &hf_rach_est_cause_moc,
+		  { "Establishment Cause", "gmr1.rach.est_cause.moc",
+		    FT_UINT8, BASE_HEX, VALS(rach_est_cause_moc_vals), 0x20,
+		    NULL, HFILL }
+		},
+		{ &hf_rach_est_cause_pag_resp,
+		  { "Establishment Cause", "gmr1.rach.est_cause.pag_resp",
+		    FT_UINT8, BASE_HEX, VALS(rach_est_cause_pag_resp_vals), 0x38,
+		    NULL, HFILL }
+		},
+		{ &hf_rach_num_plan,
+		  { "Numbering Plan Identification", "gmr1.rach.numbering_plan",
+		    FT_UINT8, BASE_DEC, VALS(rach_num_plan_vals), 0x1e,
+		    NULL, HFILL }
+		},
+		{ &hf_rach_chan_needed,
+		  { "Channel Needed", "gmr1.rach.chan_needed",
+		    FT_UINT8, BASE_DEC, VALS(rach_chan_needed_vals), 0x06,
+		    "Echoed from Paging Request", HFILL }
+		},
+		{ &hf_rach_retry_cnt,
+		  { "Retry Counter", "gmr1.rach.retry_counter",
+		    FT_UINT8, BASE_DEC, NULL, 0xc0,
+		    "Retransmission count for current access attempt", HFILL }
+		},
+		{ &hf_rach_precorr,
+		  { "Precorrection Indication", "gmr1.rach.precorr_ind",
+		    FT_UINT8, BASE_DEC, VALS(rach_precorr_vals), 0xe0,
+		    "This is the timing correction applied to RACH while "
+		    "sending this message. See GMR 05.010.", HFILL }
+		},
+		{ &hf_rach_rand_ref,
+		  { "Random Reference", "gmr1.rach.random_reference",
+		    FT_UINT8, BASE_HEX, NULL, 0x1f,
+		    "A random number of 5 bits", HFILL }
+		},
+		{ &hf_rach_gps_pos_cpi,
+		  { "CPI", "gmr1.rach.gps_pos.cpi",
+		    FT_UINT8, BASE_DEC, VALS(rach_gps_pos_cpi_vals), 0x80,
+		    "Current Position Indicator", HFILL }
+		},
+		{ &hf_rach_gps_pos_lat,
+		  { "Latitude", "gmr1.rach.gps_pos.latitude",
+		    FT_UINT24, BASE_CUSTOM, rach_gps_pos_lat_fmt, 0x7ffff0,
+		    NULL, HFILL }
+		},
+		{ &hf_rach_gps_pos_long,
+		  { "Longitude", "gmr1.rach.gps_pos.longitude",
+		    FT_UINT24, BASE_CUSTOM, rach_gps_pos_long_fmt, 0x0fffff,
+		    NULL, HFILL }
+		},
+		{ &hf_rach_mes_pwr_class,
+		  { "MES Power Class", "gmr1.rach.mes_power_class",
+		    FT_UINT8, BASE_DEC, NULL, 0xf0,
+		    "See GMR 05.005 for infos", HFILL }
+		},
+		{ &hf_rach_sp_hplmn_id,
+		  { "SP/HPLMN ID", "gmr1.rach.sp_hplmn_id",
+		    FT_UINT24, BASE_CUSTOM, rach_sp_hplmn_id_fmt, 0x0fffff,
+		    NULL, HFILL }
+		},
+		{ &hf_rach_pd,
+		  { "PD", "gmr1.rach.pd",
+		    FT_UINT8, BASE_DEC, VALS(rach_pd_vals), 0xc0,
+		    "Protocol Discriminator", HFILL }
+		},
+		{ &hf_rach_number,
+		  { "Dialed Number", "gmr1.rach.number",
+		    FT_STRING, BASE_NONE, NULL, 0x00,
+		    NULL, HFILL }
+		},
+		{ &hf_rach_number_grp1,
+		  { "Group 1", "gmr1.rach.number.grp1",
+		    FT_UINT16, BASE_CUSTOM, rach_dialed_num_grp1234_fmt, 0x3ff0,
+		    NULL, HFILL }
+		},
+		{ &hf_rach_number_grp2,
+		  { "Group 2", "gmr1.rach.number.grp2",
+		    FT_UINT16, BASE_CUSTOM, rach_dialed_num_grp1234_fmt, 0x0ffc,
+		    NULL, HFILL }
+		},
+		{ &hf_rach_number_grp3,
+		  { "Group 3", "gmr1.rach.number.grp3",
+		    FT_UINT16, BASE_CUSTOM, rach_dialed_num_grp1234_fmt, 0x03ff,
+		    NULL, HFILL }
+		},
+		{ &hf_rach_number_grp4,
+		  { "Group 4", "gmr1.rach.number.grp4",
+		    FT_UINT16, BASE_CUSTOM, rach_dialed_num_grp1234_fmt, 0xffc0,
+		    NULL, HFILL }
+		},
+		{ &hf_rach_number_grp5,
+		  { "Group 5", "gmr1.rach.number.grp5",
+		    FT_UINT16, BASE_CUSTOM, rach_dialed_num_grp5_fmt, 0x3ff8,
+		    NULL, HFILL }
+		},
+		{ &hf_rach_msc_id,
+		  { "MSC ID", "gmr1.rach.msc_id",
+		    FT_UINT8, BASE_DEC, NULL, 0x3f,
+		    NULL, HFILL }
+		},
+		{ &hf_rach_gps_timestamp,
+		  { "GPS Timestamp", "gmr1.rach.gps_timestamp",
+		    FT_UINT16, BASE_CUSTOM, rach_gps_timestamp_fmt, 0xffff,
+		    NULL, HFILL }
+		},
+		{ &hf_rach_software_version,
+		  { "Software Version", "gmr1.rach.software_version",
+		    FT_UINT8, BASE_DEC, NULL, 0xfe,
+		    NULL, HFILL }
+		},
+		{ &hf_rach_spare,
+		  { "Spare", "gmr1.rach.spare",
+		    FT_UINT32, BASE_DEC, NULL, 0x01fffff8,
+		    NULL, HFILL }
+		},
+		{ &hf_rach_gci,
+		  { "GCI", "gmr1.rach.gci",
+		    FT_UINT8, BASE_DEC, VALS(rach_gci_vals), 0x01,
+		    "GPS Capability Indicator", HFILL }
+		},
+		{ &hf_rach_r,
+		  { "R", "gmr1.rach.r",
+		    FT_UINT8, BASE_DEC, NULL, 0x02,
+		    "See GMR 04.008 10.1.8 for full description" , HFILL }
+		},
+		{ &hf_rach_o,
+		  { "O", "gmr1.rach.o",
+		    FT_UINT8, BASE_DEC, NULL, 0x04,
+		    "See GMR 04.008 10.1.8 for full description", HFILL }
+		},
+		{ &hf_rach_number_type,
+		  { "Number Type", "gmr1.rach.number_type",
+		    FT_UINT8, BASE_DEC, VALS(rach_number_type_vals), 0x07,
+		    "For MO Call only", HFILL }
+		},
+	};
+
+	static gint *ett[] = {
+		&ett_rach_msg,
+		&ett_rach_kls1,
+		&ett_rach_kls2,
+		&ett_rach_est_cause,
+		&ett_rach_dialed_num,
+		&ett_rach_gps_pos,
+	};
+
+	proto_gmr1_rach = proto_register_protocol("GEO-Mobile Radio (1) RACH", "GMR-1 RACH", "gmr1.rach");
+
+	proto_register_field_array(proto_gmr1_rach, hf, array_length(hf));
+	proto_register_subtree_array(ett, array_length(ett));
+
+	register_dissector("gmr1_rach", dissect_gmr1_rach, proto_gmr1_rach);
+}
+
+void
+proto_reg_handoff_gmr1_rach(void)
+{
+	data_handle = find_dissector("data");
+}