blob: 98b2f29397c517a0ab2ecbe4c09e5c0cbe979782 (
plain)
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
\ *****************************************************************************
\ * Copyright (c) 2004, 2008 IBM Corporation
\ * All rights reserved.
\ * This program and the accompanying materials
\ * are made available under the terms of the BSD License
\ * which accompanies this distribution, and is available at
\ * http://www.opensource.org/licenses/bsd-license.php
\ *
\ * Contributors:
\ * IBM Corporation - initial implementation
\ ****************************************************************************/
\ Serial console. Enabled very early.
\ remember last console used
CREATE lastser 4 allot 0 lastser l!
\ On JS21, use serial port 2. Detect Maui by looking at the SIO version.
20 siocfg@ f2 = IF 2f8 ELSE 3f8 THEN
: >serial LITERAL + ;
: js21? -2f8 >serial 0= ;
: serial! js21? IF 2dup 2f8 + io-c! THEN 3f8 + io-c! ;
: serial1@ 3f8 + io-c@ ;
: serial2@ 2f8 + io-c@ ;
: serial-init 0 1 serial! 0 2 serial!
80 3 serial! d# 115200 swap / 0 serial! 0 1 serial!
3 3 serial! 3 4 serial! ;
: serial-emit BEGIN 5 serial1@ 20 and UNTIL
js21? IF BEGIN 5 serial2@ 20 and UNTIL THEN 0 serial! ;
: serial1-key? 5 serial1@ 1 and 0<> ;
: serial2-key? 5 serial2@ 1 and 0<> ;
: serial1-key serial1-key? dup IF 0 serial1@ swap 0 lastser l! THEN ;
: serial2-key serial2-key? dup IF 0 serial2@ swap 1 lastser l! THEN ;
: serial-key BEGIN serial1-key dup IF ELSE js21? IF drop serial2-key THEN THEN UNTIL ;
: serial-key? serial1-key? js21? IF serial2-key? or THEN ;
\ : serial-key BEGIN 5 serial2@ 1 and UNTIL 0 serial2@ ;
\ : serial-key? 5 serial2@ 1 and 0<> ;
d# 19200 serial-init
' serial-emit to emit
' serial-key to key
' serial-key? to key?
( .( SLOF)
\ .( has started execution, serial console @ ) 0 >serial .
|
