Mercurial > ecos

annotate packages/io/serial/current/tests/serial3.c @ 210:d2c90368aeef

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