X-Git-Url: https://gerrit.opnfv.org/gerrit/gitweb?a=blobdiff_plain;ds=sidebyside;f=qemu%2Froms%2FSLOF%2Fboard-js2x%2Fslof%2Fserial.fs;fp=qemu%2Froms%2FSLOF%2Fboard-js2x%2Fslof%2Fserial.fs;h=98b2f29397c517a0ab2ecbe4c09e5c0cbe979782;hb=e44e3482bdb4d0ebde2d8b41830ac2cdb07948fb;hp=0000000000000000000000000000000000000000;hpb=9ca8dbcc65cfc63d6f5ef3312a33184e1d726e00;p=kvmfornfv.git

diff --git a/qemu/roms/SLOF/board-js2x/slof/serial.fs b/qemu/roms/SLOF/board-js2x/slof/serial.fs
new file mode 100644
index 000000000..98b2f2939
--- /dev/null
+++ b/qemu/roms/SLOF/board-js2x/slof/serial.fs
@@ -0,0 +1,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 .