[Midnightbsd-cvs] src [9866] trunk/sys/boot/forth/frames.4th: delay & frames

[laffer1 at midnightbsd.org]

Revision: 9866
          http://svnweb.midnightbsd.org/src/?rev=9866
Author:   laffer1
Date:     2018-05-23 09:16:28 -0400 (Wed, 23 May 2018)
Log Message:
-----------
delay & frames

Modified Paths:
--------------
    trunk/sys/boot/forth/frames.4th

Property Changed:
----------------
    trunk/sys/boot/forth/frames.4th

Modified: trunk/sys/boot/forth/frames.4th
===================================================================
--- trunk/sys/boot/forth/frames.4th	2018-05-23 13:15:43 UTC (rev 9865)
+++ trunk/sys/boot/forth/frames.4th	2018-05-23 13:16:28 UTC (rev 9866)
@@ -12,6 +12,11 @@
 variable rb_el
 variable fill
 
+\ ASCII frames (used when serial console is detected)
+ 45 constant ascii_dash
+124 constant ascii_pipe
+ 43 constant ascii_plus
+
 s" arch-pc98" environment? [if]
 	\ Single frames
 	149 constant sh_el
@@ -63,7 +68,17 @@
 	loop
 ;
 
+: f_ascii ( -- )	( -- )	\ set frames to ascii
+	ascii_dash h_el !
+	ascii_pipe v_el !
+	ascii_plus lt_el !
+	ascii_plus lb_el !
+	ascii_plus rt_el !
+	ascii_plus rb_el !
+;
+
 : f_single	( -- )	\ set frames to single
+	boot_serial? if f_ascii exit then
 	sh_el h_el !
 	sv_el v_el !
 	slt_el lt_el !
@@ -73,6 +88,7 @@
 ;
 
 : f_double	( -- )	\ set frames to double
+	boot_serial? if f_ascii exit then
 	dh_el h_el !
 	dv_el v_el !
 	dlt_el lt_el !


Property changes on: trunk/sys/boot/forth/frames.4th
___________________________________________________________________
Added: svn:keywords
## -0,0 +1 ##
+MidnightBSD=%H
\ No newline at end of property