Commit 045b6e5f authored by Thanassis Tsiodras's avatar Thanassis Tsiodras
Browse files

TAPS case studies and PUS library updated

parent 0956332c
File mode changed from 100644 to 100755
This diff is collapsed.
File mode changed from 100644 to 100755
File mode changed from 100644 to 100755
File mode changed from 100644 to 100755
......@@ -782,7 +782,7 @@ CONNECTIONS
Taste::coordinates => "42482 150187 45190 150187 45190 153356 43652 153356";
};
on_off_cmds_st02_RI_tm_link_tm_st01_RI_tm_link : SUBPROGRAM ACCESS RI_tm_link -> tm_st01.RI_tm_link {
Taste::coordinates => "39891 154372 35911 154372 35911 155192 37559 155192";
Taste::coordinates => "39891 154372 39198 154372 39198 155192 37559 155192";
};
on_off_cmds_st02_RI_setParam_sensor2_RI_setParam : SUBPROGRAM ACCESS RI_setParam -> sensor2.RI_setParam {
Taste::coordinates => "52166 142711 53031 142711 53031 142717 54034 142717";
......@@ -1524,25 +1524,25 @@ FEATURES
Taste::InterfaceName => "test_Payload";
};
RI_tc24 : REQUIRES SUBPROGRAM ACCESS interfaceview::IV::payload::cpdu1_cmds::PI_tc24.others {
Taste::coordinates => "81080 190350";
Taste::coordinates => "81080 189164";
Taste::RCMoperationKind => any;
Taste::InterfaceName => "tc24";
Taste::labelInheritance => "true";
};
RI_tm : REQUIRES SUBPROGRAM ACCESS interfaceview::IV::payload::tm_cpdu1::PI_tm.others {
Taste::coordinates => "77664 190948";
Taste::coordinates => "76371 190948";
Taste::RCMoperationKind => any;
Taste::InterfaceName => "tm";
Taste::labelInheritance => "true";
};
RI_reqID : REQUIRES SUBPROGRAM ACCESS interfaceview::IV::payload::execution_cpdu1::PI_reqID.others {
Taste::coordinates => "79332 190350";
Taste::coordinates => "79332 189164";
Taste::RCMoperationKind => any;
Taste::InterfaceName => "reqID";
Taste::labelInheritance => "true";
};
RI_testExecCpdu1 : REQUIRES SUBPROGRAM ACCESS interfaceview::IV::payload::cpdu1_cmds::PI_testExecCpdu1.others {
Taste::coordinates => "83326 190350";
Taste::coordinates => "83326 189164";
Taste::RCMoperationKind => any;
Taste::InterfaceName => "testExecCpdu1";
Taste::labelInheritance => "true";
......@@ -2075,7 +2075,7 @@ END payload;
SYSTEM IMPLEMENTATION payload.others
SUBCOMPONENTS
acceptance_cpdu1 : SYSTEM interfaceview::IV::payload::acceptance_cpdu1::acceptance_cpdu1.others {
Taste::coordinates => "77664 190350 85862 191660";
Taste::coordinates => "76371 189164 85862 191660";
};
cpdu1_cmds : SYSTEM interfaceview::IV::payload::cpdu1_cmds::cpdu1_cmds.others {
Taste::coordinates => "79227 184209 86356 186251";
......@@ -2097,16 +2097,16 @@ CONNECTIONS
Taste::coordinates => "73181 193037 73181 192406 78698 192406 78698 191660";
};
cpdu1_cmds_PI_tc24_acceptance_cpdu1_RI_tc24 : SUBPROGRAM ACCESS cpdu1_cmds.PI_tc24 -> acceptance_cpdu1.RI_tc24 {
Taste::coordinates => "81080 190350 81080 187655 83389 187655 83389 186251";
Taste::coordinates => "81080 189164 81080 187707 83389 187707 83389 186251";
};
tm_cpdu1_PI_tm_acceptance_cpdu1_RI_tm : SUBPROGRAM ACCESS tm_cpdu1.PI_tm -> acceptance_cpdu1.RI_tm {
Taste::coordinates => "77664 190948 75463 190948 75463 190563 73263 190563";
Taste::coordinates => "76371 190948 74817 190948 74817 190563 73263 190563";
};
execution_cpdu1_PI_reqID_acceptance_cpdu1_RI_reqID : SUBPROGRAM ACCESS execution_cpdu1.PI_reqID -> acceptance_cpdu1.RI_reqID {
Taste::coordinates => "79332 190350 79332 187573 74998 187573 74998 184796";
Taste::coordinates => "79332 189164 79332 186980 74998 186980 74998 184796";
};
cpdu1_cmds_PI_testExecCpdu1_acceptance_cpdu1_RI_testExecCpdu1 : SUBPROGRAM ACCESS cpdu1_cmds.PI_testExecCpdu1 -> acceptance_cpdu1.RI_testExecCpdu1 {
Taste::coordinates => "83326 190350 83326 188300 85166 188300 85166 186251";
Taste::coordinates => "83326 189164 83326 187707 85166 187707 85166 186251";
};
cpdu1_PI_testStatusCpdu1_acceptance_cpdu1_RI_testStatusCpdu1 : SUBPROGRAM ACCESS cpdu1.PI_testStatusCpdu1 -> acceptance_cpdu1.RI_testStatusCpdu1 {
Taste::coordinates => "85862 191043 87192 191043 87192 180380 86326 180380";
......
6cc72adfbdc3c0b45875875eefbb5551 InterfaceView.aadl
19c1be9cf3f7cc7c25fd7b8099b9c6dd InterfaceView.aadl
File mode changed from 100644 to 100755
......@@ -1335,25 +1335,25 @@ FEATURES
Taste::InterfaceName => "test_Payload";
};
RI_tc24 : REQUIRES SUBPROGRAM ACCESS interfaceview::FV::cpdu1_cmds::PI_tc24.others {
Taste::coordinates => "81080 190350";
Taste::coordinates => "81080 189164";
Taste::RCMoperationKind => any;
Taste::InterfaceName => "tc24";
Taste::labelInheritance => "true";
};
RI_tm : REQUIRES SUBPROGRAM ACCESS interfaceview::FV::tm_cpdu1::PI_tm.others {
Taste::coordinates => "77664 190948";
Taste::coordinates => "76371 190948";
Taste::RCMoperationKind => any;
Taste::InterfaceName => "tm";
Taste::labelInheritance => "true";
};
RI_reqID : REQUIRES SUBPROGRAM ACCESS interfaceview::FV::execution_cpdu1::PI_reqID.others {
Taste::coordinates => "79332 190350";
Taste::coordinates => "79332 189164";
Taste::RCMoperationKind => any;
Taste::InterfaceName => "reqID";
Taste::labelInheritance => "true";
};
RI_testExecCpdu1 : REQUIRES SUBPROGRAM ACCESS interfaceview::FV::cpdu1_cmds::PI_testExecCpdu1.others {
Taste::coordinates => "83326 190350";
Taste::coordinates => "83326 189164";
Taste::RCMoperationKind => any;
Taste::InterfaceName => "testExecCpdu1";
Taste::labelInheritance => "true";
......@@ -6057,7 +6057,7 @@ SUBCOMPONENTS
Taste::coordinates => "32254 163369 152859 172547";
};
acceptance_cpdu1 : SYSTEM interfaceview::IV::payload::acceptance_cpdu1.others {
Taste::coordinates => "77664 190350 85862 191660";
Taste::coordinates => "76371 189164 85862 191660";
};
cpdu1_cmds : SYSTEM interfaceview::IV::payload::cpdu1_cmds.others {
Taste::coordinates => "79227 184209 86356 186251";
......@@ -6294,16 +6294,16 @@ CONNECTIONS
Taste::coordinates => "35975 172547 35975 185719 18294 185719 18294 188415";
};
cpdu1_cmds_PI_tc24_acceptance_cpdu1_RI_tc24 : SUBPROGRAM ACCESS cpdu1_cmds.PI_tc24 -> acceptance_cpdu1.RI_tc24 {
Taste::coordinates => "81080 190350 81080 187655 83389 187655 83389 186251";
Taste::coordinates => "81080 189164 81080 187707 83389 187707 83389 186251";
};
tm_cpdu1_PI_tm_acceptance_cpdu1_RI_tm : SUBPROGRAM ACCESS tm_cpdu1.PI_tm -> acceptance_cpdu1.RI_tm {
Taste::coordinates => "77664 190948 75463 190948 75463 190563 73263 190563";
Taste::coordinates => "76371 190948 74817 190948 74817 190563 73263 190563";
};
execution_cpdu1_PI_reqID_acceptance_cpdu1_RI_reqID : SUBPROGRAM ACCESS execution_cpdu1.PI_reqID -> acceptance_cpdu1.RI_reqID {
Taste::coordinates => "79332 190350 79332 187573 74998 187573 74998 184796";
Taste::coordinates => "79332 189164 79332 186980 74998 186980 74998 184796";
};
cpdu1_cmds_PI_testExecCpdu1_acceptance_cpdu1_RI_testExecCpdu1 : SUBPROGRAM ACCESS cpdu1_cmds.PI_testExecCpdu1 -> acceptance_cpdu1.RI_testExecCpdu1 {
Taste::coordinates => "83326 190350 83326 188300 85166 188300 85166 186251";
Taste::coordinates => "83326 189164 83326 187707 85166 187707 85166 186251";
};
cpdu1_PI_testStatusCpdu1_acceptance_cpdu1_RI_testStatusCpdu1 : SUBPROGRAM ACCESS cpdu1.PI_testStatusCpdu1 -> acceptance_cpdu1.RI_testStatusCpdu1 {
Taste::coordinates => "85862 191043 87192 191043 87192 180380 86326 180380";
......
......@@ -863,12 +863,6 @@ Sched_Summary_Notification_inst ::= SEQUENCE {
request_ID Sch_Req_ID_inst
}
-- ./dataview-uniq.asn
S1_status ::= ENUMERATED {
off(0),
on(1)
}
-- ./dataview-uniq.asn
Param_Monitor_Def_ID_inst ::= ENUMERATED {
param_def_ID_01(0),
......
all:
gprbuild -p -P acceptance_cpdu1.gpr # generate Ada code from the SDL model
gprbuild -p -P dataview_ada.gpr # generate Ada code from the ASN.1 model
gprbuild -p -P code/acceptance_cpdu1_ada.gpr # build the Ada code
clean:
rm -rf obj code
\ No newline at end of file
This diff is collapsed.
project acceptance_cpdu1 is
for Languages use ("SDL");
for Source_Dirs use (".");
for Object_Dir use "code";
for Source_Files use ("acceptance_cpdu1.pr");
package Naming is
for Body_Suffix ("SDL") use ".pr";
end Naming;
package Compiler is
for Driver ("SDL") use "opengeode";
for Object_File_Suffix ("SDL") use ".adb";
for Leading_Required_Switches ("SDL") use ("--toAda", "system_structure.pr");
end Compiler;
end acceptance_cpdu1;
\ No newline at end of file
/* CIF PROCESS (250, 148), (150, 75) */
process acceptance_cpdu1;
/* CIF TEXT (3583, 86), (319, 188) */
/* CIF TEXT (3602, 86), (319, 188) */
-- Text area for declarations and comments
dcl tc TC;
......@@ -12,192 +12,192 @@ process acceptance_cpdu1;
dcl tm11 TM_1_1;
dcl reqID_ack Request_ID_ACK;
/* CIF ENDTEXT */
/* CIF START (1266, 23), (70, 35) */
/* CIF START (1285, 23), (70, 35) */
START;
/* CIF task (1216, 78), (171, 53) */
/* CIF task (1234, 78), (171, 53) */
task crcTest:= true,
serviceAvailable := true,
readyDest := true;
/* CIF NEXTSTATE (1266, 161), (70, 35) */
/* CIF NEXTSTATE (1285, 161), (70, 35) */
NEXTSTATE Wait;
/* CIF state (684, 14), (70, 35) */
/* CIF state (1932, 10), (70, 35) */
state Wait;
/* CIF input (627, 69), (182, 35) */
input test_Payload(testParams)
/* CIF comment (829, 69), (97, 38) */
comment 'set the test
parameters';
/* CIF decision (576, 124), (283, 59) */
decision present(testParams);
/* CIF ANSWER (161, 205), (151, 23) */
(testST01Acceptance):
/* CIF task (0, 248), (473, 38) */
task crcTest := testParams!testST01Acceptance!crcTest,
serviceAvailable := testParams!testST01Acceptance!serviceAvailableTest;
/* CIF PROCEDURECALL (71, 306), (330, 35) */
call writeln('acceptance_cpdu1: set crcTest: ', crcTest);
/* CIF PROCEDURECALL (15, 361), (442, 35) */
call writeln('acceptance_cpdu1: set serviceAvailable: ', serviceAvailable);
/* CIF ANSWER (571, 205), (137, 23) */
(testST01Execution):
/* CIF output (483, 248), (313, 35) */
output testExecCpdu1(testParams!testST01Execution)
/* CIF comment (620, 297), (176, 38) */
comment 'sends the test data to
the cpdu1_cmds function';
/* CIF ANSWER (904, 203), (129, 23) */
(testCPDU1status):
/* CIF output (811, 246), (315, 35) */
output testStatusCpdu1(testParams!testCPDU1status)
/* CIF comment (1044, 317), (176, 38) */
comment 'sends the test data to
the cpdu1 function';
/* CIF ANSWER (1136, 203), (70, 23) */
else:
enddecision;
/* CIF NEXTSTATE (683, 420), (70, 35) */
NEXTSTATE Wait;
endstate;
/* CIF state (1913, 10), (70, 35) */
state Wait;
/* CIF input (1892, 65), (112, 35) */
/* CIF input (1911, 65), (112, 35) */
input tc_payload(tc);
/* CIF PROCEDURECALL (1796, 120), (303, 35) */
/* CIF PROCEDURECALL (1815, 120), (303, 35) */
call writeln('acceptance_cpdu1: incoming TC ...');
/* CIF decision (1913, 175), (70, 50) */
/* CIF decision (1932, 175), (70, 50) */
decision crcTest
/* CIF comment (2003, 182), (187, 35) */
/* CIF comment (2022, 182), (187, 35) */
comment 'check1: TC integrety (CRC)';
/* CIF ANSWER (1575, 245), (70, 23) */
/* CIF ANSWER (1594, 245), (70, 23) */
(true):
/* CIF PROCEDURECALL (1461, 288), (298, 35) */
/* CIF PROCEDURECALL (1480, 288), (298, 35) */
call writeln('acceptance_cpdu1: check 1: crc ok');
/* CIF decision (1548, 343), (124, 50) */
/* CIF decision (1567, 343), (124, 50) */
decision serviceAvailable
/* CIF comment (1692, 350), (196, 35) */
/* CIF comment (1711, 350), (196, 35) */
comment 'check 2: service availability';
/* CIF ANSWER (1355, 413), (70, 23) */
/* CIF ANSWER (1374, 413), (70, 23) */
(true):
/* CIF PROCEDURECALL (1197, 456), (386, 35) */
/* CIF PROCEDURECALL (1216, 456), (386, 35) */
call writeln('st01_acceptance: check 2: the service is available');
/* CIF decision (1197, 511), (385, 64) */
decision present(tc!application_data!device_access);
/* CIF ANSWER (1177, 596), (144, 23) */
/* CIF decision (1216, 511), (385, 64) */
decision present(tc.application_data.device_access);
/* CIF ANSWER (1196, 596), (144, 23) */
(pus_2_4_cpdu_cmds):
/* CIF PROCEDURECALL (1049, 639), (399, 29) */
/* CIF PROCEDURECALL (1068, 639), (399, 29) */
call writeln('acceptance_cpdu1: check 3: request type Ok');
/* CIF decision (1045, 688), (407, 71) */
decision tc!secondary_header!ack_successful_acceptance
/* CIF comment (1472, 706), (419, 38) */
/* CIF decision (1064, 688), (407, 71) */
decision tc.secondary_header.ack_successful_acceptance
/* CIF comment (1491, 706), (419, 38) */
comment 'check if the user wants to receive
successful acceptance reports';
/* CIF ANSWER (1085, 782), (70, 23) */
/* CIF ANSWER (1104, 782), (70, 23) */
(true):
/* CIF task (973, 825), (294, 38) */
task tm11!source_apid := TC!dest_apid,
tm11!sequence_count := TC!sequence_count;
/* CIF task (1015, 883), (209, 35) */
task tm!source_data := tm1_1: tm11;
/* CIF output (1061, 938), (118, 35) */
/* CIF task (992, 825), (294, 38) */
task tm11.source_apid := TC.dest_apid,
tm11.sequence_count := TC.sequence_count;
/* CIF task (1034, 883), (209, 35) */
task tm.source_data := tm1_1: tm11;
/* CIF output (1080, 938), (118, 35) */
output tm(tm)
/* CIF comment (1199, 938), (210, 38) */
/* CIF comment (1218, 938), (210, 38) */
comment 'send the tm1_1 successful
acceptance verification report';
/* CIF ANSWER (1419, 782), (70, 23) */
/* CIF ANSWER (1438, 782), (70, 23) */
(false):
enddecision;
/* CIF output (1052, 997), (394, 35) */
output tc24(tc!application_data!device_access!pus_2_4_cpdu_cmds);
/* CIF task (964, 1052), (569, 83) */
task reqID_ack!requestID!source_apid := tc!dest_apid,
reqID_ack!requestID!sequence_count := tc!sequence_count,
reqID_ack!ack_successful_start := tc!secondary_header!ack_successful_start,
reqID_ack!ack_successful_progress := tc!secondary_header!ack_successful_progress,
reqID_ack!ack_successful_completion := tc!secondary_header!ack_successful_completion
/* CIF comment (1553, 1075), (286, 38) */
/* CIF output (1071, 997), (394, 35) */
output tc24(tc.application_data.device_access.pus_2_4_cpdu_cmds);
/* CIF task (983, 1052), (569, 83) */
task reqID_ack.requestID.source_apid := tc.dest_apid,
reqID_ack.requestID.sequence_count := tc.sequence_count,
reqID_ack.ack_successful_start := tc.secondary_header!ack_successful_start,
reqID_ack.ack_successful_progress := tc.secondary_header.ack_successful_progress,
reqID_ack.ack_successful_completion := tc.secondary_header.ack_successful_completion
/* CIF comment (1572, 1075), (286, 38) */
comment 'after the request acceptance
send its ID and ack to the Execution service';
/* CIF output (1187, 1165), (124, 35) */
/* CIF output (1206, 1165), (124, 35) */
output reqID(reqID_ack);
/* CIF NEXTSTATE (1214, 1215), (70, 35) */
/* CIF NEXTSTATE (1233, 1215), (70, 35) */
NEXTSTATE Wait;
/* CIF ANSWER (2066, 596), (70, 23) */
/* CIF ANSWER (2085, 596), (70, 23) */
else:
/* CIF task (1937, 639), (328, 38) */
task request_id!source_apid := TC!dest_apid,
request_id!sequence_count := TC!sequence_count
/* CIF comment (2285, 640), (134, 38) */
/* CIF task (1956, 639), (328, 38) */
task request_id.source_apid := TC.dest_apid,
request_id.sequence_count := TC.sequence_count
/* CIF comment (2304, 640), (134, 38) */
comment 'set the request ID
fields';
/* CIF task (1950, 697), (302, 38) */
task tm12!fail_Notice!code := wrongRequestType,
tm12!req_ID := request_id
/* CIF comment (2272, 698), (194, 38) */
/* CIF task (1969, 697), (302, 38) */
task tm12.fail_Notice.code := wrongRequestType,
tm12.req_ID := request_id
/* CIF comment (2291, 698), (194, 38) */
comment 'set the TM failed request
integrity code and source ID';
/* CIF task (1991, 755), (219, 35) */
task tm!source_data:= tm1_2: tm12;
/* CIF output (2042, 810), (118, 35) */
/* CIF task (2010, 755), (219, 35) */
task tm.source_data:= tm1_2: tm12;
/* CIF output (2061, 810), (118, 35) */
output tm(tm)
/* CIF comment (2180, 810), (213, 38) */
/* CIF comment (2199, 810), (213, 38) */
comment 'send the tm1_2 failed
acceptance verification report';
/* CIF PROCEDURECALL (1901, 860), (399, 35) */
/* CIF PROCEDURECALL (1920, 860), (399, 35) */
call writeln('st01_acceptance: check 3: wrong request type');
/* CIF NEXTSTATE (2066, 915), (70, 35) */
/* CIF NEXTSTATE (2085, 915), (70, 35) */
NEXTSTATE Wait;
enddecision;
/* CIF ANSWER (2636, 413), (70, 23) */
/* CIF ANSWER (2655, 413), (70, 23) */
(false):
/* CIF task (2507, 456), (328, 38) */
task request_id!source_apid := TC!dest_apid,
request_id!sequence_count := TC!sequence_count
/* CIF comment (2855, 457), (134, 38) */
/* CIF task (2526, 456), (328, 38) */
task request_id.source_apid := TC.dest_apid,
request_id.sequence_count := TC.sequence_count
/* CIF comment (2874, 457), (134, 38) */
comment 'set the request ID
fields';
/* CIF task (2520, 514), (302, 38) */
task tm12!fail_Notice!code := serviceNotAvailable,
tm12!req_ID := request_id
/* CIF comment (2842, 515), (194, 38) */
/* CIF task (2539, 514), (302, 38) */
task tm12.fail_Notice.code := serviceNotAvailable,
tm12.req_ID := request_id
/* CIF comment (2861, 515), (194, 38) */
comment 'set the TM failed request
integrity code and source ID';
/* CIF task (2566, 572), (209, 35) */
task tm!source_data := tm1_2: tm12;
/* CIF output (2612, 627), (118, 35) */
/* CIF task (2585, 572), (209, 35) */
task tm.source_data := tm1_2: tm12;
/* CIF output (2631, 627), (118, 35) */
output tm(tm)
/* CIF comment (2750, 627), (213, 38) */
/* CIF comment (2769, 627), (213, 38) */
comment 'send the tm1_2 failed
acceptance verification report';
/* CIF PROCEDURECALL (2475, 677), (391, 35) */
/* CIF PROCEDURECALL (2494, 677), (391, 35) */
call writeln('st01_acceptance: check 2: the service is busy...');
/* CIF NEXTSTATE (2636, 732), (70, 35) */
/* CIF NEXTSTATE (2655, 732), (70, 35) */
NEXTSTATE Wait;
enddecision;
/* CIF ANSWER (3175, 245), (70, 23) */
/* CIF ANSWER (3194, 245), (70, 23) */
(false):
/* CIF task (3046, 288), (328, 38) */
task request_id!source_apid := TC!dest_apid,
request_id!sequence_count := TC!sequence_count
/* CIF comment (3409, 300), (134, 38) */
/* CIF task (3065, 288), (328, 38) */
task request_id.source_apid := TC.dest_apid,
request_id.sequence_count := TC.sequence_count
/* CIF comment (3428, 300), (134, 38) */
comment 'set the request ID
fields';
/* CIF task (3060, 346), (299, 38) */
task tm12!fail_Notice!code := reqIntegrityFailure,
tm12!req_ID := request_id
/* CIF comment (3379, 347), (194, 38) */
/* CIF task (3079, 346), (299, 38) */
task tm12.fail_Notice.code := reqIntegrityFailure,
tm12.req_ID := request_id
/* CIF comment (3398, 347), (194, 38) */
comment 'set the TM failed request
integrity code and source ID';
/* CIF task (3105, 404), (209, 41) */
task tm!source_data := tm1_2: tm12;
/* CIF output (3151, 466), (118, 35) */
/* CIF task (3124, 404), (209, 41) */
task tm.source_data := tm1_2: tm12;
/* CIF output (3170, 466), (118, 35) */
output tm(tm)
/* CIF comment (3289, 466), (213, 38) */
/* CIF comment (3308, 466), (213, 38) */
comment 'send the tm1_2 failed
acceptance verification report';
/* CIF PROCEDURECALL (3058, 516), (304, 35) */
/* CIF PROCEDURECALL (3077, 516), (304, 35) */
call writeln('st01_acceptance: check 1: crc failed');
/* CIF NEXTSTATE (3175, 566), (70, 35) */
/* CIF NEXTSTATE (3194, 566), (70, 35) */
NEXTSTATE Wait;
enddecision;
endstate;
/* CIF state (703, 14), (70, 35) */
state Wait;
/* CIF input (646, 69), (182, 35) */
input test_Payload(testParams)
/* CIF comment (848, 69), (97, 38) */
comment 'set the test
parameters';
/* CIF decision (595, 124), (283, 59) */
decision present(testParams);
/* CIF ANSWER (161, 205), (151, 23) */
(testST01Acceptance):
/* CIF task (0, 248), (473, 38) */
task crcTest := testParams.testST01Acceptance.crcTest,
serviceAvailable := testParams.testST01Acceptance.serviceAvailableTest;
/* CIF PROCEDURECALL (71, 306), (330, 35) */
call writeln('acceptance_cpdu1: set crcTest: ', crcTest);
/* CIF PROCEDURECALL (15, 361), (442, 35) */
call writeln('acceptance_cpdu1: set serviceAvailable: ', serviceAvailable);
/* CIF ANSWER (571, 205), (137, 23) */
(testST01Execution):
/* CIF output (483, 248), (313, 35) */
output testExecCpdu1(testParams.testST01Execution)
/* CIF comment (620, 297), (176, 38) */
comment 'sends the test data to
the cpdu1_cmds function';
/* CIF ANSWER (904, 203), (129, 23) */
(testCPDU1status):
/* CIF output (811, 246), (315, 35) */
output testStatusCpdu1(testParams.testCPDU1status)
/* CIF comment (1044, 317), (176, 38) */
comment 'sends the test data to
the cpdu1 function';
/* CIF ANSWER (1235, 203), (70, 23) */
else:
enddecision;
/* CIF NEXTSTATE (702, 420), (70, 35) */
NEXTSTATE Wait;
endstate;
endprocess acceptance_cpdu1;
\ No newline at end of file
/* CIF PROCESS (250, 148), (150, 75) */
process acceptance_cpdu1;
/* CIF TEXT (3583, 86), (319, 188) */
/* CIF TEXT (3602, 86), (319, 188) */
-- Text area for declarations and comments
dcl tc TC;
......@@ -12,192 +12,192 @@ process acceptance_cpdu1;
dcl tm11 TM_1_1;
dcl reqID_ack Request_ID_ACK;
/* CIF ENDTEXT */
/* CIF START (1266, 23), (70, 35) */
/* CIF START (1285, 23), (70, 35) */
START;
/* CIF task (1215, 78), (171, 53) */
/* CIF task (1234, 78), (171, 53) */
task crcTest:= true,
serviceAvailable := true,
readyDest := true;
/* CIF NEXTSTATE (1266, 161), (70, 35) */
/* CIF NEXTSTATE (1285, 161), (70, 35) */
NEXTSTATE Wait;
/* CIF state (1913, 10), (70, 35) */
/* CIF state (703, 14), (70, 35) */
state Wait;
/* CIF input (1892, 65), (112, 35) */
/* CIF input (646, 69), (182, 35) */
input test_Payload(testParams)
/* CIF comment (848, 69), (97, 38) */
comment 'set the test
parameters';
/* CIF decision (595, 124), (283, 59) */
decision present(testParams);
/* CIF ANSWER (161, 205), (151, 23) */
(testST01Acceptance):
/* CIF task (0, 248), (473, 38) */
task crcTest := testParams.testST01Acceptance.crcTest,
serviceAvailable := testParams.testST01Acceptance.serviceAvailableTest;
/* CIF PROCEDURECALL (71, 306), (330, 35) */
call writeln('acceptance_cpdu1: set crcTest: ', crcTest);
/* CIF PROCEDURECALL (15, 361), (442, 35) */
call writeln('acceptance_cpdu1: set serviceAvailable: ', serviceAvailable);
/* CIF ANSWER (571, 205), (137, 23) */
(testST01Execution):
/* CIF output (483, 248), (313, 35) */
output testExecCpdu1(testParams.testST01Execution)
/* CIF comment (620, 297), (176, 38) */
comment 'sends the test data to
the cpdu1_cmds function';
/* CIF ANSWER (904, 203), (129, 23) */
(testCPDU1status):
/* CIF output (811, 246), (315, 35) */
output testStatusCpdu1(testParams.testCPDU1status)
/* CIF comment (1044, 317), (176, 38) */
comment 'sends the test data to
the cpdu1 function';
/* CIF ANSWER (1235, 203), (70, 23) */
else:
enddecision;
/* CIF NEXTSTATE (702, 420), (70, 35) */
NEXTSTATE Wait;
endstate;
/* CIF state (1932, 10), (70, 35) */
state Wait;
/* CIF input (1911, 65), (112, 35) */
input tc_payload(tc);
/* CIF PROCEDURECALL (1796, 120), (303, 35) */
/* CIF PROCEDURECALL (1815, 120), (303, 35) */
call writeln('acceptance_cpdu1: incoming TC ...');
/* CIF decision (1913, 175), (70, 50) */
/* CIF decision (1932, 175), (70, 50) */
decision crcTest
/* CIF comment (2003, 182), (187, 35) */
/* CIF comment (2022, 182), (187, 35) */
comment 'check1: TC integrety (CRC)';
/* CIF ANSWER (1575, 245), (70, 23) */
/* CIF ANSWER (1594, 245), (70, 23) */
(true):
/* CIF PROCEDURECALL (1461, 288), (298, 35) */
/* CIF PROCEDURECALL (1480, 288), (298, 35) */
call writeln('acceptance_cpdu1: check 1: crc ok');
/* CIF decision (1548, 343), (124, 50) */
/* CIF decision (1567, 343), (124, 50) */
decision serviceAvailable
/* CIF comment (1692, 350), (196, 35) */
/* CIF comment (1711, 350), (196, 35) */
comment 'check 2: service availability';
/* CIF ANSWER (1355, 413), (70, 23) */
/* CIF ANSWER (1374, 413), (70, 23) */
(true):
/* CIF PROCEDURECALL (1197, 456), (386, 35) */
/* CIF PROCEDURECALL (1216, 456), (386, 35) */
call writeln('st01_acceptance: check 2: the service is available');
/* CIF decision (1197, 511), (385, 64) */
decision present(tc!application_data!device_access);
/* CIF ANSWER (1177, 596), (144, 23) */
/* CIF decision (1216, 511), (385, 64) */
decision present(tc.application_data.device_access);
/* CIF ANSWER (1196, 596), (144, 23) */
(pus_2_4_cpdu_cmds):
/* CIF PROCEDURECALL (1049, 639), (399, 29) */
/* CIF PROCEDURECALL (1068, 639), (399, 29) */
call writeln('acceptance_cpdu1: check 3: request type Ok');
/* CIF decision (1045, 688), (407, 71) */
decision tc!secondary_header!ack_successful_acceptance
/* CIF comment (1472, 706), (419, 38) */
/* CIF decision (1064, 688), (407, 71) */
decision tc.secondary_header.ack_successful_acceptance
/* CIF comment (1491, 706), (419, 38) */
comment 'check if the user wants to receive
successful acceptance reports';
/* CIF ANSWER (1085, 782), (70, 23) */
/* CIF ANSWER (1104, 782), (70, 23) */
(true):
/* CIF task (973, 825), (294, 38) */
task tm11!source_apid := TC!dest_apid,