system_structure.pr 555 Bytes
Newer Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
/* CIF Keep Specific Geode ASNFilename 'dataview-uniq.asn' */
USE Datamodel;
SYSTEM challenge;

	PROCEDURE pow COMMENT '#c_predef';
		FPAR
			IN a T_UInt32,
			IN b T_UInt32,
			IN/OUT res T_UInt32;
 	EXTERNAL;

	SIGNAL run;
        SIGNAL go_off;
        SIGNAL any_one;
        signal any_two;

	CHANNEL c
		FROM ENV TO challenge WITH run, go_off, any_one, any_two;
	ENDCHANNEL;

	BLOCK challenge;

		SIGNALROUTE r
			FROM ENV TO challenge WITH run, go_off, any_one, any_two;

		CONNECT c and r;

		PROCESS challenge REFERENCED;

	ENDBLOCK;

ENDSYSTEM;