Add more parsing clauses and functions

src/aprs_is_decode.erl

@@ -20,7 +20,25 @@ decode_header(D, {CPS, CPI, CPR}) ->
 
 info_dispatch(Info) ->
     <<Type:8, Rest/binary>> = Info,
-    info_dispatch_type({Type, Rest}).
+    info_dispatch_type(Type, Rest).
 
-info_dispatch_type({$!, Field}) -> Field;
-info_dispatch_type({_, Field}) -> Field, undefined.
+info_dispatch_type($!, Field) ->
+    position_nomsg(binary:first(Field), Field); 
+info_dispatch_type($T, Field) -> {telemetry, Field};
+info_dispatch_type($:, Field) -> {message, Field};
+info_dispatch_type($?, Field) -> {query, Field};
+info_dispatch_type($>, Field) -> {status, Field};
+info_dispatch_type($;, Field) -> {object, Field};
+info_dispatch_type($), Field) -> {item, Field};
+info_dispatch_type($$, Field) -> {nmea, Field};
+info_dispatch_type($,, Field) -> {test_data, Field};
+info_dispatch_type($}, Field) -> {third_party, Field};
+info_dispatch_type(_, Field) -> Field, undefined.
+
+position_nomsg(T, Field) when $0 =< T, T =< $9 ->
+    % uncompressed position format
+    {position_uncompressed, Field};
+position_nomsg($/, Field) ->
+    % compressed position format;
+    {position_compressed, Field};
+position_nomsg(_, Field) -> {undefined, Field}.