annotate packages/io/serial/current/tests/serial3.c @ 3292:7f8e529b4d82 default tip

Fix FREESCALE_EDMA_NBYTES_MLOFFYES_MLOFF() so it works with negative offsets.
author vae
date Wed, 29 Apr 2015 23:31:48 +0000
parents 74dbf4c3f2e1
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
1 //==========================================================================
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
2 //
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
3 // serial3.c
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
4 //
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
5 // Test data half-duplex receive and send.
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
6 //
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
7 //==========================================================================
2729
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents: 210
diff changeset
8 // ####ECOSGPLCOPYRIGHTBEGIN####
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents: 210
diff changeset
9 // -------------------------------------------
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents: 210
diff changeset
10 // This file is part of eCos, the Embedded Configurable Operating System.
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents: 210
diff changeset
11 // Copyright (C) 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc.
208
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents: 115
diff changeset
12 //
2729
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents: 210
diff changeset
13 // eCos is free software; you can redistribute it and/or modify it under
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents: 210
diff changeset
14 // the terms of the GNU General Public License as published by the Free
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents: 210
diff changeset
15 // Software Foundation; either version 2 or (at your option) any later
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents: 210
diff changeset
16 // version.
208
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents: 115
diff changeset
17 //
2729
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents: 210
diff changeset
18 // eCos is distributed in the hope that it will be useful, but WITHOUT
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents: 210
diff changeset
19 // ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents: 210
diff changeset
20 // FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents: 210
diff changeset
21 // for more details.
208
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents: 115
diff changeset
22 //
2729
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents: 210
diff changeset
23 // You should have received a copy of the GNU General Public License
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents: 210
diff changeset
24 // along with eCos; if not, write to the Free Software Foundation, Inc.,
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents: 210
diff changeset
25 // 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
208
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents: 115
diff changeset
26 //
2729
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents: 210
diff changeset
27 // As a special exception, if other files instantiate templates or use
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents: 210
diff changeset
28 // macros or inline functions from this file, or you compile this file
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents: 210
diff changeset
29 // and link it with other works to produce a work based on this file,
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents: 210
diff changeset
30 // this file does not by itself cause the resulting work to be covered by
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents: 210
diff changeset
31 // the GNU General Public License. However the source code for this file
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents: 210
diff changeset
32 // must still be made available in accordance with section (3) of the GNU
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents: 210
diff changeset
33 // General Public License v2.
208
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents: 115
diff changeset
34 //
2729
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents: 210
diff changeset
35 // This exception does not invalidate any other reasons why a work based
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents: 210
diff changeset
36 // on this file might be covered by the GNU General Public License.
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents: 210
diff changeset
37 // -------------------------------------------
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text.
jlarmour
parents: 210
diff changeset
38 // ####ECOSGPLCOPYRIGHTEND####
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
39 //==========================================================================
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
40 //#####DESCRIPTIONBEGIN####
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
41 //
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
42 // Author(s): jskov
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
43 // Contributors: jskov
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
44 // Date: 1999-03-17
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
45 // Description: Test the half-duplex receive and send capabilities of
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
46 // the serial driver.
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
47 // Requirements: This test requires the ser_filter on the host side.
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
48 //
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
49 //####DESCRIPTIONEND####
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
50
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
51 #include <pkgconf/system.h>
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
52
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
53 #include <cyg/infra/testcase.h> // test macros
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
54 #include <cyg/infra/cyg_ass.h> // assertion macros
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
55
32
5af43b635655 Merge from eCos master repository on 1999-08-18-15:20:01-BST
jlarmour
parents: 2
diff changeset
56 // Package requirements
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
57 #if defined(CYGPKG_IO_SERIAL) && defined(CYGPKG_KERNEL)
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
58
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
59 #include <pkgconf/kernel.h>
32
5af43b635655 Merge from eCos master repository on 1999-08-18-15:20:01-BST
jlarmour
parents: 2
diff changeset
60
5af43b635655 Merge from eCos master repository on 1999-08-18-15:20:01-BST
jlarmour
parents: 2
diff changeset
61 // Package option requirements
5af43b635655 Merge from eCos master repository on 1999-08-18-15:20:01-BST
jlarmour
parents: 2
diff changeset
62 #if defined(CYGFUN_KERNEL_API_C)
5af43b635655 Merge from eCos master repository on 1999-08-18-15:20:01-BST
jlarmour
parents: 2
diff changeset
63
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
64 #include <cyg/hal/hal_arch.h> // CYGNUM_HAL_STACK_SIZE_TYPICAL
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
65 #include <cyg/kernel/kapi.h>
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
66 unsigned char stack[CYGNUM_HAL_STACK_SIZE_TYPICAL];
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
67 cyg_thread thread_data;
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
68 cyg_handle_t thread_handle;
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
69
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
70 #include "ser_test_protocol.inl"
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
71
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
72 //---------------------------------------------------------------------------
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
73 // Serial test main function.
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
74 void
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
75 serial_test( void )
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
76 {
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
77 cyg_io_handle_t ser_handle;
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
78
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
79 test_open_ser(&ser_handle);
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
80
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
81 // We need the filter for this test.
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
82 test_ping(ser_handle);
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
83
208
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents: 115
diff changeset
84 #if (CYGINT_IO_SERIAL_TEST_SKIP_38400 > 0)
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
85 {
208
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents: 115
diff changeset
86 // The board is too slow to run the driver in interrupt mode
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents: 115
diff changeset
87 // at the default 38400 baud when doing this test, so run it
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents: 115
diff changeset
88 // at a slower rate.
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents: 115
diff changeset
89 cyg_ser_cfg_t slow_cfg = {
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents: 115
diff changeset
90 CYGNUM_SERIAL_BAUD_19200, CYGNUM_SERIAL_WORD_LENGTH_8,
115
6ed91473a1cd Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents: 66
diff changeset
91 CYGNUM_SERIAL_STOP_1, CYGNUM_SERIAL_PARITY_NONE,
6ed91473a1cd Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents: 66
diff changeset
92 CYGNUM_SERIAL_FLOW_NONE };
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
93
208
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents: 115
diff changeset
94 CYG_TEST_INFO("Reducing baud rate to 19200");
e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST
jlarmour
parents: 115
diff changeset
95 change_config(ser_handle, &slow_cfg);
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
96 }
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
97 #endif
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
98
115
6ed91473a1cd Merge from eCos master repository on 2000-08-21-22:40:54-BST
jlarmour
parents: 66
diff changeset
99 // Start slowly, then go for max size.
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
100 {
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
101 test_binary(ser_handle, 16, MODE_EOP_ECHO);
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
102 test_binary(ser_handle, 128, MODE_EOP_ECHO);
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
103 test_binary(ser_handle, 256, MODE_EOP_ECHO);
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
104 test_binary(ser_handle, IN_BUFFER_SIZE, MODE_EOP_ECHO);
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
105 }
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
106
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
107 // Write some varying length packets.
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
108 {
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
109 int i;
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
110 for(i = 0; i < 8; i++) {
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
111 // No echo.
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
112 test_binary(ser_handle, 256 + 42*i, MODE_NO_ECHO);
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
113 test_binary(ser_handle, 64 + 7*i, MODE_NO_ECHO);
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
114 // Echo.
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
115 test_binary(ser_handle, 256 + 42*i, MODE_EOP_ECHO);
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
116 test_binary(ser_handle, 64 + 7*i, MODE_EOP_ECHO);
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
117 }
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
118 }
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
119
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
120 #if 0 // Disable this for now.
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
121 // End with some long packets.
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
122 {
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
123 test_binary(ser_handle, 2048, MODE_NO_ECHO);
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
124 test_binary(ser_handle, 16384, MODE_NO_ECHO);
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
125 test_binary(ser_handle, 65536, MODE_NO_ECHO);
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
126 }
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
127 #endif
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
128
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
129 CYG_TEST_PASS_FINISH("serial3 test OK");
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
130 }
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
131
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
132 void
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
133 cyg_start(void)
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
134 {
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
135 CYG_TEST_INIT();
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
136 cyg_thread_create(10, // Priority - just a number
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
137 (cyg_thread_entry_t*)serial_test, // entry
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
138 0, //
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
139 "serial_thread", // Name
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
140 &stack[0], // Stack
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
141 CYGNUM_HAL_STACK_SIZE_TYPICAL, // Size
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
142 &thread_handle, // Handle
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
143 &thread_data // Thread data structure
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
144 );
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
145 cyg_thread_resume(thread_handle);
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
146 cyg_scheduler_start();
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
147 }
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
148
32
5af43b635655 Merge from eCos master repository on 1999-08-18-15:20:01-BST
jlarmour
parents: 2
diff changeset
149 #else // CYGFUN_KERNEL_API_C
5af43b635655 Merge from eCos master repository on 1999-08-18-15:20:01-BST
jlarmour
parents: 2
diff changeset
150 #define N_A_MSG "Needs kernel C API"
5af43b635655 Merge from eCos master repository on 1999-08-18-15:20:01-BST
jlarmour
parents: 2
diff changeset
151 #endif
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
152
32
5af43b635655 Merge from eCos master repository on 1999-08-18-15:20:01-BST
jlarmour
parents: 2
diff changeset
153 #else // CYGPKG_IO_SERIAL && CYGPKG_KERNEL
5af43b635655 Merge from eCos master repository on 1999-08-18-15:20:01-BST
jlarmour
parents: 2
diff changeset
154 #define N_A_MSG "Needs IO/serial and Kernel"
5af43b635655 Merge from eCos master repository on 1999-08-18-15:20:01-BST
jlarmour
parents: 2
diff changeset
155 #endif
5af43b635655 Merge from eCos master repository on 1999-08-18-15:20:01-BST
jlarmour
parents: 2
diff changeset
156
5af43b635655 Merge from eCos master repository on 1999-08-18-15:20:01-BST
jlarmour
parents: 2
diff changeset
157 #ifdef N_A_MSG
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
158 void
32
5af43b635655 Merge from eCos master repository on 1999-08-18-15:20:01-BST
jlarmour
parents: 2
diff changeset
159 cyg_start( void )
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
160 {
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
161 CYG_TEST_INIT();
32
5af43b635655 Merge from eCos master repository on 1999-08-18-15:20:01-BST
jlarmour
parents: 2
diff changeset
162 CYG_TEST_NA( N_A_MSG);
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
163 }
32
5af43b635655 Merge from eCos master repository on 1999-08-18-15:20:01-BST
jlarmour
parents: 2
diff changeset
164 #endif // N_A_MSG
2
443894e2e912 Block commit of eCos version 1.2.1
jlarmour
parents:
diff changeset
165 // EOF serial3.c