summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2015-10-25 14:02:25 +0100
committerDimitri Sokolyuk <demon@dim13.org>2015-10-25 14:02:25 +0100
commitdafee5ce0399202b3b8551d1545e85815820e926 (patch)
tree0e35c2066de8bdd88b38040ff1b423b93e8dda73
parentfc61c9a83913bbb8ce80a3f0f45198b210ecbec9 (diff)
Split files
-rw-r--r--tda.erl29
-rw-r--r--tda.txt28
2 files changed, 28 insertions, 29 deletions
diff --git a/tda.erl b/tda.erl
index fac4cbc..692e017 100644
--- a/tda.erl
+++ b/tda.erl
@@ -9,19 +9,6 @@
-define(CONNECT_TIMEOUT, 3000).
-define(HOST, "192.168.240.20").
-% A-ASSOCIATE Request
-% 60 23 AARQ-apdu
-% 80 02 07 80 protocol-version { version1 }
-% A1 07 application-context-name
-% 06 05 2B 0C 00 81 5A { 1 3 12 0 218 }
-% BE 14 user-information
-% 28 12
-% 06 07 2B 0C 00 82 1D 81 48 direct-reference { 1 3 12 0 285 200 }
-% A0 07 single-ASN1-type
-% (ACSEUserInfomrationForCSTA)
-% A0 05 newDefinition
-% 03 03 00 08 00 cSTAVersion { versionFive }
-
associate_request() ->
{ok, UI} = acse:encode('ACSEUserInformationForCSTA', {newDefinition,
#'NewACSEUserInformationForCSTA'{cSTAVersion = [versionFive]}}),
@@ -33,22 +20,6 @@ associate_request() ->
encoding = {'single-ASN1-type', UI}}]},
acse:encode('ACSE-apdu', {aarq, Pdu}).
-% Request
-% 60,23,80,02,07,80,a1,07,06,05,2b,0c,00,81,5a,be,14,28,12,06,07,2b,0c,00,82,1d,81,48,a0,07,a0,05,03,03,00,08,00
-% <<96,35,128,2,7,128,161,7,6,5,43,12,0,129,90,190,20,40,18,6,7,43,12,0,130,29,129,72,160,7,160,5,3,3,0,8,0>>
-% <<96,30,161,7,6,5,43,12,0,129,90,190,19,40,17,6,7,43,12,0, 130,29,129,72,160,6,160,4,3,...>>
-% Accept
-% <<97,47,128,2,7,128,161,7,6,5,43,12,0,129,90,162,3,2,1,0,163,5,161,3,2,1,1,190,20,40,18,6,7,43,12,0,130,29,129,72,160,7,160,5,3,3,0,8,0>>
-% Reject
-% <<97,25,128,2,7,128,161,7,6,5,43,12,0,129,90,162,3,2,1,1,163,5,161,3,2,1,1>>
-
-% Abort
-% <<100,3,128,1,0>>
-
-% ROSE status
-% <<161,12,2,1,1,2,2,0,211,48,3,10,1,2>>
-% <<162,11,2,1,1,48,6,2,2,0,211,5,0>>
-
start_client() ->
register(cl, spawn(?MODULE, client, [?HOST])).
diff --git a/tda.txt b/tda.txt
new file mode 100644
index 0000000..116045e
--- /dev/null
+++ b/tda.txt
@@ -0,0 +1,28 @@
+% A-ASSOCIATE Request
+% 60 23 AARQ-apdu
+% 80 02 07 80 protocol-version { version1 }
+% A1 07 application-context-name
+% 06 05 2B 0C 00 81 5A { 1 3 12 0 218 }
+% BE 14 user-information
+% 28 12
+% 06 07 2B 0C 00 82 1D 81 48 direct-reference { 1 3 12 0 285 200 }
+% A0 07 single-ASN1-type
+% (ACSEUserInfomrationForCSTA)
+% A0 05 newDefinition
+% 03 03 00 08 00 cSTAVersion { versionFive }
+
+% Request
+% 60,23,80,02,07,80,a1,07,06,05,2b,0c,00,81,5a,be,14,28,12,06,07,2b,0c,00,82,1d,81,48,a0,07,a0,05,03,03,00,08,00
+% <<96,35,128,2,7,128,161,7,6,5,43,12,0,129,90,190,20,40,18,6,7,43,12,0,130,29,129,72,160,7,160,5,3,3,0,8,0>>
+% <<96,30,161,7,6,5,43,12,0,129,90,190,19,40,17,6,7,43,12,0, 130,29,129,72,160,6,160,4,3,...>>
+% Accept
+% <<97,47,128,2,7,128,161,7,6,5,43,12,0,129,90,162,3,2,1,0,163,5,161,3,2,1,1,190,20,40,18,6,7,43,12,0,130,29,129,72,160,7,160,5,3,3,0,8,0>>
+% Reject
+% <<97,25,128,2,7,128,161,7,6,5,43,12,0,129,90,162,3,2,1,1,163,5,161,3,2,1,1>>
+
+% Abort
+% <<100,3,128,1,0>>
+
+% ROSE status
+% <<161,12,2,1,1,2,2,0,211,48,3,10,1,2>>
+% <<162,11,2,1,1,48,6,2,2,0,211,5,0>>