diff --git a/TCAP/asn_src/ITU/Makefile b/TCAP/asn_src/ITU/Makefile
index ad1f9eb..e3c18b9 100644
--- a/TCAP/asn_src/ITU/Makefile
+++ b/TCAP/asn_src/ITU/Makefile
@@ -17,7 +17,7 @@ $(EBIN)/%.beam:%.erl
 default:	all
 
 .PHONY:	all
-all:		q773 q755 q775
+all:		q773 q755 q775 simple
 
 .PHONY:	q773
 q773:		$(EBIN)/TR.beam $(EBIN)/TCAPMessages.beam \
@@ -34,6 +34,9 @@ TC-Testing-User.erl:		TC-TMP.erl Remote-Operations-Information-Objects.erl
 .PHONY:	q775
 q775:		$(EBIN)/TCAP-Examples.beam $(EBIN)/TCAP-Tools.beam 
 
+.PHONY: simple
+simple: 	$(EBIN)/SimpleTCAP.beam
+
 TCAP-Examples.erl:	Remote-Operations-Information-Objects.erl
 TCAP-Tools.erl:		Remote-Operations-Information-Objects.erl
 TC-Notation-Extensions.erl:	TCAPMessages.erl \
diff --git a/TCAP/asn_src/ITU/SimpleTCAP.asn b/TCAP/asn_src/ITU/SimpleTCAP.asn
new file mode 100644
index 0000000..f2f839c
--- /dev/null
+++ b/TCAP/asn_src/ITU/SimpleTCAP.asn
@@ -0,0 +1,101 @@
+-- This is a manually-crafted simplified TCAP ASN.1 syntax, created
+-- for the signerl project by Harald Welte <laforge@gnumonks.org>
+--
+-- The "problem" with the real TCAP spec is its use of templates,
+-- which is nice if you want to create a fully integrated TCAP + MAP
+-- decoder, but in this case we simply want to parse all the common
+-- parts and ignore the application-specific parameters/rsults of the
+-- respective operation.
+
+SimpleTCAP
+
+DEFINITIONS IMPLICIT TAGS
+
+::=
+
+BEGIN
+
+Components ::= [APPLICATION 12] SEQUENCE SIZE (1..MAX) OF Component
+
+Component ::= CHOICE {
+	invoke		[1] Invoke,
+	returnResult	[2] ReturnResult,
+	returnError	[3] ReturnError,
+	reject		[4] Reject,
+	returnResultNotLast [7] ReturnResult
+}
+
+Invoke ::= SEQUENCE {
+	invokeId InvokeId,
+	linkedId CHOICE {
+		present	[0] IMPLICIT present < InvokeId,
+		absent	[1] IMPLICIT NULL
+	} OPTIONAL,
+	opcode Code,
+	argument Param
+}
+
+ReturnResult ::= SEQUENCE {
+	invokeId InvokeId,
+	result SEQUENCE {
+		opcode Code,
+		result Param OPTIONAL
+	}
+}
+
+ReturnError ::= SEQUENCE {
+	invokeId InvokeId,
+	errcode Code,
+	parameter Param OPTIONAL
+}
+
+Reject ::= SEQUENCE {
+	invokeId InvokeId,
+	problem CHOICE {
+		general		[0]	GeneralProblem,
+		invoke		[1]	InvokeProblem,
+		returnResult	[2]	ReturnResultProblem,
+		returnError	[3]	ReturnErrorProblem
+	}
+}
+
+GeneralProblem ::= INTEGER {
+  unrecognizedPDU(0), mistypedPDU(1), badlyStructuredPDU(2)}
+
+InvokeProblem ::= INTEGER {
+  duplicateInvocation(0), unrecognizedOperation(1), mistypedArgument(2),
+  resourceLimitation(3), releaseInProgress(4), unrecognizedLinkedId(5),
+  linkedResponseUnexpected(6), unexpectedLinkedOperation(7)}
+
+ReturnResultProblem ::= INTEGER {
+  unrecognizedInvocation(0), resultResponseUnexpected(1), mistypedResult(2)
+}
+
+ReturnErrorProblem ::= INTEGER {
+  unrecognizedInvocation(0), errorResponseUnexpected(1), unrecognizedError(2),
+  unexpectedError(3), mistypedParameter(4)}
+
+RejectProblem ::= INTEGER {
+  general-unrecognizedPDU(0), general-mistypedPDU(1),
+  general-badlyStructuredPDU(2), invoke-duplicateInvocation(10),
+  invoke-unrecognizedOperation(11), invoke-mistypedArgument(12),
+  invoke-resourceLimitation(13), invoke-releaseInProgress(14),
+  invoke-unrecognizedLinkedId(15), invoke-linkedResponseUnexpected(16),
+  invoke-unexpectedLinkedOperation(17),
+  returnResult-unrecognizedInvocation(20),
+  returnResult-resultResponseUnexpected(21), returnResult-mistypedResult(22),
+  returnError-unrecognizedInvocation(30),
+  returnError-errorResponseUnexpected(31), returnError-unrecognizedError(32),
+  returnError-unexpectedError(33), returnError-mistypedParameter(34)}
+
+InvokeId ::= CHOICE {present  INTEGER,
+                     absent   NULL
+}
+
+Code ::= CHOICE {local   INTEGER,
+                 global  OBJECT IDENTIFIER
+}
+
+Param ::= ANY
+
+END