[OpenBIOS] [PATCH 18/20] bootstrap.fs: add debug-type and debug-cr words

[Mark Cave-Ayland]

These words always output to the debug (serial) port even if video mode is
enabled. This makes debugging the video routines much easier when starting
QEMU with the -serial stdio option.

Signed-off-by: Mark Cave-Ayland <mark.cave-ayland at ilande.co.uk>
---
 openbios-devel/forth/bootstrap/bootstrap.fs |    2 ++
 1 file changed, 2 insertions(+)

diff --git a/openbios-devel/forth/bootstrap/bootstrap.fs b/openbios-devel/forth/bootstrap/bootstrap.fs
index 6878449..0668cf7 100644
--- a/openbios-devel/forth/bootstrap/bootstrap.fs
+++ b/openbios-devel/forth/bootstrap/bootstrap.fs
@@ -660,6 +660,7 @@ defer emit
 
 \ : type 0 do count emit loop drop ;
 
+: debug-type bounds ?do i c@ (emit) loop ;
 
 \ 
 \ 7.3.4.1 Text Input
@@ -863,6 +864,7 @@ variable span 0 span !
 \ 
 
 : cr linefeed emit ;
+: debug-cr linefeed (emit) ;
 : (cr carret emit ;
 : space bl emit ;
 : spaces 0 ?do space loop ;
-- 
1.7.10.4