summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--tda.erl12
1 files changed, 12 insertions, 0 deletions
diff --git a/tda.erl b/tda.erl
index 6bf486d..948f75e 100644
--- a/tda.erl
+++ b/tda.erl
@@ -1,5 +1,7 @@
-module(tda).
-export([associate_request/0, associate_result/1]).
+-export([release_request/0, release_result/1]).
+-export([associate_abort/1]).
-include("ACSE-1.hrl").
-include("CSTA-application-context-information-csta3.hrl").
@@ -24,3 +26,13 @@ associate_result(Bin) ->
'ACSEUserInformationForCSTA', Enc),
{Pdu#'AARE-apdu'.result, Ver#'NewACSEUserInformationForCSTA'.cSTAVersion}.
+release_request() ->
+ 'ACSE-1':encode('RLRQ-apdu', #'RLRQ-apdu'{}).
+
+release_result(Bin) ->
+ 'ACSE-1':decode('RLRE-apdu', Bin).
+
+% <<100,3,128,1,0>>
+associate_abort(Bin) ->
+ {ok, Pdu} = 'ACSE-1':decode('ABRT-apdu', Bin),
+ Pdu#'ABRT-apdu'.'abort-source'.