From dafee5ce0399202b3b8551d1545e85815820e926 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sun, 25 Oct 2015 14:02:25 +0100 Subject: Split files --- tda.erl | 29 ----------------------------- 1 file changed, 29 deletions(-) (limited to 'tda.erl') 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])). -- cgit v1.2.3